home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / modula2 / library / queuem2 / makeseed.def < prev    next >
Text File  |  1989-08-02  |  890b  |  28 lines
  1. (* source: h:\modula\defs\MakeSeed.DEF    v1.0a             revised: 88.07.01
  2.    author: G.Greene, AGCS D/429 (NS/TS), 312/681-7783       created: 88.07.01
  3.  
  4.    function:
  5.     This file contains the interface definition for a module which mangles
  6.     the system date and time into a sort-of random starting value to use a
  7.     the parameter to SetSeedValue in module UnifRNG.
  8.  
  9.    history:
  10.     88.07.01  1.0a  initial release
  11. *)
  12.  
  13.  
  14. DEFINITION MODULE MakeSeed;
  15.  
  16.  
  17. (*  Return as the function value a value suitable for use as the parameter to
  18.     procedure SetSeedValue in module UnifRNG.  This value will be different
  19.     every time it is called, so that one can get different random sequences
  20.     from any of the random number generators (since all of them ultimately
  21.     use uniform variates from UnifRNG).
  22. *)
  23.  
  24. PROCEDURE  MakeSeedValue ( ): LONGCARD;
  25.  
  26.  
  27. END  MakeSeed.
  28.