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