subroutine dump(dumpfile)
C
      include 'global.h'
      include 'zone.h'
      character*8 dumpfile
      character*1 sf1,sf2,char
C
C----------------------------------------------------------------------
C
      open(unit=4,file=dumpfile,status='unknown',form='unformatted')
      write(4) ADUMP, BDUMP
      close(4)
C
      write(8,*) 'Dumped ',dumpfile,' at cycle ', ncycle
C
C Increment file name by one letter in the suffix
C
      if (dumpfile(8:8) .eq. 'z' .or. dumpfile(8:8) .eq. 'Z') then
         sf1  = dumpfile(7:7)
         isf1 = ichar(sf1)
         sf2  = dumpfile(8:8)
         isf2 = ichar(sf2)
         isf1 = isf1 + 1
         isf2 = isf2 - 25
         dumpfile(7:7) = char(isf1)
         dumpfile(8:8) = char(isf2)
      else
         sf2  = dumpfile(8:8)
         isf2 = ichar(sf2)
         isf2 = isf2 + 1
         dumpfile(8:8) = char(isf2)
      endif
C
      return
      end