Home
last modified time | relevance | path

Searched refs:ngauss (Results 1 – 25 of 53) sorted by relevance

123

/phasta/phSolver/common/
H A Dscatnu.f5 dimension ien(npro,nshl), strl(npro,ngauss),
6 & xmudmi(npro,ngauss), shp(nshl,ngauss)
14 do int = 1, ngauss
H A Daveprep.f50 ngauss = nint(lcsyst)
79 dimension ien(npro,nshl), strl(npro,ngauss),
80 & xmudmi(npro,ngauss), cdelsq(nlist),
81 & lfathe(npro,ngauss)
83 do intp = 1, ngauss
99 do int = 1, ngauss
127 do intp = 1, ngauss
222 do intp = 1, ngauss
291 & strl(numel,ngauss),
326 ngauss = nint(lcsyst)
[all …]
H A Dgetdmc.f80 ngauss = nint(lcsyst)
99 ngauss = nint(lcsyst)
102 if (ngaussf .ne. ngauss) then
391 ngauss = nint(lcsyst)
H A Derrorsmooth.f44 ngauss = nint(lcsyst)
173 do intp = 1, ngauss
H A Dbardmc.f122 ngauss = nint(lcsyst)
246 ngauss = nint(lcsyst)
265 ngauss = nint(lcsyst)
267 if (ngauss .ne. ngaussf) then
558 ngauss = nint(lcsyst)
836 & strnrm(npro,ngauss), dxidx(npro,nsd,nsd),
856 do intp = 1, ngauss
1066 dimension xmudmi(npro,ngauss), y(nshg,ndof),
1076 & strnrm(npro,ngauss), rlsl(npro,nshl,6)
1088 do intp = 1, ngauss
H A Dcmass.f47 do intp = 1, ngauss ! (these are in common.h)
141 do intp = 1, ngauss ! (these are in common.h)
258 do intp = 1, ngauss ! (these are in common.h)
/phasta/phSolver/incompressible/
H A Dasiq.f28 & shp(nshl,ngauss), shgl(nsd,nshl,ngauss),
34 & xmudmi(npro,ngauss)
96 & shp(nshl,ngauss), shgl(nsd,nshl,ngauss),
H A Dasigmr.f24 & shp(nshl,ngauss), shgl(nsd,nshl,ngauss),
43 dimension xmudmi(npro,ngauss)
142 & shp(nshl,ngauss), shgl(nsd,nshl,ngauss),
152 real*8 xSebe(npro,nshl,nshl), xmudmi(npro,ngauss)
H A De3.f42 & shp(nshl,ngauss), shgl(nsd,nshl,ngauss),
58 & xmudmi(npro,ngauss), sgn(npro,nshl),
83 do intp = 1, ngauss
180 & shp(nshl,ngauss), shgl(nsd,nshl,ngauss),
204 real*8 uMod(npro,nsd), srcRat(npro), xmudmi(npro,ngauss)
216 do intp = 1, ngauss
H A De3q.f25 & shp(nshl,ngauss), shgl(nsd,nshl,ngauss),
28 & xmudmi(npro,ngauss)
57 do intp = 1, ngauss
220 & shp(nshl,ngauss), shgl(nsd,nshl,ngauss),
243 do intp = 1, ngauss
H A De3ql.f26 & shp(nshl,ngauss), shgl(nsd,nshl,ngauss),
28 & ql(npro,nshl,idflx), xmudmi(npro,ngauss)
52 do intp = 1, ngauss
192 & shp(nshl,ngauss), shgl(nsd,nshl,ngauss),
215 do intp = 1, ngauss
H A De3qGradV.f24 & shp(nshl,ngauss), shgl(nsd,nshl,ngauss),
42 do intp = 1, ngauss
H A Dhessian.f38 ngauss = nint(lcsyst)
67 ngauss = nint(lcsyst)
93 & shp(nshl,ngauss), shgl(nsd,nshl,ngauss),
128 do intp = 1, ngauss
168 & shp(nshl,ngauss), shgl(nsd,nshl,ngauss),
203 do intp = 1, ngauss
H A DasiqGradV.f26 & shp(nshl,ngauss), shgl(nsd,nshl,ngauss),
H A DadvLES.f14 & shp(nshl,ngauss), shpfun(npro,nshl),
15 & shgl(nsd,nshl,ngauss), shg(npro,nshl,nsd),
16 & shglo(nsd,nshl,ngauss), shpo(nshl,ngauss),
37 & xmudmi(npro,ngauss), xmudmif(npro,ngauss),
517 & strl(numel,ngauss),
575 ngauss = nint(lcsyst)
683 ngauss = nint(lcsyst)
823 ngauss = nint(lcsyst)
884 & shgl(nsd,nshl,ngauss), shp(nshl,ngauss),
905 & shgl(nsd,nshl,ngauss), shp(nshl,ngauss),
[all …]
H A Dgenlmass.f35 ngauss = nint(lcsyst)
75 & shp(nshl,maxsh), shgl(nsd,nshl,ngauss),
108 do intp = 1, ngauss
H A Derrsmooth.f45 ngauss = nint(lcsyst)
174 do intp = 1, ngauss
H A Dfilters.f19 & shgl(nsd,nshl,ngauss), shg(npro,nshl,nsd),
20 & shp(nshl,ngauss),
188 & strnrm(npro,ngauss), dxidx(npro,nsd,nsd),
189 & shgl(nsd,nshl,ngauss), shg(npro,nshl,nsd),
190 & shp(nshl,ngauss),
222 do intp = 1, ngauss
418 & shgl(nsd,nshl,ngauss), shg(npro,nshl,nsd),
419 & shp(nshl,ngauss),
604 & strnrm(npro,ngauss), dxidx(npro,nsd,nsd),
605 & shgl(nsd,nshl,ngauss), shg(npro,nshl,nsd),
[all …]
/phasta/phSolver/compressible/
H A Dvorticity.f36 ngauss = nint(lcsyst)
85 real*8 shp2(nshl,ngauss), shgl2(nsd,nshl,ngauss)
105 shp2(:,1:ngauss)=shp1(:,1:ngauss)
106 shgl2(:,:,1:ngauss)=shgl1(:,:,1:ngauss)
118 do intp=1,ngauss
H A Dasiq.f27 & shp(nshl,ngauss),
28 & shgl(nsd,nshl,ngauss),
36 & xmudmi(npro,ngauss)
H A De3.f52 & shp(nshl,ngauss), rlm2mu(npro),
53 & shgl(nsd,nshl,ngauss), con(npro),
56 & rml(npro,nshl,nflow), xmudmi(npro,ngauss),
72 & betaT(npro), DC(npro,ngauss),
106 do intp = 1, ngauss
243 if (ngauss .eq. 1 .and. nshl .eq. 4) then ! trilinear tets
362 & shp(nshl,ngauss), shgl(nsd,nshl,ngauss),
389 & DCt(npro, ngauss)
401 do intp = 1, ngauss
539 qptinv=one/ngauss
H A Dasires.f18 & shp(nshl,ngauss),
19 & shgl(nsd,nshl,ngauss),
27 dimension xmudmi(npro,ngauss)
H A De3ql.f25 & shp(nshl,ngauss),
26 & shgl(nsd,nshl,ngauss),
28 & ql(npro,nshl,idflx), xmudmi(npro,ngauss)
54 do intp = 1, ngauss
H A De3q.f25 & shp(nshl,ngauss),
26 & shgl(nsd,nshl,ngauss),
29 & xmudmi(npro,ngauss)
61 do intp = 1, ngauss
H A Delmgmr.f82 ngauss = nint(lcsyst)
143 ngauss = nint(lcsyst)
364 ngauss = nint(lcsyst)
424 ngauss = nint(lcsyst)
764 ngauss = nint(lcsyst)

123