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

<