Searched refs:psr5 (Results 1 – 2 of 2) sorted by relevance
97 real*8 psr3,psr5,psr7 local518 psr5 = sr5 * pscale(k)559 tuir = -psr5*ukr - dsr5*ukrp560 tukr = -psr5*uir - dsr5*uirp1595 psr5 = sr5 * pscale(k)2284 psr5 = 0.5d0 * psr52545 real*8 psr3,psr5,psr7 local2982 psr5 = sr5 * pscale(k)4164 real*8 psr3,psr5,psr7 local6531 psr5 = 0.5d0 * psr5[all …]
217 real*8 psr3,psr5,psr7 local639 psr5 = sr5 * pscale(k)680 tuir = -psr5*ukr - dsr5*ukrp681 tukr = -psr5*uir - dsr5*uirp702 tix5 = 2.0d0 * (psr5*ukx+dsr5*ukxp)703 tiy5 = 2.0d0 * (psr5*uky+dsr5*ukyp)704 tiz5 = 2.0d0 * (psr5*ukz+dsr5*ukzp)1700 psr5 = sr5 * pscale(k)1741 tuir = -psr5*ukr - dsr5*ukrp1742 tukr = -psr5*uir - dsr5*uirp[all …]