c =====================================================
subroutine rcflx(mflx)
c =====================================================
c
c # What kind of Riemann solver is used?
c
implicit double precision (a-h,o-z)
common /rpnflx/ mrpnflx
c
mflx = mrpnflx
c
return
end