integer_to_string Subroutine

public pure subroutine integer_to_string(ival, int_fmt, str)

Convert an integer to a string.

Arguments

Type IntentOptional AttributesName
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.


Called by

proc~~integer_to_string~~CalledByGraph proc~integer_to_string integer_to_string proc~json_value_print json_value_print proc~json_value_print->proc~integer_to_string proc~push_char push_char proc~push_char->proc~integer_to_string proc~json_get_by_path json_get_by_path proc~json_get_by_path->proc~integer_to_string proc~annotate_invalid_json annotate_invalid_json proc~annotate_invalid_json->proc~integer_to_string proc~json_get_string json_get_string proc~json_get_string->proc~integer_to_string proc~json_initialize json_initialize proc~json_initialize->proc~integer_to_string proc~json_create_by_path json_create_by_path proc~json_create_by_path->proc~integer_to_string proc~json_get_path json_get_path proc~json_get_path->proc~integer_to_string

Contents

Source Code


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