with A83_014_Vector; use A83_014_Vector;

     package A83_017_Random is
     ----------------------------------------------------------------------
     ----------------------------------------------------------------------

     Copyright : constant string :=
       "A83_017_Random 1.00 (C) 1994 by David Wallace Croft." &
       "  All rights reserved.";
     Description : constant string :=
       "Random numbers and statistics.";

     ----------------------------------------------------------------------

     type Random_1_Array_Type is
       array ( long_integer range 1..97 ) of float;
     type Random_Seed_Type is
       record
	 Glix1, Glix2, Glix3 : long_integer;
	 Glr                 : Random_1_Array_Type;
	 IDum                : long_integer := -1;
	 GlISet              : integer := 0;
	 GlGSet              : float;
       end record;

     ----------------------------------------------------------------------

     procedure Demo;

     function Mean (
       V : Vector_Type )
       return float;

     procedure Random_1 ( -- requires long_integer
       Random :    out float;
       Seed   : in out Random_Seed_Type );
     ----------------------------------------------------------------------
     -- Set Seed.IDum to a negative number to re-initialize.
     -- "Numerical Recipes" by Press, et al
     ----------------------------------------------------------------------

     function Variance (
       V : Vector_Type )
       return float;

     ----------------------------------------------------------------------
     ----------------------------------------------------------------------
     end A83_017_Random;