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:	2204
Committed:	Fri Apr 15 22:04:00 2005 UTC (19 years, 2 months ago) by gezelter
File size:	271 byte(s)
Log Message:	xemacs has been drafted to perform our indentation services
#	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