Searched refs:r4 (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/incompressible/ |
| H A D | stats.f | 94 real*8 res(nResDims), reg, det, r0, r1, r2, r3, r4, r5, local
125 r4 = res(5)
128 det = r0 * (r1 * r2 - r4 * r4)
129 & + r3 * (r4 * r5 - r3 * r2)
130 & + r5 * (r3 * r4 - r1 * r5)
133 stsMInv(i,1) = det * (r1 * r2 - r4 * r4)
136 stsMInv(i,4) = det * (r4 * r5 - r2 * r3)
137 stsMInv(i,5) = det * (r3 * r5 - r0 * r4)
138 stsMInv(i,6) = det * (r3 * r4 - r1 * r5)
151 r4 = res(5)
[all …]
|