Searched refs:c4 (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | slpwBC.f | 10 real*8 c4,c5,c6,c7 local
62 c4=wn1(1)
74 ck2=c6*c8 - c4*c10
75 ck3=c4*c9 - c8*c5
84 BC(4)=(c10*c4-c6*c8)/det
86 BC(6)=(c5*c8-c9*c4)/det
89 det=c4*c10-c8*c6
92 BC(5)=(c11*c4-c8*c7)/det
93 BC(6)=(c4*c9-c5*c8)/det
96 det=c4*c9-c8*c5
[all …]
|
| /phasta/phSolver/incompressible/ |
| H A D | stats.f | 95 & d0, d1, d2, c0, c1, c2, c3, c4, c5 local
166 c4 = r3 - r4 * r5 * d2
168 det = c0 * (c1 * c2 - c4 * c4)
169 & + c3 * (c4 * c5 - c3 * c2)
170 & + c5 * (c3 * c4 - c1 * c5)
172 stsCInv(i,1) = det * (c1 * c2 - c4 * c4)
175 stsCInv(i,4) = det * (c4 * c5 - c2 * c3)
176 stsCInv(i,5) = det * (c3 * c5 - c0 * c4)
177 stsCInv(i,6) = det * (c3 * c4 - c1 * c5)
|