src/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
<