mdtgtr

procedure mdtgtr(

  n: ArbInt;

  var l: ArbFloat;

  var d: ArbFloat;

  var u: ArbFloat;

  var l1: ArbFloat;

  var d1: ArbFloat;

  var u1: ArbFloat;

  var u2: ArbFloat;

  var p: Boolean;

  var ca: ArbFloat;

  var term: ArbInt

);