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  1005 times,
                agreed   441 times, and
           was smaller   554 times.


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


 The maximum relative error of     0.7121E-06 =    2 ** -20.42
    occurred for X = 0.172809E+01 and NU = 0.685544E+00
 The estimated loss of base   2 significant digits is   3.58


 The root mean square relative error was     0.1785E-06 =    2 ** -22.42
 The estimated loss of base   2 significant digits is   1.58


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   815 times,
                agreed   390 times, and
           was smaller   795 times.


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


 The maximum relative error of     0.8016E-06 =    2 ** -20.25
    occurred for X = 0.355675E+01 and NU = 0.645535E-01
 The estimated loss of base   2 significant digits is   3.75


 The root mean square relative error was     0.2107E-06 =    2 ** -22.18
 The estimated loss of base   2 significant digits is   1.82


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   820 times,
                agreed   363 times, and
           was smaller   817 times.


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


 The maximum relative error of     0.9798E-06 =    2 ** -19.96
    occurred for X = 0.473083E+01 and NU = 0.946720E-01
 The estimated loss of base   2 significant digits is   4.04


 The root mean square relative error was     0.2359E-06 =    2 ** -22.02
 The estimated loss of base   2 significant digits is   1.98


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   807 times,
                agreed   390 times, and
           was smaller   803 times.


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


 The maximum relative error of     0.6836E-06 =    2 ** -20.48
    occurred for X = 0.127981E+02 and NU = 0.667159E+00
 The estimated loss of base   2 significant digits is   3.52


 The root mean square relative error was     0.1836E-06 =    2 ** -22.38
 The estimated loss of base   2 significant digits is   1.62


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.981419E+04
 NCALC returned the value    2
 and RIBESL returned the value?????????????

 RIBESL will be called with the argument 0.101858E+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.863648E+02
 NCALC returned the value    2
 and RIBESL returned the value 0.138202E+37

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

 This concludes the tests.
