************************************************************************
*     Demonstrates use of 'itoc', which converts integers to character
*     strings, declared here to be character*1.
*    
*     Expected output:
*     
*     % demoitoc1
*      itoc(0) = <0>
*      itoc(9) = <9>
*      itoc(10) = <1>
************************************************************************
      program        demoitoc1
      
      integer        indlnb
      character*1    itoc
      character*128  b

      b=itoc(0)
      write(0,*) 'itoc(0) = <'//b(1:indlnb(b))//'>'
      b=itoc(9)
      write(0,*) 'itoc(9) = <'//b(1:indlnb(b))//'>'
      b=itoc(10)
      write(0,*) 'itoc(10) = <'//b(1:indlnb(b))//'>'

      stop

      end
