************************************************************************ * * SetGFermi.f: * * This subroutine sets the Fermi constant. * ************************************************************************ subroutine SetGFermi(gf) * implicit none * include "../commons/GFermi.h" * * Variables * double precision gf * GFermi = gf InGFermi = "done" * return end