int2str_len Function

private pure function int2str_len(i)

Arguments

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

Return Value integer


Source Code

  pure function int2str_len (i)

  ! Internal function for use by ESMF_UtilStringInt2String.

    integer :: int2str_len

    integer, intent(in) :: i

    character(16) :: string

    write (string,'(i16)') i
    int2str_len = len_trim (adjustl (string))

  end function int2str_len