utility.f90

来自「Fortran 95程序设计【彭国伦】 Source_Code.rarFortr」· F90 代码 · 共 10 行

module UTILITY
  implicit none
contains
  ! 把value限制到min到max之间
  subroutine Bound(min,max,value)
    integer min,max,value
	if ( value<min ) value=min
	if ( value>max ) value=max
  end subroutine
end module