1IBETA (floating-point base)                                   2
 IT (number of significand digits)                            24
 IRND (0: chops, >=1: rounds)                                  2
 NGRD (number of guard digits)                                 0
 MACHEP (see MACHAR)                                         -23
 NEGEPS (see MACHAR)                                         -24
 IEXP (number of exponent bits)                                8
 MINEXP (exponent of min fp number)                         -126
 MAXEXP (exponent of max fp number)                          128
 EPS (machine epsilon: 1 + e .ne. 1)              1.19209290E-07
 EPSNEG (machine epsilon: 1 - e .ne. 1)           5.96046448E-08
 XMIN (smallest fp number)                        1.17549435E-38
 XMAX (largest fp number)                         3.40282347E+38
1TEST OF ALOG(X) VS T.S. EXPANSION OF ALOG(1+Y)


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (1-EPS,1+EPS), WHERE EPS =     0.3906E-02


 ALOG(X) WAS LARGER     0 TIMES,
             AGREED  2000 TIMES, AND
        WAS SMALLER     0 TIMES.


 THERE ARE  24 BASE   2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER


 THE MAXIMUM RELATIVE ERROR OF     0.0000E+00 =    2 **-999.00
    OCCURRED FOR X =     0.000000E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.0000E+00 =    2 **-999.00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1TEST OF ALOG(X) VS ALOG(17X/16)-ALOG(17/16)


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.7071E+00,     0.9375E+00)


 ALOG(X) WAS LARGER     0 TIMES,
             AGREED  1435 TIMES, AND
        WAS SMALLER   565 TIMES.


 THERE ARE  24 BASE   2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER


 THE MAXIMUM RELATIVE ERROR OF     0.1192E-06 =    2 ** -23.00
    OCCURRED FOR X =     0.778760E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.4574E-07 =    2 ** -24.38
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1TEST OF ALOG10(X) VS ALOG10(11X/10)-ALOG10(11/10)


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.3162E+00,     0.9000E+00)


 ALOG10(X) WAS LARGER     0 TIMES,
               AGREED   830 TIMES, AND
          WAS SMALLER  1170 TIMES.


 THERE ARE  24 BASE   2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER


 THE MAXIMUM RELATIVE ERROR OF     0.3167E-06 =    2 ** -21.59
    OCCURRED FOR X =     0.897323E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   2.41


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.8450E-07 =    2 ** -23.50
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.50


1TEST OF ALOG(X*X) VS 2 * LOG(X)


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.1600E+02,     0.2400E+03)


 ALOG(X) WAS LARGER    41 TIMES,
             AGREED  1959 TIMES, AND
        WAS SMALLER     0 TIMES.


 THERE ARE  24 BASE   2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER


 THE MAXIMUM RELATIVE ERROR OF     0.1161E-06 =    2 ** -23.04
    OCCURRED FOR X =     0.608175E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.96


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1255E-07 =    2 ** -26.25
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1SPECIAL TESTS


 THE IDENTITY  ALOG(X) = -ALOG(1/X)  WILL BE TESTED.

        X         F(X) + F(1/X)

  0.1511114E+02 -0.2384186E-06

  0.1689214E+02  0.0000000E+00

  0.1551779E+02  0.0000000E+00

  0.1572357E+02  0.0000000E+00

  0.1544667E+02  0.0000000E+00



 TEST OF SPECIAL ARGUMENTS


 ALOG(1.0) =   0.0000000E+00


 ALOG(XMIN) = ALOG(  0.1175494E-37) =  -0.8733655E+02


 ALOG(XMAX) = ALOG(  0.3402823E+39) =   0.8872284E+02


1TEST OF ERROR RETURNS


 ALOG WILL BE CALLED WITH THE ARGUMENT    -0.2000E+01
 THIS SHOULD TRIGGER AN ERROR MESSAGE


 ALOG RETURNED THE VALUE            NaN



 ALOG WILL BE CALLED WITH THE ARGUMENT     0.0000E+00
 THIS SHOULD TRIGGER AN ERROR MESSAGE


 ALOG RETURNED THE VALUE      -Infinity



 THIS CONCLUDES THE TESTS
