*     -*-fortran-*-
*
*     Switch for Total Evolution Operator
*
      logical EvolOp
      character*4 InEvolOp
*
      common / EvolutionOperatorSwitchAPFEL / EvolOp,InEvolOp