function value = absorb ( )

%*****************************************************************************80
%
%% absorb() determines if a colliding particle is absorbed.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    02 September 2012
%
%  Author:
%
%    Original FORTRAN77 version by Kahaner, Moler, Nash.
%    MATLAB version by John Burkardt.
%
%  Reference:
%
%    David Kahaner, Cleve Moler, Steven Nash,
%    Numerical Methods and Software,
%    Prentice Hall, 1989,
%    ISBN: 0-13-627258-4,
%    LC: TA345.K34.
%
%  Output:
%
%    logical VALUE, is TRUE if the particle is absorbed.
%
%  Local:
%
%    real PA, the probability of absorption.
%
  pa = 0.1;

  u = rand ( 1, 1 );

  value = ( u <= pa );

  return
end

