Searched refs:r0 (Results 1 – 2 of 2) 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
121 r0 = res(1) + reg
128 det = r0 * (r1 * r2 - r4 * r4)
134 stsMInv(i,2) = det * (r0 * r2 - r5 * r5)
135 stsMInv(i,3) = det * (r0 * r1 - r3 * r3)
137 stsMInv(i,5) = det * (r3 * r5 - r0 * r4)
147 r0 = res(1)
153 d0 = 1. / ( reg + r0 )
162 c0 = r0 + r1 - r3 * r3 * (d0 + d1) + reg
164 c2 = r2 + r0 - r5 * r5 * (d2 + d0) + reg
[all …]
|
| /phasta/phSolver/AMG/ |
| H A D | ramg_mls.f | 515 real(kind=8),dimension(amg_nshg(level)) :: aux,aux2,r0 local
|