*     -*-fortran-*-

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