Lines Matching refs:iBC

1       subroutine bc3Res (y,  iBC,  BC,  res, iper, ilwork)  argument
23       dimension y(nshg,ndof),             iBC(nshg),
30       where (btest(iBC,0))
38          where (btest(iBC,2))
55          where (btest(iBC,2))
73         where (ibits(iBC,3,3) .eq. 1)   ! bits of iBC= xy001zab 
86         where (ibits(iBC,3,3) .eq. 2)   ! bits of iBC= xy010zab 
94         where (ibits(iBC,3,3) .eq. 3)  ! bits of iBC= xy011zab 
102         where (ibits(iBC,3,3) .eq. 4)  ! bits of iBC= xy100zab 
110         where (ibits(iBC,3,3) .eq. 5)  ! bits of iBC= xy101zab 
118         where (ibits(iBC,3,3) .eq. 6)  ! bits of iBC= xy110zab 
126         where (ibits(iBC,3,3) .eq. 7)  ! bits of iBC= xy111zab 
135            where (btest(iBC,11))
143            where (btest(iBC,11))
153         where (btest(iBC,1)) res(:,5) = zero
158           if (btest(iBC(j),10)) then
207         subroutine bc3ResSclr (y,  iBC,  BC,   rest,   argument
230         dimension y(nshg,ndof),      iBC(nshg),
239         where (btest(iBC,id))
246           if (btest(iBC(j),10)) then