1IBETA (floating-point base)                                   2
 IT (number of significand digits)                            53
 IRND (0: chops, >=1: rounds)                                  5
 NGRD (number of guard digits)                                 0
 MACHEP (see MACHAR)                                         -52
 NEGEPS (see MACHAR)                                         -53
 IEXP (number of exponent bits)                               11
 MINEXP (exponent of min fp number)                        -1022
 MAXEXP (exponent of max fp number)                         1024
 EPS (machine epsilon: 1 + e .ne. 1)      2.2204460492503131D-16
 EPSNEG (machine epsilon: 1 - e .ne. 1)   1.1102230246251565D-16
 XMIN (smallest fp number)                2.2250738585072014-308
 XMAX (largest fp number)                 1.7976931348623157+308
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    12 TIMES,
             AGREED  1987 TIMES, AND
        WAS SMALLER     1 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1831D-15 =    2 ** -52.28
    OCCURRED FOR X =     0.100000D+01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.72


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1104D-16 =    2 ** -56.33
 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  1519 TIMES, AND
        WAS SMALLER   481 TIMES.


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


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


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


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   948 TIMES, AND
          WAS SMALLER  1052 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.5653D-15 =    2 ** -50.65
    OCCURRED FOR X =     0.893098D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   2.35


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1537D-15 =    2 ** -52.53
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.47


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    68 TIMES,
             AGREED  1932 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.3203D-16 =    2 ** -54.79
 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.44408920985006262D-15

  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.22250738585072014-307) =  -0.70839641853226408D+03


 DLOG(XMAX) = DLOG(  0.17976931348623157+309) =   0.70978271289338397D+03


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



 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   528 TIMES,
              AGREED   992 TIMES, AND
         WAS SMALLER   480 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.124676D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


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


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   512 TIMES,
             AGREED   978 TIMES, AND
        WAS SMALLER   510 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1536D-15 =    2 ** -52.53
    OCCURRED FOR X =     0.124894D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.47


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1013D-15 =    2 ** -53.13
 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   359 TIMES,
              AGREED  1278 TIMES, AND
         WAS SMALLER   363 TIMES.


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


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


 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.7500D+00,     0.1000D+01)


 DACOS(X) WAS LARGER   392 TIMES,
             AGREED  1241 TIMES, AND
        WAS SMALLER   367 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.877500D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1038D-15 =    2 ** -53.10
 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.1000D+01,    -0.7500D+00)


 DACOS(X) WAS LARGER   496 TIMES,
             AGREED  1011 TIMES, AND
        WAS SMALLER   493 TIMES.


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


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


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1179D-15 =    2 ** -52.91
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.09


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    11 TIMES,
              AGREED  1978 TIMES, AND
         WAS SMALLER    11 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2212D-15 =    2 ** -52.01
    OCCURRED FOR X =     0.313812D-01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.99


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1611D-16 =    2 ** -55.78
 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   433 TIMES,
              AGREED  1373 TIMES, AND
         WAS SMALLER   194 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2212D-15 =    2 ** -52.01
    OCCURRED FOR X =     0.256399D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.99


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.8613D-16 =    2 ** -53.37
 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   257 TIMES,
              AGREED  1475 TIMES, AND
         WAS SMALLER   268 TIMES.


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


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


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.8755D-16 =    2 ** -53.34
 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   161 TIMES,
              AGREED  1708 TIMES, AND
         WAS SMALLER   131 TIMES.


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


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


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.5793D-16 =    2 ** -53.94
 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.31415926535897936D+01

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

  0.1494548D+00  0.3078682D+00  0.00000000000000000D+00 -0.31415926535897936D+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  0.1797693+309
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE

       DATAN( 0.179769+309) = 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  0.1797693+309
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE

       DATAN2( 0.222507-307 0.179769+309) = 0.000000D+00

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

       DATAN2( 0.179769+309 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   273 TIMES,
              AGREED  1441 TIMES, AND
         WAS SMALLER   286 TIMES.


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


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


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.8356D-16 =    2 ** -53.41
 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   291 TIMES,
              AGREED  1476 TIMES, AND
         WAS SMALLER   233 TIMES.


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


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


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.8106D-16 =    2 ** -53.45
 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.6931D+01,     0.7097D+03)


 DEXP(X-V) WAS LARGER   280 TIMES,
              AGREED  1474 TIMES, AND
         WAS SMALLER   246 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.393054D+03
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.8263D-16 =    2 ** -53.43
 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.11102230246251565D-15

  0.1597669D+01  0.00000000000000000D+00

  0.1584547D+01  0.00000000000000000D+00

  0.5408677D+00  0.00000000000000000D+00

  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( 0.709000D+03) = 0.821841+308

