Lines Matching refs:BC
1 subroutine itrBC (y,ac, iBC, BC, iper, ilwork) argument
24 & ac(nshg,nflow), BC(nshg,ndofBC)
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
132 subroutine itrBCSclr (y, ac, iBC, BC, iper, ilwork) argument
143 & ac(nshg,ndof), BC(nshg,ndofBC)
168 y(:,id) = BC(:,ibb)