Home
last modified time | relevance | path

Searched refs:m23 (Results 1 – 2 of 2) sorted by relevance

/phasta/phSolver/compressible/
H A Dtimeseries.f13 & m23(npro), m31(npro), m32(npro), m33(npro), local
92 m23(:)=al(:,4,2)+al(:,6,2)*zi0(:,2)+al(:,7,2)*zi0(:,1)
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(:))
133 dzi0(:,2) = -detaij(:)*((m23(:)*m31(:)-m21(:)*m32(:))*
135 & (m13(:)*m21(:)-m11(:)*m23(:))*r3(:))
/phasta/phSolver/incompressible/
H A Dtimeseries.f13 & m23(npro), m31(npro), m32(npro), m33(npro), local
92 m23(:)=al(:,4,2)+al(:,6,2)*zi0(:,2)+al(:,7,2)*zi0(:,1)
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(:))
133 dzi0(:,2) = -detaij(:)*((m23(:)*m31(:)-m21(:)*m32(:))*
135 & (m13(:)*m21(:)-m11(:)*m23(:))*r3(:))