0IF DEXP( 0.354500D+03) =  0.9065543260916564+154 IS NOT ABOUT
 DEXP( 0.177250D+03)**2 =  0.9065543260916564+154 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       Infinity



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


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


 THE MAXIMUM RELATIVE ERROR OF     0.1724D-15 =    2 ** -52.37
    OCCURRED FOR X =     0.685431D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.63


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1043D-16 =    2 ** -56.41
 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,     0.5644+103)


 X**1.5 WAS LARGER    19 TIMES,
            AGREED  1981 TIMES, AND
       WAS SMALLER     0 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2076D-15 =    2 ** -52.10
    OCCURRED FOR X =     0.458073+103
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.90


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1498D-16 =    2 ** -55.89
 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.1541D+03,     0.1541D+03)


  X**Y  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 Y =     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


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.4475541D-15

  0.2706868D+01  0.1081573D+02        0.3058252D-15

  0.1760724D+01  0.7319591D+01       -0.1130393D-15

  0.4613214D+01  0.7469720D+01       -0.1595876D-15

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.1023000D+04 ) WILL BE COMPUTED.
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE


 THE VALUE RETURNED IS     0.8988+308



 ( 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   368 TIMES,
            AGREED  1270 TIMES, AND
       WAS SMALLER   362 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2873D-15 =    2 ** -51.63
    OCCURRED FOR X =     0.967701D-01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.37


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.8516D-16 =    2 ** -53.38
 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   386 TIMES,
            AGREED  1267 TIMES, AND
       WAS SMALLER   347 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2543D-15 =    2 ** -51.80
    OCCURRED FOR X =     0.199114D+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.20


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


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   399 TIMES,
            AGREED  1242 TIMES, AND
       WAS SMALLER   359 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2399D-15 =    2 ** -51.89
    OCCURRED FOR X =     0.223796D+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.11


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


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.1821831989445408-230) = 0.1821831989445408-230
 THE FOLLOWING THREE LINES ILLUSTRATE THE LOSS IN SIGNIFICANCE
 FOR LARGE ARGUMENTS.  THE ARGUMENTS ARE CONSECUTIVE.

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

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

       DSIN( 0.9490626562425157D+08) = 0.9419570471732214D+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.8489D+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   356 TIMES,
              AGREED  1315 TIMES, AND
         WAS SMALLER   329 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2338D-15 =    2 ** -51.93
    OCCURRED FOR X =     0.458663D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.07


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.9079D-16 =    2 ** -53.29
 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    41 TIMES,
             AGREED  1909 TIMES, AND
        WAS SMALLER    50 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2199D-15 =    2 ** -52.01
    OCCURRED FOR X =     0.139503D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.99


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


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


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


 DSINH(X) WAS LARGER   996 TIMES,
              AGREED   941 TIMES, AND
         WAS SMALLER    63 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.4107D-15 =    2 ** -51.11
    OCCURRED FOR X =     0.631642D+01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.89


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1253D-15 =    2 ** -52.83
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.17


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


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


 DCOSH(X) WAS LARGER   982 TIMES,
             AGREED   971 TIMES, AND
        WAS SMALLER    47 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.158202D+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.76


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1239D-15 =    2 ** -52.84
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.16


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     0.7099D+03
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE


 DSINH RETURNED THE VALUE     0.1019+309



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


 DSINH RETURNED THE VALUE       Infinity



 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.22250738585072014-307) =   0.14916681462400413-153


 DSQRT(1-EPSNEG) = DSQRT(1-  0.1110223D-15) =   0.99999999999999989D+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(  0.17976931348623157+309) =   0.13407807929942596+155


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   437 TIMES,
             AGREED  1123 TIMES, AND
        WAS SMALLER   440 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.1101D-15 =    2 ** -53.01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


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   384 TIMES,
             AGREED  1264 TIMES, AND
        WAS SMALLER   352 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.4254D-15 =    2 ** -51.06
    OCCURRED FOR X =     0.301182D+01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.94


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


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   441 TIMES,
             AGREED  1091 TIMES, AND
        WAS SMALLER   468 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.3945D-15 =    2 ** -51.17
    OCCURRED FOR X =     0.189893D+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.83


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1130D-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   512 TIMES,
             AGREED  1024 TIMES, AND
        WAS SMALLER   464 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.4441D-15 =    2 ** -51.00
    OCCURRED FOR X =     0.196349D+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   2.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1254D-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.1821831989445408-230) = 0.1821831989445408-230

 THE RELATIVE ERROR IN DTAN(11) IS   0.5404916D-16 =    2 ** -54.04 WHERE

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

 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


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.1606D+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   609 TIMES,
              AGREED   847 TIMES, AND
         WAS SMALLER   544 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.1409D-15 =    2 ** -52.66
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.34


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   565 TIMES,
              AGREED   941 TIMES, AND
         WAS SMALLER   494 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.3694D-15 =    2 ** -51.27
    OCCURRED FOR X =     0.694909D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.73


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.9233D-16 =    2 ** -53.27
 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  0.1797693+309
       DTANH( 0.179769+309) = 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
