| /phasta/phSolver/compressible/ |
| H A D | e3bdg.f | 2 & A1, A2, A3, argument
17 & A1(npro,nflow,nflow), A2(npro,nflow,nflow),
41 & shg(:,j,1) * A1(:,1,1) +
47 & shg(:,j,1) * A1(:,1,2)
65 & shg(:,j,1) * A1(:,1,5) +
71 & shg(:,j,1) * A1(:,2,1) +
77 & shg(:,j,1) * A1(:,2,2) +
95 & shg(:,j,1) * A1(:,2,5) +
101 & shg(:,j,1) * A1(:,3,1) +
107 & shg(:,j,1) * A1(:,3,2)
[all …]
|
| H A D | e3bdg_nd.f | 2 & A1, A2, A3, argument
17 & A1(npro,nflow,nflow), A2(npro,nflow,nflow),
42 & shg(:,j,1) * A1(:,1,1) +
48 & shg(:,j,1) * A1(:,1,2)
66 & shg(:,j,1) * A1(:,1,5) +
72 & shg(:,j,1) * A1(:,2,1) +
78 & shg(:,j,1) * A1(:,2,2) +
96 & shg(:,j,1) * A1(:,2,5) +
102 & shg(:,j,1) * A1(:,3,1) +
108 & shg(:,j,1) * A1(:,3,2)
[all …]
|
| H A D | e3conv.f | 2 & A1, A2, A3, argument
51 & A1(npro,nflow,nflow),
101 & A1(:,1,1) * g1yi(:,1)
102 & + A1(:,1,2) * g1yi(:,2)
105 & + A1(:,1,5) * g1yi(:,5)
117 & A1(:,2,1) * g1yi(:,1)
118 & + A1(:,2,2) * g1yi(:,2)
121 & + A1(:,2,5) * g1yi(:,5)
133 & A1(:,3,1) * g1yi(:,1)
134 & + A1(:,3,2) * g1yi(:,2)
[all …]
|
| H A D | e3ls.f | 1 subroutine e3LS (A1, A2, A3, argument
60 dimension A1(npro,nflow,nflow), A2(npro,nflow,nflow),
236 & A1(:,1,1) * rLymi(:,1)
237 & + A1(:,1,2) * rLymi(:,2)
240 & + A1(:,1,5) * rLymi(:,5)
243 & A1(:,2,1) * rLymi(:,1)
244 & + A1(:,2,2) * rLymi(:,2)
247 & + A1(:,2,5) * rLymi(:,5)
250 & A1(:,3,1) * rLymi(:,1)
251 & + A1(:,3,2) * rLymi(:,2)
[all …]
|
| H A D | e3mtrx.f | 5 & A0, A1,
58 & A1(npro,nflow,nflow), A2(npro,nflow,nflow),
80 A1 = zero
132 A1(:,1,1) = drdp * u1
133 A1(:,1,2) = rho
136 A1(:,1,5) = drdT * u1
138 A1(:,2,1) = drdp * u1 * u1 +1
139 A1(:,2,2) = two *rho * u1
142 A1(:,2,5) = drdT * u1 * u1
144 A1(:,3,1) = drdp * u1 * u2
[all …]
|
| H A D | e3.f | 80 dimension A0(npro,nflow,nflow), A1(npro,nflow,nflow),
153 & A0, A1,
164 & A1, A2, A3,
201 call e3LS (A1, A2, A3,
267 & A1, A2, A3,
276 & A1, A2, A3,
|