1TEST OF ASIN(X) VS TAYLOR SERIES


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (    -0.1250E+00,     0.1250E+00)


 ASIN(X) WAS LARGER   494 TIMES,
             AGREED  1059 TIMES, AND
        WAS SMALLER   447 TIMES.


 THERE ARE  24 BASE   2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER


 THE MAXIMUM RELATIVE ERROR OF     0.1192E-06 =    2 ** -23.00
    OCCURRED FOR X =    -0.781244E-02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.5786E-07 =    2 ** -24.04
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1TEST OF ACOS(X) VS TAYLOR SERIES


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (    -0.1250E+00,     0.1250E+00)


 ACOS(X) WAS LARGER   484 TIMES,
             AGREED  1014 TIMES, AND
        WAS SMALLER   502 TIMES.


 THERE ARE  24 BASE   2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER


 THE MAXIMUM RELATIVE ERROR OF     0.8246E-07 =    2 ** -23.53
    OCCURRED FOR X =     0.124868E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.47


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.5351E-07 =    2 ** -24.16
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1TEST OF ASIN(X) VS TAYLOR SERIES


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.7500E+00,     0.1000E+01)


 ASIN(X) WAS LARGER   324 TIMES,
             AGREED  1355 TIMES, AND
        WAS SMALLER   321 TIMES.


 THERE ARE  24 BASE   2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER


 THE MAXIMUM RELATIVE ERROR OF     0.1188E-06 =    2 ** -23.00
    OCCURRED FOR X =     0.843106E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.5183E-07 =    2 ** -24.20
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1TEST OF ACOS(X) VS TAYLOR SERIES


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.7500E+00,     0.1000E+01)


 ACOS(X) WAS LARGER   386 TIMES,
             AGREED  1233 TIMES, AND
        WAS SMALLER   381 TIMES.


 THERE ARE  24 BASE   2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER


 THE MAXIMUM RELATIVE ERROR OF     0.1186E-06 =    2 ** -23.01
    OCCURRED FOR X =     0.876389E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.99


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.5545E-07 =    2 ** -24.10
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1TEST OF ACOS(X) VS TAYLOR SERIES


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (    -0.1000E+01,    -0.7500E+00)


 ACOS(X) WAS LARGER   410 TIMES,
             AGREED  1216 TIMES, AND
        WAS SMALLER   374 TIMES.


 THERE ARE  24 BASE   2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER


 THE MAXIMUM RELATIVE ERROR OF     0.9856E-07 =    2 ** -23.27
    OCCURRED FOR X =    -0.750104E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.73


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.5612E-07 =    2 ** -24.09
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1SPECIAL TESTS


 THE IDENTITY  ASIN(-X) = -ASIN(X)  WILL BE TESTED.

        X         F(X) + F(-X)

 -0.3638713E+00  0.0000000E+00

 -0.4839116E+00  0.0000000E+00

 -0.4889470E+00  0.0000000E+00

 -0.1183719E+00  0.0000000E+00

 -0.7964936E+00  0.0000000E+00

 THE IDENTITY ASIN(X) = X , X SMALL, WILL BE TESTED.

        X         X - F(X)

  0.3348048E-07  0.0000000E+00

  0.1674024E-07  0.0000000E+00

  0.8370120E-08  0.0000000E+00

  0.4185060E-08  0.0000000E+00

  0.2092530E-08  0.0000000E+00

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

       ASIN( 0.356998E-28) = 0.356998E-28

1TEST OF ERROR RETURNS


 ASIN WILL BE CALLED WITH THE ARGUMENT     0.1200E+01
 THIS SHOULD TRIGGER AN ERROR MESSAGE


 ASIN RETURNED THE VALUE            NaN



 THIS CONCLUDES THE TESTS
