function value = c8_one ( )

%*****************************************************************************80
%
%% C8_ONE returns one as a C8.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    29 September 2006
%
%  Author:
%
%    John Burkardt
%
%  Parameters:
%
%    Output, complex C8_ONE, the value of complex 1.
%
  value = 1.0;

  return
end