Lines Matching refs:r3
94 real*8 res(nResDims), reg, det, r0, r1, r2, r3, r4, r5, local
124 r3 = res(4)
129 & + r3 * (r4 * r5 - r3 * r2)
130 & + r5 * (r3 * r4 - r1 * 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)
150 r3 = res(4)
159 stsB(i,1) = r3
162 c0 = r0 + r1 - r3 * r3 * (d0 + d1) + 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
275 r3 = res(1) * u2 + res(2) * u1 + reg * u2 * u1
281 r3 = r3 - B(1) * (r0 + r1)
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
302 r3 = res(7)
310 r3 = r3 - B(1) * (r0 + r1)
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