/dports/science/tinker/tinker/source/ |
H A D | elj.f | 87 real*8 rik,rik2,rik3 local 216 rik4 = rik2 * rik2 348 rik4 = rik2 * rik2 431 real*8 rik,rik2,rik3 local 621 rik4 = rik2 * rik2 707 real*8 rik,rik2,rik3 local 846 rik4 = rik2 * rik2 950 real*8 e,rik2,rdn,p6 local 1052 rik = sqrt(rik2) 1053 rik3 = rik2 * rik [all …]
|
H A D | elj3.f | 116 real*8 rik,rik2,rik3 local 261 rik4 = rik2 * rik2 424 rik4 = rik2 * rik2 547 real*8 rik,rik2,rik3 local 753 rik4 = rik2 * rik2 886 real*8 rik,rik2,rik3 local 1041 rik4 = rik2 * rik2 1185 real*8 e,rik2,rdn,p6 local 1303 rik = sqrt(rik2) 1304 rik3 = rik2 * rik [all …]
|
H A D | ebuck.f | 89 real*8 rik,rik2,rik3 local 186 if (rik2 .le. off2) then 194 p2 = (rv*rv) / rik2 208 rik = sqrt(rik2) 209 rik3 = rik2 * rik 210 rik4 = rik2 * rik2 326 rik4 = rik2 * rik2 408 real*8 rik,rik2,rik3 local 590 rik4 = rik2 * rik2 675 real*8 rik,rik2,rik3 local [all …]
|
H A D | egauss.f | 71 real*8 rik,rik2,rik3 local 185 rik = sqrt(rik2) 186 rik3 = rik2 * rik 187 rik4 = rik2 * rik2 303 rik4 = rik2 * rik2 384 real*8 rik,rik2,rik3 local 561 rik4 = rik2 * rik2 645 real*8 rik,rik2,rik3 local 771 rik4 = rik2 * rik2 844 real*8 e,rik,rik2,rdn local [all …]
|
H A D | ebuck3.f | 118 real*8 rik,rik2,rik3 local 231 if (rik2 .le. off2) then 239 p2 = (rv*rv) / rik2 253 rik = sqrt(rik2) 254 rik3 = rik2 * rik 255 rik4 = rik2 * rik2 402 rik4 = rik2 * rik2 524 real*8 rik,rik2,rik3 local 722 rik4 = rik2 * rik2 854 real*8 rik,rik2,rik3 local [all …]
|
H A D | egauss3.f | 79 real*8 rik,rik2,rik3 local 209 rik = sqrt(rik2) 210 rik3 = rik2 * rik 211 rik4 = rik2 * rik2 356 rik4 = rik2 * rik2 478 real*8 rik,rik2,rik3 local 671 rik4 = rik2 * rik2 803 real*8 rik,rik2,rik3 local 946 rik4 = rik2 * rik2 1057 real*8 rik,rik2 local [all …]
|
H A D | ehal3.f | 112 real*8 rik,rik2,rik3 local 220 rik = sqrt(rik2) 261 rik = sqrt(rik2) 263 rik4 = rik2 * rik2 432 rik4 = rik2 * rik2 556 real*8 rik,rik2,rik3 local 723 rik = sqrt(rik2) 767 rik4 = rik2 * rik2 901 real*8 rik,rik2,rik3 local 1020 rik = sqrt(rik2) [all …]
|
H A D | ehal.f | 83 real*8 rik,rik2,rik3 local 175 rik = sqrt(rik2) 217 rik4 = rik2 * rik2 307 rik = sqrt(rik2) 353 rik4 = rik2 * rik2 437 real*8 rik,rik2,rik3 local 588 rik = sqrt(rik2) 632 rik4 = rik2 * rik2 719 real*8 rik,rik2,rik3 local 821 rik = sqrt(rik2) [all …]
|
H A D | elj1.f | 98 real*8 rik,rik2,rik3 local 207 rik = sqrt(rik2) 240 rik4 = rik2 * rik2 432 rik4 = rik2 * rik2 579 real*8 rik,rik2,rik3 local 782 rik4 = rik2 * rik2 931 real*8 rik,rik2,rik3 local 1083 rik4 = rik2 * rik2 1254 real*8 rik,rik2 local 1363 rik = sqrt(rik2) [all …]
|
H A D | emm3hb3.f | 125 real*8 rik,rik2,rik3 248 if (rik2 .le. off2) then 292 p2 = (rv*rv) / rik2 308 rik = sqrt(rik2) 309 rik3 = rik2 * rik 310 rik4 = rik2 * rik2 497 rik4 = rik2 * rik2 623 real*8 rik,rik2,rik3 882 rik4 = rik2 * rik2 1018 real*8 rik,rik2,rik3 [all …]
|
H A D | emm3hb.f | 97 real*8 rik,rik2,rik3 local 204 if (rik2 .le. off2) then 248 p2 = (rv*rv) / rik2 264 rik = sqrt(rik2) 265 rik3 = rik2 * rik 266 rik4 = rik2 * rik2 422 rik4 = rik2 * rik2 509 real*8 rik,rik2,rik3 local 752 rik4 = rik2 * rik2 842 real*8 rik,rik2,rik3 local [all …]
|
H A D | ebuck1.f | 100 real*8 rik,rik2,rik3 local 215 p2 = (rv*rv) / rik2 217 rik = sqrt(rik2) 234 rik4 = rik2 * rik2 412 rik4 = rik2 * rik2 557 real*8 rik,rik2,rik3 local 735 rik = sqrt(rik2) 752 rik4 = rik2 * rik2 899 real*8 rik,rik2,rik3 local 1026 rik = sqrt(rik2) [all …]
|
H A D | egauss1.f | 81 real*8 rik,rik2,rik3 local 195 rik = sqrt(rik2) 209 rik4 = rik2 * rik2 388 rik4 = rik2 * rik2 535 real*8 rik,rik2,rik3 local 710 rik = sqrt(rik2) 724 rik4 = rik2 * rik2 873 real*8 rik,rik2,rik3 local 1011 rik4 = rik2 * rik2 1155 real*8 rik,rik2 local [all …]
|
H A D | ehal1.f | 98 real*8 rik,rik2,rik3 local 200 rik = sqrt(rik2) 238 rik6 = rik2**3 253 rik4 = rik2 * rik2 460 rik4 = rik2 * rik2 612 real*8 rik,rik2,rik3 local 773 rik = sqrt(rik2) 828 rik4 = rik2 * rik2 982 real*8 rik,rik2,rik3 local 1094 rik = sqrt(rik2) [all …]
|
H A D | ebuck2.f | 81 real*8 rik,rik2,rik3 local 208 if (rik2 .le. off2) then 216 p2 = (rv*rv) / rik2 218 rik = sqrt(rik2) 237 rik3 = rik2 * rik 238 rik4 = rik2 * rik2 239 rik5 = rik2 * rik3 260 d2e = (d2e-de) / rik2 457 p2 = (rv*rv) / rik2 459 rik = sqrt(rik2) [all …]
|
H A D | emm3hb2.f | 65 real*8 rik,rik2,rik3 204 if (rik2 .le. off2) then 254 p2 = (rv*rv) / rik2 256 rik = sqrt(rik2) 280 rik3 = rik2 * rik 281 rik4 = rik2 * rik2 282 rik5 = rik2 * rik3 303 d2e = (d2e-de) / rik2 544 p2 = (rv*rv) / rik2 546 rik = sqrt(rik2) [all …]
|
H A D | elj2.f | 78 real*8 rik,rik2,rik3 local 204 rik = sqrt(rik2) 205 p6 = rv**6 / rik2**3 214 rik3 = rik2 * rik 215 rik4 = rik2 * rik2 445 rik4 = rik2 * rik2 694 real*8 rik,rik2 local 825 rik = sqrt(rik2) 826 rik3 = rik2 * rik 827 rik4 = rik2 * rik2 [all …]
|
H A D | ehal2.f | 50 real*8 rik,rik2,rik3 local 167 if (rik2 .le. off2) then 168 rik = sqrt(rik2) 177 rik6 = rik2**3 192 rik3 = rik2 * rik 193 rik4 = rik2 * rik2 194 rik5 = rik3 * rik2 215 d2e = (d2e-de) / rik2 401 rik = sqrt(rik2) 414 rik6 = rik2**3 [all …]
|
H A D | emm3hb1.f | 107 real*8 rik,rik2,rik3 local 284 p2 = (rv*rv) / rik2 286 rik = sqrt(rik2) 308 rik4 = rik2 * rik2 586 rik4 = rik2 * rik2 783 real*8 rik,rik2,rik3 local 1038 rik = sqrt(rik2) 1060 rik4 = rik2 * rik2 1259 real*8 rik,rik2,rik3 local 1449 rik = sqrt(rik2) [all …]
|
/dports/science/tinker/tinker/other/ |
H A D | ewca.f | 208 rik4 = rik2 * rik2 319 rik4 = rik2 * rik2 556 rik4 = rik2 * rik2 739 rik4 = rik2 * rik2 991 rik4 = rik2 * rik2 1500 rik4 = rik2 * rik2 1772 rik4 = rik2 * rik2 2057 rik4 = rik2 * rik2 2675 rik4 = rik2 * rik2 3103 rik4 = rik2 * rik2 [all …]
|
/dports/science/xtb/xtb-6.4.1/src/coulomb/ |
H A D | ewald.f90 | 83 real(wp) :: rik2, rik(3), expterm local 88 rik2 = dot_product(rik, rik) 89 expterm = exp(-rik2/(4.0_wp*alpha**2))/rik2 125 real(wp) :: rik2, rik(3), dtmp, expterm, arg local 137 rik2 = dot_product(rik,rik) 138 expterm = exp(-rik2/(4.0_wp*alpha**2))/rik2 144 & - unity * (1.0_wp + rik2*falp + rik2*fqpc) & 181 real(wp) :: rik2, rik(3), dtmp, expterm, arg local 192 rik2 = dot_product(rik,rik) 193 expterm = exp(-rik2/(4.0_wp*alpha**2))/rik2 [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/nwpwlib/nwpwxc/ |
H A D | nwpwxc_vdw3c.F | 1832 . -5.0*(rjk2-rik2)**2*(rjk2+rik2)) 1844 dang=-0.375d0*(rik2**3+rik2**2*(rjk2+rij2) 1861 . -5.0*(rik2-rij2)**2*(rik2+rij2)) 1969 ang=0.375d0*(rij2+rjk2-rik2)*(rij2-rjk2+rik2) 1985 . -5.0*(rjk2-rik2)**2*(rjk2+rik2)) 1996 dang=-0.375d0*(rik2**3+rik2**2*(rjk2+rij2) 2010 . -5.0*(rik2-rij2)**2*(rik2+rij2)) 2139 . -5.0d0*(rjk2-rik2)**2*(rjk2+rik2)) 2165 . -5.0d0*(rik2-rij2)**2*(rik2+rij2)) 2298 . -5.0*(rjk2-rik2)**2*(rjk2+rik2)) [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/nwpwlib/nwpwxc/ |
H A D | nwpwxc_vdw3c.F | 1832 . -5.0*(rjk2-rik2)**2*(rjk2+rik2)) 1844 dang=-0.375d0*(rik2**3+rik2**2*(rjk2+rij2) 1861 . -5.0*(rik2-rij2)**2*(rik2+rij2)) 1969 ang=0.375d0*(rij2+rjk2-rik2)*(rij2-rjk2+rik2) 1985 . -5.0*(rjk2-rik2)**2*(rjk2+rik2)) 1996 dang=-0.375d0*(rik2**3+rik2**2*(rjk2+rij2) 2010 . -5.0*(rik2-rij2)**2*(rik2+rij2)) 2139 . -5.0d0*(rjk2-rik2)**2*(rjk2+rik2)) 2165 . -5.0d0*(rik2-rij2)**2*(rik2+rij2)) 2298 . -5.0*(rjk2-rik2)**2*(rjk2+rik2)) [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/nwpwlib/nwpwxc/DFT3-NEW/ |
H A D | nwpwxc_vdw3c.F | 1808 . -5.0*(rjk2-rik2)**2*(rjk2+rik2)) 1820 dang=-0.375d0*(rik2**3+rik2**2*(rjk2+rij2) 1837 . -5.0*(rik2-rij2)**2*(rik2+rij2)) 1930 ang=0.375d0*(rij2+rjk2-rik2)*(rij2-rjk2+rik2) 1946 . -5.0*(rjk2-rik2)**2*(rjk2+rik2)) 1957 dang=-0.375d0*(rik2**3+rik2**2*(rjk2+rij2) 1971 . -5.0*(rik2-rij2)**2*(rik2+rij2)) 2084 . -5.0d0*(rjk2-rik2)**2*(rjk2+rik2)) 2110 . -5.0d0*(rik2-rij2)**2*(rik2+rij2)) 2224 . -5.0*(rjk2-rik2)**2*(rjk2+rik2)) [all …]
|
/dports/science/openkim-models/openkim-models-2021-01-28/model-drivers/MEAM_LAMMPS__MD_249792265679_000/ |
H A D | meam_c.hpp | 127 static inline void DCijkDRikDRjk(double const rij2, double const rik2, 320 static inline double DCijkDRij(double const rij2, double const rik2, 927 inline void MEAMC::DCijkDRikDRjk(double const rij2, double const rik2, in DCijkDRikDRjk() argument 931 double const rik4 = rik2 * rik2; in DCijkDRikDRjk() 933 double const a = rik2 - rjk2; in DCijkDRikDRjk() 938 4 * rij2 * (rij4 + rik4 + 2 * rik2 * rjk2 - 3 * rjk4 - 2 * rij2 * a); in DCijkDRikDRjk() 942 4 * rij2 * (rij4 - 3 * rik4 + 2 * rik2 * rjk2 + rjk4 + 2 * rij2 * a); in DCijkDRikDRjk() 955 inline double MEAMC::DCijkDRij(double const rij2, double const rik2, in DCijkDRij() argument 958 double const a = rik2 - rjk2; in DCijkDRij() 959 double const b = rik2 + rjk2; in DCijkDRij()
|