f_utl_i2c Function

public function f_utl_i2c(i) result(c)

Convert integer to char.

Arguments

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

Return Value character(len=256)


Source Code

function f_utl_i2c(i) result(c)

! ==== Description
!! Convert integer to char.

! ==== Declarations
  integer(i4), intent(in) :: i
  character(len=256)      :: c

! ==== Instructions
  write(c, '(I3)') i
  c = adjustl(c)

end function f_utl_i2c