hessvec

procedure hessvec(

  var h: ArbFloat;

  n: ArbInt;

  rwidthh: ArbInt;

  var lam: Complex;

  var v: ArbFloat;

  rwidthv: ArbInt;

  var term: ArbInt

);