*     -*-fortran-*-

      logical MassRunning
      character*4 InMassRunning
*
      common / MassRunningSwitchAPFEL / MassRunning,InMassRunning