function value = genexp ( av )

%*****************************************************************************80
%
%% genexp() generates an exponential random deviate.
%
%  Discussion:
%
%    This procedure generates a single random deviate from an exponential
%    distribution with mean AV.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    31 March 2013
%
%  Author:
%
%    Original FORTRAN77 version by Barry Brown, James Lovato.
%    MATLAB version by John Burkardt.
%
%  Reference:
%
%    Joachim Ahrens, Ulrich Dieter,
%    Computer Methods for Sampling From the
%    Exponential and Normal Distributions,
%    Communications of the ACM,
%    Volume 15, Number 10, October 1972, pages 873-882.
%
%  Input:
%
%    real AV, the mean of the exponential distribution
%    from which a random deviate is to be generated.
%
%  Output:
%
%    real VALUE, a random deviate from the distribution.
%
  value = sexpo ( ) * av;

  return
end
