#*****************************************************************************80
#
## midpoint_fixed_test() tests midpoint_fixed().
#
#  Licensing:
#
#    This code is distributed under the MIT license.
#
#  Modified:
#
#    19 April 2022
#
cat ( date ( ), "\n" )
cat ( "\n" )
cat ( "midpoint_fixed_test()\n" )
cat ( " ", version$version.string, "\n" )
cat ( "  Test midpoint_fixed() for solving ordinary differential equations.\n" )

source ( "/home/burkardt/public_html/r_src/midpoint_fixed_test/hund_midpoint_fixed.R" )
source ( "/home/burkardt/public_html/r_src/midpoint_fixed_test/stiff_midpoint_fixed.R" )

hund_midpoint_fixed ( )
stiff_midpoint_fixed ( )
#
#  Terminate.
#
cat ( "\n" )
cat ( "midpoint_fixed_test():\n" )
cat ( "  Normal end of execution.\n" )
cat ( date ( ), "\n" )

quit ( )