2d/dummy-routines/rpn2xx.f

c     =====================================================
      subroutine rpn2(ixy,maxm,meqn,mwaves,mbc,mx,ql,qr,maux,
     &     auxl,auxr,wave,s,amdq,apdq)
c     =====================================================
c
c     # Dummy function for 2D Riemann-solver in normal direction.
c     # A problem-dependent rpn2()-function is always necessary!
c
c     # Solve Riemann problem in x-direction if ixy=1 
c     #                            or in y-direction if ixy=2.
c     # Note that the i'th Riemann problem has left state qr(i-1,:)
c     #                                    and right state ql(i,:)
c     # From the basic routine step1, rp is called with ql = qr = q.
c     
      implicit double precision (a-h,o-z)
      dimension   ql(1-mbc:maxm+mbc, meqn)
      dimension   qr(1-mbc:maxm+mbc, meqn)
      dimension auxl(1-mbc:maxm+mbc, maux)
      dimension auxr(1-mbc:maxm+mbc, maux)
      dimension    s(1-mbc:maxm+mbc, mwaves)
      dimension wave(1-mbc:maxm+mbc, meqn, mwaves)
      dimension amdq(1-mbc:maxm+mbc, meqn)
      dimension apdq(1-mbc:maxm+mbc, meqn)
c
      return
      end