Lines Matching refs:iel
73 iel = lcblk(1,iblk) !Element number where this block begins
74 npro = lcblk(1,iblk+1) - iel
78 inum = iel + npro - 1
83 call asithf (y, x, strl(iel:inum,:), mien(iblk)%p, fres,
92 iel = lcblk(1,iblk) !Element number where this block begins
93 npro = lcblk(1,iblk+1) - iel
97 inum = iel + npro - 1
104 & strl(iel:inum,:), shgl(lcsyst,:,1:nshl,:),
386 iel = lcblk(1,iblk)
387 npro = lcblk(1,iblk+1) - iel
389 inum = iel + npro - 1
393 call scatnu (mien(iblk)%p, strl(iel:inum,:),