1IBETA (floating-point base)                                   2
 IT (number of significand digits)                            24
 IRND (0: chops, 1: rounds)                                    1
 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)                         -125
 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  1000 TIMES,
             AGREED     0 TIMES, AND
        WAS SMALLER  1000 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1072E-01 =    2 **  -6.54
    OCCURRED FOR X =     0.100000E+01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS  17.46


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.3272E-03 =    2 ** -11.58
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS  12.42


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     0 TIMES, AND
        WAS SMALLER  2000 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.7811E-06 =    2 ** -20.29
    OCCURRED FOR X =     0.934999E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   3.71


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1835E-06 =    2 ** -22.38
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.62


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     0 TIMES, AND
          WAS SMALLER  2000 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.4866E-06 =    2 ** -20.97
    OCCURRED FOR X =     0.893996E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   3.03


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1056E-06 =    2 ** -23.18
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.82


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  2000 TIMES,
             AGREED     0 TIMES, AND
        WAS SMALLER     0 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2122E-07 =    2 ** -25.49
    OCCURRED FOR X =     0.202535E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.6180E-08 =    2 ** -27.27
 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.9353424E-08

  0.1689214E+02  0.2963161E-07

  0.1551779E+02  0.3054976E-07

  0.1572357E+02  0.1511769E-07

  0.1544667E+02 -0.7136514E-07



 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???????????????



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


 ALOG RETURNED THE VALUE---------------



 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  1015 TIMES,
             AGREED     0 TIMES, AND
        WAS SMALLER   985 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.5801E-07 =    2 ** -24.04
    OCCURRED FOR X =    -0.319440E-01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.2475E-07 =    2 ** -25.27
 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   974 TIMES,
             AGREED     0 TIMES, AND
        WAS SMALLER  1026 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2532E-08 =    2 ** -28.56
    OCCURRED FOR X =     0.124619E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1049E-08 =    2 ** -29.83
 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   960 TIMES,
             AGREED     0 TIMES, AND
        WAS SMALLER  1040 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1143E-05 =    2 ** -19.74
    OCCURRED FOR X =     0.999961E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   4.26


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.5620E-07 =    2 ** -24.08
 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  1022 TIMES,
             AGREED     0 TIMES, AND
        WAS SMALLER   978 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1435E-03 =    2 ** -12.77
    OCCURRED FOR X =     0.999897E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS  11.23


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.3646E-05 =    2 ** -18.07
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   5.93


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  1020 TIMES,
             AGREED     0 TIMES, AND
        WAS SMALLER   980 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.3239E-06 =    2 ** -21.56
    OCCURRED FOR X =    -0.999910E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   2.44


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.2454E-07 =    2 ** -25.28
 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.2057274E-16

 -0.4839116E+00  0.2780979E-16

 -0.4889470E+00 -0.3404395E-16

 -0.1183720E+00 -0.3659182E-18

 -0.7964937E+00  0.2759295E-16

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

        X         X - F(X)

  0.3348048E-07  0.8919240E-15

  0.1674024E-07  0.4459620E-15

  0.8370120E-08  0.2229810E-15

  0.4185060E-08  0.1114905E-15

  0.2092530E-08  0.5574525E-16

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

       ASIN( 0.600396E-28) = 0.600396E-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???????????????



 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   998 TIMES,
             AGREED     0 TIMES, AND
        WAS SMALLER  1002 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.5903E-07 =    2 ** -24.01
    OCCURRED FOR X =     0.391880E-02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.2430E-07 =    2 ** -25.29
 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  1111 TIMES,
             AGREED     0 TIMES, AND
        WAS SMALLER   889 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.8473E-07 =    2 ** -23.49
    OCCURRED FOR X =     0.129952E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.51


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.2965E-07 =    2 ** -25.01
 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  1059 TIMES,
             AGREED     0 TIMES, AND
        WAS SMALLER   941 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.8836E-07 =    2 ** -23.43
    OCCURRED FOR X =     0.273809E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.57


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.2932E-07 =    2 ** -25.02
 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   994 TIMES,
             AGREED     0 TIMES, AND
        WAS SMALLER  1006 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.6198E-07 =    2 ** -23.94
    OCCURRED FOR X =     0.522389E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.06


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.2064E-07 =    2 ** -25.53
 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.5486063E-16

  0.2176353E+01 -0.9020562E-16

  0.2044135E+01 -0.2439455E-16

  0.5168115E+00 -0.5881797E-17

  0.4601444E+01 -0.8803722E-16

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

        X         X - F(X)

  0.2150919E-08  0.5110489E-16

  0.1075460E-08  0.2555244E-16

  0.5377298E-09  0.1277622E-16

  0.2688649E-09  0.6388111E-17

  0.1344325E-09  0.3194055E-17

 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.4321797E-01  0.8505592E+00  0.9623720E-09 -0.3141593E+01

 -0.7204334E+00  0.9864567E+00 -0.1918360E-07  0.3141593E+01

 -0.7716829E+00  0.3849098E+00 -0.1953533E-07  0.3141593E+01

 -0.1545089E+01  0.2159743E+00 -0.3991566E-08  0.3141593E+01

  0.1987153E+01  0.5985181E+00  0.6068008E-08 -0.3141593E+01

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

       ATAN( 0.600396E-28) = 0.600396E-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   391 TIMES,
              AGREED     0 TIMES, AND
         WAS SMALLER  1609 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1534E-07 =    2 ** -25.96
    OCCURRED FOR X =    -0.200359E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.5272E-08 =    2 ** -27.50
 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   104 TIMES,
              AGREED     0 TIMES, AND
         WAS SMALLER  1896 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.3816E-05 =    2 ** -18.00
    OCCURRED FOR X =    -0.630491E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   6.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.6888E-06 =    2 ** -20.47
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   3.53


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    58 TIMES,
              AGREED     0 TIMES, AND
         WAS SMALLER  1942 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.3816E-05 =    2 ** -18.00
    OCCURRED FOR X =     0.661691E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   6.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.5074E-06 =    2 ** -20.91
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   3.09


