DEFINITION MODULE UNIFORM; FROM SUPINT IMPORT SuperInteger; (* Provient du logiciel SENTIERS. *) TYPE Gener01 = PROCEDURE () : LONGREAL; VAR Gen : Gener01; WrGen : PROC; PROCEDURE SetLCG (m, a, c, s : LONGINT); PROCEDURE SetBigLCG (m, a, c, s : SuperInteger); PROCEDURE SetLCG2e32 (a, c, s : LONGCARD); PROCEDURE SetMultRec (m : LONGINT; k : INTEGER; VAR A, S : ARRAY OF LONGINT); PROCEDURE SetCombLEC2 (m1, m2, a1, a2, c1, c2, s1, s2 : LONGINT); PROCEDURE SetCombLEC3 (m1, m2, m3, a1, a2, a3, c1, c2, c3, s1, s2, s3 : LONGINT); PROCEDURE SetCombWH2 (m1, m2, a1, a2, c1, c2, s1, s2 : LONGINT); PROCEDURE SetCombWH3 (m1, m2, m3, a1, a2, a3, c1, c2, c3, s1, s2, s3 : LONGINT); PROCEDURE SetTaus (p, q, d, s : LONGCARD); PROCEDURE SetLongTaus (p, q, d, s1, s0 : LONGCARD); PROCEDURE SetCombTaus2 (p1, p2, q1, q2, d1, d2, s1, s2 : LONGCARD); PROCEDURE SetCombTaus3 (p1, p2, p3, q1, q2, q3, d1, d2, d3, s1, s2, s3 : LONGCARD); PROCEDURE SetACORN (k : INTEGER; VAR S : ARRAY OF LONGREAL); PROCEDURE SetTindo (B, Delta : LONGINT; L, k : INTEGER); PROCEDURE SetCSD (s1, s2 : LONGCARD); PROCEDURE SetMarsa90 (s1, s2, s3, s4 : LONGINT); PROCEDURE SetLaggFib (r, s : CARDINAL; VAR S : ARRAY OF LONGREAL; op : CHAR); PROCEDURE SetInvGen (z0, a1, a2, m : LONGINT); PROCEDURE SetAWC (r, s : INTEGER; c, m : LONGCARD; VAR S : ARRAY OF LONGCARD); PROCEDURE SetSWB (r, s : INTEGER; c, m : LONGCARD; VAR S : ARRAY OF LONGCARD); PROCEDURE SetGFSR (r, s, p : INTEGER; VAR S : ARRAY OF LONGCARD); PROCEDURE SetTGFSR (r, s, p : INTEGER; Av: LONGCARD; VAR S : ARRAY OF LONGCARD); PROCEDURE WriteState (); END UNIFORM.