Searched refs:stsMInv (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/incompressible/ |
| H A D | stats.f | 15 real*8, allocatable :: stsMInv(:,:) variable
53 allocate ( stsMInv(nshg,6) )
133 stsMInv(i,1) = det * (r1 * r2 - r4 * r4)
134 stsMInv(i,2) = det * (r0 * r2 - r5 * r5)
135 stsMInv(i,3) = det * (r0 * r1 - r3 * r3)
136 stsMInv(i,4) = det * (r4 * r5 - r2 * r3)
137 stsMInv(i,5) = det * (r3 * r5 - r0 * r4)
138 stsMInv(i,6) = det * (r3 * r4 - r1 * r5)
245 MInv = stsMInv(i,:)
|
| /phasta/phSolver/compressible/ |
| H A D | stats.f | 15 real*8, allocatable :: stsMInv(:,:) variable
|