Searched refs:det (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | slpwBC.f | 14 real*8 det,det3x3,tmp,u,v,w local
82 det=c5*c10-c9*c6
83 BC(3)=(c10*c7-c6*c11)/det
84 BC(4)=(c10*c4-c6*c8)/det
85 BC(5)=(c11*c5-c9*c7)/det
86 BC(6)=(c5*c8-c9*c4)/det
89 det=c4*c10-c8*c6
90 BC(3)=(c10*c7-c6*c11)/det
91 BC(4)=(c10*c5-c6*c9)/det
92 BC(5)=(c11*c4-c8*c7)/det
[all …]
|
| /phasta/phSolver/incompressible/ |
| H A D | stats.f | 94 real*8 res(nResDims), reg, det, r0, r1, r2, r3, r4, r5, local
104 det = res(1) * (res(2) * res(3) - res(5) * res(5))
108 if ( det .gt. 1.d-10*reg .and. reg .ne. 0 ) then
128 det = r0 * (r1 * r2 - r4 * r4)
131 det = 1.0/det
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)
[all …]
|