Searched refs:r3 (Results 1 – 3 of 3) 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 124 r3 = res(4) 129 & + r3 * (r4 * r5 - r3 * r2) 130 & + r5 * (r3 * r4 - r1 * r5) 135 stsMInv(i,3) = det * (r0 * r1 - r3 * r3) 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) 150 r3 = res(4) 159 stsB(i,1) = r3 [all …]
|
| H A D | timeseries.f | 14 & r1(npro), r2(npro), r3(npro), shgradl(nshl,nsd) local 117 r3(:)=al(:,1,3)+al(:,2,3)*zi0(:,1)+al(:,3,3)*zi0(:,2)+ 132 & (m12(:)*m23(:)-m13(:)*m22(:))*r3(:)) 135 & (m13(:)*m21(:)-m11(:)*m23(:))*r3(:)) 138 & (m11(:)*m22(:)-m12(:)*m21(:))*r3(:))
|
| /phasta/phSolver/compressible/ |
| H A D | timeseries.f | 14 & r1(npro), r2(npro), r3(npro), shgradl(nshl,nsd) local 117 r3(:)=al(:,1,3)+al(:,2,3)*zi0(:,1)+al(:,3,3)*zi0(:,2)+ 132 & (m12(:)*m23(:)-m13(:)*m22(:))*r3(:)) 135 & (m13(:)*m21(:)-m11(:)*m23(:))*r3(:)) 138 & (m11(:)*m22(:)-m12(:)*m21(:))*r3(:))
|