Home
last modified time | relevance | path

Searched refs:tkz5 (Results 1 – 2 of 2) sorted by relevance

/dports/science/tinker/tinker/source/
H A Depolar2.f252 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 Depolar1.f132 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 …]