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