| /phasta/phSolver/incompressible/ |
| H A D | getfld.f | 2 & con) argument
35 & rlm2mu(npro), con(npro)
69 con = datmat(1,4,1)
|
| /phasta/phSolver/compressible/ |
| H A D | getdiff.f | 2 & rmu, rlm, rlm2mu, con, shp, argument
43 & rlm2mu(npro), con(npro),
171 con = rmu * cp / pr
264 con = con + xmuT*cp/pr
274 & rlm2mu, con, rho, Sclr) argument
307 & rlm2mu(npro), con(npro),
354 con = rmu * cp / pr
|
| H A D | e3visc.f | 6 & con, rlsli, compK, T)
51 & rlm2mu(npro), con(npro),
75 stiff(:, 5, 5) = con
108 stiff(:,10,10) = con
139 stiff(:,15,15) = con
254 compK(:,10) = f1 * T * (con * T + two * rmu * rk + (rlm +
256 & + f3 * T * (con * T + two * rmu * rk + (rlm + rmu) *
258 & + f5 * T * (rlm + rmu) * two * u2 * u3 + f6 * T * (con
292 & + con * g1yi(:,5)
317 & + con * g2yi(:,5)
[all …]
|
| H A D | e3.f | 53 & shgl(nsd,nshl,ngauss), con(npro),
141 & con, rlsl, rlsli,
182 & con, rlsli, compK, T)
203 & cv, con, T,
271 & rmu, rlm2mu, con)
280 & rmu, rlm2mu, con)
369 & rmu(npro), con(npro),
435 & rho, rmu, con,
446 & dist2w, vort, gVnrm, con,
|
| H A D | e3ql.f | 39 & con(npro), rminv(npro,nshl,nshl),
88 & rmu, rlm, rlm2mu, con, shape,
106 & + con * g1yi(:,5)
122 & + con * g2yi(:,5)
137 & + con * g3yi(:,5)
|
| H A D | e3q.f | 40 & con(npro), rho(npro)
93 & rmu, rlm, rlm2mu, con, shape,
115 & + con * g1yi(:,5)
131 & + con * g2yi(:,5)
146 & + con * g3yi(:,5)
|
| H A D | e3b.f | 85 & rlm2mu(npro), con(npro),
191 & rmu, rlm, rlm2mu, con, shape,
223 heat = -con * ( bnorm(:,1) * g1yi(:,5) +
245 EGmass(:,b, aa) = con * WdetJb * shape(:,b) * dNadn(:,aa)
450 & rlm2mu(npro), con(npro),
574 & rlm, rlm2mu, con, rho, Sclr)
|
| H A D | e3ivar.f | 12 & con, rlsl, rlsli, argument
81 & rlm2mu(npro), con(npro),
230 & rmu, rlm, rlm2mu, con, shape,
496 & rho, rmu, con, argument
573 & rmu(npro), con(npro),
651 & tmp, tmp, con, rho, Sclr)
|
| H A D | e3ls.f | 3 & cv, con, T, argument
63 & con(npro), cp(npro),
192 & con, dxidx, rLyi,
211 & con, dxidx, rLyi,
|
| H A D | e3tau.f | 3 & con, dxidx, rLyi,
39 dimension rho(npro), con(npro),
138 tau(:,3)=min(tau(:,3),fact*rmu/con)*temper
287 & con, dxidx, rLyi,
324 dimension rho(npro), con(npro),
748 & con, dxidx, rLyi,
786 dimension rho(npro), con(npro),
|
| H A D | e3source.f | 226 & dist2w, vort, gVnrm, con,
262 & rmu (npro), con (npro),
|
| H A D | e3bdg_nd.f | 6 & rmu, rlm2mu, con) argument
22 & rmu(npro), con(npro),
572 A0(:,5,5) = A0(:,5,5) + con !con
788 A0(:,5,5) = A0(:,5,5) + con !con
1005 A0(:,5,5) = A0(:,5,5) + con !con
|
| H A D | e3bdg.f | 6 & rmu, rlm2mu, con) argument
22 & rmu(npro), con(npro)
609 A0(:,5,5) = A0(:,5,5) + con !con
869 A0(:,5,5) = A0(:,5,5) + con !con
1130 A0(:,5,5) = A0(:,5,5) + con !con
|