1TEST OF ATAN(X) VS TRUNCATED TAYLOR SERIES


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (    -0.6250E-01,     0.6250E-01)


 ATAN(X) WAS LARGER     3 TIMES,
             AGREED  1997 TIMES, AND
        WAS SMALLER     0 TIMES.


 THERE ARE  24 BASE   2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER


 THE MAXIMUM RELATIVE ERROR OF     0.9153E-07 =    2 ** -23.38
    OCCURRED FOR X =     0.407246E-01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.62


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.2898E-08 =    2 ** -28.36
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1TEST OF ATAN(X) VS ATAN(1/16) + ATAN((X-1/16)/(1+X/16))    


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.6250E-01,     0.2679E+00)


 ATAN(X) WAS LARGER   418 TIMES,
             AGREED  1399 TIMES, AND
        WAS SMALLER   183 TIMES.


 THERE ARE  24 BASE   2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER


 THE MAXIMUM RELATIVE ERROR OF     0.1191E-06 =    2 ** -23.00
    OCCURRED FOR X =     0.255558E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.4666E-07 =    2 ** -24.35
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1TEST OF 2*ATAN(X) VS ATAN(2X/(1-X*X))  


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.2679E+00,     0.4142E+00)


 ATAN(X) WAS LARGER   254 TIMES,
             AGREED  1459 TIMES, AND
        WAS SMALLER   287 TIMES.


 THERE ARE  24 BASE   2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER


 THE MAXIMUM RELATIVE ERROR OF     0.1135E-06 =    2 ** -23.07
    OCCURRED FOR X =     0.268896E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.93


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.4766E-07 =    2 ** -24.32
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1TEST OF 2*ATAN(X) VS ATAN(2X/(1-X*X))  


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.4142E+00,     0.1000E+01)


 ATAN(X) WAS LARGER   133 TIMES,
             AGREED  1740 TIMES, AND
        WAS SMALLER   127 TIMES.


 THERE ARE  24 BASE   2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER


 THE MAXIMUM RELATIVE ERROR OF     0.1189E-06 =    2 ** -23.00
    OCCURRED FOR X =     0.548142E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.3038E-07 =    2 ** -24.97
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1SPECIAL TESTS


 THE IDENTITY   ATAN(-X) = -ATAN(X)   WILL BE TESTED.

        X         F(X) + F(-X)

  0.3617411E+01  0.0000000E+00

  0.2176353E+01  0.0000000E+00

  0.2044134E+01  0.0000000E+00

  0.5168115E+00  0.0000000E+00

  0.4601443E+01  0.0000000E+00

 THE IDENTITY ATAN(X) = X , X SMALL, WILL BE TESTED.

        X         X - F(X)

  0.2150919E-08  0.0000000E+00

  0.1075460E-08  0.0000000E+00

  0.5377298E-09  0.0000000E+00

  0.2688649E-09  0.0000000E+00

  0.1344325E-09  0.0000000E+00

 THE IDENTITY ATAN(X/Y) = ATAN2(X,Y) WILL BE TESTED
 THE FIRST COLUMN OF RESULTS SHOULD BE 0, THE SECOND +-PI

        X             Y     F1(X/Y)-F2(X,Y)F1(X/Y)-F2(X/(-Y))

  0.4321790E-01  0.8505591E+00  0.0000000E+00 -0.3141593E+01

 -0.7204334E+00  0.9864566E+00  0.0000000E+00  0.3141593E+01

 -0.7716829E+00  0.3849098E+00  0.0000000E+00  0.3141593E+01

 -0.1545089E+01  0.2159743E+00  0.0000000E+00  0.3141593E+01

  0.1987153E+01  0.5985181E+00  0.0000000E+00 -0.3141593E+01

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

       ATAN( 0.356998E-28) = 0.356998E-28

1TEST OF ERROR RETURNS


 ATAN WILL BE CALLED WITH THE ARGUMENT  0.3402823E+39
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE

       ATAN( 0.340282E+39) = 0.157080E+01

 ATAN2 WILL BE CALLED WITH THE ARGUMENTS
  0.1000000E+01  0.0000000E+00
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE

       ATAN2( 0.100000E+01 0.000000E+00) = 0.157080E+01

 ATAN2 WILL BE CALLED WITH THE ARGUMENTS
  0.1175494E-37  0.3402823E+39
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE

       ATAN2( 0.117549E-37 0.340282E+39) = 0.000000E+00

 ATAN2 WILL BE CALLED WITH THE ARGUMENTS
  0.3402823E+39  0.1175494E-37
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE

       ATAN2( 0.340282E+39 0.117549E-37) = 0.157080E+01

 ATAN2 WILL BE CALLED WITH THE ARGUMENTS
  0.0000000E+00  0.0000000E+00
 THIS SHOULD TRIGGER AN ERROR MESSAGE


       ATAN2( 0.000000E+00 0.000000E+00) = 0.000000E+00

 THIS CONCLUDES THE TESTS
