Balance

procedure Balance(

  A: TMatrix;

  Lb: Integer;

  Ub: Integer;

  var I_low: Integer;

  var I_igh: Integer;

  Scale: TVector

);