Searched refs:m21 (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
88 m21(:)=al(:,2,2)+al(:,5,2)*zi0(:,2)+al(:,7,2)*zi0(:,3)
125 detaij = m11*m22*m33-m11*m23*m32-m21*m12*m33+
126 & m21*m13*m32+m31*m12*m23-m31*m13*m22
133 dzi0(:,2) = -detaij(:)*((m23(:)*m31(:)-m21(:)*m32(:))*
135 & (m13(:)*m21(:)-m11(:)*m23(:))*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
88 m21(:)=al(:,2,2)+al(:,5,2)*zi0(:,2)+al(:,7,2)*zi0(:,3)
125 detaij = m11*m22*m33-m11*m23*m32-m21*m12*m33+
126 & m21*m13*m32+m31*m12*m23-m31*m13*m22
133 dzi0(:,2) = -detaij(:)*((m23(:)*m31(:)-m21(:)*m32(:))*
135 & (m13(:)*m21(:)-m11(:)*m23(:))*r3(:))
136 dzi0(:,3) = -detaij(:)*((m21(:)*m32(:)-m22(:)*m31(:))*
138 & (m11(:)*m22(:)-m12(:)*m21(:))*r3(:))
|