!:physfluxInfo:! Extract information from Info structure
      ! Current number of interior cells, boundary cells, field variables, waves
      mx=Info%mXnow; mbc=Info%mbc; NrVars=Info%NrVars; mwaves=Info%mwaves
      ! Associate local names with Info components
      q1D=>Info%q1D
      Apdq=>Info%Apdq; Amdq=>Info%Amdq; speed=>Info%speed; wave=>Info%wave
      Asdq=>Info%Asdq; BpAsdq=>Info%BpAsdq; BmAsdq=>Info%BmAsdq
      iEdge=>Info%I1D; iCell=>Info%I1Dcells; iLft=>Info%I1Dleft; iRgt=>Info%I1Dright