1d/dummy-routines/rec1xx.f

c
c ===================================================================
      subroutine rec1(maxmx,meqn,mwaves,mbc,mx,q,method,mthlim,ql,qr)
c ===================================================================
c
c      # dummy subroutine for user defined slope-limiting.
c      # If method(2)<=3 then this routine is never called, but its
c      # existence is required.
c
      implicit double precision (a-h,o-z)
      dimension    q(1-mbc:maxmx+mbc, meqn)
      dimension   ql(1-mbc:maxmx+mbc, meqn)
      dimension   qr(1-mbc:maxmx+mbc, meqn)
c
      write(6,*) '*** Dummy function for rec1() called.'
      write(6,*) '*** Use own function or set method(2)=3.'
      stop
      end