Home
last modified time | relevance | path

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

/dports/science/tinker/tinker/source/
H A Depolar2.f250 real*8 tix5,tiy5,tiz5 local
704 tiz5 = 2.0d0 * (psr5*ukz+dsr5*ukzp)
713 tiz5 = 2.0d0 * (dsr5i*ukz)
724 dufld(4,i) = dufld(4,i) + xr*tiz5 + zr*tix5
726 dufld(5,i) = dufld(5,i) + yr*tiz5 + zr*tiy5
728 dufld(6,i) = dufld(6,i) + zr*tiz5 + zr*zr*tuir
1765 tiz5 = 2.0d0 * (psr5*ukz+dsr5*ukzp)
1774 tiz5 = 2.0d0 * (dsr5i*ukz)
1785 dufld(4,i) = dufld(4,i) + xr*tiz5 + zr*tix5
1787 dufld(5,i) = dufld(5,i) + yr*tiz5 + zr*tiy5
[all …]
H A Depolar1.f130 real*8 tix5,tiy5,tiz5 local
583 tiz5 = 2.0d0 * (psr5*ukz+dsr5*ukzp)
592 tiz5 = 2.0d0 * (dsr5i*ukz)
1669 tiz5 = 2.0d0 * (dsr5i*ukz)
2578 real*8 tix5,tiy5,tiz5 local
3056 tiz5 = 2.0d0 * (dsr5i*ukz)
4202 real*8 tix5,tiy5,tiz5 local
4662 tiz5 = 4.0d0 * (rr5i*ukz)
5838 tiz5 = 4.0d0 * (rr5i*ukz)
7062 real*8 tix5,tiy5,tiz5 local
[all …]