Lines Matching refs:iBC
1 subroutine bc3Diag (iBC, BC, res) argument
22 dimension iBC(nshg), BC(nshg,ndofBC),
27 where (btest(iBC,2))
44 where (ibits(iBC,3,3) .eq. 1) ! bits of iBC= xy001zab
57 where (ibits(iBC,3,3) .eq. 2) ! bits of iBC= xy010zab
65 where (ibits(iBC,3,3) .eq. 3) ! bits of iBC= xy011zab
73 where (ibits(iBC,3,3) .eq. 4) ! bits of iBC= xy100zab
81 where (ibits(iBC,3,3) .eq. 5) ! bits of iBC= xy101zab
89 where (ibits(iBC,3,3) .eq. 6) ! bits of iBC= xy110zab
97 where (ibits(iBC,3,3) .eq. 7) ! bits of iBC= xy111zab
106 where (btest(iBC,11))
113 where (btest(iBC,11))
126 subroutine bc3SclrDiag (iBC, res) argument
147 dimension iBC(nshg), BC(nshg,ndofBC),
154 where (btest(iBC,1))
162 where (btest(iBC,ib))