*     -*-fortran-*-

      character*2 Evs
      character*4 InEvs
*
      common / EvolutionSchemeAPFEL / Evs,InEvs