ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/OOPSE-4/src/UseTheForce/notifyCutoffs.F90
(Generate patch)

Comparing trunk/OOPSE-4/src/UseTheForce/notifyCutoffs.F90 (file contents):
Revision 2273 by gezelter, Thu Aug 11 21:04:03 2005 UTC vs.
Revision 2285 by gezelter, Wed Sep 7 20:46:46 2005 UTC

# Line 62 | Line 62 | contains
62  
63   contains
64  
65 <  subroutine cutoffNotify( this_rcut, this_rsw, this_rlist )
65 >  subroutine cutoffNotify( this_rcut, this_rsw, this_rlist, cutPolicy)
66  
67      real(kind=dp), intent(in) :: this_rcut, this_rsw, this_rlist
68 <
68 >    integer, intent(in) :: cutPolicy
69      real(kind=dp) :: rsw, rcut, rlist
70      integer :: localError
71      logical :: do_shift
# Line 108 | Line 108 | contains
108  
109      endif
110  
111 <    call setDefaultCutoffs(rcut, rsw, rlist, TRADITIONAL_CUTOFF_POLICY)
111 >    call setDefaultCutoffs(rcut, rsw, rlist, cutPolicy)
112      call setCutoffsRF( rcut, rsw )
113      call setLJDefaultCutoff( rcut, do_shift )
114      call setCutoffEAM( rcut, localError)

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines