| /phasta/phSolver/incompressible/ |
| H A D | e3ivar.f | 1 subroutine e3ivar (yl, acl, shpfun, argument
56 & acl(npro,nshl,ndof), shpfun(npro,nshl),
87 pres = pres + shpfun(:,n) * yl(:,n,1)
88 u1 = u1 + shpfun(:,n) * yl(:,n,2)
89 u2 = u2 + shpfun(:,n) * yl(:,n,3)
90 u3 = u3 + shpfun(:,n) * yl(:,n,4)
95 Temp = Temp + shpfun(:,n) * yl(:,n,5)
102 xx(:,1) = xx(:,1) + shpfun(:,n) * xl(:,n,1)
103 xx(:,2) = xx(:,2) + shpfun(:,n) * xl(:,n,2)
104 xx(:,3) = xx(:,3) + shpfun(:,n) * xl(:,n,3)
[all …]
|
| H A D | e3.f | 59 & shpfun(npro,nshl), shdrv(npro,nsd,nshl),
90 & shpfun, shdrv)
94 call getdiff(dwl, yl, shpfun, xmudmi, xl, rmu, rho)
98 call e3ivar (yl, acl, shpfun,
122 & shpfun, shg, src,
133 & shpfun, shg, xKebe,
191 & sgn(npro,nshl), shpfun(npro,nshl), local
223 & shpfun, shdrv)
227 call getdiffsclr(shpfun,dwl,yl,diffus)
231 call e3ivarSclr(yl, acl, shpfun,
[all …]
|
| H A D | e3lhs.f | 5 & shpfun, shg, xKebe, argument
39 & shpfun(npro,nshl),shg(npro,nshl,3)
87 tmp1 = tsFct * shpfun(:,aa) * shpfun(:,b)
88 tmp2 = tmp1 + t1(:,1) * shpfun(:,aa)
235 xGoC(:,1,aa,b) = xGoC(:,1,aa,b) + t1(:,1) * shpfun(:,aa)
236 xGoC(:,2,aa,b) = xGoC(:,2,aa,b) + t1(:,2) * shpfun(:,aa)
237 xGoC(:,3,aa,b) = xGoC(:,3,aa,b) + t1(:,3) * shpfun(:,aa)
273 & shpfun, shg, srcL, argument
283 & tauS(npro), shpfun(npro,nshl), local
317 tmp1 = shpfun(:,aa) * shpfun(:,b)
[all …]
|
| H A D | e3res.f | 6 & shpfun, shg, src, argument
46 & shpfun(npro,nshl),shg(npro,nshl,nsd), src(npro,nsd),
239 & * ( shpfun(:,aa) * rNa(:,1)
244 & * ( shpfun(:,aa) * rNa(:,2)
249 & * ( shpfun(:,aa) * rNa(:,3)
271 & shpfun, shg, src, argument
280 & tauS(npro), shpfun(npro,nshl), src(npro), local
335 & * ( shpfun(:,aa) * rNa(:)
|
| H A D | advLES.f | 14 & shp(nshl,ngauss), shpfun(npro,nshl),
237 shpfun(i,n) = shp(n,intp)
241 call getdiff(yl, shpfun, xmudmif,xl, rmu, rho)
|
| /phasta/phSolver/common/ |
| H A D | asbnabi.f | 25 & shpfun(npro,nshl), shdrv(npro,nsd,nshl)
121 & shpfun, shdrv)
130 & shpfun(:,nodlcl) * bnorm(:,1) * WdetJb(:)
132 & shpfun(:,nodlcl) * bnorm(:,2) * WdetJb(:)
134 & shpfun(:,nodlcl) * bnorm(:,3) * WdetJb(:)
183 & shpfun(npro,nshl), shdrv(npro,nsd,nshl)
279 & shpfun, shdrv)
286 rl(:,nodlcl) = rl(:,nodlcl) + shpfun(:,nodlcl) * WdetJb(:)
|
| /phasta/phSolver/compressible/ |
| H A D | e3source.f | 5 & xl, shpfun, bcool)
33 & shpfun(npro,nshl),
82 xx(:,1) = xx(:,1) + shpfun(:,n) * xl(:,n,1)
83 xx(:,2) = xx(:,2) + shpfun(:,n) * xl(:,n,2)
84 xx(:,3) = xx(:,3) + shpfun(:,n) * xl(:,n,3)
90 & + shpfun(:,n)*ytargetl(:,n,j)
|