Searched refs:r2 (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
123 r2 = res(3) + reg
128 det = r0 * (r1 * r2 - r4 * r4)
129 & + r3 * (r4 * r5 - r3 * r2)
133 stsMInv(i,1) = det * (r1 * r2 - r4 * r4)
134 stsMInv(i,2) = det * (r0 * r2 - r5 * r5)
136 stsMInv(i,4) = det * (r4 * r5 - r2 * r3)
149 r2 = res(3)
155 d2 = 1. / ( reg + r2 )
163 c1 = r1 + r2 - r4 * r4 * (d1 + d2) + reg
[all …]
|
| H A D | timeseries.f | 14 & r1(npro), r2(npro), r3(npro), shgradl(nshl,nsd) local
111 r2(:)=al(:,1,2)+al(:,2,2)*zi0(:,1)+al(:,3,2)*zi0(:,2)+
131 & r1(:) + (m13(:)*m32(:)-m12(:)*m33(:))*r2(:) +
134 & r1(:) + (m11(:)*m33(:)-m13(:)*m31(:))*r2(:) +
137 & r1(:) + (m12(:)*m31(:)-m11(:)*m32(:))*r2(:) +
|
| /phasta/phSolver/compressible/ |
| H A D | timeseries.f | 14 & r1(npro), r2(npro), r3(npro), shgradl(nshl,nsd) local
111 r2(:)=al(:,1,2)+al(:,2,2)*zi0(:,1)+al(:,3,2)*zi0(:,2)+
131 & r1(:) + (m13(:)*m32(:)-m12(:)*m33(:))*r2(:) +
134 & r1(:) + (m11(:)*m33(:)-m13(:)*m31(:))*r2(:) +
137 & r1(:) + (m12(:)*m31(:)-m11(:)*m32(:))*r2(:) +
|