ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/OOPSE-4/src/UseTheForce/notifyCutoffs_interface.F90
Revision: 1948
Committed: Fri Jan 14 20:31:16 2005 UTC (19 years, 6 months ago) by gezelter
File size: 277 byte(s)
Log Message:
separating modules and C/Fortran interface subroutines

File Contents

# User Rev Content
1 gezelter 1948 subroutine notifyFortranCutoffs(this_rcut, this_rsw, this_rlist )
2     use notifyCutoffs
3     use definitions, ONLY : dp
4    
5     real(kind=dp), intent(in) :: this_rcut, this_rsw, this_rlist
6    
7     call cutoffNotify(this_rcut, this_rsw, this_rlist )
8    
9     end subroutine notifyFortranCutoffs