1Test of I(X,ALPHA) vs Multiplication Theorem


   2000 Random arguments were tested from the interval ( 0.00, 2.00)


 I(X,ALPHA) was larger   608 times,
                agreed   493 times, and
           was smaller   899 times.


 There are  53 base   2 significant digits in a floating-point number


 The maximum relative error of     0.1101E-14 =    2 ** -49.69
    occurred for X = 0.169822E-01 and NU = 0.949422E+00
 The estimated loss of base   2 significant digits is   3.31


 The root mean square relative error was     0.2722E-15 =    2 ** -51.71
 The estimated loss of base   2 significant digits is   1.29


1Test of I(X,ALPHA) vs Taylor series


   2000 Random arguments were tested from the interval ( 2.00, 4.00)


 I(X,ALPHA) was larger   754 times,
                agreed   537 times, and
           was smaller   709 times.


 There are  53 base   2 significant digits in a floating-point number


 The maximum relative error of     0.9033E-15 =    2 ** -49.98
    occurred for X = 0.397328E+01 and NU = 0.884475E+00
 The estimated loss of base   2 significant digits is   3.02


 The root mean square relative error was     0.2430E-15 =    2 ** -51.87
 The estimated loss of base   2 significant digits is   1.13


1Test of I(X,ALPHA) vs Taylor series


   2000 Random arguments were tested from the interval ( 4.00,10.00)


 I(X,ALPHA) was larger   788 times,
                agreed   444 times, and
           was smaller   768 times.


 There are  53 base   2 significant digits in a floating-point number


 The maximum relative error of     0.1286E-14 =    2 ** -49.47
    occurred for X = 0.681570E+01 and NU = 0.936298E+00
 The estimated loss of base   2 significant digits is   3.53


 The root mean square relative error was     0.2716E-15 =    2 ** -51.71
 The estimated loss of base   2 significant digits is   1.29


1Test of I(X,ALPHA) vs Taylor series


   2000 Random arguments were tested from the interval (10.00,20.00)


 I(X,ALPHA) was larger   781 times,
                agreed   429 times, and
           was smaller   790 times.


 There are  53 base   2 significant digits in a floating-point number


 The maximum relative error of     0.1088E-14 =    2 ** -49.71
    occurred for X = 0.149562E+02 and NU = 0.629387E+00
 The estimated loss of base   2 significant digits is   3.29


 The root mean square relative error was     0.2988E-15 =    2 ** -51.57
 The estimated loss of base   2 significant digits is   1.43


1Check of Error Returns


 The following summarizes calls with indicated parameters

 NCALC different from MB indicates some form of error

 See documentation for RIBESL for details

       ARG            ALPHA      MB   IZ       RES      NCALC


  0.1000000E+01  0.1500000E+01    5    2  0.0000000E+00   -1


  0.1000000E+01  0.5000000E+00   -5    2  0.0000000E+00   -6


  0.1000000E+01  0.5000000E+00    5    5  0.0000000E+00   -1


  0.0000000E+00  0.7132123E+00    2    1  0.0000000E+00    2


  0.0000000E+00  0.0000000E+00    2    1  0.1000000E+01    2


  0.0000000E+00  0.1000000E+01    2    1  0.0000000E+00   -1


 RIBESL will be called with the argument-0.100000E+01
 This should trigger an error message.
 NCALC returned the value   -1
 and RIBESL returned the value 0.000000E+00

 Tests near the largest argument for scaled functions

 RIBESL will be called with the argument 0.999878E+04
 NCALC returned the value    2
 and RIBESL returned the value?????????????

 RIBESL will be called with the argument 0.100012E+05
 This should trigger an error message.
 NCALC returned the value   -1
 and RIBESL returned the value 0.000000E+00

 Tests near the largest argument for unscaled functions

 RIBESL will be called with the argument 0.708913E+03
 NCALC returned the value    2
 and RIBESL returned the value+++++++++++++

 RIBESL will be called with the argument 0.709087E+03
 This should trigger an error message.
 NCALC returned the value   -1
 and RIBESL returned the value 0.000000E+00

 This concludes the tests.
