Lines Matching refs:r0
94 real*8 res(nResDims), reg, det, r0, r1, r2, r3, r4, r5, local
121 r0 = res(1) + reg
128 det = r0 * (r1 * r2 - r4 * r4)
134 stsMInv(i,2) = det * (r0 * r2 - r5 * r5)
135 stsMInv(i,3) = det * (r0 * r1 - r3 * r3)
137 stsMInv(i,5) = det * (r3 * r5 - r0 * r4)
147 r0 = res(1)
153 d0 = 1. / ( reg + r0 )
162 c0 = r0 + r1 - r3 * r3 * (d0 + d1) + 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
257 r0 = res(1) + reg * u1
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
272 r0 = res(1) * u1 + reg * u1 * u1
278 r0 = DInv(1) * r0
281 r3 = r3 - B(1) * (r0 + r1)
283 r5 = r5 - B(3) * (r2 + r0)
289 & + r0 - DInv(1) * (B(1) * t3 + B(3) * t5)
299 r0 = res(4)
306 r0 = DInv(1) * r0
310 r3 = r3 - B(1) * (r0 + r1)
312 r5 = r5 - B(3) * (r2 + r0)
319 & + r0 - DInv(1) * (B(1) * t3 + B(3) * t5)