Searched refs:tiy3 (Results 1 – 2 of 2) sorted by relevance
/dports/science/tinker/tinker/source/ |
H A D | epolar2.f | 249 real*8 tix3,tiy3,tiz3 local 675 tiy3 = psr3*uky + dsr3*ukyp 684 tiy3 = dsr3i*uky 693 ufld(2,i) = ufld(2,i) + tiy3 + yr*tuir 1736 tiy3 = psr3*uky + dsr3*ukyp 1745 tiy3 = dsr3i*uky 1754 ufld(2,i) = ufld(2,i) + tiy3 + yr*tuir
|
H A D | epolar1.f | 129 real*8 tix3,tiy3,tiz3 local 554 tiy3 = psr3*uky + dsr3*ukyp 563 tiy3 = dsr3i*uky 1640 tiy3 = dsr3i*uky 2577 real*8 tix3,tiy3,tiz3 local 3027 tiy3 = dsr3i*uky 4201 real*8 tix3,tiy3,tiz3 local 4633 tiy3 = 2.0d0*rr3i*uky 5809 tiy3 = 2.0d0*rr3i*uky 7061 real*8 tix3,tiy3,tiz3 local [all …]
|