itm_string.f90

Go to the documentation of this file.

module itm_string

  implicit none

contains

  function itmint2str(intval) result(string)
    integer , intent(in) :: intval
    character(len=2-max(sign(1,intval),0)+max( &
         min(abs(intval)/10**1,1)*1, &
         min(abs(intval)/10**2,1)*2, &
         min(abs(intval)/10**3,1)*3, &
         min(abs(intval)/10**4,1)*4, &
         min(abs(intval)/10**5,1)*5, &
         min(abs(intval)/10**6,1)*6, &
         min(abs(intval)/10**7,1)*7, &
         min(abs(intval)/10**8,1)*8, &
         min(abs(intval)/10**9,1)*9) ) :: string
    integer :: absn,j,k,is
    absn = abs(intval)
    if ( absn == intval ) then
            is = 1
    else
            is = 2
            string(1:1) = "-"
    end if
    do j=len(string),is,-1
            k = modulo(absn,10)+1
            string(j:j) = "0123456789"(k:k)
            absn = absn / 10
    end do
    return
  end function itmint2str

end module itm_string