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   551 times,
                agreed   537 times, and
           was smaller   912 times.


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


 The maximum relative error of     0.9721E-15 =    2 ** -49.87
    occurred for X = 0.376579E-02 and NU = 0.584930E+00
    with J(X,ALPHA) =  0.285525E-01
 The estimated loss of base   2 significant digits is   3.13


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


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   843 times,
                agreed   304 times, and
           was smaller   853 times.


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


 The maximum relative error of     0.9287E-14 =    2 ** -46.61
    occurred for X = 0.687462E+01 and NU = 0.977554E+00
    with J(X,ALPHA) = -0.328746E-01
 The estimated loss of base   2 significant digits is   6.39


 The root mean square relative error was     0.9261E-15 =    2 ** -49.94
 The estimated loss of base   2 significant digits is   3.06


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   914 times,
                agreed   168 times, and
           was smaller   918 times.


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


 The maximum relative error of     0.1857E-13 =    2 ** -45.61
    occurred for X = 0.163001E+02 and NU = 0.824536E+00
    with J(X,ALPHA) = -0.188656E-01
 The estimated loss of base   2 significant digits is   7.39


 The root mean square relative error was     0.1495E-14 =    2 ** -49.25
 The estimated loss of base   2 significant digits is   3.75


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   681 times,
                agreed   684 times, and
           was smaller   635 times.


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


 The maximum relative error of     0.1223E-14 =    2 ** -49.54
    occurred for X = 0.345833E+02 and NU = 0.269031E+00
    with J(X,ALPHA) = -0.510817E-01
 The estimated loss of base   2 significant digits is   3.46


 The root mean square relative error was     0.1907E-15 =    2 ** -52.22
 The estimated loss of base   2 significant digits is   0.78


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.999878E+04
 NCALC returned the value    2
 and RJBESL returned U(1) =  0.630030E-02

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

 This concludes the tests.
