Lines Matching refs:BC
1 subroutine itrBC (y,ac, iBC, BC, iper, ilwork) argument
26 & ac(nshg,nflow), BC(nshg,ndofBC)
63 y(:,5) = BC(:,2)
79 y(:,1) = BC(:,3) - BC(:,4) * y(:,2)
80 & - BC(:,5) * y(:,3)
86 y(:,2) = BC(:,3) - BC(:,4) * y(:,1)
87 & - BC(:,5) * y(:,3)
93 y(:,1) = BC(:,3) - BC(:,4) * y(:,3)
94 y(:,2) = BC(:,5) - BC(:,6) * y(:,3)
100 y(:,3) = BC(:,3) - BC(:,4) * y(:,1)
101 & - BC(:,5) * y(:,2)
107 y(:,1) = BC(:,3) - BC(:,4) * y(:,2)
108 y(:,3) = BC(:,5) - BC(:,6) * y(:,2)
114 y(:,2) = BC(:,3) - BC(:,4) * y(:,1)
115 y(:,3) = BC(:,5) - BC(:,6) * y(:,1)
121 y(:,1) = BC(:,3)
122 y(:,2) = BC(:,4)
123 y(:,3) = BC(:,5)
137 q1 = BC(:,1) ! density
168 y(:,4) = BC(:,1) ! pressure here
201 subroutine itrBCSclr (y, ac, iBC, BC, iper, ilwork) argument
212 & ac(nshg,ndof), BC(nshg,ndofBC)
232 y(:,id) = BC(:,ibb)