Lines Matching refs:iBC
1 subroutine itrBC (y,ac, iBC, BC, iper, ilwork) argument
23 dimension y(nshg,nflow), iBC(nshg),
40 where (ibits(iBC,3,3) .eq. 1)
47 where (ibits(iBC,3,3) .eq. 2)
54 where (ibits(iBC,3,3) .eq. 3)
61 where (ibits(iBC,3,3) .eq. 4)
68 where (ibits(iBC,3,3) .eq. 5)
75 where (ibits(iBC,3,3) .eq. 6)
82 where (ibits(iBC,3,3) .eq. 7)
94 if (any(btest(iBC,2))) then
98 where (btest(iBC,2))
121 call rotabc(y, iBC, 'out')
122 call rotabc(ac, iBC, 'out')
132 subroutine itrBCSclr (y, ac, iBC, BC, iper, ilwork) argument
142 dimension y(nshg,ndof), iBC(nshg),
167 where (btest(iBC,ib))