function r8_e_test ( )

%*****************************************************************************80
%
%% R8_E_TEST tests R8_E.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    11 August 2010
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'R8_E_TEST\n' );
  fprintf ( 1, '  R8_E returns the value of the exponential base.\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  E = %24.16f\n', r8_e ( ) );

  return
end
