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

Comparing trunk/OOPSE-2.0/src/UseTheForce/notifyCutoffs.F90 (file contents):
Revision 1930 by gezelter, Wed Jan 12 22:41:40 2005 UTC vs.
Revision 1948 by gezelter, Fri Jan 14 20:31:16 2005 UTC

# Line 116 | Line 116 | contains
116      end subroutine cutoffNotify
117  
118    end module notifyCutoffs
119  
120  subroutine notifyFortranCutoffs(this_rcut, this_rsw, this_rlist )
121    use notifyCutoffs
122    use definitions, ONLY : dp
123    
124    real(kind=dp), intent(in) :: this_rcut, this_rsw, this_rlist
125    
126    call cutoffNotify(this_rcut, this_rsw, this_rlist )
127    
128  end subroutine

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines