*     -*-fortran-*-

      integer sf,k,wnf,wixi,walpha,wbeta,wipt,wl
*
      common / WrappingVariablesDISAPFEL / sf,k,wnf,wixi,walpha,wbeta,
     1                                     wipt,wl