Searched refs:m33 (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/compressible/ |
| H A D | timeseries.f | 13 & m23(npro), m31(npro), m32(npro), m33(npro), local
99 m33(:)=al(:,4,3)+al(:,6,3)*zi0(:,2)+al(:,7,3)*zi0(:,1)
125 detaij = m11*m22*m33-m11*m23*m32-m21*m12*m33+
130 dzi0(:,1) = -detaij(:)*((m22(:)*m33(:)-m23(:)*m32(:))*
131 & r1(:) + (m13(:)*m32(:)-m12(:)*m33(:))*r2(:) +
134 & r1(:) + (m11(:)*m33(:)-m13(:)*m31(:))*r2(:) +
|
| /phasta/phSolver/incompressible/ |
| H A D | timeseries.f | 13 & m23(npro), m31(npro), m32(npro), m33(npro), local
99 m33(:)=al(:,4,3)+al(:,6,3)*zi0(:,2)+al(:,7,3)*zi0(:,1)
125 detaij = m11*m22*m33-m11*m23*m32-m21*m12*m33+
130 dzi0(:,1) = -detaij(:)*((m22(:)*m33(:)-m23(:)*m32(:))*
131 & r1(:) + (m13(:)*m32(:)-m12(:)*m33(:))*r2(:) +
134 & r1(:) + (m11(:)*m33(:)-m13(:)*m31(:))*r2(:) +
|