*     -*-fortran-*-
*
*     Switch for Time-Like Evolution
*
      logical TimeLike
      character*4 InTimeLike
*
      common / TimeLikeEvolutionSwitchAPFEL / TimeLike,InTimeLike