c*************************************************************************
c	Initialization of parameters for the Sudakov
c*************************************************************************
      data m_colfac/6*0.5d0,0d0,6*1.33333333333d0,14*0d0,3d0/
c                                      4/3
      data m_dlog/7*0d0,6*1d0,14*0d0,1d0/
      data m_slog/6*3.33333333333d-1,0d0,6*-7.5d-1,14*0d0,-9.16666666666d-1/
c                       1/3                     -3/4              -11/12
      data m_power/6*-1d0,0d0,6*1.5d0,14*0d0,2d0,
     &   6*1d0,0d0,6*0d0,14*0d0,-0.5d0,
     &   6*-6.66666666666d-1,0d0,6*0d0,14*0d0,3.3333333333333d-1,
     &   6*-0.5d0,0d0,6*1d0,14*0d0,2d0,
     &   6*0.5d0,0d0,6*-0.25d0,14*0d0,-0.5d0,
     &   6*-3.33333333333333d-1,0d0,6*0d0,14*0d0,3.333333333333333d-1/
      data m_qmass/4*0d0,4.8d0,173d0,14*0d0,0d0/ ! 1d-2,5d-3,0.2d0,1.42d0,
      data m_as_factor,m_kfac/1d0,0d0/
      data m_pca/28*0,6*1,0,6*1,15*0/