int_to_char Function

public function int_to_char(i) result(str)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: i

Return Value character(len=32)


Source Code

    function int_to_char(i) result(str)
        integer, intent(in) :: i
        character(len=32) :: str
        integer :: iostat

        write (str, '(i0)', iostat=iostat) i
        if (iostat /= 0) then
            str = 'ERROR'
        else
            str = trim(str)
        end if
    end function int_to_char