anchor.diff:      DOUBLE PRECISION hr,ur,vr, hl,ul,vl, uhat, chat, phir, &
                  phil,s(3), fwave(3,3), bl, bR
   
  -    double precision fluxdiff(3),R(3,3), beta(3), hbar
  +    double precision fluxdiff(3),beta(3), hbar
   
       DOUBLE PRECISION :: grav, dry_tolerance, sea_level
       COMMON /common_swe/ grav, dry_tolerance, sea_level
  
positive.code:     DOUBLE PRECISION     qr(1-mbc:maxm+mbc,meqn)
      DOUBLE PRECISION   apdq(1-mbc:maxm+mbc,meqn)
      DOUBLE PRECISION   amdq(1-mbc:maxm+mbc,meqn)
      DOUBLE PRECISION   auxl(1-mbc:maxm+mbc,maux)
      DOUBLE PRECISION   auxr(1-mbc:maxm+mbc,maux)
  
      DOUBLE PRECISION :: grav, dry_tolerance, sea_level
      COMMON /common_swe/ grav, dry_tolerance, sea_level
  
negative.code: 
      DOUBLE PRECISION  hvR, hvL, vR, vL
      double precision z
  
      integer icom, jcom
      double precision dtcom, dxcom, dycom, tcom
      common /comxyt/ dtcom,dxcom,dycom,tcom,icom,jcom
  
      if (ixy .eq. 1) then
          mu=2
  