16 June 2021 12:09:47.205 PM toms597_test(): FORTRAN77 version Test toms597(): 1TEST OF I(X,ALPHA) VS SERIES EXPANSION 2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL ( 0.0, 2.0) I(X,ALPHA) WAS LARGER 765 TIMES, AGREED 565 TIMES, AND WAS SMALLER 670 TIMES. THERE ARE 53 BASE 2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER THE MAXIMUM RELATIVE ERROR OF 0.2124E-14 = 2 ** -48.74 OCCURRED FOR X = 0.172002E+01 AND NU = 0.333546E-01 THE ESTIMATED LOSS OF BASE 2 SIGNIFICANT DIGITS IS 4.26 THE ROOT MEAN SQUARE RELATIVE ERROR WAS 0.5228E-15 = 2 ** -50.76 THE ESTIMATED LOSS OF BASE 2 SIGNIFICANT DIGITS IS 2.24 1TEST OF I(X,ALPHA) VS SERIES EXPANSION 2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL ( 2.0, 4.0) I(X,ALPHA) WAS LARGER 865 TIMES, AGREED 338 TIMES, AND WAS SMALLER 797 TIMES. THERE ARE 53 BASE 2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER THE MAXIMUM RELATIVE ERROR OF 0.2292E-14 = 2 ** -48.63 OCCURRED FOR X = 0.367452E+01 AND NU = 0.125949E+00 THE ESTIMATED LOSS OF BASE 2 SIGNIFICANT DIGITS IS 4.37 THE ROOT MEAN SQUARE RELATIVE ERROR WAS 0.8150E-15 = 2 ** -50.12 THE ESTIMATED LOSS OF BASE 2 SIGNIFICANT DIGITS IS 2.88 1TEST OF I(X,ALPHA) VS SERIES EXPANSION 2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL ( 4.0, 10.0) I(X,ALPHA) WAS LARGER 885 TIMES, AGREED 273 TIMES, AND WAS SMALLER 842 TIMES. THERE ARE 53 BASE 2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER THE MAXIMUM RELATIVE ERROR OF 0.4425E-14 = 2 ** -47.68 OCCURRED FOR X = 0.893431E+01 AND NU = 0.491335E-01 THE ESTIMATED LOSS OF BASE 2 SIGNIFICANT DIGITS IS 5.32 THE ROOT MEAN SQUARE RELATIVE ERROR WAS 0.1381E-14 = 2 ** -49.36 THE ESTIMATED LOSS OF BASE 2 SIGNIFICANT DIGITS IS 3.64 1TEST OF EXP(-X)*I(X,0.5) VS 1/SQRT(2*X*PI) 2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL ( 20.0, 30.0) I(X,ALPHA) WAS LARGER 267 TIMES, AGREED 612 TIMES, AND WAS SMALLER 1121 TIMES. THERE ARE 53 BASE 2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER THE MAXIMUM RELATIVE ERROR OF 0.7387E-15 = 2 ** -50.27 OCCURRED FOR X = 0.281843E+02 AND NU = 0.500000E+00 THE ESTIMATED LOSS OF BASE 2 SIGNIFICANT DIGITS IS 2.73 THE ROOT MEAN SQUARE RELATIVE ERROR WAS 0.2156E-15 = 2 ** -52.04 THE ESTIMATED LOSS OF BASE 2 SIGNIFICANT DIGITS IS 0.96 1CHECK OF ERROR RETURNS THE FOLLOWING SUMMARIZES CALLS WITH INDICATED PARAMETERS NCALC DIFFERENT FROM NB INDICATES SOME FORM OF ERROR SEE DOCUMENTATION FOR RIBESL FOR DETAILS ARG ALPHA NB IZ RES NCALC 0.1000000E+01 0.5000000E+00 5 1 0.9376749E+00 5 -0.1000000E+01 0.5000000E+00 5 1 0.0000000E+00 -1 0.1000000E+01 0.1500000E+01 5 1 0.0000000E+00 -1 0.1000000E+01 0.5000000E+00 -5 1 0.0000000E+00 -6 0.1000000E+01 0.5000000E+00 5 5 0.0000000E+00 -1 0.4940656-323 0.0000000E+00 150 1 0.1000000E+01 1 0.3000000E+02 0.0000000E+00 150 1 0.7816723E+12 78 Infinity 0.0000000E+00 150 1 0.0000000E+00 -1 toms597_test(): Normal end of execution. 16 June 2021 12:09:47.212 PM