subroutine mkname(i,stuff)
c  subroutine to take an integer (.le. 4 digits) and return it
c   in the form of a character string
      character*4 stuff
      integer*4 i
      stuff='?'
      if (i.gt.10000) i=mod(i,10000)
      i1000=i/1000
      i100=(i-1000*i1000)/100
      i10=(i-1000*i1000-100*i100)/10
      i1=(i-1000*i1000-100*i100-10*i10)
      if (i.ge.1000) then
      stuff=char(i1000+48)//char(i100+48)//char(i10+48)//char(i1+48)
      return
      endif
      if (i.ge.100) then
      stuff=char(i100+48)//char(i10+48)//char(i1+48)
      return
      endif
      if (i.ge.10) then
      stuff=char(i10+48)//char(i1+48)
      return
      endif
      if (i.ge.0) stuff=char(i1+48)
      return
      end