Lines Matching refs:iBC
1 subroutine genBC1 (BCtmp, iBC, BC) argument
26 dimension BCtmp(nshg,ndof+7), iBC(nshg),
34 where (btest(iBC,5+isclr)) BC(:,6+isclr) = BCtmp(:,12+isclr)
39 where (btest(iBC,0)) BC(:,1) = BCtmp(:,1) ! density
40 where (btest(iBC,1)) BC(:,2) = BCtmp(:,2) ! temperature
41 where (btest(iBC,2)) BC(:,1) = BCtmp(:,3) ! pressure
45 where (ibits(iBC,3,3) .eq. 1)
54 where (ibits(iBC,3,3) .eq. 2)
68 if(ibits(iBC(i),3,3) .eq. 3 .and.
75 where (ibits(iBC,3,3) .eq. 3)
111 where (ibits(iBC,3,3) .eq. 4)
127 if(ibits(iBC(i),3,3) .eq. 5 .and.
134 where (ibits(iBC,3,3) .eq. 5)
176 if(ibits(iBC(i),3,3) .eq. 6 .and. (
183 where (ibits(iBC,3,3) .eq. 6)
220 where (ibits(iBC,3,3) .eq. 7)