Searched refs:tkz5 (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 707 tkz5 = 2.0d0 * (psr5*uiz+dsr5*uizp) 716 tkz5 = 2.0d0 * (dsr5k*uiz) 733 dufld(4,k) = dufld(4,k) - xr*tkz5 - zr*tkx5 735 dufld(5,k) = dufld(5,k) - yr*tkz5 - zr*tky5 737 dufld(6,k) = dufld(6,k) - zr*tkz5 - zr*zr*tukr 1768 tkz5 = 2.0d0 * (psr5*uiz+dsr5*uizp) 1777 tkz5 = 2.0d0 * (dsr5k*uiz) 1794 dufld(4,k) = dufld(4,k) - xr*tkz5 - zr*tkx5 1796 dufld(5,k) = dufld(5,k) - yr*tkz5 - zr*tky5 [all …]
|
H A D | epolar1.f | 132 real*8 tkx5,tky5,tkz5 local 586 tkz5 = 2.0d0 * (psr5*uiz+dsr5*uizp) 595 tkz5 = 2.0d0 * (dsr5k*uiz) 1672 tkz5 = 2.0d0 * (dsr5k*uiz) 2580 real*8 tkx5,tky5,tkz5 local 3059 tkz5 = 2.0d0 * (dsr5k*uiz) 4204 real*8 tkx5,tky5,tkz5 local 4665 tkz5 = 4.0d0 * (rr5k*uiz) 5841 tkz5 = 4.0d0 * (rr5k*uiz) 7064 real*8 tkx5,tky5,tkz5 local [all …]
|