Woolf_Conform

procedure Woolf_Conform(

  N_cls: Integer;

  N_estim: Integer;

  Obs: TIntVector;

  Calc: TVector;

  var G: Float;

  var DoF: Integer

);