2
c $Id: ewald_real.f,v 1.1 2008-10-01 22:32:27 marat Exp $
5
SUBROUTINE ewald_real(iii,rij,rijsq,jbeg,jend,ewald4)
16
integer iii,i,j,k,iatm,jatm
19
real*8 rij,drij,arij,rijsq
20
real*8 ewald4,erfxc,force
22
dimension rij(mxnlist,3),rijsq(mxnlist)
34
if(rijsq(k).lt.rcutsq)then
39
ewald4=ewald4+convfct1*typchge(iatm)*typchge(jatm)
42
force=convfct1*typchge(iatm)*typchge(jatm)*
43
$ (erfxc(arij)+2*arij/sqrpi*exp(-arij*arij))/(drij*rijsq(k))
45
fff(iii,1)=fff(iii,1)+convfct2*force*rij(k,1)
46
fff(iii,2)=fff(iii,2)+convfct2*force*rij(k,2)
47
fff(iii,3)=fff(iii,3)+convfct2*force*rij(k,3)
49
fff(j,1)=fff(j,1)-convfct2*force*rij(k,1)
50
fff(j,2)=fff(j,2)-convfct2*force*rij(k,2)
51
fff(j,3)=fff(j,3)-convfct2*force*rij(k,3)