utility.f90

来自「正在从事科学计算的朋友学习fortran必备的书籍」· 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