c xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
c
c none
c
c xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
subroutine cles_dcflag(ux,vx,dcflag,ncomps,nvars,
$ ixlo, ixhi, nx, dx, direction, extra)
implicit none
integer ncomps, nvars
integer ixlo, ixhi
integer direction, extra(*)
INTEGER nx
integer dcflag(1:nx+1,1)
double precision ux(ncomps,ixlo:ixhi)
double precision vx(nvars,ixlo:ixhi)
DOUBLE PRECISION dx
return
end