*     -*-fortran-*-
*
*     Switch for the polarized Evolution
*
      logical Polarized
      character*4 InPolarized
*
      common / PolarizedEvolutionSwitchAPFEL / Polarized,InPolarized