C     ALGORITHM 599, COLLECTED ALGORITHMS FROM ACM.
C     ALGORITHM APPEARED IN ACM-TRANS. MATH. SOFTWARE, VOL.9, NO. 2,
C     JUN., 1983, P. 255-257.
C**********************************************************************C
C**********************************************************************C
C**********************************************************************C
C                                                                      C
C                                                                      C
C                                                                      C
C     F O R T R A N  SOFTWARE PACKAGE FOR RANDOM NUMBER GENERATION     C
C                                                                      C
C                                                                      C
C                                                                      C
C**********************************************************************C
C**********************************************************************C
C**********************************************************************C
C                                                                       
C                                                                       
C                                                                       
C     CONTENTS:                                                         
C                                                                       
C     1) SUNIF  -  0,1 -UNIFORM DISTRIBUTION                            
C                                                                       
C     2) SEXPO  - (STANDARD-) EXPONENTIAL DISTRIBUTION                  
C                                                                       
C     3) SNORM  - (STANDARD-) NORMAL DISTRIBUTION                       
C                                                                       
C     4) SGAMMA - (STANDARD-) GAMMA DISTRIBUTION                        
C                                                                       
C     5) KPOISS - POISSON DISTRIBUTION                                  
C                                                                       
C                                                                       
C     THIS PACKAGE CONSTITUTES A FORTRAN-77 DOCUMENTATION OF A SET OF   
C     ASSEMBLER FUNCTIONS FOR SAMPLING FROM THE ABOVE DISTRIBUTIONS.    
C     ALL ROUTINES MAKE AMPLE USE OF BINARY REPRESENTATIONS OF NUMBERS, 
C     THEY ARE AMONG THE MOST ACCURATE AND FAST SAMPLING FUNCTIONS      
C     KNOWN. THE FORTRAN PROGRAMS BELOW YIELD THE SAME RANDOM NUMBER    
C     SEQUENCES AS THE ONES FROM OUR ASSEMBLER PACKAGE, BUT THEY ARE    
C     OF COURSE MUCH SLOWER (BY FACTORS 5-8 ON OUR SIEMENS 7760         
C     COMPUTER.)                                                        
C     THE SET OF ROUTINES WILL ALSO BE ACCEPTABLE TO FORTRAN IV         
C     COMPILERS WHICH ALLOW DATA STATEMENTS FOR ARRAYS WITHOUT          
C     IMPLICIT DO-LOOPS.                                                
C                                                                       
C                                                                       
C     REMARKS:                                                          
C                                                                       
C     -  NO CARE IS TAKEN TO ENSURE THAT THE PARAMETER VALUES LIE       
C        IN THE ALLOWED RANGE (E.G. A/MU > 0.0 FOR SGAMMA/KPOISS).      
C                                                                       
C     -  THE PARAMETER 'IR' MUST BE SET TO SOME  4*K+1 > 0  BEFORE      
C        THE FIRST CALL OF ANY OF THE GENERATORS. THEREAFTER IR         
C        MUST NOT BE ALTERED UNTIL A NEW INITIALIZATION IS DESIRED.     
C                                                                       
C     -  THE PACKAGE PROVIDES RANDOM DEVIATES OF 6-7 DIGITS ACCURACY.   
C        ON MORE ACCURATE COMPUTERS THE CONSTANTS IN SEXPO, SNORM,      
C        SGAMMA AND KPOISS OUGHT TO BE ADJUSTED ACCORDING TO LOCAL      
C        COMMENTS OR WITH THE AID OF THE TABLES IN THE LITERATURE       
C        QUOTED AT THE BEGINNING OF EACH FUNCTION.                      
C                                                                       
C                                                                       
C**********************************************************************C
C**********************************************************************C
C                                                                      C
C                                                                      C
C       0 , 1   - U N I F O R M  DISTRIBUTION                          C
C                                                                      C
C                                                                      C
C**********************************************************************C
C**********************************************************************C
C                                                                      C
C     FOR DETAILS SEE:                                                 C
C                                                                      C
C               AHRENS, J.H., DIETER, U. AND GRUBE, A.                 C
C               PSEUDO-RANDOM NUMBERS:  A NEW PROPOSAL                 C
C                     FOR THE CHOICE OF MULTIPLICATORS                 C
C               COMPUTING, 6 (1970), 121 - 138                         C
C                                                                      C
C**********************************************************************C
C                                                                       
