2d/dummy-routines/rec2xx.f

c
c ===================================================================
      subroutine rec2(ixy,maxm,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:maxm+mbc, meqn)
      dimension   ql(1-mbc:maxm+mbc, meqn)
      dimension   qr(1-mbc:maxm+mbc, meqn)
c
      write(6,*) '*** Dummy function for rec2() called.'
      write(6,*) '*** Use own function or set method(2)=3.'
      stop
      end