/dports/science/openkim-models/openkim-models-2021-01-28/model-drivers/hNN__MD_435082866799_001/ |
H A D | descriptor.cpp | 255 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 D | frce_shrt.f | 5 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 D | ewald_real.f | 5 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 D | ewald_excl.f | 5 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 D | frce_shrt.f | 5 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 D | ewald_excl.f | 5 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 D | ewald_real.f | 5 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 D | frce_shrt.f | 5 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 D | ewald_real.f | 5 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 D | ewald_excl.f | 5 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 D | frce_shrt.f | 5 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 D | ewald_real.f | 5 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 D | ewald_excl.f | 5 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 D | ewald_excl.f | 1 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 D | ewald_real.f | 1 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 D | md_frce.f | 17 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 D | frce_shrt.f | 1 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 D | ewald_excl.f | 5 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 D | ewald_real.f | 5 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 D | frce_shrt.f | 5 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 D | ewald_excl.f | 5 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 D | ewald_real.f | 5 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 D | frce_shrt.f | 5 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 D | ewald_excl.f | 1 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 D | ewald_real.f | 1 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))
|