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


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


 THE MAXIMUM RELATIVE ERROR OF     0.8205E-15 =    2 ** -50.11
    OCCURRED FOR X =     0.934584E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   2.89


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.2503E-15 =    2 ** -51.83
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.17


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   953 TIMES, AND
          WAS SMALLER  1047 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.5491E-15 =    2 ** -50.69
    OCCURRED FOR X =     0.839812E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   2.31


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1439E-15 =    2 ** -52.63
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.37


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


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


 THE MAXIMUM RELATIVE ERROR OF     0.2204E-15 =    2 ** -52.01
    OCCURRED FOR X =     0.562282E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.99


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.2963E-16 =    2 ** -54.91
 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            NAN



 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     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 DACOS(X) VS TAYLOR SERIES 


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


 DACOS(X) WAS LARGER    19 TIMES,
             AGREED  1952 TIMES, AND
        WAS SMALLER    29 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1532E-15 =    2 ** -52.54
    OCCURRED FOR X =     0.121468E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.46


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.2217E-16 =    2 ** -55.32
 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   171 TIMES,
              AGREED  1653 TIMES, AND
         WAS SMALLER   176 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.6883E-16 =    2 ** -53.69
 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   259 TIMES,
             AGREED  1488 TIMES, AND
        WAS SMALLER   253 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2215E-15 =    2 ** -52.00
    OCCURRED FOR X =     0.968765E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.8461E-16 =    2 ** -53.39
 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   110 TIMES,
             AGREED  1814 TIMES, AND
        WAS SMALLER    76 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1835E-15 =    2 ** -52.28
    OCCURRED FOR X =    -0.750989E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.72


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.5261E-16 =    2 ** -54.08
 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.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.306394-230) = 0.306394-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            NAN



 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     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 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   221 TIMES,
              AGREED  1564 TIMES, AND
         WAS SMALLER   215 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.255618E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.7595E-16 =    2 ** -53.55
 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   129 TIMES,
              AGREED  1708 TIMES, AND
         WAS SMALLER   163 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2120E-15 =    2 ** -52.07
    OCCURRED FOR X =     0.267975E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.93


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.6594E-16 =    2 ** -53.75
 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    75 TIMES,
              AGREED  1829 TIMES, AND
         WAS SMALLER    96 TIMES.


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


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


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.4497E-16 =    2 ** -54.30
 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.10191500421363742E-16

  0.8369797E+00  0.21792463666958639E-16

  0.2806985E+01 -0.21358782797964437E-16

  0.4141307E+01  0.34694469519536142E-16

  0.2921555E+01  0.39464959078472361E-16

 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.22204460492503131E-15  0.31415926535897936E+01

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

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

       DATAN( 0.306394-230) = 0.306394-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   257 TIMES,
              AGREED  1478 TIMES, AND
         WAS SMALLER   265 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.8083E-16 =    2 ** -53.46
 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   295 TIMES,
              AGREED  1457 TIMES, AND
         WAS SMALLER   248 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.8280E-16 =    2 ** -53.42
 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   289 TIMES,
              AGREED  1464 TIMES, AND
         WAS SMALLER   247 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2242E-15 =    2 ** -51.99
    OCCURRED FOR X =     0.390272E+03
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.01


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.8318E-16 =    2 ** -53.42
 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.95789261939094317E-16

  0.1597669E+01 -0.42609145378680324E-16

  0.1584547E+01  0.67003694259604174E-16

  0.5408677E+00  0.26020852139652106E-17

  0.1058453E+01 -0.17835125737386548E-16



 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   127 TIMES,
            AGREED  1749 TIMES, AND
       WAS SMALLER   124 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2203E-15 =    2 ** -52.01
    OCCURRED FOR X =     0.501298E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.99


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.5574E-16 =    2 ** -53.99
 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   146 TIMES,
            AGREED  1692 TIMES, AND
       WAS SMALLER   162 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.177995+103
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.99


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.6124E-16 =    2 ** -53.86
 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   906 TIMES,
            AGREED   157 TIMES, AND
       WAS SMALLER   937 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.7963E-14 =    2 ** -46.84
    OCCURRED FOR X =     0.575809E+01 Y =    -0.151425E+03
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   6.16


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.2071E-14 =    2 ** -48.78
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   4.22


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.2260787E-15

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

