#*****************************************************************************80
#
## eros_test tests eros.
#
#  Licensing:
#
#    Copyright 2016 James P. Howard, II
#
#    The computer code and data files on this web page are distributed under
#    https://opensource.org/licenses/BSD-2-Clause, the BSD-2-Clause license.
#
#  Modified:
#
#    07 February 2020
#
#  Author:
#
#    John Burkardt
#
cat ( date ( ), "\n" )
cat ( "\n" )
cat ( "eros_test\n" )
cat ( " ", version$version.string, "\n" )
cat ( "  The eros library implements elementary row operations.\n" )

source ( "/home/burkardt/public_html/r_src/eros/replacerow.R" )
source ( "/home/burkardt/public_html/r_src/eros/scalerow.R" )
source ( "/home/burkardt/public_html/r_src/eros/swaprows.R" )

A <- matrix ( 1:15, 5 )

cat ( "\n" )
cat ( "Matrix A\n" )
cat ( "\n" )
A
cat ( "\n" )
cat ( "scalerow: row2 <- row2 * 10\n" )
cat ( "\n" )
A <- scalerow ( A, 2, 10.0 )
A

cat ( "\n" )
cat ( "swaprows: row3 <-> row5\n" )
cat ( "\n" )
A <- swaprows ( A, 3, 5 )
A

cat ( "\n" )
cat ( "replacerow: row1 <- row1 -3 * row3\n" )
cat ( "\n" )
A <- replacerow ( A, 1, 3, -3.0 )
A
#
#  Terminate.
#
cat ( "\n" )
cat ( "eros_test\n" )
cat ( "  Normal end of execution.\n" )
cat ( date ( ), "\n" )

quit ( )