Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | value |
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