integer_to_string Subroutine

public pure subroutine integer_to_string(ival, int_fmt, str)

Convert an integer to a string.

Arguments

Type IntentOptional Attributes Name
integer(kind=IK), intent(in) :: ival

integer value.

character(kind=CDK, len=*), intent(in) :: int_fmt

format for integers

character(kind=CK, len=*), intent(out) :: str

ival converted to a string.


Source Code

    pure subroutine integer_to_string(ival,int_fmt,str)

    implicit none

    integer(IK),intent(in)               :: ival    !! integer value.
    character(kind=CDK,len=*),intent(in) :: int_fmt !! format for integers
    character(kind=CK,len=*),intent(out) :: str     !! `ival` converted to a string.

    integer(IK) :: istat

    write(str,fmt=int_fmt,iostat=istat) ival

    if (istat==0) then
        str = adjustl(str)
    else
        str = repeat(star,len(str))
    end if

    end subroutine integer_to_string