1TEST OF DLOG(X) VS T.S. EXPANSION OF DLOG(1+Y)  


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (1-EPS,1+EPS), WHERE EPS =     0.7629D-05


 DLOG(X) WAS LARGER   230 TIMES,
             AGREED  1338 TIMES, AND
        WAS SMALLER   432 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.3133D-15 =    2 ** -51.50
    OCCURRED FOR X =     0.999995D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.50


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.9070D-16 =    2 ** -53.29
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


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


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


 DLOG(X) WAS LARGER     0 TIMES,
             AGREED  1065 TIMES, AND
        WAS SMALLER   935 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.3850D-15 =    2 ** -51.21
    OCCURRED FOR X =     0.749487D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.79


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1171D-15 =    2 ** -52.92
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.08


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


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


 DLOG10(X) WAS LARGER     0 TIMES,
               AGREED   691 TIMES, AND
          WAS SMALLER  1309 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.5844D-15 =    2 ** -50.60
    OCCURRED FOR X =     0.896416D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   2.40


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1773D-15 =    2 ** -52.32
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.68


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


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


 DLOG(X) WAS LARGER    95 TIMES,
             AGREED  1905 TIMES, AND
        WAS SMALLER     0 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2218D-15 =    2 ** -52.00
    OCCURRED FOR X =     0.548771D+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.3802D-16 =    2 ** -54.55
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1SPECIAL TESTS


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

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

  0.1598332D+02  0.44408920985006262D-15

  0.1533961D+02  0.00000000000000000D+00

  0.1534757D+02  0.00000000000000000D+00

  0.1581323D+02  0.00000000000000000D+00

  0.1574018D+02  0.00000000000000000D+00



 TEST OF SPECIAL ARGUMENTS


 DLOG(1.0) =   0.00000000000000000D+00


 DLOG(XMIN) = DLOG(  0.22250738585072008-307) =  -0.70839641853226408D+03


 DLOG(XMAX) = DLOG(                      Inf) =                       NaN


1TEST OF ERROR RETURNS


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


 DLOG RETURNED THE VALUE            NaN



 DLOG WILL BE CALLED WITH THE ARGUMENT     0.0000D+00
 THIS SHOULD TRIGGER AN ERROR MESSAGE


 DLOG RETURNED THE VALUE           -Inf



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


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


 DASIN(X) WAS LARGER   300 TIMES,
              AGREED  1141 TIMES, AND
         WAS SMALLER   559 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.3101D-15 =    2 ** -51.52
    OCCURRED FOR X =    -0.893898D-01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.48


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1047D-15 =    2 ** -53.08
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1TEST OF DACOS(X) VS TAYLOR SERIES 


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


 DACOS(X) WAS LARGER   193 TIMES,
             AGREED  1091 TIMES, AND
        WAS SMALLER   716 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.3066D-15 =    2 ** -51.53
    OCCURRED FOR X =     0.122120D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.47


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.9805D-16 =    2 ** -53.18
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1TEST OF DASIN(X) VS TAYLOR SERIES 


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


 DASIN(X) WAS LARGER   105 TIMES,
              AGREED  1264 TIMES, AND
         WAS SMALLER   631 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2520D-15 =    2 ** -51.82
    OCCURRED FOR X =     0.771385D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.18


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1000D-15 =    2 ** -53.15
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1TEST OF DACOS(X) VS TAYLOR SERIES 


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


 DACOS(X) WAS LARGER   269 TIMES,
             AGREED  1068 TIMES, AND
        WAS SMALLER   663 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.4237D-15 =    2 ** -51.07
    OCCURRED FOR X =     0.865821D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.93


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1215D-15 =    2 ** -52.87
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.13


1TEST OF DACOS(X) VS TAYLOR SERIES 


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


 DACOS(X) WAS LARGER    85 TIMES,
             AGREED  1352 TIMES, AND
        WAS SMALLER   563 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1835D-15 =    2 ** -52.27
    OCCURRED FOR X =    -0.750416D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.73


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.9620D-16 =    2 ** -53.21
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1SPECIAL TESTS


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

        X         F(X) + F(-X)

 -0.8570483D+00  0.00000000000000000D+00

 -0.3795332D+00  0.00000000000000000D+00

 -0.2069628D+00  0.00000000000000000D+00

 -0.7937374D+00  0.00000000000000000D+00

 -0.1474389D+00  0.00000000000000000D+00

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

        X         X - F(X)

  0.8129991D-16  0.00000000000000000D+00

  0.4064995D-16  0.00000000000000000D+00

  0.2032498D-16  0.00000000000000000D+00

  0.1016249D-16  0.00000000000000000D+00

  0.5081244D-17  0.00000000000000000D+00

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

       DASIN( 0.182183-230) = 0.182183-230

1TEST OF ERROR RETURNS


 DASIN WILL BE CALLED WITH THE ARGUMENT     0.1200D+01
 THIS SHOULD TRIGGER AN ERROR MESSAGE


 DASIN RETURNED THE VALUE            NaN



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


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


 DATAN(X) WAS LARGER   359 TIMES,
              AGREED  1162 TIMES, AND
         WAS SMALLER   479 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2220D-15 =    2 ** -52.00
    OCCURRED FOR X =     0.312732D-01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1030D-15 =    2 ** -53.11
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


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


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


 DATAN(X) WAS LARGER   287 TIMES,
              AGREED  1349 TIMES, AND
         WAS SMALLER   364 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2218D-15 =    2 ** -52.00
    OCCURRED FOR X =     0.255618D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.8812D-16 =    2 ** -53.33
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


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


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


 DATAN(X) WAS LARGER   301 TIMES,
              AGREED  1450 TIMES, AND
         WAS SMALLER   249 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2119D-15 =    2 ** -52.07
    OCCURRED FOR X =     0.268087D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.93


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.9089D-16 =    2 ** -53.29
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


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


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


 DATAN(X) WAS LARGER   139 TIMES,
              AGREED  1728 TIMES, AND
         WAS SMALLER   133 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2714D-15 =    2 ** -51.71
    OCCURRED FOR X =     0.433570D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.29


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.5815D-16 =    2 ** -53.93
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1SPECIAL TESTS


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

        X         F(X) + F(-X)

  0.3786934D+01  0.00000000000000000D+00

  0.8369797D+00  0.00000000000000000D+00

  0.2806985D+01  0.00000000000000000D+00

  0.4141307D+01  0.00000000000000000D+00

  0.2921555D+01  0.00000000000000000D+00

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

        X         X - F(X)

  0.9530362D-16  0.00000000000000000D+00

  0.4765181D-16  0.00000000000000000D+00

  0.2382591D-16  0.00000000000000000D+00

  0.1191295D-16  0.00000000000000000D+00

  0.5956476D-17  0.00000000000000000D+00

 THE IDENTITY DATAN(X/Y) = DATAN2(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.1169997D+01  0.8020087D+00  0.00000000000000000D+00 -0.31415926535897931D+01

 -0.4592220D+00  0.6639704D+00  0.00000000000000000D+00  0.31415926535897931D+01

  0.1494548D+00  0.3078682D+00  0.00000000000000000D+00 -0.31415926535897931D+01

 -0.2371523D+00  0.1237900D+00  0.00000000000000000D+00  0.31415926535897931D+01

 -0.1124315D+01  0.6431007D+00  0.00000000000000000D+00  0.31415926535897931D+01

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

       DATAN( 0.182183-230) = 0.182183-230

1TEST OF ERROR RETURNS


 DATAN WILL BE CALLED WITH THE ARGUMENT            Inf
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE

       DATAN(          Inf) = 0.157080D+01

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

       DATAN2( 0.100000D+01 0.000000D+00) = 0.157080D+01

 DATAN2 WILL BE CALLED WITH THE ARGUMENTS
  0.2225074-307            Inf
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE

       DATAN2( 0.222507-307          Inf) = 0.000000D+00

 DATAN2 WILL BE CALLED WITH THE ARGUMENTS
            Inf  0.2225074-307
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE

       DATAN2(          Inf 0.222507-307) = 0.157080D+01

 DATAN2 WILL BE CALLED WITH THE ARGUMENTS
  0.0000000D+00  0.0000000D+00
 THIS SHOULD TRIGGER AN ERROR MESSAGE


       DATAN2( 0.000000D+00 0.000000D+00) = 0.000000D+00

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


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


 DEXP(X-V) WAS LARGER   417 TIMES,
              AGREED  1171 TIMES, AND
         WAS SMALLER   412 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.4387D-15 =    2 ** -51.02
    OCCURRED FOR X =     0.745966D-01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.98


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1063D-15 =    2 ** -53.06
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (    -0.3466D+01,    -0.6703D+03)


 DEXP(X-V) WAS LARGER   578 TIMES,
              AGREED   852 TIMES, AND
         WAS SMALLER   570 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.4619D-15 =    2 ** -50.94
    OCCURRED FOR X =    -0.231105D+03
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   2.06


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1459D-15 =    2 ** -52.61
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.39


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.6931D+01,            NaN)


 DEXP(X-V) WAS LARGER  2000 TIMES,
              AGREED -2000 TIMES, AND
         WAS SMALLER  2000 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF            NaN =    2 **    NaN
    OCCURRED FOR X =              NaN
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS            NaN =    2 **    NaN
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1SPECIAL TESTS


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

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

  0.4969983D+00  0.00000000000000000D+00

  0.1597669D+01  0.00000000000000000D+00

  0.1584547D+01 -0.11102230246251565D-15

  0.5408677D+00  0.22204460492503131D-15

  0.1058453D+01  0.00000000000000000D+00



 TEST OF SPECIAL ARGUMENTS


 DEXP(0.0) - 1.0D+00 =   0.0000000D+00

 DEXP(-0.708000D+03) = 0.330755-307

 DEXP(          NaN) =          Inf

