Lines Matching refs:iBC

1         subroutine bc3Res ( iBC,  BC,  res, iper, ilwork)  argument
22         dimension iBC(nshg),
29         call bc3per(iBC,  res, iper, ilwork, nflow)
33         where (btest(iBC,2))
50         where (ibits(iBC,3,3) .eq. 1)   ! bits of iBC= xy001zab 
63         where (ibits(iBC,3,3) .eq. 2)   ! bits of iBC= xy010zab 
71         where (ibits(iBC,3,3) .eq. 3)  ! bits of iBC= xy011zab 
79         where (ibits(iBC,3,3) .eq. 4)  ! bits of iBC= xy100zab 
87         where (ibits(iBC,3,3) .eq. 5)  ! bits of iBC= xy101zab 
95         where (ibits(iBC,3,3) .eq. 6)  ! bits of iBC= xy110zab 
103         where (ibits(iBC,3,3) .eq. 7)  ! bits of iBC= xy111zab 
112            where (btest(iBC,11))
119            where (btest(iBC,11))
137         subroutine bc3ResSclr (iBC,  res, iper, ilwork)  argument
141         dimension iBC(nshg),
150            where (btest(iBC,1)) res(:) = zero
156            where (btest(iBC,is)) res(:) = zero
161         call bc3per(iBC,  res, iper, ilwork, 1)