Lines Matching refs:r1
94 real*8 res(nResDims), reg, det, r0, r1, r2, r3, r4, r5, local
122 r1 = res(2) + reg
128 det = r0 * (r1 * r2 - r4 * r4)
130 & + r5 * (r3 * r4 - r1 * r5)
133 stsMInv(i,1) = det * (r1 * r2 - r4 * r4)
135 stsMInv(i,3) = det * (r0 * r1 - r3 * r3)
138 stsMInv(i,6) = det * (r3 * r4 - r1 * r5)
148 r1 = res(2)
154 d1 = 1. / ( reg + r1 )
162 c0 = r0 + r1 - r3 * r3 * (d0 + d1) + reg
163 c1 = r1 + r2 - r4 * r4 * (d1 + d2) + reg
217 real*8 u1, u2, u3, r0, r1, r2, r3, r4, r5, t3, t4, t5 local
258 r1 = res(2) + reg * u2
262 & + MInv(1) * r0 + MInv(4) * r1 + MInv(6) * r2
264 & + MInv(4) * r0 + MInv(2) * r1 + MInv(5) * r2
266 & + MInv(6) * r0 + MInv(5) * r1 + MInv(3) * r2
273 r1 = res(2) * u2 + reg * u2 * u2
279 r1 = DInv(2) * r1
281 r3 = r3 - B(1) * (r0 + r1)
282 r4 = r4 - B(2) * (r1 + r2)
291 & + r1 - DInv(2) * (B(2) * t4 + B(1) * t3)
300 r1 = res(5)
307 r1 = DInv(2) * r1
310 r3 = r3 - B(1) * (r0 + r1)
311 r4 = r4 - B(2) * (r1 + r2)
321 & + r1 - DInv(2) * (B(2) * t4 + B(1) * t3)