0IF DEXP(          NaN) =                     Inf IS NOT ABOUT
 DEXP(          NaN)**2 =                     Inf THERE IS AN ARG RED ERROR
1TEST OF ERROR RETURNS


0EXP WILL BE CALLED WITH THE ARGUMENT    -0.6704+154
 THIS SHOULD TRIGGER AN ERROR MESSAGE


 DEXP RETURNED THE VALUE     0.0000D+00



0EXP WILL BE CALLED WITH THE ARGUMENT     0.6704+154
 THIS SHOULD TRIGGER AN ERROR MESSAGE


 DEXP RETURNED THE VALUE            Inf



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


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


 X**1.0 WAS LARGER    83 TIMES,
            AGREED  1856 TIMES, AND
       WAS SMALLER    61 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2193D-15 =    2 ** -52.02
    OCCURRED FOR X =     0.506226D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.98


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.4074D-16 =    2 ** -54.45
 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.5000D+00,     0.1000D+01)


 X**1.5 WAS LARGER   308 TIMES,
            AGREED  1426 TIMES, AND
       WAS SMALLER   266 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.3279D-15 =    2 ** -51.44
    OCCURRED FOR X =     0.696953D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.56


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.8669D-16 =    2 ** -53.36
 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.1000D+01,            Inf)


 X**1.5 WAS LARGER  2000 TIMES,
            AGREED -2000 TIMES, AND
       WAS SMALLER  2000 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF            NaN =    2 **    NaN
    OCCURRED FOR X =              NaN
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS            NaN =    2 **    NaN
 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.1000D-01,     0.1000D+02), Y IN (    -0.1538D+03,     0.1538D+03)


  X**Y  WAS LARGER   496 TIMES,
            AGREED   981 TIMES, AND
       WAS SMALLER   523 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.4428D-13 =    2 ** -44.36
    OCCURRED FOR X =     0.152994D-01 Y =    -0.133294D+03
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   8.64


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.6254D-14 =    2 ** -47.18
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   5.82


