character*(*) function chival0 (ival)

c  Returns a character string containing the value of 'ival' in decimal
c  digits, leading zeros are retained.

      call chvxi0 (ival, chival0, 10)
      return
      end