iTos Function

private function iTos(i)

Arguments

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

Return Value character(len=iTos_len(i))


Source Code

  function iTos (i)
    integer, intent(in) :: i
    character(iTos_len (i)) :: iTos

    character(16) :: string

    write (string,'(i16)') i
    iTos = adjustl (string)

  end function iTos