(* source: h:\modula\defs\MakeSeed.DEF    v1.0a             revised: 88.07.01
   author: G.Greene, AGCS D/429 (NS/TS), 312/681-7783       created: 88.07.01

   function:
    This file contains the interface definition for a module which mangles
    the system date and time into a sort-of random starting value to use a
    the parameter to SetSeedValue in module UnifRNG.

   history:
    88.07.01  1.0a  initial release
*)


DEFINITION MODULE MakeSeed;


(*  Return as the function value a value suitable for use as the parameter to
    procedure SetSeedValue in module UnifRNG.  This value will be different
    every time it is called, so that one can get different random sequences
    from any of the random number generators (since all of them ultimately
    use uniform variates from UnifRNG).
*)

PROCEDURE  MakeSeedValue ( ): LONGCARD;


END  MakeSeed.