1SPECIAL TESTS


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

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

  0.9376345D+01  0.1384936D+01        0.1600868D-15

  0.5629481D+01  0.6648109D+01        0.5967388D-15

  0.2706868D+01  0.1081573D+02        0.0000000D+00

  0.1760724D+01  0.7319591D+01       -0.4521573D-15

  0.4613214D+01  0.7469720D+01        0.0000000D+00

1TEST OF ERROR RETURNS


 ( 0.2000000D+01 ) ** (-0.1022000D+04 ) WILL BE COMPUTED.
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE


 THE VALUE RETURNED IS     0.2225-307



 ( 0.2000000D+01 ) ** ( 0.1025000D+04 ) WILL BE COMPUTED.
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE


 THE VALUE RETURNED IS     0.0000D+00



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


 THE VALUE RETURNED IS     0.0000D+00



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


 THE VALUE RETURNED IS     0.1000D+01



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


 THE VALUE RETURNED IS     0.4000D+01



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


 THE VALUE RETURNED IS     0.1000D+01



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


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


 DSIN(X) WAS LARGER   455 TIMES,
            AGREED  1106 TIMES, AND
       WAS SMALLER   439 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.3764D-15 =    2 ** -51.24
    OCCURRED FOR X =     0.299387D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.76


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1006D-15 =    2 ** -53.14
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


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


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


 DSIN(X) WAS LARGER   497 TIMES,
            AGREED   991 TIMES, AND
       WAS SMALLER   512 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.4372D-15 =    2 ** -51.02
    OCCURRED FOR X =     0.191063D+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.98


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1176D-15 =    2 ** -52.92
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.08


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


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


 DCOS(X) WAS LARGER  1225 TIMES,
            AGREED   618 TIMES, AND
       WAS SMALLER   157 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.8607D-12 =    2 ** -40.08
    OCCURRED FOR X =     0.235618D+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS  12.92


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1943D-13 =    2 ** -45.55
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   7.45


1SPECIAL TESTS


 IF  0.100000D+01 IS NOT ALMOST 1.0D+00,    DSIN HAS THE WRONG PERIOD.  


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

        X         F(X) + F(-X)

  0.1357806D+02  0.00000000000000000D+00

  0.5377632D+01  0.00000000000000000D+00

  0.1302793D+02  0.00000000000000000D+00

  0.4997217D+01  0.00000000000000000D+00

  0.6650451D+01  0.00000000000000000D+00

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

        X         X - F(X)

  0.8565047D-16  0.00000000000000000D+00

  0.4282523D-16  0.00000000000000000D+00

  0.2141262D-16  0.00000000000000000D+00

  0.1070631D-16  0.00000000000000000D+00

  0.5353154D-17  0.00000000000000000D+00

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

        X         F(X) - F(-X)

  0.4362607D+01  0.00000000000000000D+00

  0.5742273D+01  0.00000000000000000D+00

  0.1797722D+02  0.00000000000000000D+00

  0.1683830D+02  0.00000000000000000D+00

  0.1519520D+02  0.00000000000000000D+00

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

       DSIN( 0.1821831989445409-230) = 0.1821831989445409-230
 THE FOLLOWING THREE LINES ILLUSTRATE THE LOSS IN SIGNIFICANCE
 FOR LARGE ARGUMENTS.  THE ARGUMENTS ARE CONSECUTIVE.

       DSIN( 0.9490626562425154D+08) = 0.9419570562408278D+00

       DSIN( 0.9490626562425156D+08) = 0.9419570512380107D+00

       DSIN( 0.9490626562425157D+08) = 0.9419570462351930D+00
