rpt2.f.html CLAWPACK  
 Source file:   rpt2.f
 Directory:   /home/rjl/git/rjleveque/clawpack-4.x/apps/advection/2d/example1_gauges
 Converted:   Tue Jul 26 2011 at 12:58:51   using clawcode2html
 This documentation file will not reflect any later changes in the source file. 

 
c
c
c     =====================================================
      subroutine rpt2(ixy,maxm,meqn,mwaves,mbc,mx,
     &                  ql,qr,aux1,aux2,aux3,
     &                  ilr,asdq,bmasdq,bpasdq)
c     =====================================================
      implicit double precision (a-h,o-z)
c
c     # Riemann solver in the transverse direction for the scalar equation
c
c     # Split asdq (= A^* \Delta q, where * = + or -)
c     # into down-going flux difference bmasdq (= B^- A^* \Delta q)
c     #    and up-going flux difference bpasdq (= B^+ A^* \Delta q)
c
c
      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)
      parameter (maxm2 = 502)
      common /comrp/ ubar,vbar
c
c     # transverse wave speeds have been computed in rpn2
c     # maux=0 and aux arrays are unused in this example.
c
      if (ixy.eq.1) then
             stran = vbar
           else
             stran = ubar
           endif

      stranm = dmin1(stran, 0.d0)
      stranp = dmax1(stran, 0.d0)
      
      do 10 i = 2-mbc, mx+mbc
          bmasdq(i,1) = stranm * asdq(i,1)
          bpasdq(i,1) = stranp * asdq(i,1)
   10     continue
c
      return
      end