mdtgsy

procedure mdtgsy(

  n: ArbInt;

  rwidth: ArbInt;

  var a: ArbFloat;

  var pp: ArbInt;

  var qq: Boolean;

  var ca: ArbFloat;

  var term: ArbInt

);