| /phasta/phSolver/common/ |
| H A D | filtprep.f | 3 real*8, allocatable :: shpf(:,:,:) variable
54 allocate ( shpf(MAXTOP,maxsh,maxval(nintf)) )
149 call shpTet(ipord,Qptf(1,1:3,i),shpf(1,:,i),
164 call shphex (ipord, Qptf(2,1:3,i),shpf(2,:,i),
172 call shp6W (ipord,Qptf(3,1:3,i),shpf(3,:,i),
179 call shppyr (ipord,Qptf(5,1:3,i),shpf(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 | 85 & shpf(lcsyst,1:nshl,:),Qwtf(lcsyst,1:ngaussf))
|
| H A D | aveprep.f | 331 & shpf(lcsyst,1:nshl,:),Qwtf(lcsyst,1:ngaussf))
|
| H A D | bardmc.f | 127 & shpf(lcsyst,1:nshl,:),Qwtf(lcsyst,1:ngaussf))
|
| /phasta/phSolver/incompressible/ |
| H A D | advLES.f | 580 & shpf(lcsyst,1:nshl,:),Qwtf(lcsyst,1:ngaussf))
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)
1009 & shpf(lcsyst,1:nshl,:),Qwtf(lcsyst,1:ngaussf))
1456 & shpf(lcsyst,1:nshl,:),Qwtf(lcsyst,1:ngaussf),
[all …]
|
| H A D | filters.f | 1089 & shpf(lcsyst,1:nshl,:),Qwtf(lcsyst,1:ngaussf),
1745 & shpf(lcsyst,1:nshl,:),Qwtf(lcsyst,1:ngaussf))
2435 & shpf(lcsyst,1:nshl,:),Qwtf(lcsyst,1:ngaussf))
2492 & shpf(lcsyst,1:nshl,:),Qwtf(lcsyst,1:ngaussf))
|