45 |
|
|
46 |
|
!! @author Charles F. Vardeman II |
47 |
|
!! @author Matthew Meineke |
48 |
< |
!! @version $Id: doForces.F90,v 1.31 2005-08-26 16:36:16 gezelter Exp $, $Date: 2005-08-26 16:36:16 $, $Name: not supported by cvs2svn $, $Revision: 1.31 $ |
48 |
> |
!! @version $Id: doForces.F90,v 1.32 2005-08-26 21:30:30 chrisfen Exp $, $Date: 2005-08-26 21:30:30 $, $Name: not supported by cvs2svn $, $Revision: 1.32 $ |
49 |
|
|
50 |
|
|
51 |
|
module doForces |
104 |
|
public :: do_force_loop |
105 |
|
public :: createInteractionHash |
106 |
|
public :: createGtypeCutoffMap |
107 |
+ |
public :: getStickyCut |
108 |
+ |
public :: getStickyPowerCut |
109 |
+ |
public :: getGayBerneCut |
110 |
+ |
public :: getEAMCut |
111 |
+ |
public :: getShapeCut |
112 |
|
|
113 |
|
#ifdef PROFILE |
114 |
|
public :: getforcetime |
343 |
|
|
344 |
|
haveGtypeCutoffMap = .true. |
345 |
|
end subroutine createGtypeCutoffMap |
346 |
< |
|
346 |
> |
|
347 |
|
subroutine setDefaultCutoffs(defRcut, defRsw, defRlist, cutPolicy) |
348 |
|
real(kind=dp),intent(in) :: defRcut, defRsw, defRlist |
349 |
|
integer, intent(in) :: cutPolicy |