1TEST OF EXP(X- 0.0625) VS EXP(X)/EXP( 0.0625)


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (    -0.2841E+00,     0.3466E+00)


 EXP(X-V) WAS LARGER   255 TIMES,
              AGREED  1512 TIMES, AND
         WAS SMALLER   233 TIMES.


 THERE ARE  24 BASE   2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER


 THE MAXIMUM RELATIVE ERROR OF     0.1189E-06 =    2 ** -23.00
    OCCURRED FOR X =     0.652217E-01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.4259E-07 =    2 ** -24.48
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1TEST OF EXP(X- 2.8125) VS EXP(X)/EXP( 2.8125)


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (    -0.3466E+01,    -0.6931E+02)


 EXP(X-V) WAS LARGER   243 TIMES,
              AGREED  1489 TIMES, AND
         WAS SMALLER   268 TIMES.


 THERE ARE  24 BASE   2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER


 THE MAXIMUM RELATIVE ERROR OF     0.1190E-06 =    2 ** -23.00
    OCCURRED FOR X =    -0.318433E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.4384E-07 =    2 ** -24.44
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1TEST OF EXP(X- 2.8125) VS EXP(X)/EXP( 2.8125)


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.6931E+01,     0.8862E+02)


 EXP(X-V) WAS LARGER   262 TIMES,
              AGREED  1467 TIMES, AND
         WAS SMALLER   271 TIMES.


 THERE ARE  24 BASE   2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER


 THE MAXIMUM RELATIVE ERROR OF     0.1188E-06 =    2 ** -23.01
    OCCURRED FOR X =     0.766825E+01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.99


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.4485E-07 =    2 ** -24.41
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1SPECIAL TESTS


 THE IDENTITY  EXP(X)*EXP(-X) = 1.0  WILL BE TESTED.

        X         F(X)*F(-X) - 1

  0.4172930E+00  0.0000000E+00

  0.1616278E+00  0.0000000E+00

  0.2034688E+00 -0.5960464E-07

  0.1433597E+01  0.0000000E+00

  0.1199615E+01 -0.5960464E-07



 TEST OF SPECIAL ARGUMENTS


 EXP(0.0) - 1.0E0 =   0.0000000E+00

 EXP(-0.870000E+02) = 0.164581E-37

 EXP( 0.880000E+02) = 0.165164E+39

0IF EXP( 0.440000E+02) =  0.128516E+20 IS NOT ABOUT
 EXP( 0.220000E+02)**2 =  0.128516E+20 THERE IS AN ARG RED ERROR
1TEST OF ERROR RETURNS


0EXP WILL BE CALLED WITH THE ARGUMENT    -0.9223E+19
 THIS SHOULD TRIGGER AN ERROR MESSAGE


 EXP RETURNED THE VALUE     0.0000E+00



0EXP WILL BE CALLED WITH THE ARGUMENT     0.9223E+19
 THIS SHOULD TRIGGER AN ERROR MESSAGE


 EXP RETURNED THE VALUE       Infinity



 THIS CONCLUDES THE TESTS
