*     -*-fortran-*-
*
*     Switch for Total Evolution Operator
*
      logical LeptEvol
      character*4 InLeptEvol
*
      common / LeptonEvolutionSwitchAPFEL / LeptEvol,InLeptEvol