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