1TEST OF X**1.0 VS X


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.5000E+00,     0.1000E+01)


 X**1.0 WAS LARGER     0 TIMES,
            AGREED  2000 TIMES, AND
       WAS SMALLER     0 TIMES.


 THERE ARE  24 BASE   2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER


 THE MAXIMUM RELATIVE ERROR OF     0.0000E+00 =    2 **-999.00
    OCCURRED FOR X =     0.000000E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.0000E+00 =    2 **-999.00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1TEST OF XSQ**1.5 VS XSQ*X


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.5000E+00,     0.1000E+01)


 X**1.5 WAS LARGER     5 TIMES,
            AGREED  1988 TIMES, AND
       WAS SMALLER     7 TIMES.


 THERE ARE  24 BASE   2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER


 THE MAXIMUM RELATIVE ERROR OF     0.1075E-06 =    2 ** -23.15
    OCCURRED FOR X =     0.517578E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.85


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.6401E-08 =    2 ** -27.22
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1TEST OF XSQ**1.5 VS XSQ*X


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.1000E+01,     0.6981E+13)


 X**1.5 WAS LARGER    12 TIMES,
            AGREED  1976 TIMES, AND
       WAS SMALLER    12 TIMES.


 THERE ARE  24 BASE   2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER


 THE MAXIMUM RELATIVE ERROR OF     0.1151E-06 =    2 ** -23.05
    OCCURRED FOR X =     0.444959E+13
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.95


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.9347E-08 =    2 ** -26.67
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1TEST OF X**Y VS XSQ**(Y/2)


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE REGION
      X IN (     0.1000E-01,     0.1000E+02), Y IN (    -0.1927E+02,     0.1927E+02)


  X**Y  WAS LARGER     0 TIMES,
            AGREED  2000 TIMES, AND
       WAS SMALLER     0 TIMES.


 THERE ARE  24 BASE   2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER


 THE MAXIMUM RELATIVE ERROR OF     0.0000E+00 =    2 **-999.00
    OCCURRED FOR X =     0.000000E+00 Y =     0.000000E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.0000E+00 =    2 **-999.00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1SPECIAL TESTS


 THE IDENTITY  X ** Y = (1/X) ** (-Y)  WILL BE TESTED.

        X              Y         (X**Y-(1/X)**(-Y) / X**Y

  0.3429194E+01  0.4649270E+01        0.9915110E-07

  0.7158762E+01  0.1084530E+02        0.4115128E-06

  0.1663064E+01  0.3882931E+01        0.0000000E+00

  0.1366361E+01  0.6795137E+01        0.2286883E-06

  0.5392149E+01  0.1001862E+02        0.0000000E+00

1TEST OF ERROR RETURNS


 ( 0.2000000E+01 ) ** (-0.1260000E+03 ) WILL BE COMPUTED.
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE


 THE VALUE RETURNED IS     0.1175E-37



 ( 0.2000000E+01 ) ** ( 0.1270000E+03 ) WILL BE COMPUTED.
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE


 THE VALUE RETURNED IS     0.1701E+39



 ( 0.0000000E+00 ) ** ( 0.2000000E+01 ) WILL BE COMPUTED.
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE


 THE VALUE RETURNED IS     0.0000E+00



 (-0.2000000E+01 ) ** ( 0.0000000E+00 ) WILL BE COMPUTED.
 THIS SHOULD TRIGGER AN ERROR MESSAGE


 THE VALUE RETURNED IS     0.1000E+01



 (-0.2000000E+01 ) ** ( 0.2000000E+01 ) WILL BE COMPUTED.
 THIS SHOULD TRIGGER AN ERROR MESSAGE


 THE VALUE RETURNED IS     0.4000E+01



 ( 0.0000000E+00 ) ** ( 0.0000000E+00 ) WILL BE COMPUTED.
 THIS SHOULD TRIGGER AN ERROR MESSAGE


 THE VALUE RETURNED IS     0.1000E+01



 THIS CONCLUDES THE TESTS
1TEST OF SIN(X) VS 3*SIN(X/3)-4*SIN(X/3)**3


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.0000E+00,     0.1571E+01)


 SIN(X) WAS LARGER   458 TIMES,
            AGREED  1168 TIMES, AND
       WAS SMALLER   374 TIMES.


 THERE ARE  24 BASE   2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER


 THE MAXIMUM RELATIVE ERROR OF     0.1478E-06 =    2 ** -22.69
    OCCURRED FOR X =     0.938275E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.31


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.4981E-07 =    2 ** -24.26
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1TEST OF SIN(X) VS 3*SIN(X/3)-4*SIN(X/3)**3


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.1885E+02,     0.2042E+02)


 SIN(X) WAS LARGER   440 TIMES,
            AGREED  1196 TIMES, AND
       WAS SMALLER   364 TIMES.


 THERE ARE  24 BASE   2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER


 THE MAXIMUM RELATIVE ERROR OF     0.1570E-06 =    2 ** -22.60
    OCCURRED FOR X =     0.197117E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.40


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.4947E-07 =    2 ** -24.27
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1TEST OF COS(X) VS 4*COS(X/3)**3-3*COS(X/3)


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.2199E+02,     0.2356E+02)


 COS(X) WAS LARGER   485 TIMES,
            AGREED  1154 TIMES, AND
       WAS SMALLER   361 TIMES.


 THERE ARE  24 BASE   2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER


 THE MAXIMUM RELATIVE ERROR OF     0.1592E-06 =    2 ** -22.58
    OCCURRED FOR X =     0.227157E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.42


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.5099E-07 =    2 ** -24.23
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1SPECIAL TESTS


 IF  0.100000E+01 IS NOT ALMOST 1.0E0,    SIN HAS THE WRONG PERIOD.


 THE IDENTITY   SIN(-X) = -SIN(X)   WILL BE TESTED.

        X         F(X) + F(-X)

  0.7988396E+01  0.0000000E+00

  0.1837256E+02  0.0000000E+00

  0.1577381E+02  0.0000000E+00

  0.1137237E+02  0.0000000E+00

  0.7829143E+01  0.0000000E+00

 THE IDENTITY SIN(X) = X , X SMALL, WILL BE TESTED.

        X         X - F(X)

  0.5475400E-07  0.0000000E+00

  0.2737700E-07  0.0000000E+00

  0.1368850E-07  0.0000000E+00

  0.6844250E-08  0.0000000E+00

  0.3422125E-08  0.0000000E+00

 THE IDENTITY   COS(-X) = COS(X)   WILL BE TESTED.

        X         F(X) - F(-X)

  0.1559717E+02  0.0000000E+00

  0.8141365E+01  0.0000000E+00

  0.1864421E+02  0.0000000E+00

  0.1203059E+02  0.0000000E+00

  0.1470889E+02  0.0000000E+00

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

       SIN( 0.356998E-28) = 0.356998E-28
 THE FOLLOWING THREE LINES ILLUSTRATE THE LOSS IN SIGNIFICANCE
 FOR LARGE ARGUMENTS.  THE ARGUMENTS ARE CONSECUTIVE.

       SIN( 0.409600E+04) =-0.594838E+00

       SIN( 0.409600E+04) =-0.594642E+00

       SIN( 0.409600E+04) =-0.594249E+00
