Lines Matching refs:iel
43 iel = lcblk(1,iblk) !Element number where this block begins
44 npro = lcblk(1,iblk+1) - iel
48 inum = iel + npro - 1
52 call getylist( ylist, ifathe(iel:inum,:), shp(lcsyst,1:nshl,:),
84 do iel = 1, npro
86 xmudmi(iel,intp) = cdelsq( lfathe(iel,intp) )*
87 & strl(iel,intp)
319 iel = lcblk(1,iblk) !Element number where this block begins
320 npro = lcblk(1,iblk+1) - iel
324 inum = iel + npro - 1
329 call asithf (yold, x, strl(iel:inum,:), mien(iblk)%p, fres,
370 iel = lcblk(1,iblk) !Element number where this block begins
371 npro = lcblk(1,iblk+1) - iel
374 inum = iel + npro - 1
377 & shp(lcsyst,1:nshl,:), ifathe(iel:inum,:))
411 iel = lcblk(1,iblk) !Element number where this block begins
412 npro = lcblk(1,iblk+1) - iel
416 inum = iel + npro - 1
423 & strl(iel:inum,:), shgl(lcsyst,:,1:nshl,:),
431 iel = lcblk(1,iblk)
432 npro = lcblk(1,iblk+1) - iel
434 inum = iel + npro - 1
438 call getnu (mien(iblk)%p, strl(iel:inum,:),
439 & mxmudmi(iblk)%p,cdelsq,ifathe(iel:inum,:))