Lines Matching refs:in
44 in = ien(iel,inod)
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
76 & - BC(in,4) * EGmass(iel,i2,i)
78 & - BC(in,5) * EGmass(iel,i2,i)
82 & - BC(in,4) * EGmass(iel,i,i2)
84 & - BC(in,5) * EGmass(iel,i,i2)
95 if ( ibits(iBC(in),3,3) .eq. 2 ) then
98 & - BC(in,4) * EGmass(iel,i3,i)
100 & - BC(in,5) * EGmass(iel,i3,i)
104 & - BC(in,4) * EGmass(iel,i,i3)
106 & - BC(in,5) * EGmass(iel,i,i3)
118 if ( ibits(iBC(in),3,3) .eq. 3 ) then
121 & - BC(in,4) * EGmass(iel,i2,i)
122 & - BC(in,6) * EGmass(iel,i3,i)
126 & - BC(in,4) * EGmass(iel,i,i2)
127 & - BC(in,6) * EGmass(iel,i,i3)
142 if ( ibits(iBC(in),3,3) .eq. 4 ) then
145 & - BC(in,4) * EGmass(iel,i4,i)
147 & - BC(in,5) * EGmass(iel,i4,i)
151 & - BC(in,4) * EGmass(iel,i,i4)
153 & - BC(in,5) * EGmass(iel,i,i4)
165 if ( ibits(iBC(in),3,3) .eq. 5 ) then
168 & - BC(in,4) * EGmass(iel,i2,i)
169 & - BC(in,6) * EGmass(iel,i4,i)
173 & - BC(in,4) * EGmass(iel,i,i2)
174 & - BC(in,6) * EGmass(iel,i,i4)
189 if ( ibits(iBC(in),3,3) .eq. 6 ) then
192 & - BC(in,4) * EGmass(iel,i3,i)
193 & - BC(in,6) * EGmass(iel,i4,i)
197 & - BC(in,4) * EGmass(iel,i,i3)
198 & - BC(in,6) * EGmass(iel,i,i4)
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
342 in = ien(iel,inod)
343 if (iBC(in) .eq. 0) goto 5000
348 if ( btest(iBC(in),id) ) then