Home
last modified time | relevance | path

Searched refs:rik2 (Results 1 – 25 of 57) sorted by relevance

123

/dports/science/tinker/tinker/source/
H A Delj.f87 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 Delj3.f116 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 Debuck.f89 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 Degauss.f71 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 Debuck3.f118 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 Degauss3.f79 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 Dehal3.f112 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 Dehal.f83 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 Delj1.f98 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 Demm3hb3.f125 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 Demm3hb.f97 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 Debuck1.f100 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 Degauss1.f81 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 Dehal1.f98 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 Debuck2.f81 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 Demm3hb2.f65 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 Delj2.f78 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 Dehal2.f50 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 Demm3hb1.f107 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 Dewca.f208 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 Dewald.f9083 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 Dnwpwxc_vdw3c.F1832 . -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 Dnwpwxc_vdw3c.F1832 . -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 Dnwpwxc_vdw3c.F1808 . -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 Dmeam_c.hpp127 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()

123