vtf-logo

src/equations/cles_dcflag_none2d.f

c     xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
c
c                none
c
c     xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

      subroutine cles_dcflag(ux,vx,dcflag,ncomps,nvars,
     $     ixlo,ixhi,iylo,iyhi, nx, ny, dx, dy, 
     $     direction,extra)

      implicit none

      integer ncomps, nvars
      integer ixlo, ixhi, iylo, iyhi
      integer direction, extra(*)
      INTEGER nx,ny
      integer dcflag(1:nx+1,1:ny+1,2)
      double precision ux(ncomps,ixlo:ixhi,iylo:iyhi)
      double precision vx(nvars,ixlo:ixhi,iylo:iyhi)
      DOUBLE PRECISION dx,dy

      
      return
      end

<