Lines Matching refs:y
1 subroutine itrBC (y,ac, iBC, BC, iper, ilwork) argument
23 dimension y(nshg,nflow), iBC(nshg),
32 & y(:,i)=min(ylimit(3,i),max(ylimit(2,i),y(:,i)))
41 y(:,1) = BC(:,3) - BC(:,4) * y(:,2)
42 & - BC(:,5) * y(:,3)
48 y(:,2) = BC(:,3) - BC(:,4) * y(:,1)
49 & - BC(:,5) * y(:,3)
55 y(:,1) = BC(:,3) - BC(:,4) * y(:,3)
56 y(:,2) = BC(:,5) - BC(:,6) * y(:,3)
62 y(:,3) = BC(:,3) - BC(:,4) * y(:,1)
63 & - BC(:,5) * y(:,2)
69 y(:,1) = BC(:,3) - BC(:,4) * y(:,2)
70 y(:,3) = BC(:,5) - BC(:,6) * y(:,2)
76 y(:,2) = BC(:,3) - BC(:,4) * y(:,1)
77 y(:,3) = BC(:,5) - BC(:,6) * y(:,1)
83 y(:,1) = BC(:,3)
84 y(:,2) = BC(:,4)
85 y(:,3) = BC(:,5)
99 y(:,4) = BC(:,1) ! pressure here
107 y(:,i) = y(iper(:),i)
114 call commu (y, ilwork, nflow, 'out')
121 call rotabc(y, iBC, 'out')
132 subroutine itrBCSclr (y, ac, iBC, BC, iper, ilwork) argument
142 dimension y(nshg,ndof), iBC(nshg),
161 & y(:,id)=min(ylimit(3,id),max(ylimit(2,id),y(:,id)))
168 y(:,id) = BC(:,ibb)
174 y(i,id) = y(iper(i),id)
181 T=y(:,id)
183 y(:,id)=T