| /phasta/phSolver/compressible/ |
| H A D | e3bdg.f | 2 & A1, A2, A3, argument
17 & A1(npro,nflow,nflow), A2(npro,nflow,nflow),
42 & shg(:,j,2) * A2(:,1,1) +
54 & +shg(:,j,2) * A2(:,1,3)
66 & shg(:,j,2) * A2(:,1,5) +
72 & shg(:,j,2) * A2(:,2,1) +
78 & shg(:,j,2) * A2(:,2,2) +
84 & +shg(:,j,2) * A2(:,2,3)
96 & shg(:,j,2) * A2(:,2,5) +
102 & shg(:,j,2) * A2(:,3,1) +
[all …]
|
| H A D | e3bdg_nd.f | 2 & A1, A2, A3, argument
17 & A1(npro,nflow,nflow), A2(npro,nflow,nflow),
43 & shg(:,j,2) * A2(:,1,1) +
55 & +shg(:,j,2) * A2(:,1,3)
67 & shg(:,j,2) * A2(:,1,5) +
73 & shg(:,j,2) * A2(:,2,1) +
79 & shg(:,j,2) * A2(:,2,2) +
85 & +shg(:,j,2) * A2(:,2,3)
97 & shg(:,j,2) * A2(:,2,5) +
103 & shg(:,j,2) * A2(:,3,1) +
[all …]
|
| H A D | e3conv.f | 2 & A1, A2, A3, argument
52 & A2(npro,nflow,nflow), A3(npro,nflow,nflow),
106 & + A2(:,1,1) * g2yi(:,1)
108 & + A2(:,1,3) * g2yi(:,3)
110 & + A2(:,1,5) * g2yi(:,5)
122 & + A2(:,2,1) * g2yi(:,1)
123 & + A2(:,2,2) * g2yi(:,2)
124 & + A2(:,2,3) * g2yi(:,3)
126 & + A2(:,2,5) * g2yi(:,5)
138 & + A2(:,3,1) * g2yi(:,1)
[all …]
|
| H A D | e3ls.f | 1 subroutine e3LS (A1, A2, A3, argument
60 dimension A1(npro,nflow,nflow), A2(npro,nflow,nflow),
274 & A2(:,1,1) * rLymi(:,1)
276 & + A2(:,1,3) * rLymi(:,3)
278 & + A2(:,1,5) * rLymi(:,5)
281 & A2(:,2,1) * rLymi(:,1)
282 & + A2(:,2,2) * rLymi(:,2)
283 & + A2(:,2,3) * rLymi(:,3)
285 & + A2(:,2,5) * rLymi(:,5)
288 & A2(:,3,1) * rLymi(:,1)
[all …]
|
| H A D | e3mtrx.f | 6 & A2, A3,
58 & A1(npro,nflow,nflow), A2(npro,nflow,nflow),
81 A2 = zero
164 A2(:,1,1) = drdp * u2
166 A2(:,1,3) = rho
168 A2(:,1,5) = drdT * u2
170 A2(:,2,1) = drdp * u1 * u2
171 A2(:,2,2) = rho * u2
172 A2(:,2,3) = rho * u1
174 A2(:,2,5) = drdT * u1 * u2
[all …]
|
| H A D | e3.f | 81 & A2(npro,nflow,nflow), A3(npro,nflow,nflow)
154 & A2, A3,
164 & A1, A2, A3,
201 call e3LS (A1, A2, A3,
267 & A1, A2, A3,
276 & A1, A2, A3,
|