double precision aii,aif,afi,aff,alfa
      common/alfacut/aii,aif,afi,aff
      parameter(alfa=1d0)