| /phasta/phSolver/common/ |
| H A D | filtprep.f | 4 real*8, allocatable :: shglf(:,:,:,:) variable
55 allocate ( shglf(MAXTOP,nsd,maxsh,maxval(nintf)) )
150 & shglf(1,:,:,i))
155 shglf(1,:,1:nshl,1:nintf(1)) =
156 & shglf(1,:,1:nshl,1:nintf(1))/two
165 & shglf(2,:,:,i))
173 & shglf(3,:,:,i))
180 & shglf(5,:,:,i))
|
| H A D | cmass.f | 73 subroutine cmassl (shp, shgl, shpf, shglf, xl, em, Qwtf) argument
88 & shpf(nshl,MAXQPT), shglf(nsd,nshl,MAXQPT),
115 call getshp(shpf, shglf, sgn,
196 subroutine cmasstl (shp, shgl, shpf, shglf, xl, em, Qwtf) argument
211 & shpf(nshl,MAXQPT), shglf(nsd,nshl,MAXQPT),
232 call getshp(shpf, shglf, sgn,
|
| H A D | getdmc.f | 84 & shglf(lcsyst,:,1:nshl,:),
|
| H A D | aveprep.f | 330 & shglf(lcsyst,:,1:nshl,:),
|
| H A D | bardmc.f | 126 & shglf(lcsyst,:,1:nshl,:),
|
| /phasta/phSolver/incompressible/ |
| H A D | advLES.f | 579 & shglf(lcsyst,:,1:nshl,:),
589 & shglf(lcsyst,:,1:nshl,:), shpf(lcsyst,1:nshl,:), em,
899 subroutine getgram2 (x, ien, shgl, shp, shglf, shpf, em, Qwtf) argument
906 & shglf(nsd,nshl,ngauss), shpf(nshl,ngauss),
912 call cmassl(shp,shgl,shpf,shglf,xl,em,Qwtf)
921 subroutine getgram3 (x, ien, shgl, shp, shglf, shpf, em, Qwtf) argument
928 & shglf(nsd,nshl,ngauss), shpf(nshl,ngauss),
934 call cmasstl(shp,shgl,shpf,shglf,xl,em,Qwtf)
1008 & shglf(lcsyst,:,1:nshl,:),
1455 & cdelsq, shglf(lcsyst,:,1:nshl,:),
[all …]
|
| H A D | filters.f | 1088 & cdelsq, shglf(lcsyst,:,1:nshl,:),
1744 & shglf(lcsyst,:,1:nshl,:),
2434 & shglf(lcsyst,:,1:nshl,:),
2491 & fres, hfres, shglf(lcsyst,:,1:nshl,:),
|