| /phasta/phSolver/incompressible/ |
| H A D | e3ivar.f | 8 & rerrl, rlsl, rlsli, argument
70 dimension rlsl(npro,nshl,6), rlsli(npro,6)
117 rlsli = zero
120 rlsli(:,1) = rlsli(:,1) + shpfun(:,n) * rlsl(:,n,1)
121 rlsli(:,2) = rlsli(:,2) + shpfun(:,n) * rlsl(:,n,2)
122 rlsli(:,3) = rlsli(:,3) + shpfun(:,n) * rlsl(:,n,3)
123 rlsli(:,4) = rlsli(:,4) + shpfun(:,n) * rlsl(:,n,4)
124 rlsli(:,5) = rlsli(:,5) + shpfun(:,n) * rlsl(:,n,5)
125 rlsli(:,6) = rlsli(:,6) + shpfun(:,n) * rlsl(:,n,6)
129 rlsli = zero
|
| H A D | e3res.f | 8 & rlsli) argument
51 & rlsli(npro,6)
150 rGNa(:,1,1) = rGNa(:,1,1) - rlsli(:,1)*rho(:)
151 rGNa(:,1,2) = rGNa(:,1,2) - rlsli(:,4)*rho(:)
152 rGNa(:,1,3) = rGNa(:,1,3) - rlsli(:,5)*rho(:)
153 rGNa(:,2,1) = rGNa(:,2,1) - rlsli(:,4)*rho(:)
154 rGNa(:,2,2) = rGNa(:,2,2) - rlsli(:,2)*rho(:)
155 rGNa(:,2,3) = rGNa(:,2,3) - rlsli(:,6)*rho(:)
156 rGNa(:,3,1) = rGNa(:,3,1) - rlsli(:,5)*rho(:)
157 rGNa(:,3,2) = rGNa(:,3,2) - rlsli(:,6)*rho(:)
[all …]
|
| H A D | e3.f | 64 dimension rlsl(npro,nshl,6), rlsli(npro,6)
105 & rerrl, rlsl, rlsli,
124 & rlsli)
|
| H A D | advLES.f | 31 & rlsl(npro,nshl,6), rlsli(npro,6),
|
| /phasta/phSolver/compressible/ |
| H A D | e3visc.f | 6 & con, rlsli, compK, T)
53 & rlsli(npro,6), compK(npro,10),
281 & - rlsli(:,1)
284 & - rlsli(:,4)
287 & - rlsli(:,5)
305 & - rlsli(:,4)
309 & - rlsli(:,2)
312 & - rlsli(:,6)
329 & - rlsli(:,5)
332 & - rlsli(:,6)
[all …]
|
| H A D | e3ivar.f | 12 & con, rlsl, rlsli, argument
85 dimension rlsl(npro,nshl,6), rlsli(npro,6),
159 rlsli = zero
162 rlsli(:,1) = rlsli(:,1) + shape(:,n) * rlsl(:,n,1)
163 rlsli(:,2) = rlsli(:,2) + shape(:,n) * rlsl(:,n,2)
164 rlsli(:,3) = rlsli(:,3) + shape(:,n) * rlsl(:,n,3)
165 rlsli(:,4) = rlsli(:,4) + shape(:,n) * rlsl(:,n,4)
166 rlsli(:,5) = rlsli(:,5) + shape(:,n) * rlsl(:,n,5)
167 rlsli(:,6) = rlsli(:,6) + shape(:,n) * rlsl(:,n,6)
171 rlsli = zero
|
| H A D | e3.f | 93 dimension rlsl(npro,nshl,6), rlsli(npro,6)
141 & con, rlsl, rlsli,
182 & con, rlsli, compK, T)
|