* -*-fortran-*- integer k,walpha,wbeta,wtau,wnf * common / WrappingVariablesResAPFEL / k,walpha,wbeta,wtau,wnf