Lines Matching refs:iBCB
1 subroutine e3b (ul, yl, acl, iBCB, BCB, argument
54 dimension yl(npro,nshl,ndof), iBCB(npro,ndiBCB),
144 iface = abs(iBCB(iel,2))
172 if (btest(iBCB(iel,1),0)) then
183 if (btest(iBCB(iel,1),1)) then
194 if (btest(iBCB(iel,1),2)) then
212 if (btest(iBCB(iel,1),4)) then
236 if (nsrflist(iBCB(iel,2)) .ne. 0) then
321 where (nsrflist(iBCB(:,2)).eq.1)
374 subroutine e3bSclr (yl, iBCB, BCB, shpb, shglb, argument
378 dimension yl(npro,nshl,ndof), iBCB(npro,ndiBCB),
434 if (nsrflist(iBCB(iel,2)).ne.0 .and. ires.ne.2) then
435 iface = abs(iBCB(iel,2))
440 if (btest(iBCB(iel,1),ib-1)) then