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