1TEST OF ERROR RETURNS


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


 THE VALUE RETURNED IS     0.4450-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   991 TIMES,
            AGREED     2 TIMES, AND
       WAS SMALLER  1007 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2189E-15 =    2 ** -52.02
    OCCURRED FOR X =     0.996423E-01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.98


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.6466E-16 =    2 ** -53.78
 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  1013 TIMES,
            AGREED     2 TIMES, AND
       WAS SMALLER   985 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1441E-11 =    2 ** -39.34
    OCCURRED FOR X =     0.188502E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS  13.66


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.3663E-13 =    2 ** -44.63
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   8.37


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


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


 THE MAXIMUM RELATIVE ERROR OF     0.2363E-12 =    2 ** -41.94
    OCCURRED FOR X =     0.235582E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS  11.06


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1037E-13 =    2 ** -46.45
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   6.55


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.62883726004159257E-17

  0.5377632E+01  0.18973538018496328E-16

  0.1302793E+02 -0.75894152073985310E-17

  0.4997217E+01  0.52963276125916892E-16

  0.6650451E+01 -0.16805133673525319E-16

 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.19569849213363355E-16

  0.5742273E+01 -0.49873299934333204E-17

  0.1797722E+02 -0.42717565595928875E-16

  0.1683830E+02 -0.16832238727837456E-16

  0.1519520E+02 -0.24557179206796675E-16

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

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

       DSIN( 0.9490626562425154E+08) = 0.9419570571788152E+00

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

       DSIN( 0.9490626562425157E+08) = 0.9419570471731803E+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     6 TIMES,
              AGREED  1984 TIMES, AND
         WAS SMALLER    10 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2164E-15 =    2 ** -52.04
    OCCURRED FOR X =     0.492840E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.96


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1391E-16 =    2 ** -56.00
 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    25 TIMES,
             AGREED  1960 TIMES, AND
        WAS SMALLER    15 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.2924E-16 =    2 ** -54.92
 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  1011 TIMES,
              AGREED   986 TIMES, AND
         WAS SMALLER     3 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2916E-15 =    2 ** -51.61
    OCCURRED FOR X =     0.409377E+03
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.39


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1161E-15 =    2 ** -52.94
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.06


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   953 TIMES,
             AGREED  1040 TIMES, AND
        WAS SMALLER     7 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2972E-15 =    2 ** -51.58
    OCCURRED FOR X =     0.523035E+03
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.42


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


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.306394-230) = 0.306394-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.10000000000000000E+01


 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.13407807929942597+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   959 TIMES,
             AGREED     0 TIMES, AND
        WAS SMALLER  1041 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2390E-15 =    2 ** -51.89
    OCCURRED FOR X =     0.264545E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.11


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.7778E-16 =    2 ** -53.51
 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  1006 TIMES,
             AGREED     1 TIMES, AND
        WAS SMALLER   993 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2641E-15 =    2 ** -51.75
    OCCURRED FOR X =     0.279806E+01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.25


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.8213E-16 =    2 ** -53.43
 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  1025 TIMES,
             AGREED     0 TIMES, AND
        WAS SMALLER   975 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2221E-15 =    2 ** -52.00
    OCCURRED FOR X =     0.188868E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


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


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


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


 THE MAXIMUM RELATIVE ERROR OF     0.2793E-15 =    2 ** -51.67
    OCCURRED FOR X =     0.189739E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.33


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


1SPECIAL TESTS


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

        X         F(X) + F(-X)

  0.1544204E+02  0.12468324983583301E-16

  0.7636684E+01  0.12923689896027213E-15

  0.5502511E+01  0.53234326669038268E-16

  0.3914012E+01  0.15991982044161190E-16

  0.8480963E+01  0.62124784483419404E-16

 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.3063943978238373-230) = 0.3063943978238373-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   151 TIMES,
              AGREED  1676 TIMES, AND
         WAS SMALLER   173 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.255414E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


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


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   210 TIMES,
              AGREED  1588 TIMES, AND
         WAS SMALLER   202 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1886E-15 =    2 ** -52.24
    OCCURRED FOR X =     0.675742E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.76


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.5147E-16 =    2 ** -54.11
 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.24475864043860263E-16

  0.4981069E+00  0.12387009820646888E-16

  0.9202672E+00 -0.40928632011327792E-16

  0.1755284E+00 -0.56378512969246231E-17

  0.6310339E+00 -0.47162794503119443E-16

 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.63194576300206176E-33

  0.1256403E-16 -0.15798644075051544E-33

  0.6282017E-17 -0.39496610187628860E-34

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

        X         1 - F(X)

  0.1940812E+02 -0.27755575615628914E-16

  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.306394-230) = 0.306394-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
