*     -*-fortran-*-

      double precision MProton
      character*4 InMProton
*
      common / ProtonMassAPFEL / MProton,InMProton