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 1498 by tim, Tue Sep 28 21:08:18 2004 UTC vs.
Revision 1602 by chuckv, Tue Oct 19 20:44:36 2004 UTC

# Line 75 | Line 75 | contains
75      end subroutine cutoffNotify
76  
77    end module notifyCutoffs
78 +  
79 +  subroutine notifyFortranCutoffs(this_rcut, this_rsw, this_rlist )
80 +    use notifyCutoffs
81 +    use definitions, ONLY : dp
82 +    
83 +    real(kind=dp), intent(in) :: this_rcut, this_rsw, this_rlist
84 +    
85 +    call cutoffNotify(this_rcut, this_rsw, this_rlist )
86 +    
87 +  end subroutine

Diff Legend

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