!  $Id: cdata.inc,v 1.3 2000/05/30 10:59:55 aake Exp $
!
!  The first part of /cdata/ (up to and including 
!  the line containing tcool) is always reuired.
!  The rest is case specific.
!
      logical alfven_center
      integer nstep, nx, ny, nz, iseed
      real
     & tstop, dtsnap, dtscr,
     & x1, x2, x3, x4, widthy, widthz,
     & dx, dy, dz,
     & t, dt, dtold, Cdt,
     & nu1, nu2, nu3,
     & flux, grav,
     & dnu1, dnu2,
     & eetop, eebot, tcool, pxdamp,
     & gamma, drive

      common /cdata/
     & nstep, tstop, dtsnap, dtscr,
     & nx, ny, nz,
     & x1, x2, x3, x4, widthy, widthz,
     & dx, dy, dz,
     & t, dt, dtold, Cdt,
     & nu1, nu2, nu3,
     & flux, grav,
     & dnu1, dnu2,
     & eetop, eebot, tcool, pxdamp,
     & gamma, drive