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.2204460492503130D-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   998 TIMES,
             AGREED     2 TIMES, AND
        WAS SMALLER  1000 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1103D-15 =    2 ** -53.01
    OCCURRED FOR X =     0.999996D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.4517D-16 =    2 ** -54.30
 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     1 TIMES, AND
        WAS SMALLER  1999 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.7910D-15 =    2 ** -50.17
    OCCURRED FOR X =     0.932208D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   2.83


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.2426D-15 =    2 ** -51.87
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.13


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     1 TIMES, AND
          WAS SMALLER  1999 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.5170D-15 =    2 ** -50.78
    OCCURRED FOR X =     0.896833D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   2.22


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1327D-15 =    2 ** -52.74
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.26


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


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


 THE MAXIMUM RELATIVE ERROR OF     0.1144D-15 =    2 ** -52.96
    OCCURRED FOR X =     0.562282D+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.04


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.5144D-16 =    2 ** -54.11
 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.32244172609718901D-15

  0.1533961D+02 -0.11817803680091998D-15

  0.1534757D+02  0.74376269032505604D-16

  0.1581323D+02 -0.67437375128598375D-16

  0.1574018D+02 -0.17390602846667491D-15



 TEST OF SPECIAL ARGUMENTS


 DLOG(1.0) =   0.00000000000000000D+00


 DLOG(XMIN) = DLOG(  0.22250738585072014-307) =  -0.70839641853226407D+03


 DLOG(XMAX) = DLOG(  0.17976931348623157+309) =   0.70978271289338401D+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???????????????



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


 DLOG RETURNED THE VALUE---------------



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


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


 DACOS(X) WAS LARGER   555 TIMES,
             AGREED  1445 TIMES, AND
        WAS SMALLER     0 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.124874D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.47


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.7463D-16 =    2 ** -53.57
 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   754 TIMES,
              AGREED  1246 TIMES, AND
         WAS SMALLER     0 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2613D-15 =    2 ** -51.77
    OCCURRED FOR X =     0.751200D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.23


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.9671D-16 =    2 ** -53.20
 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   258 TIMES,
             AGREED  1489 TIMES, AND
        WAS SMALLER   253 TIMES.


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


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


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.8455D-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.1000D+01,    -0.7500D+00)


 DACOS(X) WAS LARGER   618 TIMES,
             AGREED  1382 TIMES, AND
        WAS SMALLER     0 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.9329D-16 =    2 ** -53.25
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1SPECIAL TESTS


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

        X         F(X) + F(-X)

 -0.8570483D+00 -0.10907073855204174D-15

 -0.3795332D+00  0.15449880957918438D-16

 -0.2069628D+00  0.62477150189477193D-17

 -0.7937374D+00  0.17021974108022419D-16

 -0.1474389D+00  0.24123498337802473D-17

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



 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  1003 TIMES,
              AGREED     3 TIMES, AND
         WAS SMALLER   994 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1101D-15 =    2 ** -53.01
    OCCURRED FOR X =     0.313812D-01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.4461D-16 =    2 ** -54.32
 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   836 TIMES,
              AGREED     1 TIMES, AND
         WAS SMALLER  1163 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1495D-15 =    2 ** -52.57
    OCCURRED FOR X =     0.135007D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.43


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.5568D-16 =    2 ** -54.00
 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   956 TIMES,
              AGREED     2 TIMES, AND
         WAS SMALLER  1042 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1600D-15 =    2 ** -52.47
    OCCURRED FOR X =     0.277603D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.53


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.5888D-16 =    2 ** -53.92
 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   989 TIMES,
              AGREED     0 TIMES, AND
         WAS SMALLER  1011 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1306D-15 =    2 ** -52.77
    OCCURRED FOR X =     0.578566D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.23


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.5087D-16 =    2 ** -54.13
 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.39031278209478159D-16

  0.8369797D+00 -0.23960868011929647D-16

  0.2806985D+01  0.28622937353617317D-16

  0.4141307D+01  0.34694469519536141D-16

  0.2921555D+01  0.39464959078472361D-16

 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.21575623232461538D-16 -0.31415926535897931D+01

 -0.4592220D+00  0.6639704D+00  0.13444106938820254D-16  0.31415926535897931D+01

  0.1494548D+00  0.3078682D+00 -0.34098158324669114D-16 -0.31415926535897931D+01

 -0.2371523D+00  0.1237900D+00  0.60281640790194046D-16  0.31415926535897931D+01

 -0.1124315D+01  0.6431007D+00  0.89012998361059914D-16  0.31415926535897931D+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.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   966 TIMES,
              AGREED     1 TIMES, AND
         WAS SMALLER  1033 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2058D-15 =    2 ** -52.11
    OCCURRED FOR X =     0.675458D-01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.89


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.6768D-16 =    2 ** -53.71
 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   982 TIMES,
              AGREED     1 TIMES, AND
         WAS SMALLER  1017 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1891D-15 =    2 ** -52.23
    OCCURRED FOR X =    -0.146092D+03
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.77


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.6643D-16 =    2 ** -53.74
 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   922 TIMES,
              AGREED     0 TIMES, AND
         WAS SMALLER  1078 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.5696D-13 =    2 ** -44.00
    OCCURRED FOR X =     0.513382D+03
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   9.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.3000D-14 =    2 ** -48.24
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   4.76


