generic
-- This package provides random number generators for FLOAT_TYPE
  type FLOAT_TYPE is digits <>;

package GENERIC_RANDOM_GENERATORS is

--    UDRNRT returns a uniformly distributed random number between
--           0.0 and 1.0

  function UDRNRT return FLOAT_TYPE ;


--    RAN    returns a uniformly distributed random number between
--           0.0 and 1.0  Requires FLOAT_TYPE to be at least digits 15

  function RAN return FLOAT_TYPE ; -- Float_Type must be at least digits 15


--    RANDOM returns a uniformly distributed random number between
--           0.0 and 1.0

  function RANDOM return FLOAT_TYPE ;


--    RANDOM(LOW,HIGH) returns integers in the range LOW..HIGH
--           HIGH-LOW+1 must fit in an integer

  function RANDOM(LOW, HIGH : INTEGER) return INTEGER;


--    GAUSS has parameters of the desired standard deviation and the
--          desired mean. The function returns Gaussian ( Normally )
--          distributed random numbers

  function GAUSS ( STDDEV , MEAN : FLOAT_TYPE ) return FLOAT_TYPE ;

--    POISSON has a parameter for the desired mean. The function
--    returns Poisson distributed random numbers

  function POISSON ( MEAN : FLOAT_TYPE ) return FLOAT_TYPE ;

--    The seed is visable so that repeatable sequences may be obtained
  SEED : INTEGER := 1 ; -- for UDRNRT
  FSEED : FLOAT_TYPE := 1.0; -- for RAN
  IY : INTEGER := 100001 ; -- for RANDOM

end GENERIC_RANDOM_GENERATORS ;