Lines Matching refs:iel
568 iel = lcblk(1,iblk) !Element number where this block begins
569 npro = lcblk(1,iblk+1) - iel
573 inum = iel + npro - 1
676 iel = lcblk(1,iblk) !Element number where this block begins
677 npro = lcblk(1,iblk+1) - iel
681 inum = iel + npro - 1
686 & strl(iel:inum,:), shgl(lcsyst,:,1:nshl,:),
818 iel = lcblk(1,iblk)
819 npro = lcblk(1,iblk+1) - iel
821 inum = iel + npro - 1
825 call scatnu (mien(iblk)%p, strl(iel:inum,:),
993 iel = lcblk(1,iblk) !Element number where this block begins
994 npro = lcblk(1,iblk+1) - iel
998 inum = iel + npro - 1
1051 iel = lcblk(1,iblk) !Element number where this block begins
1052 npro = lcblk(1,iblk+1) - iel
1056 inum = iel + npro - 1
1061 call twohfilterB (yold, x, strl(iel:inum,:), mien(iblk)%p,
1102 iel = lcblk(1,iblk) !Element number where this block begins
1103 npro = lcblk(1,iblk+1) - iel
1107 inum = iel + npro - 1
1112 & strl(iel:inum,:), shgl(lcsyst,:,1:nshl,:),
1364 iel = lcblk(1,iblk) !Element number where this block begins
1365 npro = lcblk(1,iblk+1) - iel
1369 inum = iel + npro - 1
1374 & strl(iel:inum,:), shgl(lcsyst,:,1:nshl,:),
1381 iel = lcblk(1,iblk)
1382 npro = lcblk(1,iblk+1) - iel
1384 inum = iel + npro - 1
1388 call scatnu (mien(iblk)%p, strl(iel:inum,:),
1404 iel = lcblk(1,iblk)
1413 npro = lcblk(1,iblk+1) - iel
1444 iel = lcblk(1,iblk) !Element number where this block begins
1445 npro = lcblk(1,iblk+1) - iel
1449 inum = iel + npro - 1
1678 iel = lcblk(1,iblk) !Element number where this block begins
1679 npro = lcblk(1,iblk+1) - iel
1683 inum = iel + npro - 1
1830 iel = lcblk(1,iblk)
1839 npro = lcblk(1,iblk+1) - iel
1876 iel = lcblk(1,iblk) !Element number where this block begins
1877 npro = lcblk(1,iblk+1) - iel
1881 inum = iel + npro - 1
2076 iel = lcblk(1,iblk) !Element number where this block begins
2077 npro = lcblk(1,iblk+1) - iel
2081 inum = iel + npro - 1
2086 & strl(iel:inum,:), shgl(lcsyst,:,1:nshl,:),
2094 iel = lcblk(1,iblk)
2095 npro = lcblk(1,iblk+1) - iel
2097 inum = iel + npro - 1
2101 call scatnu (mien(iblk)%p, strl(iel:inum,:),
2165 iel = lcblk(1,iblk) !Element number where this block begins
2166 npro = lcblk(1,iblk+1) - iel
2170 inum = iel + npro - 1
2175 call asithf (yold, x, strl(iel:inum,:), mien(iblk)%p, fres,
2553 iel = lcblk(1,iblk) !Element number where this block begins
2554 npro = lcblk(1,iblk+1) - iel
2558 inum = iel + npro - 1
2562 call asithf (yold, x, strl(iel:inum,:), mien(iblk)%p, fres,
2572 iel = lcblk(1,iblk) !Element number where this block begins
2573 npro = lcblk(1,iblk+1) - iel
2577 inum = iel + npro - 1
2582 & strl(iel:inum,:), shgl(lcsyst,:,1:nshl,:),
3044 iel = lcblk(1,iblk)
3045 npro = lcblk(1,iblk+1) - iel
3047 inum = iel + npro - 1
3051 call scatnu (mien(iblk)%p, strl(iel:inum,:),
3237 iel = lcblk(1,iblk) !Element number where this block begins
3238 npro = lcblk(1,iblk+1) - iel
3242 inum = iel + npro - 1
3298 iel = lcblk(1,iblk) !Element number where this block begins
3299 npro = lcblk(1,iblk+1) - iel
3303 inum = iel + npro - 1
3308 call twohfilterBB (yold, x, strl(iel:inum,:), mien(iblk)%p,
3349 iel = lcblk(1,iblk) !Element number where this block begins
3350 npro = lcblk(1,iblk+1) - iel
3354 inum = iel + npro - 1
3359 & strl(iel:inum,:), shgl(lcsyst,:,1:nshl,:),
3801 iel = lcblk(1,iblk)
3802 npro = lcblk(1,iblk+1) - iel
3804 inum = iel + npro - 1
3808 call scatnu (mien(iblk)%p, strl(iel:inum,:),