Lines Matching refs:iBC
1 subroutine genBC (iBC, BC, x, ilwork, iper) argument
29 dimension iBC(nshg), nsurf(nshg),
64 where (btest(iBC,10))
75 call genwnm (iBC, BCtmp, x, ilwork, iper, nsurf)
79 call genotwn (x,BCtmp, iBC, nsurf)
89 call genBC1 (BCtmp, iBC, BC)
96 iBCg=iBC
97 call genBC1 (BCtmp, iBC, BC)
102 call findslpw(x,ilwork,iper,iBC)
108 & iBC(nn), BC(nn,:),
161 subroutine genwnm (iBC, BCtmp, x, ilwork, iper, nsurf) argument
182 dimension iBC(nshg), iper(nshg),
279 where (btest(iBC,10))
288 call rotabc(wnrm, iBC, 'in ')
296 call bc3per(iBC,wnrm, iper,ilwork, 3)
312 call rotabc(wnrm, iBC, 'out')
341 if(ibits(iBC(nn),3,3).eq.7 ) ikp=1
344 ixset=ibits(iBC(nn),3,1)
345 iyset=ibits(iBC(nn),4,1)
346 izset=ibits(iBC(nn),5,1)
347 iBC(nn)=iBC(nn)-ixset*8-iyset*16-izset*32
351 iBCSAV=iBC(nn)
361 iBC(nn)=iBC(nn)+8 ! assume normal is x-dominated first
365 iBC(nn)=iBC(nn)+24
370 iBC(nn)=iBC(nn)+8
451 iBC(nn)=iBC(nn)+ixset*8+iyset*16+izset*32
461 iBC(nn)=iBC(nn)+56
467 iBC(nn)=iBC(nn)+56 ! set 3-comp
484 iBC(nn)=iBCSAV+56 ! put it back to a comp3
712 subroutine genotwn(x, BCtmp, iBC, nsurf) argument
747 integer iBC(nshg), nsurf(nshg) local
779 if(ibits(iBC(nn),3,3).eq.7 .and.
810 if(ibits(iBC(can),3,3).eq.7 .and.