Searched refs:reg (Results 1 – 1 of 1) sorted by relevance
94 real*8 res(nResDims), reg, det, r0, r1, r2, r3, r4, r5, local103 reg = res(1) * res(2) * res(3)108 if ( det .gt. 1.d-10*reg .and. reg .ne. 0 ) then120 reg = stsReg(i)121 r0 = res(1) + reg122 r1 = res(2) + reg 123 r2 = res(3) + reg 146 reg = stsReg(i) 153 d0 = 1. / ( reg + r0 ) 154 d1 = 1. / ( reg + r1 ) [all …]