*     -*-fortran-*-
*
*     Switch for the Fast Evolution
*
      logical FastEvol
      character*4 InFastEvol
*
      common / FastEvolutionSwitchAPFEL / FastEvol,InFastEvol