Searched refs:m32 (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
97 m32(:)=al(:,3,3)+al(:,5,3)*zi0(:,1)+al(:,6,3)*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(:))*
131 & r1(:) + (m13(:)*m32(:)-m12(:)*m33(:))*r2(:) +
133 dzi0(:,2) = -detaij(:)*((m23(:)*m31(:)-m21(:)*m32(:))*
136 dzi0(:,3) = -detaij(:)*((m21(:)*m32(:)-m22(:)*m31(:))*
137 & r1(:) + (m12(:)*m31(:)-m11(:)*m32(:))*r2(:) +
|
| /phasta/phSolver/incompressible/ |
| H A D | timeseries.f | 13 & m23(npro), m31(npro), m32(npro), m33(npro), local
97 m32(:)=al(:,3,3)+al(:,5,3)*zi0(:,1)+al(:,6,3)*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(:))*
131 & r1(:) + (m13(:)*m32(:)-m12(:)*m33(:))*r2(:) +
133 dzi0(:,2) = -detaij(:)*((m23(:)*m31(:)-m21(:)*m32(:))*
136 dzi0(:,3) = -detaij(:)*((m21(:)*m32(:)-m22(:)*m31(:))*
137 & r1(:) + (m12(:)*m31(:)-m11(:)*m32(:))*r2(:) +
|