iTos_len Function

private pure function iTos_len(i)

Arguments

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

Return Value integer


Source Code

  pure function iTos_len (i)
    integer, intent(in) :: i
    integer :: iTos_len

    character(16) :: string

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

  end function iTos_len