Home
last modified time | relevance | path

Searched refs:r3 (Results 1 – 3 of 3) sorted by relevance

/phasta/phSolver/incompressible/
H A Dstats.f94 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 Dtimeseries.f14 & 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 Dtimeseries.f14 & 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(:))