Lines Matching refs:r4
94 real*8 res(nResDims), reg, det, r0, r1, r2, r3, r4, r5, local
125 r4 = res(5)
128 det = r0 * (r1 * r2 - r4 * r4)
129 & + r3 * (r4 * r5 - r3 * r2)
130 & + r5 * (r3 * r4 - r1 * r5)
133 stsMInv(i,1) = det * (r1 * r2 - r4 * r4)
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)
151 r4 = res(5)
160 stsB(i,2) = r4
163 c1 = r1 + r2 - r4 * r4 * (d1 + d2) + reg
165 c3 = r5 - r3 * r4 * d1
166 c4 = r3 - r4 * r5 * d2
167 c5 = r4 - r5 * r3 * d0
217 real*8 u1, u2, u3, r0, r1, r2, r3, r4, r5, t3, t4, t5 local
276 r4 = res(2) * u3 + res(3) * u2 + reg * u3 * u2
282 r4 = r4 - B(2) * (r1 + r2)
284 t3 = CInv(1) * r3 + CInv(4) * r4 + CInv(6) * r5
285 t4 = CInv(4) * r3 + CInv(2) * r4 + CInv(5) * r5
286 t5 = CInv(6) * r3 + CInv(5) * r4 + CInv(3) * r5
303 r4 = res(8)
311 r4 = r4 - B(2) * (r1 + r2)
314 t3 = CInv(1) * r3 + CInv(4) * r4 + CInv(6) * r5
315 t4 = CInv(4) * r3 + CInv(2) * r4 + CInv(5) * r5
316 t5 = CInv(6) * r3 + CInv(5) * r4 + CInv(3) * r5