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.2204460492503131E-16
 EPSNEG (machine epsilon: 1 - e .ne. 1)   1.1102230246251565E-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.7629E-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.1831E-15 =    2 ** -52.28
    OCCURRED FOR X =     0.100000E+01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.72


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1104E-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.7071E+00,     0.9375E+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.2219E-15 =    2 ** -52.00
    OCCURRED FOR X =     0.778700E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.7919E-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.3162E+00,     0.9000E+00)


 DLOG10(X) WAS LARGER     0 TIMES,
               AGREED   845 TIMES, AND
          WAS SMALLER  1155 TIMES.


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


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


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1578E-15 =    2 ** -52.49
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.51


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.1600E+02,     0.2400E+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.2218E-15 =    2 ** -52.00
    OCCURRED FOR X =     0.548771E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.3203E-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.1598332E+02  0.44408920985006262E-15

  0.1533961E+02  0.00000000000000000E+00

  0.1534757E+02  0.44408920985006262E-15

  0.1581323E+02  0.00000000000000000E+00

  0.1574018E+02  0.00000000000000000E+00



 TEST OF SPECIAL ARGUMENTS


 DLOG(1.0) =   0.00000000000000000E+00


 DLOG(XMIN) = DLOG(  0.22250738585072014-307) =  -0.70839641853226408E+03


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


