double precision wt_gg,wt_gq,wt_qq,wt_qqb
      common/wts_bypart/wt_gg,wt_gq,wt_qq,wt_qqb