1TEST OF ERROR RETURNS


 DSIN WILL BE CALLED WITH THE ARGUMENT     0.9007D+16
 THIS SHOULD TRIGGER AN ERROR MESSAGE


 DSIN RETURNED THE VALUE    -0.9443D+00



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


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


 DSINH(X) WAS LARGER   448 TIMES,
              AGREED  1161 TIMES, AND
         WAS SMALLER   391 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.3861D-15 =    2 ** -51.20
    OCCURRED FOR X =     0.359392D-01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.80


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1043D-15 =    2 ** -53.09
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


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


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


 DCOSH(X) WAS LARGER   471 TIMES,
             AGREED  1075 TIMES, AND
        WAS SMALLER   454 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2220D-15 =    2 ** -52.00
    OCCURRED FOR X =     0.820749D-03
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1458D-15 =    2 ** -52.61
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.39


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.3000D+01,            NaN)


 DSINH(X) WAS LARGER  2000 TIMES,
              AGREED -2000 TIMES, AND
         WAS SMALLER  2000 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF            NaN =    2 **    NaN
    OCCURRED FOR X =              NaN
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS            NaN =    2 **    NaN
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.3000D+01,            NaN)


 DCOSH(X) WAS LARGER  2000 TIMES,
             AGREED -2000 TIMES, AND
        WAS SMALLER  2000 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF            NaN =    2 **    NaN
    OCCURRED FOR X =              NaN
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS            NaN =    2 **    NaN
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1SPECIAL TESTS


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

        X         F(X) + F(-X)

  0.2799016D+01  0.00000000000000000D+00

  0.6197683D+00  0.00000000000000000D+00

  0.2879801D+01  0.00000000000000000D+00

  0.2883944D+01  0.00000000000000000D+00

  0.1625756D+01  0.00000000000000000D+00

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

        X         X - F(X)

  0.5344542D-16  0.00000000000000000D+00

  0.2672271D-16  0.00000000000000000D+00

  0.1336135D-16  0.00000000000000000D+00

  0.6680677D-17  0.00000000000000000D+00

  0.3340339D-17  0.00000000000000000D+00

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

        X         F(X) - F(-X)

  0.2321169D+01  0.00000000000000000D+00

  0.1272770D+01  0.00000000000000000D+00

  0.3520453D-01  0.00000000000000000D+00

  0.1070712D+01  0.00000000000000000D+00

  0.1874405D+01  0.00000000000000000D+00

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

       DSINH( 0.182183-230) = 0.182183-230

1TEST OF ERROR RETURNS


 DSINH WILL BE CALLED WITH THE ARGUMENT            NaN
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE


 DSINH RETURNED THE VALUE            NaN



0DSINH WILL BE CALLED WITH THE ARGUMENT     0.9007D+16
 THIS SHOULD TRIGGER AN ERROR MESSAGE


 DSINH RETURNED THE VALUE            Inf



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


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


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


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


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


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


1TEST OF DSQRT(X*X) - X 


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


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


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


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


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


1TEST OF SPECIAL ARGUMENTS


 DSQRT(XMIN) = DSQRT(  0.22250738585072008-307) =   0.14916681462400411-153


 DSQRT(1-EPSNEG) = DSQRT(1-  0.1110223D-15) =   0.99999999999999982D+00


 DSQRT(1.0) = DSQRT(  0.10000000000000000D+01) =   0.10000000000000000D+01


 DSQRT(1+EPS) = DSQRT(1+  0.2220446D-15) =   0.10000000000000000D+01


 DSQRT(XMAX) = DSQRT(                      Inf) =                       Inf


1TEST OF ERROR RETURNS


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


 DSQRT RETURNED THE VALUE     0.0000D+00



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


 DSQRT RETURNED THE VALUE            NaN



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


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


 DTAN(X) WAS LARGER   494 TIMES,
             AGREED  1107 TIMES, AND
        WAS SMALLER   399 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.4311D-15 =    2 ** -51.04
    OCCURRED FOR X =     0.321833D-01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.96


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1120D-15 =    2 ** -52.99
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.01


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


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


 DTAN(X) WAS LARGER   520 TIMES,
             AGREED  1066 TIMES, AND
        WAS SMALLER   414 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.4036D-15 =    2 ** -51.14
    OCCURRED FOR X =     0.287316D+01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.86


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1151D-15 =    2 ** -52.95
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.05


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


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


 DTAN(X) WAS LARGER   509 TIMES,
             AGREED  1105 TIMES, AND
        WAS SMALLER   386 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.4225D-15 =    2 ** -51.07
    OCCURRED FOR X =     0.191065D+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.93


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1136D-15 =    2 ** -52.97
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.03


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


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


 DCOT(X) WAS LARGER   455 TIMES,
             AGREED  1005 TIMES, AND
        WAS SMALLER   540 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.4336D-15 =    2 ** -51.03
    OCCURRED FOR X =     0.193037D+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.97


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1257D-15 =    2 ** -52.82
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.18


