!:physfluxInternalDeclarations:!
      INTEGER, SAVE :: mbc,mx,nq,mwav,NrVars,mwaves,iError,j,mu,mv,mw,i
      INTEGER, POINTER, DIMENSION(:) :: iCell,iEdge,iLft,iRgt
      REAL (KIND=qPrec), ALLOCATABLE, SAVE, DIMENSION(:) :: delta,coef
      ! Cell center quantities
      REAL (KIND=qPrec), ALLOCATABLE, SAVE, DIMENSION (:) :: sqrtrho,pres, &
                         u,v,c,h,rho
      ! Roe averaged quantities
      REAL (KIND=qPrec), ALLOCATABLE, SAVE, DIMENSION (:) :: uR,vR,hR,cR, &
                         rhosq2,g1c2,u2v2,euv
      ! Shorter local names
      REAL (KIND=qPrec), POINTER, DIMENSION (:,:) :: Apdq,Amdq,Asdq,BpAsdq,BmAsdq, &
                                                     speed,q1D
      REAL (KIND=qPrec), POINTER, DIMENSION (:,:,:) :: wave
      REAL (KIND=qPrec) :: rho1,rhou1,en1,p1,c1,rho2,rhou2,en2,p2,c2
      REAL (KIND=qPrec) :: s0,s1,s2,s3,sfract,df(5),rhov1,rhov2