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