C  global.h -- global variables accessible by (most) anything
C
C  time  - time
C  dt    - timestep
C  gam   - equation of state gamma
C  gamm  - gam - 1
C  courant - courant parameter
C  nmin   - first real zone in 1D arrays
C  nmax   - last real zone in 1D arrays
C  ncycle - cycle number
C  ainflo - values of variables at inflow boundary
C
      integer ncycle, ndim, nfile
     &       ,ngeomx, nleftx, nrightx 
     &       ,ngeomy, nlefty, nrighty 
     &       ,ngeomz, nleftz, nrightz
     &       ,istep, jstep, ibot
C
      real time, dt, smallp,smallr,small,cmin,cmax
     &    ,gam, gamm, courant, avgmass, boltzman, pi, GM
     &    ,uinflo, dinflo, vinflo, winflo, pinflo, einflo
     &    ,ushock, ztop0
C
      real bdump(38)
C
      common /global/ time, dt, gam, gamm, courant,cmin
     &            ,avgmass, boltzman, pi, GM, small,cmax
     &            ,uinflo, dinflo, vinflo, pinflo, einflo
     &            ,winflo, ushock, smallp, smallr, ztop0
     &            ,ncycle, ngeomx, ngeomy, ngeomz, nfile
     &            ,nleftx, nlefty, nrightx, nrighty, ndim
     &            ,nleftz, nrightz, istep, jstep, ibot
C
      equivalence (bdump(1),time)