src/UseTheForce/notifyCutoffs_interface.F90

subroutine notifyFortranCutoffs(this_rcut, this_rsw, this_rlist )
  use notifyCutoffs
  use definitions, ONLY : dp
  
  real(kind=dp), intent(in) :: this_rcut, this_rsw, this_rlist
  
  call cutoffNotify(this_rcut, this_rsw, this_rlist )
  
end subroutine notifyFortranCutoffs
Revision:	1948
Committed:	Fri Jan 14 20:31:16 2005 UTC (19 years, 5 months ago) by gezelter
File size:	277 byte(s)
Log Message:	separating modules and C/Fortran interface subroutines
#	Content
1	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