Lines Matching refs:iBC
1 subroutine itrBC (y,ac, iBC, BC, iper, ilwork) argument
25 dimension y(nshg,nflow), iBC(nshg),
62 where (btest(iBC,1))
71 where (ibits(iBC,3,3) .eq. 1)
85 where (ibits(iBC,3,3) .eq. 2)
92 where (ibits(iBC,3,3) .eq. 3)
99 where (ibits(iBC,3,3) .eq. 4)
106 where (ibits(iBC,3,3) .eq. 5)
113 where (ibits(iBC,3,3) .eq. 6)
120 where (ibits(iBC,3,3) .eq. 7)
132 if (any(btest(iBC,0))) then
136 where (btest(iBC,0))
154 where (btest(iBC,0))
163 if (any(btest(iBC,2))) then
167 where (btest(iBC,2))
190 call rotabc(y, iBC, 'out')
191 if(ires.ne.2) call rotabc(ac, iBC, 'out')
201 subroutine itrBCSclr (y, ac, iBC, BC, iper, ilwork) argument
211 dimension y(nshg,ndof), iBC(nshg),
231 where (btest(iBC,id))