Function:     RANDEV

Purpose:      Generating random deviates from various distributions.

Files:        randev.f

Author:       F.J. Sicking

Category:     MATH

Use:          DOUBLE PRECISION RANDEV( option ,   Input  INTEGER
                                       iseed  ,   Input  INTEGER
                                     )

              RANDEV  Returns a random deviate from the distribution 
                      specified in option.

              OPTION  Type of distribution:
                      1 -- Gaussian:     exp(-0.5*x**2)
                      2 -- Sech2:        1/cosh^2(x)
                      3 -- Exponential:  exp(-|x|)
                      4 -- Lorentz:      1/(1+x^2)
                      5 -- Rectangular:  -1 < x < 1

              ISEED   Seed for the random number generator. Should be
                      negative on initialization !!!!

Description:
              The random number generator and the function to get
              the gaussian deviates are drawn from Numerical Recipes.

Updates:      Aug  4, 1994: FJS, Document created.
              Ocf  5, 1994: KGB, Incompatible routine declaration removed.