double precision mom(mxpart,4),bp,bm
      common/momwbbm/mom,bp,bm