*     -*-fortran-*-

      integer k,sf,walpha,wbeta,wtau
*
      common / WrappingVariablesResDISAPFEL / k,sf,walpha,wbeta,wtau