integer3string Function

public pure function integer3string(value)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: value

Return Value character(len=3)


Contents

Source Code


Source Code

  pure function integer3string(value)
      ! Convert an integer value to a 3-digit string with leading zero if required.
      integer, intent(in) :: value
      character(len=3) integer3string
      write (integer3string,'(I3.3)') value
  end function integer3string