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 2204 by gezelter, Fri Apr 15 22:04:00 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  
5    real(kind=dp), intent(in) :: this_rcut, this_rsw, this_rlist
6 +  integer, intent(in) :: cutPolicy
7  
8 <  call cutoffNotify(this_rcut, this_rsw, this_rlist )
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