| /phasta/phSolver/common/ |
| H A D | filtprep.f | 6 real*8, allocatable :: Qwtf(:,:) variable
57 allocate ( Qwtf(MAXTOP,maxval(nintf)) )
97 Qwtf(1,1:nintf(1)) = tmpQwtf(1:nintf(1))
103 Qwtf(1,i) = (four/three)*Qwtf(1,i)
114 Qwtf(2,1:nintf(2)) = tmpQwtf(1:nintf(2))
122 Qwtf(3,1:nintf(3)) = tmpQwtf(1:nintf(3))
130 Qwtf(5,1:nintf(5)) = tmpQwtf(1:nintf(5))
|
| H A D | cmass.f | 73 subroutine cmassl (shp, shgl, shpf, shglf, xl, em, Qwtf) argument
94 & shg(npro,nshl,nsd), Qwtf(ngaussf),
120 call e3metricf( xl, shdrv,dxidx,shg,WdetJ,Qwtf)
196 subroutine cmasstl (shp, shgl, shpf, shglf, xl, em, Qwtf) argument
217 & shg(npro,nshl,nsd), Qwtf(ngaussf),
237 call e3metricf( xl, shdrv,dxidx,shg,WdetJ,Qwtf)
317 & shg, WdetJ, Qwtf) argument
323 & WdetJ(npro), Qwtf(ngaussf) local
373 WdetJ = Qwtf(intp) / tmp
|
| H A D | asithf.f | 1 subroutine asithf (y, x, strnrm, ien, fres, shgl, shp, Qwtf) argument
14 & fresli(npro,24), Qwtf(ngaussf)
82 wght=Qwtf(intp)
|
| H A D | bardmc.f | 127 & shpf(lcsyst,1:nshl,:),Qwtf(lcsyst,1:ngaussf))
251 & shp(lcsyst,1:nshl,:),Qwtf(lcsyst,1:ngaussf))
672 subroutine hfilter (y, x, ien, hfres, shgl, shp, Qwtf) argument
684 & shp(nshl,maxsh), Qwtf(ngaussf),
751 wght = Qwtf(intp)
826 & hfres, shgl, shp, Qwtf) argument
839 & fresli(npro,33), Qwtf(ngaussf),
|
| 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))
|
| /phasta/phSolver/incompressible/ |
| H A D | advLES.f | 5 & cdelsq, shgl, shp, Qwtf, shglo, shpo, stress, diss, vol) argument
17 & Qwtf(ngaussf), acl(npro,nshl,ndof),
159 wght=Qwtf(intp)
580 & shpf(lcsyst,1:nshl,:),Qwtf(lcsyst,1:ngaussf))
590 & Qwtf(lcsyst,1:ngaussf))
878 subroutine getgram (x, ien, shgl, shp, em, Qwtf) argument
885 & em(npro,nshl,nshl), Qwtf(ngaussf)
899 subroutine getgram2 (x, ien, shgl, shp, shglf, shpf, em, Qwtf) argument
907 & em(npro,nshl,nshl), Qwtf(ngaussf)
912 call cmassl(shp,shgl,shpf,shglf,xl,em,Qwtf)
[all …]
|
| H A D | filters.f | 1 subroutine hfilterC (y, x, ien, hfres, shgl, shp, Qwtf) argument
21 & fresli(npro,16), Qwtf(ngaussf)
83 wght=Qwtf(intp)
178 & hfres, shgl, shp, Qwtf) argument
191 & fresli(npro,33), Qwtf(ngaussf),
404 subroutine hfilterCC (y, x, ien, hfres, shgl, shp, Qwtf) argument
420 & fresli(npro,22), Qwtf(ngaussf),
483 wght=Qwtf(intp)
594 & hfres, shgl, shp, Qwtf) argument
607 & fresli(npro,33), Qwtf(ngaussf),
[all …]
|