Home
last modified time | relevance | path

Searched refs:rr7k (Results 1 – 7 of 7) sorted by relevance

/dports/science/tinker/tinker/source/
H A Depolar3.f90 real*8 rr3k,rr5k,rr7k local
295 rr7k = dmpk(7) * rr7
600 real*8 rr3k,rr5k,rr7k local
817 rr7k = dmpk(7) * rr7
1055 real*8 rr3k,rr5k,rr7k local
1247 rr7k = dmpk(7) * rr7
1262 rr7k = dmpe(7) - rr7 + rr7k
1485 rr7k = dmpe(7) - rr7 + rr7k
1726 real*8 rr3k,rr5k,rr7k local
1930 rr7k = dmpk(7) * rr7
[all …]
H A Depolar.f84 real*8 rr3k,rr5k,rr7k local
273 rr7k = dmpk(7) * rr7
520 real*8 rr3k,rr5k,rr7k local
720 rr7k = dmpk(7) * rr7
910 real*8 rr3k,rr5k,rr7k local
1089 rr7k = dmpk(7) * rr7
1098 rr7k = dmpe(7) - rr7 + rr7k
1288 rr7k = dmpe(7) - rr7 + rr7k
1477 real*8 rr3k,rr5k,rr7k local
1667 rr7k = dmpk(7) * rr7
[all …]
H A Dinduce.f591 real*8 rr3k,rr5k,rr7k local
809 rr7k = dmpk(7) * rr7
811 & - rr5k*dkr + rr7k*qkr)
814 & - rr5k*dkr + rr7k*qkr)
817 & - rr5k*dkr + rr7k*qkr)
1058 rr7k = dmpk(7) * rr7
1566 real*8 rr3k,rr5k,rr7k local
1799 rr7k = dmpk(7) * rr7
1801 & - rr5k*dkr + rr7k*qkr)
2462 real*8 rr3k,rr5k,rr7k local
[all …]
H A Depolar1.f4171 real*8 rr7k,rr9k local
4871 term5k = 5.0d0*rr7k*xr
4892 term5k = 5.0d0*rr7k*yr
4913 term5k = 5.0d0*rr7k*zr
4937 term6k = 2.0d0*rr7k*xr
4938 term7k = 2.0d0*rr7k*yr
4962 term6k = 2.0d0*rr7k*xr
4963 term7k = 2.0d0*rr7k*zr
4987 term6k = 2.0d0*rr7k*yr
4988 term7k = 2.0d0*rr7k*zr
[all …]
H A Dempole2.f194 real*8 rr3k,rr5k,rr7k local
477 rr7k = dmpk(7)*rr7
486 & + term3i*rr7i + term3k*rr7k + term3ik*rr7ik
810 rr7k = dmpk(7)*rr7
819 & + term3i*rr7i + term3k*rr7k + term3ik*rr7ik
H A Dempole1.f84 real*8 rr1k,rr3k,rr5k,rr7k local
365 rr7k = dmpk(7)*rr7
382 & + term3i*rr7i + term3k*rr7k + term3ik*rr7ik
735 rr7k = dmpk(7)*rr7
1052 real*8 rr1k,rr3k,rr5k,rr7k local
1344 rr7k = dmpk(7)*rr7
1901 real*8 rr1k,rr3k,rr5k,rr7k local
2155 rr7k = dmpe(7) - (1.0d0-scalek*dmpk(7))*rr7
2513 rr7k = dmpe(7) - (1.0d0-scalek*dmpk(7))*rr7
3065 real*8 rr1k,rr3k,rr5k,rr7k local
[all …]
H A Dpoledit.f3020 real*8 rr3k,rr5k,rr7k
3213 rr7k = dmpk(7) * rr7
3215 & - rr5k*dkr + rr7k*qkr)
3218 & - rr5k*dkr + rr7k*qkr)
3221 & - rr5k*dkr + rr7k*qkr)