Searched refs:m22 (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/compressible/ |
| H A D | timeseries.f | 12 & m11(npro), m12(npro), m13(npro), m21(npro), m22(npro), local
90 m22(:)=al(:,3,2)+al(:,5,2)*zi0(:,1)+al(:,6,2)*zi0(:,3)
125 detaij = m11*m22*m33-m11*m23*m32-m21*m12*m33+
126 & m21*m13*m32+m31*m12*m23-m31*m13*m22
130 dzi0(:,1) = -detaij(:)*((m22(:)*m33(:)-m23(:)*m32(:))*
132 & (m12(:)*m23(:)-m13(:)*m22(:))*r3(:))
136 dzi0(:,3) = -detaij(:)*((m21(:)*m32(:)-m22(:)*m31(:))*
138 & (m11(:)*m22(:)-m12(:)*m21(:))*r3(:))
|
| /phasta/phSolver/incompressible/ |
| H A D | timeseries.f | 12 & m11(npro), m12(npro), m13(npro), m21(npro), m22(npro), local
90 m22(:)=al(:,3,2)+al(:,5,2)*zi0(:,1)+al(:,6,2)*zi0(:,3)
125 detaij = m11*m22*m33-m11*m23*m32-m21*m12*m33+
126 & m21*m13*m32+m31*m12*m23-m31*m13*m22
130 dzi0(:,1) = -detaij(:)*((m22(:)*m33(:)-m23(:)*m32(:))*
132 & (m12(:)*m23(:)-m13(:)*m22(:))*r3(:))
136 dzi0(:,3) = -detaij(:)*((m21(:)*m32(:)-m22(:)*m31(:))*
138 & (m11(:)*m22(:)-m12(:)*m21(:))*r3(:))
|