Searched refs:tiz5 (Results 1 – 2 of 2) sorted by relevance
/dports/science/tinker/tinker/source/ |
H A D | epolar2.f | 250 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 D | epolar1.f | 130 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 …]
|