mirror of
https://github.com/nwchemgit/nwchem.git
synced 2026-07-28 14:15:30 -04:00
...EJB
This commit is contained in:
parent
8127e69c4d
commit
ffb59dde8d
1 changed files with 1 additions and 1 deletions
|
|
@ -1578,7 +1578,7 @@ c **** reactive_site ****
|
|||
dy = y1-y2
|
||||
dz = z1-z2
|
||||
call lattice_min_difference(dx,dy,dz)
|
||||
r2 = (dx1**2 + dy1**2 + dz1**2)
|
||||
r2 = (dx**2 + dy**2 + dz**2)
|
||||
r1 = dsqrt(r2)
|
||||
f = param(5+j)*dexp(-alpha*r2)
|
||||
df = (-2.0d0*alpha*r1*f)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue