Goal:  Compute three 7 stage order 6 schemes to arbitrary precision.
====

                                        Ren-Cang Li, June 1, 1996
                                        na.rcli@na-net.ornl.gov

Files in this directory:
=======================

   Maple Code:
   ----------

      Get_s7odr6    ---  Driver routine to get the schemes.

      s7odr6Eq      ---  Define determining equations.

      s7odr6Eq.sav  ---  A different way to define determining equations.

      Newton        ---  Newton iteration to compute a real root of a 
                         polynomial in one variable, given a initial interval
                         which contains exactly one real root.

      ToCheck         ---  Check residual errors of claimed solutions

   Output:  s7odr6 containng three schemes. The scheme 1 is the best.
   -------

To Run: 
=======

   After Maple prompt, type   read('Get_s7odr6');

Comments: The code as it is operate use 100 decimal digits, while only
          dump 20 decimal digits of final solutions. To change these,
          please go to Get_s7odr6, where 

              Digits    and   DumpDigits

          are initialized.