1TEST OF ERROR RETURNS


 SIN WILL BE CALLED WITH THE ARGUMENT     0.1678E+08
 THIS SHOULD TRIGGER AN ERROR MESSAGE


 SIN RETURNED THE VALUE     0.0000E+00



 THIS CONCLUDES THE TESTS
1TEST OF SINH(X) VS T.S. EXPANSION OF SINH(X)


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.0000E+00,     0.5000E+00)


 SINH(X) WAS LARGER     9 TIMES,
             AGREED  1986 TIMES, AND
        WAS SMALLER     5 TIMES.


 THERE ARE  24 BASE   2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER


 THE MAXIMUM RELATIVE ERROR OF     0.1188E-06 =    2 ** -23.01
    OCCURRED FOR X =     0.482886E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.99


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.6796E-08 =    2 ** -27.13
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1TEST OF COSH(X) VS T.S. EXPANSION OF COSH(X)


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.0000E+00,     0.5000E+00)


 COSH(X) WAS LARGER    19 TIMES,
             AGREED  1961 TIMES, AND
        WAS SMALLER    20 TIMES.


 THERE ARE  24 BASE   2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER


 THE MAXIMUM RELATIVE ERROR OF     0.1188E-06 =    2 ** -23.01
    OCCURRED FOR X =     0.872198E-01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.99


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1565E-07 =    2 ** -25.93
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1TEST OF SINH(X) VS C*(SINH(X+1)+SINH(X-1))


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.3000E+01,     0.8872E+02)


 SINH(X) WAS LARGER    42 TIMES,
             AGREED   900 TIMES, AND
        WAS SMALLER  1058 TIMES.


 THERE ARE  24 BASE   2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER


 THE MAXIMUM RELATIVE ERROR OF     0.1824E-06 =    2 ** -22.39
    OCCURRED FOR X =     0.134377E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.61


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.6790E-07 =    2 ** -23.81
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.19


1TEST OF COSH(X) VS C*(COSH(X+1)+COSH(X-1))


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.3000E+01,     0.8872E+02)


 COSH(X) WAS LARGER    51 TIMES,
             AGREED   902 TIMES, AND
        WAS SMALLER  1047 TIMES.


 THERE ARE  24 BASE   2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER


 THE MAXIMUM RELATIVE ERROR OF     0.1816E-06 =    2 ** -22.39
    OCCURRED FOR X =     0.633484E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.61


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.6910E-07 =    2 ** -23.79
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.21


1SPECIAL TESTS


 THE IDENTITY  SINH(-X) = -SINH(X)  WILL BE TESTED.

        X         F(X) + F(-X)

  0.4758721E+00  0.0000000E+00

  0.2484013E+01  0.0000000E+00

  0.1501598E+01  0.0000000E+00

  0.1699758E+01  0.0000000E+00

  0.2469687E+01  0.0000000E+00

 THE IDENTITY SINH(X) = X , X SMALL, WILL BE TESTED.

        X         X - F(X)

  0.5385918E-07  0.0000000E+00

  0.2692959E-07  0.0000000E+00

  0.1346480E-07  0.0000000E+00

  0.6732398E-08  0.0000000E+00

  0.3366199E-08  0.0000000E+00

 THE IDENTITY  COSH(-X) = COSH(X)  WILL BE TESTED.

        X         F(X) - F(-X)

  0.2852678E+01  0.0000000E+00

  0.2584760E+01  0.0000000E+00

  0.2094970E+01  0.0000000E+00

  0.8712769E+00  0.0000000E+00

  0.9096088E+00  0.0000000E+00

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

       SINH( 0.356998E-28) = 0.356998E-28

