Source position: ubartlet.pas line 12
procedure Bartlett(
Ns: Integer;
N: TIntVector;
S: TVector;
var Khi2: Float;
var DoF: Integer
);