Home
last modified time | relevance | path

Searched refs:rijsq (Results 1 – 25 of 65) sorted by relevance

123

/dports/science/openkim-models/openkim-models-2021-01-28/model-drivers/hNN__MD_435082866799_001/
H A Ddescriptor.cpp255 double rijsq = rij * rij; in sym_g4() local
303 double rijsq = rij * rij; in sym_d_g4() local
318 double dcos_dij = (rijsq - riksq + rjksq) / (2 * rijsq * rik); in sym_d_g4()
429 double rijsq = rij * rij; in sym_g5() local
450 double eterm = exp(-eta * (rijsq + riksq)); in sym_g5()
470 double rijsq = rij * rij; in sym_d_g5() local
485 double dcos_dij = (rijsq - riksq + rjksq) / (2 * rijsq * rik); in sym_d_g5()
507 double eterm = exp(-eta * (rijsq + riksq)); in sym_d_g5()
540 const double rijsq, in precompute_g4() argument
554 double dcos_dij = (rijsq - riksq + rjksq) / (2 * rijsq * rikmag); in precompute_g4()
[all …]
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/smd/graveyard/smd-serial/
H A Dfrce_shrt.f5 SUBROUTINE frce_shrt(iii,ntype,rij,rijsq,jbeg,jend,evdw) argument
21 real*8 evdw,rij,drij,rijsq,force local
23 dimension rij(mxnlist,3),rijsq(mxnlist)
34 if(rijsq(k).lt.rcutsq)then
36 drij=sqrt(rijsq(k))
54 $ -6*potpar(potindex,2)/drij**6)/rijsq(k)
55 write(24,*) drij,rijsq(k)
73 $ /rijsq(k)
H A Dewald_real.f5 SUBROUTINE ewald_real(iii,rij,rijsq,jbeg,jend,ewald4) argument
19 real*8 rij,drij,arij,rijsq local
22 dimension rij(mxnlist,3),rijsq(mxnlist)
34 if(rijsq(k).lt.rcutsq)then
36 drij=sqrt(rijsq(k))
43 $ (erfxc(arij)+2*arij/sqrpi*exp(-arij*arij))/(drij*rijsq(k))
H A Dewald_excl.f5 SUBROUTINE ewald_excl(iii,rij,rijsq,jbeg,jend,ewald3) argument
19 real*8 rij,drij,arij,rijsq local
22 dimension rij(mxnlist,3),rijsq(mxnlist)
34 if(rijsq(k).lt.rcutsq)then
36 drij=sqrt(rijsq(k))
44 $ /(drij*rijsq(k))
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/smd/graveyard/smd-9-10-08/
H A Dfrce_shrt.f5 SUBROUTINE frce_shrt(iii,ntype,rij,rijsq,jbeg,jend,evdw) argument
21 real*8 evdw,rij,drij,rijsq,force local
23 dimension rij(mxnlist,3),rijsq(mxnlist)
34 if(rijsq(k).lt.rcutsq)then
36 drij=sqrt(rijsq(k))
54 $ -6*potpar(potindex,2)/drij**6)/rijsq(k)
55 write(24,*) drij,rijsq(k)
73 $ /rijsq(k)
H A Dewald_excl.f5 SUBROUTINE ewald_excl(iii,rij,rijsq,jbeg,jend,ewald3) argument
19 real*8 rij,drij,arij,rijsq local
22 dimension rij(mxnlist,3),rijsq(mxnlist)
34 if(rijsq(k).lt.rcutsq)then
36 drij=sqrt(rijsq(k))
44 $ /(drij*rijsq(k))
H A Dewald_real.f5 SUBROUTINE ewald_real(iii,rij,rijsq,jbeg,jend,ewald4) argument
19 real*8 rij,drij,arij,rijsq local
22 dimension rij(mxnlist,3),rijsq(mxnlist)
34 if(rijsq(k).lt.rcutsq)then
36 drij=sqrt(rijsq(k))
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.f5 SUBROUTINE frce_shrt(iii,ntype,rij,rijsq,jbeg,jend,evdw) argument
21 real*8 evdw,rij,drij,rijsq,force local
23 dimension rij(mxnlist,3),rijsq(mxnlist)
34 if(rijsq(k).lt.rcutsq)then
36 drij=sqrt(rijsq(k))
54 $ -6*potpar(potindex,2)/drij**6)/rijsq(k)
55 write(24,*) drij,rijsq(k)
73 $ /rijsq(k)
H A Dewald_real.f5 SUBROUTINE ewald_real(iii,rij,rijsq,jbeg,jend,ewald4) argument
19 real*8 rij,drij,arij,rijsq local
22 dimension rij(mxnlist,3),rijsq(mxnlist)
34 if(rijsq(k).lt.rcutsq)then
36 drij=sqrt(rijsq(k))
43 $ (erfxc(arij)+2*arij/sqrpi*exp(-arij*arij))/(drij*rijsq(k))
H A Dewald_excl.f5 SUBROUTINE ewald_excl(iii,rij,rijsq,jbeg,jend,ewald3) argument
19 real*8 rij,drij,arij,rijsq local
22 dimension rij(mxnlist,3),rijsq(mxnlist)
34 if(rijsq(k).lt.rcutsq)then
36 drij=sqrt(rijsq(k))
44 $ /(drij*rijsq(k))
/dports/science/nwchem-data/nwchem-7.0.2-release/src/smd/graveyard/smd-9-10-08/
H A Dfrce_shrt.f5 SUBROUTINE frce_shrt(iii,ntype,rij,rijsq,jbeg,jend,evdw) argument
21 real*8 evdw,rij,drij,rijsq,force local
23 dimension rij(mxnlist,3),rijsq(mxnlist)
34 if(rijsq(k).lt.rcutsq)then
36 drij=sqrt(rijsq(k))
54 $ -6*potpar(potindex,2)/drij**6)/rijsq(k)
55 write(24,*) drij,rijsq(k)
73 $ /rijsq(k)
H A Dewald_real.f5 SUBROUTINE ewald_real(iii,rij,rijsq,jbeg,jend,ewald4) argument
19 real*8 rij,drij,arij,rijsq local
22 dimension rij(mxnlist,3),rijsq(mxnlist)
34 if(rijsq(k).lt.rcutsq)then
36 drij=sqrt(rijsq(k))
43 $ (erfxc(arij)+2*arij/sqrpi*exp(-arij*arij))/(drij*rijsq(k))
H A Dewald_excl.f5 SUBROUTINE ewald_excl(iii,rij,rijsq,jbeg,jend,ewald3) argument
19 real*8 rij,drij,arij,rijsq local
22 dimension rij(mxnlist,3),rijsq(mxnlist)
34 if(rijsq(k).lt.rcutsq)then
36 drij=sqrt(rijsq(k))
44 $ /(drij*rijsq(k))
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/smd/graveyard/smd-original/
H A Dewald_excl.f1 SUBROUTINE ewald_excl(iii,rij,rijsq,jbeg,jend,ewald3) argument
15 real*8 rij,drij,arij,rijsq local
18 dimension rij(mxnlist,3),rijsq(mxnlist)
30 if(rijsq(k).lt.rcutsq)then
32 drij=sqrt(rijsq(k))
40 $ /(drij*rijsq(k))
H A Dewald_real.f1 SUBROUTINE ewald_real(iii,rij,rijsq,jbeg,jend,ewald4) argument
15 real*8 rij,drij,arij,rijsq local
18 dimension rij(mxnlist,3),rijsq(mxnlist)
30 if(rijsq(k).lt.rcutsq)then
32 drij=sqrt(rijsq(k))
39 $ (erfxc(arij)+2*arij/sqrpi*exp(-arij*arij))/(drij*rijsq(k))
H A Dmd_frce.f17 real*8 rij,rijsq local
22 dimension rij(mxnlist,3),rijsq(mxnlist)
76 rijsq(k)=rij(k,1)*rij(k,1)+rij(k,2)*rij(k,2)+rij(k,3)*rij(k,3)
80 call ewald_excl(i,rij,rijsq,jbeg,jend,ewald3)
114 rijsq(k)=rij(k,1)*rij(k,1)+rij(k,2)*rij(k,2)+rij(k,3)*rij(k,3)
119 call ewald_real(i,rij,rijsq,jbeg,jend,ewald4)
123 call frce_shrt(i,ntype,rij,rijsq,jbeg,jend,evdw)
H A Dfrce_shrt.f1 SUBROUTINE frce_shrt(iii,ntype,rij,rijsq,jbeg,jend,evdw) argument
17 real*8 evdw,rij,drij,rijsq,force,etmp local
19 dimension rij(mxnlist,3),rijsq(mxnlist)
31 if(rijsq(k).lt.rcutsq)then
33 drij=sqrt(rijsq(k))
54 $ -6*potpar(potindex,2)/drij**6)/rijsq(k)
74 $ /rijsq(k)
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/smd/graveyard/smd-subgroups/
H A Dewald_excl.f5 SUBROUTINE ewald_excl(iii,rij,rijsq,jbeg,jend,ewald3) argument
19 real*8 rij,drij,arij,rijsq local
22 dimension rij(mxnlist,3),rijsq(mxnlist)
34 if(rijsq(k).lt.rcutsq)then
36 drij=sqrt(rijsq(k))
44 $ /(drij*rijsq(k))
H A Dewald_real.f5 SUBROUTINE ewald_real(iii,rij,rijsq,jbeg,jend,ewald4) argument
19 real*8 rij,drij,arij,rijsq local
22 dimension rij(mxnlist,3),rijsq(mxnlist)
34 if(rijsq(k).lt.rcutsq)then
36 drij=sqrt(rijsq(k))
43 $ (erfxc(arij)+2*arij/sqrpi*exp(-arij*arij))/(drij*rijsq(k))
H A Dfrce_shrt.f5 SUBROUTINE frce_shrt(iii,ntype,rij,rijsq,jbeg,jend,evdw) argument
21 real*8 evdw,rij,drij,rijsq,force local
23 dimension rij(mxnlist,3),rijsq(mxnlist)
33 if(rijsq(k).lt.rcutsq)then
35 drij=sqrt(rijsq(k))
53 $ -6*potpar(potindex,2)/drij**6)/rijsq(k)
72 $ /rijsq(k)
/dports/science/nwchem-data/nwchem-7.0.2-release/src/smd/graveyard/smd-subgroups/
H A Dewald_excl.f5 SUBROUTINE ewald_excl(iii,rij,rijsq,jbeg,jend,ewald3) argument
19 real*8 rij,drij,arij,rijsq local
22 dimension rij(mxnlist,3),rijsq(mxnlist)
34 if(rijsq(k).lt.rcutsq)then
36 drij=sqrt(rijsq(k))
44 $ /(drij*rijsq(k))
H A Dewald_real.f5 SUBROUTINE ewald_real(iii,rij,rijsq,jbeg,jend,ewald4) argument
19 real*8 rij,drij,arij,rijsq local
22 dimension rij(mxnlist,3),rijsq(mxnlist)
34 if(rijsq(k).lt.rcutsq)then
36 drij=sqrt(rijsq(k))
43 $ (erfxc(arij)+2*arij/sqrpi*exp(-arij*arij))/(drij*rijsq(k))
H A Dfrce_shrt.f5 SUBROUTINE frce_shrt(iii,ntype,rij,rijsq,jbeg,jend,evdw) argument
21 real*8 evdw,rij,drij,rijsq,force local
23 dimension rij(mxnlist,3),rijsq(mxnlist)
33 if(rijsq(k).lt.rcutsq)then
35 drij=sqrt(rijsq(k))
53 $ -6*potpar(potindex,2)/drij**6)/rijsq(k)
72 $ /rijsq(k)
/dports/science/nwchem-data/nwchem-7.0.2-release/src/smd/graveyard/smd-original/
H A Dewald_excl.f1 SUBROUTINE ewald_excl(iii,rij,rijsq,jbeg,jend,ewald3) argument
15 real*8 rij,drij,arij,rijsq local
18 dimension rij(mxnlist,3),rijsq(mxnlist)
30 if(rijsq(k).lt.rcutsq)then
32 drij=sqrt(rijsq(k))
40 $ /(drij*rijsq(k))
H A Dewald_real.f1 SUBROUTINE ewald_real(iii,rij,rijsq,jbeg,jend,ewald4) argument
15 real*8 rij,drij,arij,rijsq local
18 dimension rij(mxnlist,3),rijsq(mxnlist)
30 if(rijsq(k).lt.rcutsq)then
32 drij=sqrt(rijsq(k))
39 $ (erfxc(arij)+2*arij/sqrpi*exp(-arij*arij))/(drij*rijsq(k))

123