src/equations/cles_source1d.f

c     =====================================================
      SUBROUTINE cles_source(ux,vx,work,ncomps,ixhi,ixlo,
     $     rhs,nvars,nx,dx)
c     =====================================================
      IMPLICIT none
  
      Integer   ncomps, nvars
      INTEGER ixhi,ixlo
      INTEGER nx
      DOUBLE PRECISION dx
      DOUBLE PRECISION ux(ncomps,ixlo:ixhi)
      DOUBLE PRECISION vx(nvars,ixlo:ixhi)
      DOUBLE PRECISION work(ixlo:ixhi)
      DOUBLE PRECISION rhs(nvars,nx)
      
      INTEGER i

c     ---- default to no source term
c     do i=1, nx
c        rhs(2,i) = rhs(2,i)-ux(1,i) 
c        rhs(5,i) = rhs(5,i)-ux(2,i) 
c     enddo
      
      return
      END

<