Searched refs:rr7ik (Results 1 – 5 of 5) sorted by relevance
| /dports/science/tinker/tinker/source/ |
| H A D | empole2.f | 195 real*8 rr3ik,rr5ik,rr7ik local
480 rr7ik = dmpik(7)*rr7
488 & + dkr*rr5ik - qkr*rr7ik
490 & + dir*rr5ik + qir*rr7ik
493 & -dkr*rr7ik+qkr*rr9ik)
495 & +dir*rr7ik+qir*rr9ik)
496 term6 = 4.0d0 * rr7ik
813 rr7ik = dmpik(7)*rr7
821 & + dkr*rr5ik - qkr*rr7ik
823 & + dir*rr5ik + qir*rr7ik
[all …]
|
| H A D | empole3.f | 89 real*8 rr7ik,rr9ik local
292 rr7ik = dmpik(7)*rr7
299 & + term4ik*rr7ik + term5ik*rr9ik
501 rr7ik = dmpik(7)*rr7
627 real*8 rr7ik,rr9ik local
840 rr7ik = dmpik(7)*rr7
1100 real*8 rr7ik,rr9ik local
1275 rr7ik = dmpik(7)*rr7
1507 rr7ik = dmpik(7)*rr7
1798 real*8 rr7ik,rr9ik local
[all …]
|
| H A D | empole1.f | 86 real*8 rr7ik,rr9ik,rr11ik local
369 rr7ik = dmpik(7)*rr7
392 term6 = 4.0d0 * rr7ik
739 rr7ik = dmpik(7)*rr7
762 term6 = 4.0d0 * rr7ik
1054 real*8 rr7ik,rr9ik,rr11ik local
1348 rr7ik = dmpik(7)*rr7
1371 term6 = 4.0d0 * rr7ik
1903 real*8 rr7ik,rr9ik,rr11ik local
2184 term6 = 4.0d0 * rr7ik
[all …]
|
| H A D | empole.f | 82 real*8 rr7ik,rr9ik local
268 rr7ik = dmpik(7)*rr7
275 & + term4ik*rr7ik + term5ik*rr9ik
451 rr7ik = dmpik(7)*rr7
545 real*8 rr7ik,rr9ik local
742 rr7ik = dmpik(7)*rr7
749 & + term4ik*rr7ik + term5ik*rr9ik
951 real*8 rr7ik,rr9ik local
1116 rr7ik = dmpe(7) - (1.0d0-scalek*dmpik(7))*rr7
1303 & + term4ik*rr7ik + term5ik*rr9ik
[all …]
|
| H A D | epolar1.f | 4172 real*8 rr5ik,rr7ik local
5106 term3 = yr * (rr7ik*xr)
5110 term3 = zr * (rr7ik*xr)
5114 term3 = zr * (rr7ik*yr)
6282 term3 = yr * (rr7ik*xr)
6286 term3 = zr * (rr7ik*xr)
6290 term3 = zr * (rr7ik*yr)
7032 real*8 rr5ik,rr7ik local
7982 term3 = yr * (rr7ik*xr)
7986 term3 = zr * (rr7ik*xr)
[all …]
|