*     -*-fortran-*-

      double precision GFermi
      character*4 InGFermi
*
      common / GFermiAPFEL / GFermi,InGFermi