Searched refs:dsr5i (Results 1 – 2 of 2) sorted by relevance
219 real*8 dsr3i,dsr5i,dsr7i local650 dsr5i = 2.0d0 * rr5 * dmpi(5) * dscale(k)689 tuir = -dsr5i*ukr711 tix5 = 2.0d0 * (dsr5i*ukx)712 tiy5 = 2.0d0 * (dsr5i*uky)713 tiz5 = 2.0d0 * (dsr5i*ukz)1711 dsr5i = 2.0d0 * rr5 * dmpi(5) * dscale(k)1750 tuir = -dsr5i*ukr1772 tix5 = 2.0d0 * (dsr5i*ukx)1773 tiy5 = 2.0d0 * (dsr5i*uky)[all …]
99 real*8 dsr3i,dsr5i,dsr7i local568 tuir = -dsr5i*ukr590 tix5 = 2.0d0 * (dsr5i*ukx)591 tiy5 = 2.0d0 * (dsr5i*uky)592 tiz5 = 2.0d0 * (dsr5i*ukz)1645 tuir = -dsr5i*ukr1667 tix5 = 2.0d0 * (dsr5i*ukx)1668 tiy5 = 2.0d0 * (dsr5i*uky)1669 tiz5 = 2.0d0 * (dsr5i*ukz)2547 real*8 dsr3i,dsr5i,dsr7i local[all …]