Lines Matching refs:iBC
1 subroutine bc3LHS (iBC, BC, iens, EGmass ) argument
24 dimension iBC(nshg), ien(npro,nshl),
45 if (iBC(in) .eq. 0) goto 5000
55 if ( btest(iBC(in),2) ) then
73 if ( ibits(iBC(in),3,3) .eq. 1) then
95 if ( ibits(iBC(in),3,3) .eq. 2 ) then
118 if ( ibits(iBC(in),3,3) .eq. 3 ) then
142 if ( ibits(iBC(in),3,3) .eq. 4 ) then
165 if ( ibits(iBC(in),3,3) .eq. 5 ) then
189 if ( ibits(iBC(in),3,3) .eq. 6 ) then
213 if ( ibits(iBC(in),3,3) .eq. 7 ) then
229 if ( btest(iBC(in),1) ) then
241 if ( btest(iBC(in),11) ) then
261 if ( btest(iBC(in),11) ) then
297 subroutine bc3LHSSclr (iBC, iens, EGmasst ) argument
320 dimension iBC(nshg), ien(npro,nshl),
343 if (iBC(in) .eq. 0) goto 5000
348 if ( btest(iBC(in),id) ) then