| /phasta/phSolver/common/ |
| H A D | scatnu.f | 1 subroutine scatnu (ien, strl, xmudmi, xnut, shp) argument
5 dimension ien(npro,nshl), strl(npro,ngauss),
15 xmudmi(:,int) = xmudmi(:,int) + xnut(ien(:,in)) * strl(:,int)
|
| H A D | aveprep.f | 75 subroutine getnu (ien, strl, xmudmi, cdelsq, lfathe) argument
79 dimension ien(npro,nshl), strl(npro,ngauss),
87 & strl(iel,intp)
291 & strl(numel,ngauss),
329 call asithf (yold, x, strl(iel:inum,:), mien(iblk)%p, fres,
423 & strl(iel:inum,:), shgl(lcsyst,:,1:nshl,:),
438 call getnu (mien(iblk)%p, strl(iel:inum,:),
|
| H A D | getdmc.f | 27 & strl(numel,maxnint),
83 call asithf (y, x, strl(iel:inum,:), mien(iblk)%p, fres,
104 & strl(iel:inum,:), shgl(lcsyst,:,1:nshl,:),
393 call scatnu (mien(iblk)%p, strl(iel:inum,:),
|
| H A D | bardmc.f | 66 & strl(numel,maxnint),
249 call twohfilter (yold, x, strl(iel:inum,:), mien(iblk)%p,
269 & strl(iel:inum,:), shgl(lcsyst,:,1:nshl,:),
560 call scatnu (mien(iblk)%p, strl(iel:inum,:),
|
| /phasta/phSolver/incompressible/ |
| H A D | advLES.f | 517 & strl(numel,ngauss),
686 & strl(iel:inum,:), shgl(lcsyst,:,1:nshl,:),
825 call scatnu (mien(iblk)%p, strl(iel:inum,:),
964 & strl(numel,ngauss),
1061 call twohfilterB (yold, x, strl(iel:inum,:), mien(iblk)%p,
1112 & strl(iel:inum,:), shgl(lcsyst,:,1:nshl,:),
1306 & dmodc(nfath), strl(numel,ngauss),
1374 & strl(iel:inum,:), shgl(lcsyst,:,1:nshl,:),
1388 call scatnu (mien(iblk)%p, strl(iel:inum,:),
1644 & xdeno(nfath), strl(numel,ngauss),
[all …]
|
| H A D | filters.f | 1673 & strl(numel,ngauss)
1743 call asithf (yold, x, strl(iel:inum,:), mien(iblk)%p, fres,
1766 & strl(iel:inum,:), shgl(lcsyst,:,1:nshl,:),
2236 call scatnu (mien(iblk)%p, strl(iel:inum,:),
2358 & strl(numel,ngauss),
2490 call twohfilterBB (yold, x, strl(iel:inum,:), mien(iblk)%p,
2541 & strl(iel:inum,:), shgl(lcsyst,:,1:nshl,:),
2988 call scatnu (mien(iblk)%p, strl(iel:inum,:),
|
| /phasta/phSolver/ |
| H A D | CHANGES | 453 and is now correctly dimensioned throughout code (along with strl)
|