1TEST OF ERROR RETURNS


 SINH WILL BE CALLED WITH THE ARGUMENT     0.8885E+02
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE


 SINH RETURNED THE VALUE     0.1928E+39



0SINH WILL BE CALLED WITH THE ARGUMENT     0.1678E+08
 THIS SHOULD TRIGGER AN ERROR MESSAGE


 SINH RETURNED THE VALUE       Infinity



 THIS CONCLUDES THE TESTS
1TEST OF SQRT(X*X) - X


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.7071E+00,     0.1000E+01)


 SQRT(X) WAS LARGER     0 TIMES,
             AGREED  2000 TIMES, AND
        WAS SMALLER     0 TIMES.


 THERE ARE  24 BASE   2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER


 THE MAXIMUM RELATIVE ERROR OF     0.0000E+00 =    2 **-999.00
    OCCURRED FOR X =     0.000000E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.0000E+00 =    2 **-999.00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1TEST OF SQRT(X*X) - X


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.1000E+01,     0.1414E+01)


 SQRT(X) WAS LARGER     0 TIMES,
             AGREED  2000 TIMES, AND
        WAS SMALLER     0 TIMES.


 THERE ARE  24 BASE   2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER


 THE MAXIMUM RELATIVE ERROR OF     0.0000E+00 =    2 **-999.00
    OCCURRED FOR X =     0.000000E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.0000E+00 =    2 **-999.00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1TEST OF SPECIAL ARGUMENTS


 SQRT(XMIN) = SQRT(  0.1175494E-37) =   0.1084202E-18


 SQRT(1-EPSNEG) = SQRT(1-  0.5960464E-07) =   0.9999999E+00


 SQRT(1.0) = SQRT(  0.1000000E+01) =   0.1000000E+01


 SQRT(1+EPS) = SQRT(1+  0.1192093E-06) =   0.1000000E+01


 SQRT(XMAX) = SQRT(  0.3402823E+39) =   0.1844674E+20


1TEST OF ERROR RETURNS


 SQRT WILL BE CALLED WITH THE ARGUMENT     0.0000E+00
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE


 SQRT RETURNED THE VALUE     0.0000E+00



0SQRT WILL BE CALLED WITH THE ARGUMENT    -0.1000E+01
 THIS SHOULD TRIGGER AN ERROR MESSAGE


 SQRT RETURNED THE VALUE            NaN



 THIS CONCLUDES THE TESTS
1TEST OF TAN(X) VS 2*TAN(X/2)/(1-TAN(X/2)**2)


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.0000E+00,     0.7854E+00)


 TAN(X) WAS LARGER   450 TIMES,
            AGREED  1036 TIMES, AND
       WAS SMALLER   514 TIMES.


 THERE ARE  24 BASE   2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER


 THE MAXIMUM RELATIVE ERROR OF     0.2306E-06 =    2 ** -22.05
    OCCURRED FOR X =     0.322932E-01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.95


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.6390E-07 =    2 ** -23.90
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.10


1TEST OF TAN(X) VS 2*TAN(X/2)/(1-TAN(X/2)**2)


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.2749E+01,     0.3534E+01)


 TAN(X) WAS LARGER   361 TIMES,
            AGREED  1235 TIMES, AND
       WAS SMALLER   404 TIMES.


 THERE ARE  24 BASE   2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER


 THE MAXIMUM RELATIVE ERROR OF     0.1375E-06 =    2 ** -22.79
    OCCURRED FOR X =     0.316867E+01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.21


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.5264E-07 =    2 ** -24.18
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1TEST OF TAN(X) VS 2*TAN(X/2)/(1-TAN(X/2)**2)


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.1885E+02,     0.1963E+02)


 TAN(X) WAS LARGER   441 TIMES,
            AGREED  1064 TIMES, AND
       WAS SMALLER   495 TIMES.


 THERE ARE  24 BASE   2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER


 THE MAXIMUM RELATIVE ERROR OF     0.2270E-06 =    2 ** -22.07
    OCCURRED FOR X =     0.189801E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.93


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.6232E-07 =    2 ** -23.94
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.06


1TEST OF COT(X) VS (COT(X/2)**2-1)/(2*COT(X/2))


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.1885E+02,     0.1963E+02)


 COT(X) WAS LARGER   527 TIMES,
            AGREED   989 TIMES, AND
       WAS SMALLER   484 TIMES.


 THERE ARE  24 BASE   2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER


 THE MAXIMUM RELATIVE ERROR OF     0.2143E-06 =    2 ** -22.15
    OCCURRED FOR X =     0.193894E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.85


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.6907E-07 =    2 ** -23.79
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.21


