Lines Matching refs:reg
94 real*8 res(nResDims), reg, det, r0, r1, r2, r3, r4, r5, local
103 reg = res(1) * res(2) * res(3)
108 if ( det .gt. 1.d-10*reg .and. reg .ne. 0 ) then
120 reg = stsReg(i)
121 r0 = res(1) + reg
122 r1 = res(2) + reg
123 r2 = res(3) + reg
146 reg = stsReg(i)
153 d0 = 1. / ( reg + r0 )
154 d1 = 1. / ( reg + r1 )
155 d2 = 1. / ( reg + r2 )
162 c0 = r0 + r1 - r3 * r3 * (d0 + d1) + reg
163 c1 = r1 + r2 - r4 * r4 * (d1 + d2) + reg
164 c2 = r2 + r0 - r5 * r5 * (d2 + d0) + reg
243 reg = stsReg(i)
257 r0 = res(1) + reg * u1
258 r1 = res(2) + reg * u2
259 r2 = res(3) + reg * u3
272 r0 = res(1) * u1 + reg * u1 * u1
273 r1 = res(2) * u2 + reg * u2 * u2
274 r2 = res(3) * u3 + reg * u3 * u3
275 r3 = res(1) * u2 + res(2) * u1 + reg * u2 * u1
276 r4 = res(2) * u3 + res(3) * u2 + reg * u3 * u2
277 r5 = res(3) * u1 + res(1) * u3 + reg * u1 * u3