1SPECIAL TESTS


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

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

  0.4969983D+00 -0.21900883884207189D-16

  0.1597669D+01 -0.87603535536828758D-16

  0.1584547D+01  0.41416522988946269D-16

  0.5408677D+00 -0.18268806606380749D-16

  0.1058453D+01 -0.64022138285269036D-16



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



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


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


 THE MAXIMUM RELATIVE ERROR OF     0.1494D-15 =    2 ** -52.57
    OCCURRED FOR X =     0.796403D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.43


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.5186D-16 =    2 ** -54.10
 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   965 TIMES,
            AGREED     1 TIMES, AND
       WAS SMALLER  1034 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1405D-15 =    2 ** -52.66
    OCCURRED FOR X =     0.562381+102
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.34


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.5148D-16 =    2 ** -54.11
 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   992 TIMES,
            AGREED     1 TIMES, AND
       WAS SMALLER  1007 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.7978D-14 =    2 ** -46.83
    OCCURRED FOR X =     0.575809D+01 Y =    -0.151425D+03
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   6.17


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.2074D-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.9376345D+01  0.1384936D+01        0.1105287D-15

  0.5629481D+01  0.6648109D+01       -0.4474084D-15

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

  0.1760724D+01  0.7319591D+01       -0.1702765D-15

  0.4613214D+01  0.7469720D+01        0.3716958D-15

1TEST OF ERROR RETURNS


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


 THE VALUE RETURNED IS     0.4450-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   455 TIMES,
            AGREED  1192 TIMES, AND
       WAS SMALLER   353 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1504D-18 =    2 ** -62.53
    OCCURRED FOR X =     0.368794D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.4592D-19 =    2 ** -64.24
 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   880 TIMES,
            AGREED   358 TIMES, AND
       WAS SMALLER   762 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1407D-14 =    2 ** -49.34
    OCCURRED FOR X =     0.188502D+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   3.66


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.3259D-16 =    2 ** -54.77
 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   834 TIMES,
            AGREED   343 TIMES, AND
       WAS SMALLER   823 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2294D-15 =    2 ** -51.95
    OCCURRED FOR X =     0.235601D+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.05


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1024D-16 =    2 ** -56.44
 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.3063943978238373-230) = 0.3063943978238373-230
 THE FOLLOWING THREE LINES ILLUSTRATE THE LOSS IN SIGNIFICANCE
 FOR LARGE ARGUMENTS.  THE ARGUMENTS ARE CONSECUTIVE.

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

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

       DSIN( 0.9490626562425157D+08) = 0.9419570451017012D+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    12 TIMES,
              AGREED  1986 TIMES, AND
         WAS SMALLER     2 TIMES.


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


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


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1244D-16 =    2 ** -56.16
 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     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 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   992 TIMES,
              AGREED  1008 TIMES, AND
         WAS SMALLER     0 TIMES.


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


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


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


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


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


 THE MAXIMUM RELATIVE ERROR OF     0.2977D-15 =    2 ** -51.58
    OCCURRED FOR X =     0.600665D+03
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.42


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1144D-15 =    2 ** -52.96
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.04


1SPECIAL TESTS


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

        X         F(X) + F(-X)

  0.2799016D+01  0.66613381477509392D-15

  0.6197683D+00 -0.21684043449710088D-16

  0.2879801D+01 -0.83353463020685580D-15

  0.2883944D+01  0.82052420413702975D-15

  0.1625756D+01 -0.49439619065339002D-16

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

  0.1272770D+01  0.63208986655904908D-16

  0.3520453D-01  0.10603497246908233D-15

  0.1070712D+01  0.27647155398380363D-16

  0.1874405D+01 -0.16826817716975028D-15

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



 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.10000000000000000D+01


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



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


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


 THE MAXIMUM RELATIVE ERROR OF     0.2286D-15 =    2 ** -51.96
    OCCURRED FOR X =     0.504676D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.04


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.7223D-16 =    2 ** -53.62
 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   988 TIMES,
             AGREED     0 TIMES, AND
        WAS SMALLER  1012 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.8807D-12 =    2 ** -40.05
    OCCURRED FOR X =     0.314153D+01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS  12.95


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.2482D-13 =    2 ** -45.20
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   7.80


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


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


 THE MAXIMUM RELATIVE ERROR OF     0.2909D-11 =    2 ** -38.32
    OCCURRED FOR X =     0.188501D+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS  14.68


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.8667D-13 =    2 ** -43.39
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   9.61


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


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


 THE MAXIMUM RELATIVE ERROR OF     0.1096D-15 =    2 ** -53.02
    OCCURRED FOR X =     0.189739D+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.4772D-16 =    2 ** -54.22
 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.1544204D+02 -0.26508743117270583D-15

  0.7636684D+01 -0.16471199404399783D-14

  0.5502511D+01 -0.16881027825599304D-15

  0.3914012D+01  0.26053378204826671D-15

  0.8480963D+01  0.62124784483419404D-16

 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.3063943978238373-230) = 0.3063943978238373-230

 THE RELATIVE ERROR IN DTAN(11) IS   0.3193814D-17 =    2 ** -58.12 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   995 TIMES,
              AGREED     1 TIMES, AND
         WAS SMALLER  1004 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1103D-15 =    2 ** -53.01
    OCCURRED FOR X =     0.127863D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.4425D-16 =    2 ** -54.33
 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.6743D+00,     0.1941D+02)


 DTANH(X) WAS LARGER   983 TIMES,
              AGREED    24 TIMES, AND
         WAS SMALLER   993 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.9354D-16 =    2 ** -53.25
    OCCURRED FOR X =     0.685662D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.3292D-16 =    2 ** -54.75
 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.24502969098172400D-16

  0.4981069D+00  0.56920614055488982D-18

  0.9202672D+00 -0.40928632011327792D-16

  0.1755284D+00 -0.56514038240806918D-17

  0.6310339D+00 -0.47108584394495167D-16

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