1SPECIAL TESTS


 THE IDENTITY  TAN(-X) = -TAN(X)  WILL BE TESTED.

        X         F(X) + F(-X)

  0.1583949E+02  0.0000000E+00

  0.7335019E+00  0.0000000E+00

  0.1628951E+02  0.0000000E+00

  0.4370002E+00  0.0000000E+00

  0.1692591E+02  0.0000000E+00

 THE IDENTITY TAN(X) = X , X SMALL, WILL BE TESTED.

        X         X - F(X)

  0.1451136E-07  0.0000000E+00

  0.7255678E-08  0.0000000E+00

  0.3627839E-08  0.0000000E+00

  0.1813919E-08  0.0000000E+00

  0.9069597E-09  0.0000000E+00

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

       TAN( 0.356998E-28) = 0.356998E-28

 THE RELATIVE ERROR IN TAN(11) IS -0.2215876E-07 =    2 ** -25.43 WHERE

       TAN( 0.110000E+02) =-0.225951E+03

 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1TEST OF ERROR RETURNS


 TAN WILL BE CALLED WITH THE ARGUMENT     0.4096E+04
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE


 TAN RETURNED THE VALUE    -0.7396E+00



0TAN WILL BE CALLED WITH THE ARGUMENT     0.1678E+08
 THIS SHOULD TRIGGER AN ERROR MESSAGE


 TAN RETURNED THE VALUE    -0.1245E+01



 THIS CONCLUDES THE TESTS
1TEST OF TANH(X) VS (TANH(X-1/8)+TANH(1/8))/(1+TANH(X-1/8)TANH(1/8))  


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.1250E+00,     0.5493E+00)


 TANH(X) WAS LARGER   633 TIMES,
             AGREED  1067 TIMES, AND
        WAS SMALLER   300 TIMES.


 THERE ARE  24 BASE   2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER


 THE MAXIMUM RELATIVE ERROR OF     0.2099E-06 =    2 ** -22.18
    OCCURRED FOR X =     0.142935E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.82


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.5731E-07 =    2 ** -24.06
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1TEST OF TANH(X) VS (TANH(X-1/8)+TANH(1/8))/(1+TANH(X-1/8)TANH(1/8))  


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.6743E+00,     0.9357E+01)


 TANH(X) WAS LARGER   256 TIMES,
             AGREED   879 TIMES, AND
        WAS SMALLER   865 TIMES.


 THERE ARE  24 BASE   2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER


 THE MAXIMUM RELATIVE ERROR OF     0.1453E-06 =    2 ** -22.71
    OCCURRED FOR X =     0.115813E+01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.29


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.5373E-07 =    2 ** -24.15
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1SPECIAL TESTS


 THE IDENTITY   TANH(-X) = -TANH(X)   WILL BE TESTED.

        X         F(X) + F(-X)

  0.8272786E+00  0.0000000E+00

  0.4098293E+00  0.0000000E+00

  0.2286662E+00  0.0000000E+00

  0.5832699E+00  0.0000000E+00

  0.9087355E+00  0.0000000E+00

 THE IDENTITY TANH(X) = X , X SMALL, WILL BE TESTED.

        X         X - F(X)

  0.3528241E-07  0.0000000E+00

  0.1764120E-07  0.0000000E+00

  0.8820602E-08  0.0000000E+00

  0.4410301E-08  0.0000000E+00

  0.2205151E-08  0.0000000E+00

 THE IDENTITY TANH(X) = 1 , X LARGE, WILL BE TESTED.

        X         1 - F(X)

  0.9357487E+01  0.0000000E+00

  0.1335749E+02  0.0000000E+00

  0.1735749E+02  0.0000000E+00

  0.2135749E+02  0.0000000E+00

  0.2535749E+02  0.0000000E+00

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

       TANH( 0.356998E-28) = 0.356998E-28

 THE FUNCTION TANH WILL BE CALLED WITH THE ARGUMENT  0.3402823E+39
       TANH( 0.340282E+39) = 0.100000E+01

 THE FUNCTION TANH WILL BE CALLED WITH THE ARGUMENT  0.1175494E-37
       TANH( 0.117549E-37) = 0.117549E-37

 THE FUNCTION TANH WILL BE CALLED WITH THE ARGUMENT  0.0000000E+00
       TANH( 0.000000E+00) = 0.000000E+00

 THIS CONCLUDES THE TESTS
