

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.
