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


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


 J(X,ALPHA) was larger   983 times,
                agreed   620 times, and
           was smaller   397 times.


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


 The maximum relative error of     0.4477E-06 =    2 ** -21.09
    occurred for X = 0.187580E+01 and NU = 0.423260E+00
    with J(X,ALPHA) =  0.532577E+00
 The estimated loss of base   2 significant digits is   2.91


 The root mean square relative error was     0.1191E-06 =    2 ** -23.00
 The estimated loss of base   2 significant digits is   1.00


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


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


 J(X,ALPHA) was larger   855 times,
                agreed   301 times, and
           was smaller   844 times.


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


 The maximum relative error of     0.4307E-05 =    2 ** -17.82
    occurred for X = 0.957727E+01 and NU = 0.668827E+00
    with J(X,ALPHA) =  0.263819E-01
 The estimated loss of base   2 significant digits is   6.18


 The root mean square relative error was     0.4454E-06 =    2 ** -21.10
 The estimated loss of base   2 significant digits is   2.90


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


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


 J(X,ALPHA) was larger   919 times,
                agreed   150 times, and
           was smaller   931 times.


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


 The maximum relative error of     0.2834E-04 =    2 ** -15.11
    occurred for X = 0.130244E+02 and NU = 0.728654E+00
    with J(X,ALPHA) =  0.241860E-01
 The estimated loss of base   2 significant digits is   8.89


 The root mean square relative error was     0.1114E-05 =    2 ** -19.78
 The estimated loss of base   2 significant digits is   4.22


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


   2000 Random arguments were tested from the interval (30.00,40.00)


 J(X,ALPHA) was larger   643 times,
                agreed   699 times, and
           was smaller   658 times.


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


 The maximum relative error of     0.9476E-06 =    2 ** -20.01
    occurred for X = 0.345835E+02 and NU = 0.269031E+00
    with J(X,ALPHA) = -0.511055E-01
 The estimated loss of base   2 significant digits is   3.99


 The root mean square relative error was     0.1061E-06 =    2 ** -23.17
 The estimated loss of base   2 significant digits is   0.83


1Check of Error Returns


 The following summarizes calls with indicated parameters

 NCALC different from MB indicates some form of error

 See documentation for RJBESL for details

       ARG            ALPHA      MB      B(1)      NCALC


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


  0.1000000E+01  0.5000000E+00    1  0.6713967E+00    1


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


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


 Tests near the largest acceptable argument for RJBESL

 RJBESL will be called with the argument 0.981419E+04
 NCALC returned the value    2
 and RJBESL returned U(1) = -0.119503E-02

 RJBESL will be called with the argument 0.101858E+05
 This should trigger an error message.
 NCALC returned the value   -1
 and RJBESL returned U(1) =  0.000000E+00

 This concludes the tests.