1SPECIAL TESTS


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

        X         F(X) + F(-X)

  0.1544204D+02  0.00000000000000000D+00

  0.7636684D+01  0.00000000000000000D+00

  0.5502511D+01  0.00000000000000000D+00

  0.3914012D+01  0.00000000000000000D+00

  0.8480963D+01  0.00000000000000000D+00

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

        X         X - F(X)

  0.1572444D-16  0.00000000000000000D+00

  0.7862219D-17  0.00000000000000000D+00

  0.3931109D-17  0.00000000000000000D+00

  0.1965555D-17  0.00000000000000000D+00

  0.9827773D-18  0.00000000000000000D+00

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

       DTAN( 0.1821831989445409-230) = 0.1821831989445409-230

 THE RELATIVE ERROR IN DTAN(11) IS   0.9691014D-13 =    2 ** -43.23 WHERE

       DTAN( 0.1100000000000000D+02) =-0.2259508464541732D+03

 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   9.77


1TEST OF ERROR RETURNS


 DTAN WILL BE CALLED WITH THE ARGUMENT     0.6711D+08
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE


 DTAN RETURNED THE VALUE    -0.4638D+00



0DTAN WILL BE CALLED WITH THE ARGUMENT     0.9007D+16
 THIS SHOULD TRIGGER AN ERROR MESSAGE


 DTAN RETURNED THE VALUE     0.4792D+01



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


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


 DTANH(X) WAS LARGER   622 TIMES,
              AGREED   841 TIMES, AND
         WAS SMALLER   537 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.4971D-15 =    2 ** -50.84
    OCCURRED FOR X =     0.348429D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   2.16


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1419D-15 =    2 ** -52.65
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.35


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.6743D+00,     0.1941D+02)


 DTANH(X) WAS LARGER   568 TIMES,
              AGREED   933 TIMES, AND
         WAS SMALLER   499 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.4397D-15 =    2 ** -51.01
    OCCURRED FOR X =     0.990270D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.99


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.9320D-16 =    2 ** -53.25
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1SPECIAL TESTS


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

        X         F(X) + F(-X)

  0.5017279D+00  0.00000000000000000D+00

  0.4981069D+00  0.00000000000000000D+00

  0.9202672D+00  0.00000000000000000D+00

  0.1755284D+00  0.00000000000000000D+00

  0.6310339D+00  0.00000000000000000D+00

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

        X         X - F(X)

  0.1005123D-15  0.00000000000000000D+00

  0.5025614D-16  0.00000000000000000D+00

  0.2512807D-16  0.00000000000000000D+00

  0.1256403D-16  0.00000000000000000D+00

  0.6282017D-17  0.00000000000000000D+00

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

        X         1 - F(X)

  0.1940812D+02  0.00000000000000000D+00

  0.2340812D+02  0.00000000000000000D+00

  0.2740812D+02  0.00000000000000000D+00

  0.3140812D+02  0.00000000000000000D+00

  0.3540812D+02  0.00000000000000000D+00

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

       DTANH( 0.182183-230) = 0.182183-230

 THE FUNCTION DTANH WILL BE CALLED WITH THE ARGUMENT            Inf
       DTANH(          Inf) = 0.100000D+01

 THE FUNCTION DTANH WILL BE CALLED WITH THE ARGUMENT  0.2225074-307
       DTANH( 0.222507-307) = 0.222507-307

 THE FUNCTION DTANH WILL BE CALLED WITH THE ARGUMENT  0.0000000D+00
       DTANH( 0.000000D+00) = 0.000000D+00

 THIS CONCLUDES THE TESTS
