Searched refs:dedrirkrk2 (Results 1 – 1 of 1) sorted by relevance
48 real*8 dedrirkri2,dedrirkrk2 local151 dedrirkrk2 = dedrirk / rk2161 termxk = dedrirkrk2*xk + deddotp*xi + deddotk*xr162 termyk = dedrirkrk2*yk + deddotp*yi + deddotk*yr163 termzk = dedrirkrk2*zk + deddotp*zi + deddotk*zr338 dedrirkrk2 = dedrirk / rk2348 termxk = dedrirkrk2*xk + deddotp*xi + deddotk*xr349 termyk = dedrirkrk2*yk + deddotp*yi + deddotk*yr350 termzk = dedrirkrk2*zk + deddotp*zi + deddotk*zr