Searched refs:tky5 (Results 1 – 2 of 2) sorted by relevance
/dports/science/tinker/tinker/source/ |
H A D | epolar2.f | 252 real*8 tkx5,tky5,tkz5 local 706 tky5 = 2.0d0 * (psr5*uiy+dsr5*uiyp) 715 tky5 = 2.0d0 * (dsr5k*uiy) 730 dufld(2,k) = dufld(2,k) - xr*tky5 - yr*tkx5 732 dufld(3,k) = dufld(3,k) - yr*tky5 - yr*yr*tukr 735 dufld(5,k) = dufld(5,k) - yr*tkz5 - zr*tky5 1767 tky5 = 2.0d0 * (psr5*uiy+dsr5*uiyp) 1776 tky5 = 2.0d0 * (dsr5k*uiy) 1791 dufld(2,k) = dufld(2,k) - xr*tky5 - yr*tkx5 1793 dufld(3,k) = dufld(3,k) - yr*tky5 - yr*yr*tukr [all …]
|
H A D | epolar1.f | 132 real*8 tkx5,tky5,tkz5 local 585 tky5 = 2.0d0 * (psr5*uiy+dsr5*uiyp) 594 tky5 = 2.0d0 * (dsr5k*uiy) 1671 tky5 = 2.0d0 * (dsr5k*uiy) 2580 real*8 tkx5,tky5,tkz5 local 3058 tky5 = 2.0d0 * (dsr5k*uiy) 4204 real*8 tkx5,tky5,tkz5 local 4664 tky5 = 4.0d0 * (rr5k*uiy) 5840 tky5 = 4.0d0 * (rr5k*uiy) 7064 real*8 tkx5,tky5,tkz5 local [all …]
|