Function qmomo

void qmomo(Real) (
  Real alfa,
  Real beta,
  Real* ri_,
  Real* rj_,
  Real* rg_,
  Real* rh_,
  int integr
);