Lines Matching refs:r2
94 real*8 res(nResDims), reg, det, r0, r1, r2, r3, r4, r5, local
123 r2 = res(3) + reg
128 det = r0 * (r1 * r2 - r4 * r4)
129 & + r3 * (r4 * r5 - r3 * r2)
133 stsMInv(i,1) = det * (r1 * r2 - r4 * r4)
134 stsMInv(i,2) = det * (r0 * r2 - r5 * r5)
136 stsMInv(i,4) = det * (r4 * r5 - r2 * r3)
149 r2 = res(3)
155 d2 = 1. / ( reg + r2 )
163 c1 = r1 + r2 - r4 * r4 * (d1 + d2) + reg
164 c2 = r2 + r0 - r5 * r5 * (d2 + d0) + reg
217 real*8 u1, u2, u3, r0, r1, r2, r3, r4, r5, t3, t4, t5 local
259 r2 = res(3) + reg * u3
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
274 r2 = res(3) * u3 + reg * u3 * u3
280 r2 = DInv(3) * r2
282 r4 = r4 - B(2) * (r1 + r2)
283 r5 = r5 - B(3) * (r2 + r0)
293 & + r2 - DInv(3) * (B(3) * t5 + B(2) * t4)
301 r2 = res(6)
308 r2 = DInv(3) * r2
311 r4 = r4 - B(2) * (r1 + r2)
312 r5 = r5 - B(3) * (r2 + r0)
323 & + r2 - DInv(3) * (B(3) * t5 + B(2) * t4)