* -*-fortran-*- double precision alpha_ref_qed,q2_ref_qed character*4 InAlpQED * common / coupQEDAPFEL / alpha_ref_qed,q2_ref_qed,InAlpQED