1SPECIAL TESTS


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

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

  0.4172930E+00  0.2063886E-12

  0.1616278E+00  0.1558107E-14

  0.2034688E+00  0.1753285E-13

  0.1433597E+01  0.8957353E-13

  0.1199615E+01  0.2324735E-13



 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+++++++++++++++



 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  1018 TIMES,
            AGREED     0 TIMES, AND
       WAS SMALLER   982 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.5804E-07 =    2 ** -24.04
    OCCURRED FOR X =     0.509024E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.2399E-07 =    2 ** -25.31
 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   993 TIMES,
            AGREED     0 TIMES, AND
       WAS SMALLER  1007 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.8633E-07 =    2 ** -23.47
    OCCURRED FOR X =     0.712096E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.53


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.3762E-07 =    2 ** -24.66
 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  1029 TIMES,
            AGREED     0 TIMES, AND
       WAS SMALLER   971 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.8670E-07 =    2 ** -23.46
    OCCURRED FOR X =     0.627848E+13
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.54


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.3851E-07 =    2 ** -24.63
 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   991 TIMES,
            AGREED     0 TIMES, AND
       WAS SMALLER  1009 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1540E-05 =    2 ** -19.31
    OCCURRED FOR X =     0.805323E+01 Y =     0.190455E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   4.69


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.3251E-06 =    2 ** -21.55
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   2.45


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.2477721E-07

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

  0.1663064E+01  0.3882931E+01        0.4088931E-08

  0.1366361E+01  0.6795137E+01        0.1729835E-06

  0.5392149E+01  0.1001862E+02       -0.6663460E-07

1TEST OF ERROR RETURNS


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


 THE VALUE RETURNED IS     0.2351E-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   474 TIMES,
            AGREED  1123 TIMES, AND
       WAS SMALLER   403 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1552E-18 =    2 ** -62.48
    OCCURRED FOR X =     0.773217E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.4727E-19 =    2 ** -64.20
 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   843 TIMES,
            AGREED   336 TIMES, AND
       WAS SMALLER   821 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1011E-14 =    2 ** -49.81
    OCCURRED FOR X =     0.188500E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.3350E-16 =    2 ** -54.73
 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   802 TIMES,
            AGREED   357 TIMES, AND
       WAS SMALLER   841 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1202E-14 =    2 ** -49.56
    OCCURRED FOR X =     0.235616E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.3597E-16 =    2 ** -54.63
 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.7829144E+01  0.0000000E+00

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

        X         X - F(X)

  0.5475400E-07  0.2735835E-22

  0.2737700E-07  0.3420198E-23

  0.1368850E-07  0.4273228E-24

  0.6844250E-08  0.5331438E-25

  0.3422125E-08  0.6664297E-26

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

        X         F(X) - F(-X)

  0.1559717E+02  0.0000000E+00

  0.8141366E+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.600396E-28) = 0.600396E-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.7796E+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   968 TIMES,
             AGREED     0 TIMES, AND
        WAS SMALLER  1032 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.6005E-07 =    2 ** -23.99
    OCCURRED FOR X =     0.254582E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.01


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.2497E-07 =    2 ** -25.26
 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  1028 TIMES,
             AGREED     0 TIMES, AND
        WAS SMALLER   972 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.6748E-08 =    2 ** -27.14
    OCCURRED FOR X =     0.484991E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.2239E-08 =    2 ** -28.73
 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    49 TIMES,
             AGREED     0 TIMES, AND
        WAS SMALLER  1951 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.3403E-05 =    2 ** -18.16
    OCCURRED FOR X =     0.633601E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   5.84


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.2939E-06 =    2 ** -21.70
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   2.30


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    55 TIMES,
             AGREED     0 TIMES, AND
        WAS SMALLER  1945 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.3403E-05 =    2 ** -18.16
    OCCURRED FOR X =     0.630813E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   5.84


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.2805E-06 =    2 ** -21.77
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   2.23


