Woolf_Indep

procedure Woolf_Indep(

  N_lin: Integer;

  N_col: Integer;

  Obs: TIntMatrix;

  var G: Float;

  var DoF: Integer

);