phSolver/incompressible/advLES.f

567         lcsyst = lcblk(3,iblk)
575         ngauss = nint(lcsyst)
576         ngaussf = nintf(lcsyst)
579      &               shglf(lcsyst,:,1:nshl,:),
580      &               shpf(lcsyst,1:nshl,:),Qwtf(lcsyst,1:ngaussf))
588      &          shgl(lcsyst,:,1:nshl,:),  shp(lcsyst,1:nshl,:),
589      &          shglf(lcsyst,:,1:nshl,:), shpf(lcsyst,1:nshl,:), em,
590      &          Qwtf(lcsyst,1:ngaussf))
675         lcsyst = lcblk(3,iblk)
683         ngauss = nint(lcsyst)
686      &               strl(iel:inum,:), shgl(lcsyst,:,1:nshl,:),
687      &               shp(lcsyst,1:nshl,:))
817          lcsyst = lcblk(3,iblk)
823          ngauss = nint(lcsyst)
826      &        mxmudmi(iblk)%p,cdelsq,shp(lcsyst,1:nshl,:))
992         lcsyst = lcblk(3,iblk)
1000         ngauss = nint(lcsyst)
1001         ngaussf = nintf(lcsyst)
1008      &               shglf(lcsyst,:,1:nshl,:),
1009      &               shpf(lcsyst,1:nshl,:),Qwtf(lcsyst,1:ngaussf))
1050         lcsyst = lcblk(3,iblk)
1058         ngauss = nint(lcsyst)
1059         ngaussf = nintf(lcsyst)
1062      &               fres, hfres, shgl(lcsyst,:,1:nshl,:),
1063      &               shp(lcsyst,1:nshl,:),Qwtf(lcsyst,1:ngaussf))
1101         lcsyst = lcblk(3,iblk)
1109         ngauss = nint(lcsyst)
1112      &               strl(iel:inum,:), shgl(lcsyst,:,1:nshl,:),
1113      &               shp(lcsyst,1:nshl,:))
1363         lcsyst = lcblk(3,iblk)
1371         ngauss = nint(lcsyst)
1374      &               strl(iel:inum,:), shgl(lcsyst,:,1:nshl,:),
1375      &               shp(lcsyst,1:nshl,:))
1380          lcsyst = lcblk(3,iblk)
1386          ngauss = nint(lcsyst)
1389      &        mxmudmi(iblk)%p,cdelsq,shp(lcsyst,1:nshl,:))
1406               lcsyst = lcblk(3,iblk)
1414               ngauss = nint(lcsyst)
1420      &                   shp(lcsyst,1:nshl,:),
1421      &                   shgl(lcsyst,:,1:nshl,:),
1443         lcsyst = lcblk(3,iblk)
1451         ngauss = nint(lcsyst)
1452         ngaussf = nintf(lcsyst)
1455      &                   cdelsq, shglf(lcsyst,:,1:nshl,:),
1456      &                   shpf(lcsyst,1:nshl,:),Qwtf(lcsyst,1:ngaussf),
1457      &                   shgl(lcsyst,:,1:nshl,:), shp(lcsyst,1:nshl,:),
1677         lcsyst = lcblk(3,iblk)
1685         ngauss = nint(lcsyst)
1686         ngaussf = nintf(lcsyst)
1689      &               shglf(lcsyst,:,1:nshl,:),
1690      &               shpf(lcsyst,1:nshl,:),Qwtf(lcsyst,1:ngaussf))
1697      &          shgl(lcsyst,:,1:nshl,:),  shp(lcsyst,1:nshl,:),
1698      &          shglf(lcsyst,:,1:nshl,:), shpf(lcsyst,1:nshl,:), em,
1699      &          Qwtf(lcsyst,1:ngaussf))
1832               lcsyst = lcblk(3,iblk)
1840               ngauss = nint(lcsyst)
1850      &                   shp(lcsyst,1:nshl,:),
1851      &                   shgl(lcsyst,:,1:nshl,:),
1875         lcsyst = lcblk(3,iblk)
1883         ngauss = nint(lcsyst)
1884         ngaussf = nintf(lcsyst)
1890      &                   cdelsq, shglf(lcsyst,:,1:nshl,:),
1891      &                   shpf(lcsyst,1:nshl,:),Qwtf(lcsyst,1:ngaussf),
1892      &                   shgl(lcsyst,:,1:nshl,:), shp(lcsyst,1:nshl,:),
2075         lcsyst = lcblk(3,iblk)
2083         ngauss = nint(lcsyst)
2086      &               strl(iel:inum,:), shgl(lcsyst,:,1:nshl,:),
2087      &               shp(lcsyst,1:nshl,:))
2093          lcsyst = lcblk(3,iblk)
2099          ngauss = nint(lcsyst)
2102      &        mxmudmi(iblk)%p,cdelsq,shp(lcsyst,1:nshl,:))
2164         lcsyst = lcblk(3,iblk)
2172         ngauss = nint(lcsyst)
2173         ngaussf = nintf(lcsyst)
2176      &               shglf(lcsyst,:,1:nshl,:),
2177      &               shpf(lcsyst,1:nshl,:),Qwtf(lcsyst,1:ngaussf))
2552         lcsyst = lcblk(3,iblk)
2560         ngauss = nint(lcsyst)
2563      &               shglf(lcsyst,:,1:nshl,:),
2564      &               shpf(lcsyst,1:nshl,:),Qwtf(lcsyst,1:ngaussf))
2571         lcsyst = lcblk(3,iblk)
2579         ngauss = nint(lcsyst)
2582      &               strl(iel:inum,:), shgl(lcsyst,:,1:nshl,:),
2583      &               shp(lcsyst,1:nshl,:))
3043          lcsyst = lcblk(3,iblk)
3049          ngauss = nint(lcsyst)
3052      &        mxmudmi(iblk)%p,cdelsq,shp(lcsyst,1:nshl,:))
3236         lcsyst = lcblk(3,iblk)
3244         ngauss = nint(lcsyst)
3245         ngaussf = nintf(lcsyst)
3252      &               shglf(lcsyst,:,1:nshl,:),
3253      &               shpf(lcsyst,1:nshl,:),Qwtf(lcsyst,1:ngaussf))
3297         lcsyst = lcblk(3,iblk)
3305         ngauss = nint(lcsyst)
3306         ngaussf = nintf(lcsyst)
3309      &               fres, hfres, shglf(lcsyst,:,1:nshl,:),
3310      &               shpf(lcsyst,1:nshl,:),Qwtf(lcsyst,1:ngaussf))
3348         lcsyst = lcblk(3,iblk)
3356         ngauss = nint(lcsyst)
3359      &               strl(iel:inum,:), shgl(lcsyst,:,1:nshl,:),
3360      &               shp(lcsyst,1:nshl,:))
3800          lcsyst = lcblk(3,iblk)
3806          ngauss = nint(lcsyst)
3809      &        mxmudmi(iblk)%p,cdelsq,shp(lcsyst,1:nshl,:))