quad10/fenomens/lab/p4/str.f90

character(len=20) function str(k)
  ! "Convert an integer to string."
  integer, intent(in) :: k
  write (str, *) k
  str = adjustl(str)
end function str