Home
last modified time | relevance | path

Searched refs:drij (Results 1 – 25 of 89) sorted by relevance

1234

/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/smd/graveyard/smd-original/
H A Dfrce_shrt.f17 real*8 evdw,rij,drij,rijsq,force,etmp local
33 drij=sqrt(rijsq(k))
48 evdw=evdw+(potpar(potindex,1)/drij**12
49 $ -potpar(potindex,2)/drij**6)
50 etmp = (potpar(potindex,1)/drij**12
51 $ -potpar(potindex,2)/drij**6)
53 force=(12*potpar(potindex,1)/drij**12
68 $ *exp(-drij/potpar(potindex,2))
69 $ -potpar(potindex,3)/drij**6)
71 force=(drij*potpar(potindex,1)
[all …]
H A Dewald_excl.f15 real*8 rij,drij,arij,rijsq local
32 drij=sqrt(rijsq(k))
33 arij=alpha*drij
36 $ *(1-erfxc(arij))/drij
40 $ /(drij*rijsq(k))
H A Dewald_real.f15 real*8 rij,drij,arij,rijsq local
32 drij=sqrt(rijsq(k))
33 arij=alpha*drij
36 $ *erfxc(arij)/drij
39 $ (erfxc(arij)+2*arij/sqrpi*exp(-arij*arij))/(drij*rijsq(k))
/dports/science/nwchem-data/nwchem-7.0.2-release/src/smd/graveyard/smd-original/
H A Dfrce_shrt.f17 real*8 evdw,rij,drij,rijsq,force,etmp local
33 drij=sqrt(rijsq(k))
48 evdw=evdw+(potpar(potindex,1)/drij**12
49 $ -potpar(potindex,2)/drij**6)
50 etmp = (potpar(potindex,1)/drij**12
51 $ -potpar(potindex,2)/drij**6)
53 force=(12*potpar(potindex,1)/drij**12
68 $ *exp(-drij/potpar(potindex,2))
69 $ -potpar(potindex,3)/drij**6)
71 force=(drij*potpar(potindex,1)
[all …]
H A Dewald_excl.f15 real*8 rij,drij,arij,rijsq local
32 drij=sqrt(rijsq(k))
33 arij=alpha*drij
36 $ *(1-erfxc(arij))/drij
40 $ /(drij*rijsq(k))
H A Dewald_real.f15 real*8 rij,drij,arij,rijsq local
32 drij=sqrt(rijsq(k))
33 arij=alpha*drij
36 $ *erfxc(arij)/drij
39 $ (erfxc(arij)+2*arij/sqrpi*exp(-arij*arij))/(drij*rijsq(k))
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/smd/graveyard/smd-serial/
H A Dfrce_shrt.f21 real*8 evdw,rij,drij,rijsq,force local
36 drij=sqrt(rijsq(k))
50 evdw=evdw+(potpar(potindex,1)/drij**12
51 $ -potpar(potindex,2)/drij**6)
53 force=(12*potpar(potindex,1)/drij**12
54 $ -6*potpar(potindex,2)/drij**6)/rijsq(k)
55 write(24,*) drij,rijsq(k)
67 $ *exp(-drij/potpar(potindex,2))
68 $ -potpar(potindex,3)/drij**6)
70 force=(drij*potpar(potindex,1)
[all …]
H A Dewald_real.f19 real*8 rij,drij,arij,rijsq local
36 drij=sqrt(rijsq(k))
37 arij=alpha*drij
40 $ *erfxc(arij)/drij
43 $ (erfxc(arij)+2*arij/sqrpi*exp(-arij*arij))/(drij*rijsq(k))
H A Dewald_excl.f19 real*8 rij,drij,arij,rijsq local
36 drij=sqrt(rijsq(k))
37 arij=alpha*drij
40 $ *(1-erfxc(arij))/drij
44 $ /(drij*rijsq(k))
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/smd/graveyard/smd-9-10-08/
H A Dfrce_shrt.f21 real*8 evdw,rij,drij,rijsq,force local
36 drij=sqrt(rijsq(k))
50 evdw=evdw+(potpar(potindex,1)/drij**12
51 $ -potpar(potindex,2)/drij**6)
53 force=(12*potpar(potindex,1)/drij**12
54 $ -6*potpar(potindex,2)/drij**6)/rijsq(k)
55 write(24,*) drij,rijsq(k)
67 $ *exp(-drij/potpar(potindex,2))
68 $ -potpar(potindex,3)/drij**6)
70 force=(drij*potpar(potindex,1)
[all …]
H A Dewald_excl.f19 real*8 rij,drij,arij,rijsq local
36 drij=sqrt(rijsq(k))
37 arij=alpha*drij
40 $ *(1-erfxc(arij))/drij
44 $ /(drij*rijsq(k))
H A Dewald_real.f19 real*8 rij,drij,arij,rijsq local
36 drij=sqrt(rijsq(k))
37 arij=alpha*drij
40 $ *erfxc(arij)/drij
43 $ (erfxc(arij)+2*arij/sqrpi*exp(-arij*arij))/(drij*rijsq(k))
/dports/science/nwchem-data/nwchem-7.0.2-release/src/smd/graveyard/smd-serial/
H A Dfrce_shrt.f21 real*8 evdw,rij,drij,rijsq,force local
36 drij=sqrt(rijsq(k))
50 evdw=evdw+(potpar(potindex,1)/drij**12
51 $ -potpar(potindex,2)/drij**6)
53 force=(12*potpar(potindex,1)/drij**12
54 $ -6*potpar(potindex,2)/drij**6)/rijsq(k)
55 write(24,*) drij,rijsq(k)
67 $ *exp(-drij/potpar(potindex,2))
68 $ -potpar(potindex,3)/drij**6)
70 force=(drij*potpar(potindex,1)
[all …]
H A Dewald_real.f19 real*8 rij,drij,arij,rijsq local
36 drij=sqrt(rijsq(k))
37 arij=alpha*drij
40 $ *erfxc(arij)/drij
43 $ (erfxc(arij)+2*arij/sqrpi*exp(-arij*arij))/(drij*rijsq(k))
H A Dewald_excl.f19 real*8 rij,drij,arij,rijsq local
36 drij=sqrt(rijsq(k))
37 arij=alpha*drij
40 $ *(1-erfxc(arij))/drij
44 $ /(drij*rijsq(k))
/dports/science/nwchem-data/nwchem-7.0.2-release/src/smd/graveyard/smd-9-10-08/
H A Dfrce_shrt.f21 real*8 evdw,rij,drij,rijsq,force local
36 drij=sqrt(rijsq(k))
50 evdw=evdw+(potpar(potindex,1)/drij**12
51 $ -potpar(potindex,2)/drij**6)
53 force=(12*potpar(potindex,1)/drij**12
54 $ -6*potpar(potindex,2)/drij**6)/rijsq(k)
55 write(24,*) drij,rijsq(k)
67 $ *exp(-drij/potpar(potindex,2))
68 $ -potpar(potindex,3)/drij**6)
70 force=(drij*potpar(potindex,1)
[all …]
H A Dewald_real.f19 real*8 rij,drij,arij,rijsq local
36 drij=sqrt(rijsq(k))
37 arij=alpha*drij
40 $ *erfxc(arij)/drij
43 $ (erfxc(arij)+2*arij/sqrpi*exp(-arij*arij))/(drij*rijsq(k))
H A Dewald_excl.f19 real*8 rij,drij,arij,rijsq local
36 drij=sqrt(rijsq(k))
37 arij=alpha*drij
40 $ *(1-erfxc(arij))/drij
44 $ /(drij*rijsq(k))
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/smd/graveyard/smd-subgroups/
H A Dfrce_shrt.f21 real*8 evdw,rij,drij,rijsq,force local
35 drij=sqrt(rijsq(k))
49 evdw=evdw+(potpar(potindex,1)/drij**12
50 $ -potpar(potindex,2)/drij**6)
52 force=(12*potpar(potindex,1)/drij**12
53 $ -6*potpar(potindex,2)/drij**6)/rijsq(k)
66 $ *exp(-drij/potpar(potindex,2))
67 $ -potpar(potindex,3)/drij**6)
69 force=(drij*potpar(potindex,1)
70 $ *exp(-drij/potpar(potindex,2))
[all …]
H A Dewald_excl.f19 real*8 rij,drij,arij,rijsq local
36 drij=sqrt(rijsq(k))
37 arij=alpha*drij
40 $ *(1-erfxc(arij))/drij
44 $ /(drij*rijsq(k))
H A Dewald_real.f19 real*8 rij,drij,arij,rijsq local
36 drij=sqrt(rijsq(k))
37 arij=alpha*drij
40 $ *erfxc(arij)/drij
43 $ (erfxc(arij)+2*arij/sqrpi*exp(-arij*arij))/(drij*rijsq(k))
/dports/science/nwchem-data/nwchem-7.0.2-release/src/smd/graveyard/smd-subgroups/
H A Dfrce_shrt.f21 real*8 evdw,rij,drij,rijsq,force local
35 drij=sqrt(rijsq(k))
49 evdw=evdw+(potpar(potindex,1)/drij**12
50 $ -potpar(potindex,2)/drij**6)
52 force=(12*potpar(potindex,1)/drij**12
53 $ -6*potpar(potindex,2)/drij**6)/rijsq(k)
66 $ *exp(-drij/potpar(potindex,2))
67 $ -potpar(potindex,3)/drij**6)
69 force=(drij*potpar(potindex,1)
70 $ *exp(-drij/potpar(potindex,2))
[all …]
H A Dewald_excl.f19 real*8 rij,drij,arij,rijsq local
36 drij=sqrt(rijsq(k))
37 arij=alpha*drij
40 $ *(1-erfxc(arij))/drij
44 $ /(drij*rijsq(k))
H A Dewald_real.f19 real*8 rij,drij,arij,rijsq local
36 drij=sqrt(rijsq(k))
37 arij=alpha*drij
40 $ *erfxc(arij)/drij
43 $ (erfxc(arij)+2*arij/sqrpi*exp(-arij*arij))/(drij*rijsq(k))
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/
H A Dsemi_empirical_int_ana.F127 drij(1) = rijv(1)/rij
128 drij(2) = rijv(2)/rij
129 drij(3) = rijv(3)/rij
132 xtmp = drij(3)
133 drij(3) = drij(1)
134 drij(1) = xtmp
622 drij(1) = rijv(1)/rij
703 denuc = tmp*drij
1301 xtmp = drij(3)
1302 drij(3) = drij(1)
[all …]

1234