1SPECIAL TESTS


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

        X         F(X) + F(-X)

  0.4758721E+00  0.2133168E-16

  0.2484013E+01  0.3851086E-15

  0.1501598E+01 -0.1333569E-15

  0.1699758E+01  0.5009014E-16

  0.2469687E+01 -0.4215378E-15

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

        X         X - F(X)

  0.5385919E-07 -0.7276301E-15

  0.2692959E-07 -0.3638151E-15

  0.1346480E-07 -0.1819075E-15

  0.6732398E-08 -0.9095376E-16

  0.3366199E-08 -0.4547688E-16

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

        X         F(X) - F(-X)

  0.2852678E+01 -0.3903128E-15

  0.2584760E+01 -0.4263083E-15

  0.2094970E+01  0.2810252E-15

  0.8712769E+00 -0.9020562E-16

  0.9096089E+00  0.2862294E-16

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

       SINH( 0.600396E-28) = 0.600396E-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+++++++++++++++



 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???????????????



 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   997 TIMES,
            AGREED     1 TIMES, AND
       WAS SMALLER  1002 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1105E-15 =    2 ** -53.01
    OCCURRED FOR X =     0.245649E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.4542E-16 =    2 ** -54.29
 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.2749E+01,     0.3534E+01)


 TAN(X) WAS LARGER   994 TIMES,
            AGREED     1 TIMES, AND
       WAS SMALLER  1005 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1102E-15 =    2 ** -53.01
    OCCURRED FOR X =     0.326642E+01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.4714E-16 =    2 ** -54.24
 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  1014 TIMES,
            AGREED     1 TIMES, AND
       WAS SMALLER   985 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1099E-15 =    2 ** -53.01
    OCCURRED FOR X =     0.189743E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.4703E-16 =    2 ** -54.24
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


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  1007 TIMES,
            AGREED     0 TIMES, AND
       WAS SMALLER   993 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1095E-15 =    2 ** -53.02
    OCCURRED FOR X =     0.193103E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.4896E-16 =    2 ** -54.18
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1SPECIAL TESTS


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

        X         F(X) + F(-X)

  0.1583950E+02 -0.5609391E-15

  0.7335019E+00 -0.1117812E-15

  0.1628951E+02  0.1920014E-14

  0.4370002E+00 -0.4662069E-16

  0.1692592E+02 -0.1933783E-14

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

        X         X - F(X)

  0.1451136E-07 -0.1018628E-23

  0.7255678E-08 -0.1272275E-24

  0.3627839E-08 -0.1595392E-25

  0.1813920E-08 -0.2019484E-26

  0.9069598E-09 -0.2524355E-27

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

       TAN( 0.600396E-28) = 0.600396E-28

 THE RELATIVE ERROR IN TAN(11) IS -0.9097383E-10 =    2 ** -33.36 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  1614 TIMES,
             AGREED     0 TIMES, AND
        WAS SMALLER   386 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.7530E-07 =    2 ** -23.66
    OCCURRED FOR X =     0.128310E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.34


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.2680E-07 =    2 ** -25.15
 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  1978 TIMES,
             AGREED     0 TIMES, AND
        WAS SMALLER    22 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.3122E-07 =    2 ** -24.93
    OCCURRED FOR X =     0.104693E+01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1991E-08 =    2 ** -28.90
 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.8272787E+00 -0.3827234E-16

  0.4098293E+00 -0.8538092E-17

  0.2286662E+00  0.3130634E-17

  0.5832699E+00 -0.4689174E-16

  0.9087356E+00 -0.4954804E-16

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

        X         X - F(X)

  0.3528241E-07  0.7487195E-15

  0.1764120E-07  0.3743598E-15

  0.8820602E-08  0.1871799E-15

  0.4410301E-08  0.9358994E-16

  0.2205151E-08  0.4679497E-16

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

        X         1 - F(X)

  0.9357487E+01 -0.1490117E-07

  0.1335749E+02 -0.4998785E-11

  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.600396E-28) = 0.600396E-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
