Searched refs:dsr3i (Results 1 – 2 of 2) sorted by relevance
219 real*8 dsr3i,dsr5i,dsr7i local649 dsr3i = 2.0d0 * rr3 * dmpi(3) * dscale(k)664 poti = -ukr * dsr3i683 tix3 = dsr3i*ukx684 tiy3 = dsr3i*uky685 tiz3 = dsr3i*ukz1710 dsr3i = 2.0d0 * rr3 * dmpi(3) * dscale(k)1725 poti = -ukr * dsr3i1744 tix3 = dsr3i*ukx1745 tiy3 = dsr3i*uky[all …]
99 real*8 dsr3i,dsr5i,dsr7i local562 tix3 = dsr3i*ukx563 tiy3 = dsr3i*uky564 tiz3 = dsr3i*ukz1639 tix3 = dsr3i*ukx1640 tiy3 = dsr3i*uky1641 tiz3 = dsr3i*ukz2547 real*8 dsr3i,dsr5i,dsr7i local3026 tix3 = dsr3i*ukx3027 tiy3 = dsr3i*uky[all …]