| 45 |
|
|
| 46 |
|
!! @author Charles F. Vardeman II |
| 47 |
|
!! @author Matthew Meineke |
| 48 |
< |
!! @version $Id: doForces.F90,v 1.45 2005-09-16 20:36:55 chrisfen Exp $, $Date: 2005-09-16 20:36:55 $, $Name: not supported by cvs2svn $, $Revision: 1.45 $ |
| 48 |
> |
!! @version $Id: doForces.F90,v 1.46 2005-09-18 20:45:38 chrisfen Exp $, $Date: 2005-09-18 20:45:38 $, $Name: not supported by cvs2svn $, $Revision: 1.46 $ |
| 49 |
|
|
| 50 |
|
|
| 51 |
|
module doForces |
| 134 |
|
|
| 135 |
|
integer, save :: cutoffPolicy = TRADITIONAL_CUTOFF_POLICY |
| 136 |
|
real(kind=dp),save :: defaultRcut, defaultRsw, defaultRlist |
| 137 |
– |
real(kind=dp),save :: rcuti |
| 137 |
|
|
| 138 |
|
contains |
| 139 |
|
|
| 419 |
|
defaultRsw = defRsw |
| 420 |
|
defaultRlist = defRlist |
| 421 |
|
cutoffPolicy = cutPolicy |
| 423 |
– |
rcuti = 1.0_dp / defaultRcut |
| 422 |
|
end subroutine setDefaultCutoffs |
| 423 |
|
|
| 424 |
|
subroutine setCutoffPolicy(cutPolicy) |
| 501 |
|
end subroutine doReadyCheck |
| 502 |
|
|
| 503 |
|
|
| 504 |
< |
subroutine init_FF(thisESM, dampingAlpha, thisStat) |
| 504 |
> |
subroutine init_FF(thisESM, thisStat) |
| 505 |
|
|
| 506 |
|
integer, intent(in) :: thisESM |
| 507 |
|
real(kind=dp), intent(in) :: dampingAlpha |
