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

Comparing trunk/OOPSE-4/src/UseTheForce/notifyCutoffs_interface.F90 (file contents):
Revision 1948 by gezelter, Fri Jan 14 20:31:16 2005 UTC vs.
Revision 2285 by gezelter, Wed Sep 7 20:46:46 2005 UTC

# Line 1 | Line 1
1 < subroutine notifyFortranCutoffs(this_rcut, this_rsw, this_rlist )
1 > subroutine notifyFortranCutoffs(this_rcut, this_rsw, this_rlist, cutPolicy)
2    use notifyCutoffs
3    use definitions, ONLY : dp
4 <  
4 >
5    real(kind=dp), intent(in) :: this_rcut, this_rsw, this_rlist
6 <  
7 <  call cutoffNotify(this_rcut, this_rsw, this_rlist )
8 <  
6 >  integer, intent(in) :: cutPolicy
7 >
8 >  call cutoffNotify(this_rcut, this_rsw, this_rlist, cutPolicy )
9 >
10   end subroutine notifyFortranCutoffs

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines