amns_utility.F90

Go to the documentation of this file.

module amns_utility

  use amns_types

  interface string

    module procedure int_to_string

  end interface string

contains

  character*24 function int_to_string(int)
    integer, intent(in) :: int
    write(int_to_string,'(I24)') int
    int_to_string=adjustl(int_to_string)
  end function

end module amns_utility