* -*-fortran-*- double precision VectorD,VectorU,AxialD,AxialU logical ExtCoup character*4 InEWCouplings * common / EWCouplingsAPFEL / VectorD,VectorU,AxialD,AxialU, 1 ExtCoup,InEWCouplings