*     -*-fortran-*-

      character*5 mass_scheme
*
      common / mass_schemeAPFEL / mass_scheme