------------------------------------------------------------------------
IMSL Name:  RNSES/DRNSES (Single/Double precision version)
 
Revised:    March 19, 1991
 
Purpose:    Initialize the table in the IMSL random number
            generators that use shuffling.
 
Usage:      CALL RNSES (TABLE)
 
Argument:
   TABLE  - Vector of length 128 used in the IMSL random number
            generators that use shuffling.  (Input)
            The values in TABLE should be uniform (0,1) random
            deviates.  Except for the element which may be
            nonpositive, all elements of TABLE must be positive and
            strictly less than 1.0.  If TABLE(1).LE.0.0, then the
            values in TABLE are not stored in the shuffling table;
            instead, the first 128 numbers resulting from the next
            call to a shuffled generator are used to initialize the
            table (prior to any shuffling).
 
Remark:
   This routine is generally used when it is desired to restart a
   simulation that uses a shuffled generator.  At the end of one
   simulation run, RNGES is used to obtain the current value of
   TABLE and then RNSES is used at the beginning of the next
   simulation run to restore TABLE.
 
Keyword:    Utility
 
GAMS:       L6c
 
Chapter:    STAT/LIBRARY Random Number Generation
 
Page No.:   STAT/LIBRARY User's Manual page 1265