| 45 |
|
|
| 46 |
|
!! @author Charles F. Vardeman II |
| 47 |
|
!! @author Matthew Meineke |
| 48 |
< |
!! @version $Id: doForces.F90,v 1.17 2005-05-17 22:35:01 chrisfen Exp $, $Date: 2005-05-17 22:35:01 $, $Name: not supported by cvs2svn $, $Revision: 1.17 $ |
| 48 |
> |
!! @version $Id: doForces.F90,v 1.19 2005-05-29 21:15:52 chrisfen Exp $, $Date: 2005-05-29 21:15:52 $, $Name: not supported by cvs2svn $, $Revision: 1.19 $ |
| 49 |
|
|
| 50 |
|
|
| 51 |
|
module doForces |
| 923 |
|
real ( kind = dp ), intent(inout) :: rijsq |
| 924 |
|
real ( kind = dp ) :: r |
| 925 |
|
real ( kind = dp ), intent(inout) :: d(3) |
| 926 |
+ |
real ( kind = dp ) :: ebalance |
| 927 |
|
integer :: me_i, me_j |
| 928 |
|
|
| 929 |
|
r = sqrt(rijsq) |
