Lines Matching refs:iel
69 iel = lcblkb(1,iblk)
76 npro = lcblkb(1,iblk+1) - iel
108 iel = lcblk(1,iblk)
113 npro = lcblk(1,iblk+1) - iel
165 iel = lcblkb(1,iblk)
171 npro = lcblkb(1,iblk+1) - iel
452 integer nshl, nshg, npro, npro2, i, iel local
459 do iel = 1, npro
460 map(iel) = map(iel) + mask( abs(ien(iel,i)) )
465 do iel = 1, npro
466 if ( map(iel) .gt. 0 ) then
468 map(iel) = npro2
470 map(iel) = npro
478 do iel = 1, npro
479 ien2(map(iel),i) = ien(iel,i)