      realUold(0:i1,0:j1,0:k1),Vold(0:i1,0:j1,0:k1),Wold(0:i1,0:j1,0:k1)
      common /old/Uold,Vold,Wold

      realUnew(0:i1,0:j1,0:k1),Vnew(0:i1,0:j1,0:k1),Wnew(0:i1,0:j1,0:k1)
      common /new/Unew,Vnew,Wnew

      realdUdt(0:i1,0:j1,0:k1),dVdt(0:i1,0:j1,0:k1),dWdt(0:i1,0:j1,0:k1)
      common /deriv/dUdt,dVdt,dWdt

      real  p(imax,jmax,kmax)
      common /pressure/p

      real dxi,dyi,dzi,Rei,dt,Ufree,cs
      common /parm/dxi,dyi,dzi,Rei,dt,Ufree,cs
   
      real   visc(0:i1,0:j1,0:k1)
      common /viscosity/visc
