Lines Matching refs:iel
105 do iel=1,npro
106 if (.not.btest(iBCB(iel,1),1)) then
107 Wfactor(iel) = zero ! we want zeros where we are not integrating
146 do iel=1,npro
147 if (iBCB(iel,2) .ne. 0) then
148 iface = iBCB(iel,2)
149 ndsurf(ienb(iel,1:nshlb))=iface
261 do iel=1,npro
262 if (.not.btest(iBCB(iel,1),1)) then
263 Wfactor(iel) = zero ! we want zeros where we are not integrating
298 do iel=1,npro
299 if (iBCB(iel,2) .ne. 0) then
300 iface = iBCB(iel,2)
301 ndsurf(ienb(iel,1:nshlb))=iface