1TEST OF ERROR RETURNS


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


 DLOG RETURNED THE VALUE           -Inf



 DLOG WILL BE CALLED WITH THE ARGUMENT     0.0000E+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.1250E+00,     0.1250E+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.2220E-15 =    2 ** -52.00
    OCCURRED FOR X =    -0.124676E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1121E-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.1250E+00,     0.1250E+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.1536E-15 =    2 ** -52.53
    OCCURRED FOR X =     0.124894E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.47


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1013E-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.7500E+00,     0.1000E+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.2219E-15 =    2 ** -52.00
    OCCURRED FOR X =     0.841848E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1047E-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.7500E+00,     0.1000E+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.2220E-15 =    2 ** -52.00
    OCCURRED FOR X =     0.877500E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1038E-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.1000E+01,    -0.7500E+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.1836E-15 =    2 ** -52.27
    OCCURRED FOR X =    -0.750369E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.73


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1179E-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.8570483E+00  0.00000000000000000E+00

 -0.3795332E+00  0.00000000000000000E+00

 -0.2069628E+00  0.00000000000000000E+00

 -0.7937374E+00  0.00000000000000000E+00

 -0.1474389E+00  0.00000000000000000E+00

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

        X         X - F(X)

  0.8129991E-16  0.00000000000000000E+00

  0.4064995E-16  0.00000000000000000E+00

  0.2032498E-16  0.00000000000000000E+00

  0.1016249E-16  0.00000000000000000E+00

  0.5081244E-17  0.00000000000000000E+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.1200E+01
 THIS SHOULD TRIGGER AN ERROR MESSAGE


 DASIN RETURNED THE VALUE     0.0000E+00



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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (    -0.6250E-01,     0.6250E-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.2212E-15 =    2 ** -52.01
    OCCURRED FOR X =     0.313812E-01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.99


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1611E-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.6250E-01,     0.2679E+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.2212E-15 =    2 ** -52.01
    OCCURRED FOR X =     0.256399E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.99


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.8613E-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.2679E+00,     0.4142E+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.2117E-15 =    2 ** -52.07
    OCCURRED FOR X =     0.268431E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.93


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.8755E-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.4142E+00,     0.1000E+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.2213E-15 =    2 ** -52.00
    OCCURRED FOR X =     0.548525E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.5793E-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.3786934E+01  0.00000000000000000E+00

  0.8369797E+00  0.00000000000000000E+00

  0.2806985E+01  0.00000000000000000E+00

  0.4141307E+01  0.00000000000000000E+00

  0.2921555E+01  0.00000000000000000E+00

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

        X         X - F(X)

  0.9530362E-16  0.00000000000000000E+00

  0.4765181E-16  0.00000000000000000E+00

  0.2382591E-16  0.00000000000000000E+00

  0.1191295E-16  0.00000000000000000E+00

  0.5956476E-17  0.00000000000000000E+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.1169997E+01  0.8020087E+00  0.00000000000000000E+00 -0.31415926535897936E+01

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

  0.1494548E+00  0.3078682E+00  0.00000000000000000E+00 -0.31415926535897936E+01

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

 -0.1124315E+01  0.6431007E+00  0.00000000000000000E+00  0.31415926535897931E+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.157080E+01

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

       DATAN2( 0.100000E+01 0.000000E+00) = 0.157080E+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.000000E+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.157080E+01

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


       DATAN2( 0.000000E+00 0.000000E+00) = 0.000000E+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.2841E+00,     0.3466E+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.2217E-15 =    2 ** -52.00
    OCCURRED FOR X =     0.640868E-01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.8356E-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.3466E+01,    -0.6703E+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.2219E-15 =    2 ** -52.00
    OCCURRED FOR X =    -0.630724E+03
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.8106E-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.6931E+01,     0.7097E+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.2220E-15 =    2 ** -52.00
    OCCURRED FOR X =     0.393054E+03
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.8263E-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.4969983E+00 -0.11102230246251565E-15

  0.1597669E+01  0.00000000000000000E+00

  0.1584547E+01  0.00000000000000000E+00

  0.5408677E+00  0.00000000000000000E+00

  0.1058453E+01  0.00000000000000000E+00



 TEST OF SPECIAL ARGUMENTS


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

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

 DEXP( 0.709000E+03) = 0.821841+308

0IF DEXP( 0.354500E+03) =  0.9065543260916564+154 IS NOT ABOUT
 DEXP( 0.177250E+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.0000E+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.5000E+00,     0.1000E+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.0000E+00 =    2 **-999.00
    OCCURRED FOR X =     0.000000E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


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


1TEST OF XSQ**1.5 VS XSQ*X


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


 X**1.5 WAS LARGER     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.1724E-15 =    2 ** -52.37
    OCCURRED FOR X =     0.685431E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.63


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1043E-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.1000E+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.2076E-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.1498E-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.1000E-01,     0.1000E+02), Y IN (    -0.1541E+03,     0.1541E+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.0000E+00 =    2 **-999.00
    OCCURRED FOR X =     0.000000E+00 Y =     0.000000E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


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


1SPECIAL TESTS


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

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

  0.9376345E+01  0.1384936E+01        0.1600868E-15

  0.5629481E+01  0.6648109E+01       -0.4475541E-15

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

  0.1760724E+01  0.7319591E+01       -0.1130393E-15

  0.4613214E+01  0.7469720E+01       -0.1595876E-15

1TEST OF ERROR RETURNS


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


 THE VALUE RETURNED IS     0.2225-307



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


 THE VALUE RETURNED IS     0.8988+308



 ( 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 DSIN(X) VS 3*DSIN(X/3)-4*DSIN(X/3)**3  


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.0000E+00,     0.1571E+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.2873E-15 =    2 ** -51.63
    OCCURRED FOR X =     0.967701E-01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.37


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.8516E-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.1885E+02,     0.2042E+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.2543E-15 =    2 ** -51.80
    OCCURRED FOR X =     0.199114E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.20


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.8511E-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.2199E+02,     0.2356E+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.2399E-15 =    2 ** -51.89
    OCCURRED FOR X =     0.223796E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.11


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


1SPECIAL TESTS


 IF  0.100000E+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.1357806E+02  0.00000000000000000E+00

  0.5377632E+01  0.00000000000000000E+00

  0.1302793E+02  0.00000000000000000E+00

  0.4997217E+01  0.00000000000000000E+00

  0.6650451E+01  0.00000000000000000E+00

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

        X         X - F(X)

  0.8565047E-16  0.00000000000000000E+00

  0.4282523E-16  0.00000000000000000E+00

  0.2141262E-16  0.00000000000000000E+00

  0.1070631E-16  0.00000000000000000E+00

  0.5353154E-17  0.00000000000000000E+00

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

        X         F(X) - F(-X)

  0.4362607E+01  0.00000000000000000E+00

  0.5742273E+01  0.00000000000000000E+00

  0.1797722E+02  0.00000000000000000E+00

  0.1683830E+02  0.00000000000000000E+00

  0.1519520E+02  0.00000000000000000E+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.9490626562425154E+08) = 0.9419570571788562E+00

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

       DSIN( 0.9490626562425157E+08) = 0.9419570471732214E+00
1TEST OF ERROR RETURNS


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


 DSIN RETURNED THE VALUE    -0.8489E+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.0000E+00,     0.5000E+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.2338E-15 =    2 ** -51.93
    OCCURRED FOR X =     0.458663E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.07


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.9079E-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.0000E+00,     0.5000E+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.2199E-15 =    2 ** -52.01
    OCCURRED FOR X =     0.139503E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.99


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.4364E-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.3000E+01,     0.7098E+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.4107E-15 =    2 ** -51.11
    OCCURRED FOR X =     0.631642E+01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.89


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1253E-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.3000E+01,     0.7098E+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.3764E-15 =    2 ** -51.24
    OCCURRED FOR X =     0.158202E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.76


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1239E-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.2799016E+01  0.00000000000000000E+00

  0.6197683E+00  0.00000000000000000E+00

  0.2879801E+01  0.00000000000000000E+00

  0.2883944E+01  0.00000000000000000E+00

  0.1625756E+01  0.00000000000000000E+00

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

        X         X - F(X)

  0.5344542E-16  0.00000000000000000E+00

  0.2672271E-16  0.00000000000000000E+00

  0.1336135E-16  0.00000000000000000E+00

  0.6680677E-17  0.00000000000000000E+00

  0.3340339E-17  0.00000000000000000E+00

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

        X         F(X) - F(-X)

  0.2321169E+01  0.00000000000000000E+00

  0.1272770E+01  0.00000000000000000E+00

  0.3520453E-01  0.00000000000000000E+00

  0.1070712E+01  0.00000000000000000E+00

  0.1874405E+01  0.00000000000000000E+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.7099E+03
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE


 DSINH RETURNED THE VALUE     0.1019+309



0DSINH WILL BE CALLED WITH THE ARGUMENT     0.9007E+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.7071E+00,     0.1000E+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.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 DSQRT(X*X) - X 


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.1000E+01,     0.1414E+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.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


 DSQRT(XMIN) = DSQRT(  0.22250738585072014-307) =   0.14916681462400413-153


 DSQRT(1-EPSNEG) = DSQRT(1-  0.1110223E-15) =   0.99999999999999989E+00


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


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


 DSQRT(XMAX) = DSQRT(  0.17976931348623157+309) =   0.13407807929942596+155


1TEST OF ERROR RETURNS


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


 DSQRT RETURNED THE VALUE     0.0000E+00



0DSQRT WILL BE CALLED WITH THE ARGUMENT    -0.1000E+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.0000E+00,     0.7854E+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.4311E-15 =    2 ** -51.04
    OCCURRED FOR X =     0.321833E-01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.96


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1101E-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.2749E+01,     0.3534E+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.4254E-15 =    2 ** -51.06
    OCCURRED FOR X =     0.301182E+01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.94


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.9834E-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.1885E+02,     0.1963E+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.3945E-15 =    2 ** -51.17
    OCCURRED FOR X =     0.189893E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.83


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1130E-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.1885E+02,     0.1963E+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.4441E-15 =    2 ** -51.00
    OCCURRED FOR X =     0.196349E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   2.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1254E-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.1544204E+02  0.00000000000000000E+00

  0.7636684E+01  0.00000000000000000E+00

  0.5502511E+01  0.00000000000000000E+00

  0.3914012E+01  0.00000000000000000E+00

  0.8480963E+01  0.00000000000000000E+00

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

        X         X - F(X)

  0.1572444E-16  0.00000000000000000E+00

  0.7862219E-17  0.00000000000000000E+00

  0.3931109E-17  0.00000000000000000E+00

  0.1965555E-17  0.00000000000000000E+00

  0.9827773E-18  0.00000000000000000E+00

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

       DTAN( 0.1821831989445408-230) = 0.1821831989445408-230

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

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

 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1TEST OF ERROR RETURNS


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


 DTAN RETURNED THE VALUE    -0.4638E+00



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


 DTAN RETURNED THE VALUE     0.1606E+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.1250E+00,     0.5493E+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.4971E-15 =    2 ** -50.84
    OCCURRED FOR X =     0.348429E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   2.16


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1409E-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.6743E+00,     0.1941E+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.3694E-15 =    2 ** -51.27
    OCCURRED FOR X =     0.694909E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.73


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.9233E-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.5017279E+00  0.00000000000000000E+00

  0.4981069E+00  0.00000000000000000E+00

  0.9202672E+00  0.00000000000000000E+00

  0.1755284E+00  0.00000000000000000E+00

  0.6310339E+00  0.00000000000000000E+00

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

        X         X - F(X)

  0.1005123E-15  0.00000000000000000E+00

  0.5025614E-16  0.00000000000000000E+00

  0.2512807E-16  0.00000000000000000E+00

  0.1256403E-16  0.00000000000000000E+00

  0.6282017E-17  0.00000000000000000E+00

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

        X         1 - F(X)

  0.1940812E+02  0.00000000000000000E+00

  0.2340812E+02  0.00000000000000000E+00

  0.2740812E+02  0.00000000000000000E+00

  0.3140812E+02  0.00000000000000000E+00

  0.3540812E+02  0.00000000000000000E+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.100000E+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.0000000E+00
       DTANH( 0.000000E+00) = 0.000000E+00

 THIS CONCLUDES THE TESTS
