r8_cube_root_test <- function ( )

#*****************************************************************************80
#
## r8_cube_root_test() tests r8_cube_root().
#
#  Licensing:
#
#    This code is distributed under the MIT license.
#
#  Modified:
#
#    12 May 2021
#
#  Author:
#
#    John Burkardt
#
{
  source ( "/home/john/public_html/r_src/r8lib/r8_cube_root.R" ) 

  cat ( '\n' )
  cat ( 'r8_cube_root_test():\n' )
  cat ( '  r8_cube_root() computes the cube root of an R8.\n' )
  cat ( '\n' )
  cat ( '       X               Y               Y^3\n' )
  cat ( '\n' )

  for ( i in 1 : 10 )
  {
    x1 = - 10.0 + 20.0 * runif ( 1 )
    y = r8_cube_root ( x1 )
    x2 = y ^ 3;
    cat ( '  ', x1, '  ', y, '  ', x2, '\n' );
  }

  return
}