Source position: umcmc.pas line 40
procedure Hastings(
Func: TFuncNVar;
T: Float;
X: TVector;
V: TMatrix;
Lb: Integer;
Ub: Integer;
Xmat: TMatrix;
X_min: TVector;
var F_min: Float
);