src/3d/dummy-routines/rpt3xx.f
c
c
c ==================================================================
subroutine rpt3(ixyz,icoor,maxm,meqn,mwaves,mbc,mx,
& ql,qr,maux,aux1,aux2,aux3,ilr,asdq,
& bmasdq,bpasdq)
c ==================================================================
c
c # dummy subroutine for use when no transverse wave propagation
c # should be used.
c # If method(3)<=0 then this routine is never called, but its
c # existence is required.
c
implicit double precision (a-h,o-z)
dimension ql(1-mbc:maxm+mbc, meqn)
dimension qr(1-mbc:maxm+mbc, meqn)
dimension asdq(1-mbc:maxm+mbc, meqn)
dimension bmasdq(1-mbc:maxm+mbc, meqn)
dimension bpasdq(1-mbc:maxm+mbc, meqn)
dimension aux1(1-mbc:maxm+mbc, maux, 3)
dimension aux2(1-mbc:maxm+mbc, maux, 3)
dimension aux3(1-mbc:maxm+mbc, maux, 3)
c
write(6,*) '*** Dummy function rpt3xx called.'
write(6,*) '*** Use appropriate rpt3 or set method(3)<=0.'
stop
end
<