      INTEGER ioutp,istep,nstep,nsteps,istart

      COMMON /intvar/ ioutp,istep,nstep,nsteps,istart
      SAVE   /intvar/

      REAL Re,Pr,Le,Cs,Cl

      COMMON /nonnum/ Re,Pr,Le,Cs,Cl
      SAVE   /nonnum/

      REAL unew(0:i1,0:j1,0:k1)
      REAL vnew(0:i1,0:j1,0:k1)
      REAL wnew(0:i1,0:j1,0:k1)
      REAL tnew(0:i1,0:j1,0:k1)
      REAL told(0:i1,0:j1,0:k1)
      REAL ynew(0:i1,0:j1,0:k1)
      REAL rhonew(0:i1,0:j1,0:k1)

      COMMON /newvar/ unew,vnew,wnew,tnew,told,ynew,rhonew
      SAVE   /newvar/

      REAL rhold1(0:i1,0:j1,0:k1)
      REAL rhold2(0:i1,0:j1,0:k1)

      COMMON /oldvar/ rhold1,rhold2
      SAVE   /oldvar/

      REAL umnew(0:i1,0:j1,0:k1)
      REAL vmnew(0:i1,0:j1,0:k1)
      REAL wmnew(0:i1,0:j1,0:k1)
      REAL ymnew(0:i1,0:j1,0:k1)
      REAL ymold(0:i1,0:j1,0:k1)
      REAL umold(0:i1,0:j1,0:k1)
      REAL vmold(0:i1,0:j1,0:k1)
      REAL wmold(0:i1,0:j1,0:k1)

      COMMON /moment/ umnew,vmnew,wmnew,umold,vmold,wmold,
     &                ymnew,ymold
      SAVE   /moment/


      REAL div(0:i1,0:j1,0:k1)
      REAL drr(0:i1,0:j1,0:k1)
      REAL doo(0:i1,0:j1,0:k1)
      REAL dzz(0:i1,0:j1,0:k1)
      REAL dro(0:i1,0:j1,0:k1)
      REAL doz(0:i1,0:j1,0:k1)
      REAL drz(0:i1,0:j1,0:k1)
      REAL magdij(0:i1,0:j1,0:k1)
      REAL mut(0:i1,0:j1,0:k1)	

      COMMON /strain/ div,drr,doo,dzz,dro,doz,drz,magdij,mut
      SAVE   /strain/


      REAL munew(0:i1,0:j1,0:k1)
      REAL lmbnew(0:i1,0:j1,0:k1)
      REAL difnew(0:i1,0:j1,0:k1)

      COMMON /diffus/ munew,lmbnew,difnew
      SAVE   /diffus/

      REAL dt,dtmax,time

      COMMON /timvar/ dt,dtmax,time
      SAVE   /timvar/

      REAL dudtn(0:i1,0:j1,0:k1)
      REAL dudtnm(0:i1,0:j1,0:k1)
      REAL dvdtn(0:i1,0:j1,0:k1)
      REAL dvdtnm(0:i1,0:j1,0:k1)
      REAL dwdtn(0:i1,0:j1,0:k1)
      REAL dwdtnm(0:i1,0:j1,0:k1)
      REAL dtdtn(0:i1,0:j1,0:k1)
      REAL dtdtnm(0:i1,0:j1,0:k1)
      REAL dydtn(0:i1,0:j1,0:k1)
      REAL dydtnm(0:i1,0:j1,0:k1)

      COMMON /derive/ dudtn,dudtnm,dvdtn,dvdtnm,dwdtn,dwdtnm,
     $                dtdtn,dtdtnm,dydtn,dydtnm
      SAVE   /derive/

      REAL ru(0:i1),rp(0:i1),dr(0:i1)
      REAL dphi
      REAL zw(0:k1),zp(0:k1),dz(0:k1)
      REAL lmix(imax,kmax),delta(imax,kmax)
      REAL delbr(imax,kmax),delht(imax,kmax)
      INTEGER ijet
      common /iijet/ijet
      COMMON /phsgrd/ ru,rp,dr,dphi,zw,zp,dz,lmix,delta,delbr,delht
      SAVE   /phsgrd/

      REAL work(iwork),save(isave)
      REAL p(imax,jmax,kmax)

      COMMON /press/ work,save,p
      SAVE   /press/

      CHARACTER*45 rdfile,flname

      COMMON /names/ rdfile,flname
      SAVE   /names/





