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 =      .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      .0000E+00 =    2 **-999.00
    OCCURRED FOR X =      .000000E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


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


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (      .7071E+00,      .9375E+00)


 DLOG(X) WAS LARGER     0 TIMES,
             AGREED   490 TIMES, AND
        WAS SMALLER  1510 TIMES.


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


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


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


 DLOG10(X) WAS LARGER     0 TIMES,
               AGREED   807 TIMES, AND
          WAS SMALLER  1193 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .5999E-15 =    2 ** -50.57
    OCCURRED FOR X =      .898940E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   2.43


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .1629E-15 =    2 ** -52.45
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .55


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (      .1600E+02,      .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      .2204E-15 =    2 ** -52.01
    OCCURRED FOR X =      .562282E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .99


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .2963E-16 =    2 ** -54.91
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


1SPECIAL TESTS


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

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

   .1598332E+02   .44408920985006262E-15

   .1533961E+02   .00000000000000000E+00

   .1534757E+02   .44408920985006262E-15

   .1581323E+02   .00000000000000000E+00

   .1574018E+02   .00000000000000000E+00



 TEST OF SPECIAL ARGUMENTS


 DLOG(1.0) =    .00000000000000000E+00


 DLOG(XMIN) = DLOG(   .22250738585072014-307) =   -.70839641853226408E+03


 DLOG(XMAX) = DLOG(   .17976931348623157+309) =    .70978271289338397E+03


1TEST OF ERROR RETURNS


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


 DLOG RETURNED THE VALUE            NAN



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


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .1121E-15 =    2 ** -52.99
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .01


1TEST OF DACOS(X) VS TAYLOR SERIES 


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


 DACOS(X) WAS LARGER   483 TIMES,
             AGREED  1026 TIMES, AND
        WAS SMALLER   491 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .1536E-15 =    2 ** -52.53
    OCCURRED FOR X =      .124894E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .47


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .9882E-16 =    2 ** -53.17
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


1TEST OF DASIN(X) VS TAYLOR SERIES 


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (      .7500E+00,      .1000E+01)


 DASIN(X) WAS LARGER   312 TIMES,
              AGREED  1366 TIMES, AND
         WAS SMALLER   322 TIMES.


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


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


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .9648E-16 =    2 ** -53.20
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


1TEST OF DACOS(X) VS TAYLOR SERIES 


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (      .7500E+00,      .1000E+01)


 DACOS(X) WAS LARGER   398 TIMES,
             AGREED  1237 TIMES, AND
        WAS SMALLER   365 TIMES.


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


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


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .1042E-15 =    2 ** -53.09
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


1TEST OF DACOS(X) VS TAYLOR SERIES 


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     -.1000E+01,     -.7500E+00)


 DACOS(X) WAS LARGER   422 TIMES,
             AGREED  1195 TIMES, AND
        WAS SMALLER   383 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .1836E-15 =    2 ** -52.27
    OCCURRED FOR X =     -.750369E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .73


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .1056E-15 =    2 ** -53.07
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


1SPECIAL TESTS


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

        X         F(X) + F(-X)

  -.8570483E+00   .00000000000000000E+00

  -.3795332E+00   .00000000000000000E+00

  -.2069628E+00   .00000000000000000E+00

  -.7937374E+00   .00000000000000000E+00

  -.1474389E+00   .00000000000000000E+00

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

        X         X - F(X)

   .8129991E-16   .00000000000000000E+00

   .4064995E-16   .00000000000000000E+00

   .2032498E-16   .00000000000000000E+00

   .1016249E-16   .00000000000000000E+00

   .5081244E-17   .00000000000000000E+00

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

       DASIN(  .182183-230) =  .182183-230

1TEST OF ERROR RETURNS


 DASIN WILL BE CALLED WITH THE ARGUMENT      .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
      (     -.6250E-01,      .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      .0000E+00 =    2 **-999.00
    OCCURRED FOR X =      .000000E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


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


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (      .6250E-01,      .2679E+00)


 DATAN(X) WAS LARGER   503 TIMES,
              AGREED  1411 TIMES, AND
         WAS SMALLER    86 TIMES.


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


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


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .8506E-16 =    2 ** -53.38
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (      .2679E+00,      .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      .2120E-15 =    2 ** -52.07
    OCCURRED FOR X =      .267975E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .93


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .6594E-16 =    2 ** -53.75
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (      .4142E+00,      .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      .2193E-15 =    2 ** -52.02
    OCCURRED FOR X =      .554551E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .98


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .4497E-16 =    2 ** -54.30
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


1SPECIAL TESTS


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

        X         F(X) + F(-X)

   .3786934E+01   .10191500421363742E-16

   .8369797E+00   .21792463666958639E-16

   .2806985E+01  -.21358782797964437E-16

   .4141307E+01   .34694469519536142E-16

   .2921555E+01   .39464959078472361E-16

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

        X         X - F(X)

   .9530362E-16   .00000000000000000E+00

   .4765181E-16   .00000000000000000E+00

   .2382591E-16   .00000000000000000E+00

   .1191295E-16   .00000000000000000E+00

   .5956476E-17   .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))

   .1169997E+01   .8020087E+00   .00000000000000000E+00  -.31415926535897936E+01

  -.4592220E+00   .6639704E+00   .00000000000000000E+00   .31415926535897931E+01

   .1494548E+00   .3078682E+00   .00000000000000000E+00  -.31415926535897936E+01

  -.2371523E+00   .1237900E+00  -.22204460492503131E-15   .31415926535897936E+01

  -.1124315E+01   .6431007E+00   .00000000000000000E+00   .31415926535897931E+01

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

       DATAN(  .182183-230) =  .182183-230

1TEST OF ERROR RETURNS


 DATAN WILL BE CALLED WITH THE ARGUMENT   .1797693+309
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE

       DATAN(  .179769+309) =  .157080E+01

 DATAN2 WILL BE CALLED WITH THE ARGUMENTS
   .1000000E+01   .0000000E+00
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE

       DATAN2(  .100000E+01  .000000E+00) =  .157080E+01

 DATAN2 WILL BE CALLED WITH THE ARGUMENTS
   .2225074-307   .1797693+309
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE

       DATAN2(  .222507-307  .179769+309) =  .000000E+00

 DATAN2 WILL BE CALLED WITH THE ARGUMENTS
   .1797693+309   .2225074-307
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE

       DATAN2(  .179769+309  .222507-307) =  .157080E+01

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


       DATAN2(  .000000E+00  .000000E+00) =  .000000E+00

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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     -.2841E+00,      .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      .2217E-15 =    2 ** -52.00
    OCCURRED FOR X =      .640868E-01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .8083E-16 =    2 ** -53.46
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     -.3466E+01,     -.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      .2219E-15 =    2 ** -52.00
    OCCURRED FOR X =     -.630724E+03
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .8280E-16 =    2 ** -53.42
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (      .6931E+01,      .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      .2242E-15 =    2 ** -51.99
    OCCURRED FOR X =      .390272E+03
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.01


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .8318E-16 =    2 ** -53.42
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


1SPECIAL TESTS


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

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

   .4969983E+00  -.95789261939094317E-16

   .1597669E+01  -.42609145378680324E-16

   .1584547E+01   .67003694259604174E-16

   .5408677E+00   .26020852139652106E-17

   .1058453E+01  -.17835125737386548E-16



 TEST OF SPECIAL ARGUMENTS


 DEXP(0.0) - 1.0D+00 =    .0000000E+00

 DEXP( -.708000E+03) =  .330755-307

 DEXP(  .709000E+03) =  .821841+308

0IF DEXP(  .354500E+03) =   .9065543260916564+154 IS NOT ABOUT
 DEXP(  .177250E+03)**2 =   .9065543260916564+154 THERE IS AN ARG RED ERROR
1TEST OF ERROR RETURNS


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


 DEXP RETURNED THE VALUE      .0000E+00



0EXP WILL BE CALLED WITH THE ARGUMENT      .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
      (      .5000E+00,      .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      .0000E+00 =    2 **-999.00
    OCCURRED FOR X =      .000000E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


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


1TEST OF XSQ**1.5 VS XSQ*X


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (      .5000E+00,      .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      .2203E-15 =    2 ** -52.01
    OCCURRED FOR X =      .501298E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .99


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .5574E-16 =    2 ** -53.99
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


1TEST OF XSQ**1.5 VS XSQ*X


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (      .1000E+01,      .5644+103)


 X**1.5 WAS LARGER   175 TIMES,
            AGREED  1679 TIMES, AND
       WAS SMALLER   146 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .2212E-15 =    2 ** -52.01
    OCCURRED FOR X =      .177995+103
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .99


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .6259E-16 =    2 ** -53.83
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


1TEST OF X**Y VS XSQ**(Y/2)


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE REGION
      X IN (      .1000E-01,      .1000E+02), Y IN (     -.1541E+03,      .1541E+03)


  X**Y  WAS LARGER   907 TIMES,
            AGREED   157 TIMES, AND
       WAS SMALLER   936 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .7963E-14 =    2 ** -46.84
    OCCURRED FOR X =      .575809E+01 Y =     -.151425E+03
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   6.16


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .2070E-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

   .9376345E+01   .1384936E+01         .1600868E-15

   .5629481E+01   .6648109E+01        -.4475541E-15

   .2706868E+01   .1081573E+02         .3058252E-15

   .1760724E+01   .7319591E+01        -.2260787E-15

   .4613214E+01   .7469720E+01        -.1595876E-15

1TEST OF ERROR RETURNS


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


 THE VALUE RETURNED IS      .2225-307



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


 THE VALUE RETURNED IS      .8988+308



 (  .0000000E+00 ) ** (  .2000000E+01 ) WILL BE COMPUTED.
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE


 THE VALUE RETURNED IS      .0000E+00



 ( -.2000000E+01 ) ** (  .0000000E+00 ) WILL BE COMPUTED.
 THIS SHOULD TRIGGER AN ERROR MESSAGE


 THE VALUE RETURNED IS      .1000E+01



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


 THE VALUE RETURNED IS      .4000E+01



 (  .0000000E+00 ) ** (  .0000000E+00 ) WILL BE COMPUTED.
 THIS SHOULD TRIGGER AN ERROR MESSAGE


 THE VALUE RETURNED IS      .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
      (      .0000E+00,      .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      .2189E-15 =    2 ** -52.02
    OCCURRED FOR X =      .996423E-01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .98


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .6466E-16 =    2 ** -53.78
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (      .1885E+02,      .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      .1441E-11 =    2 ** -39.34
    OCCURRED FOR X =      .188502E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS  13.66


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .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
      (      .2199E+02,      .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      .2363E-12 =    2 ** -41.94
    OCCURRED FOR X =      .235582E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS  11.06


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


1SPECIAL TESTS


 IF   .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)

   .1357806E+02   .62883726004159257E-17

   .5377632E+01   .18973538018496328E-16

   .1302793E+02  -.75894152073985310E-17

   .4997217E+01   .52963276125916892E-16

   .6650451E+01  -.16805133673525319E-16

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

        X         X - F(X)

   .8565047E-16   .00000000000000000E+00

   .4282523E-16   .00000000000000000E+00

   .2141262E-16   .00000000000000000E+00

   .1070631E-16   .00000000000000000E+00

   .5353154E-17   .00000000000000000E+00

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

        X         F(X) - F(-X)

   .4362607E+01   .19569849213363355E-16

   .5742273E+01  -.49873299934333204E-17

   .1797722E+02  -.42717565595928875E-16

   .1683830E+02  -.16832238727837456E-16

   .1519520E+02  -.24557179206796675E-16

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

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

       DSIN(  .9490626562425154E+08) =  .9419570571788152E+00

       DSIN(  .9490626562425156E+08) =  .9419570521759979E+00

       DSIN(  .9490626562425157E+08) =  .9419570471731803E+00
1TEST OF ERROR RETURNS


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


 DSIN RETURNED THE VALUE     -.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
      (      .0000E+00,      .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      .2164E-15 =    2 ** -52.04
    OCCURRED FOR X =      .492840E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .96


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .1391E-16 =    2 ** -56.00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (      .0000E+00,      .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      .2199E-15 =    2 ** -52.01
    OCCURRED FOR X =      .139503E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .99


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .2924E-16 =    2 ** -54.92
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (      .3000E+01,      .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      .2916E-15 =    2 ** -51.61
    OCCURRED FOR X =      .409377E+03
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.39


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


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (      .3000E+01,      .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      .2972E-15 =    2 ** -51.58
    OCCURRED FOR X =      .523035E+03
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.42


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


1SPECIAL TESTS


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

        X         F(X) + F(-X)

   .2799016E+01   .00000000000000000E+00

   .6197683E+00   .00000000000000000E+00

   .2879801E+01   .00000000000000000E+00

   .2883944E+01   .00000000000000000E+00

   .1625756E+01   .00000000000000000E+00

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

        X         X - F(X)

   .5344542E-16   .00000000000000000E+00

   .2672271E-16   .00000000000000000E+00

   .1336135E-16   .00000000000000000E+00

   .6680677E-17   .00000000000000000E+00

   .3340339E-17   .00000000000000000E+00

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

        X         F(X) - F(-X)

   .2321169E+01   .00000000000000000E+00

   .1272770E+01   .00000000000000000E+00

   .3520453E-01   .00000000000000000E+00

   .1070712E+01   .00000000000000000E+00

   .1874405E+01   .00000000000000000E+00

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

       DSINH(  .182183-230) =  .182183-230

1TEST OF ERROR RETURNS


 DSINH WILL BE CALLED WITH THE ARGUMENT      .7099E+03
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE


 DSINH RETURNED THE VALUE      .1019+309



0DSINH WILL BE CALLED WITH THE ARGUMENT      .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
      (      .7071E+00,      .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      .0000E+00 =    2 **-999.00
    OCCURRED FOR X =      .000000E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


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


1TEST OF DSQRT(X*X) - X 


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (      .1000E+01,      .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      .0000E+00 =    2 **-999.00
    OCCURRED FOR X =      .000000E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


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


1TEST OF SPECIAL ARGUMENTS


 DSQRT(XMIN) = DSQRT(   .22250738585072014-307) =    .14916681462400413-153


 DSQRT(1-EPSNEG) = DSQRT(1-   .1110223E-15) =    .10000000000000000E+01


 DSQRT(1.0) = DSQRT(   .10000000000000000E+01) =    .10000000000000000E+01


 DSQRT(1+EPS) = DSQRT(1+   .2220446E-15) =    .10000000000000000E+01


 DSQRT(XMAX) = DSQRT(   .17976931348623157+309) =    .13407807929942597+155


1TEST OF ERROR RETURNS


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


 DSQRT RETURNED THE VALUE      .0000E+00



0DSQRT WILL BE CALLED WITH THE ARGUMENT     -.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
      (      .0000E+00,      .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      .2390E-15 =    2 ** -51.89
    OCCURRED FOR X =      .264545E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.11


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .7778E-16 =    2 ** -53.51
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (      .2749E+01,      .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      .2641E-15 =    2 ** -51.75
    OCCURRED FOR X =      .279806E+01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.25


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .8213E-16 =    2 ** -53.43
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


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


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


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


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (      .1885E+02,      .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      .2793E-15 =    2 ** -51.67
    OCCURRED FOR X =      .189739E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.33


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


1SPECIAL TESTS


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

        X         F(X) + F(-X)

   .1544204E+02   .12468324983583301E-16

   .7636684E+01   .12923689896027213E-15

   .5502511E+01   .53234326669038268E-16

   .3914012E+01   .15991982044161190E-16

   .8480963E+01   .62124784483419404E-16

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

        X         X - F(X)

   .1572444E-16   .00000000000000000E+00

   .7862219E-17   .00000000000000000E+00

   .3931109E-17   .00000000000000000E+00

   .1965555E-17   .00000000000000000E+00

   .9827773E-18   .00000000000000000E+00

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

       DTAN(  .1821831989445408-230) =  .1821831989445408-230

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

       DTAN(  .1100000000000000E+02) = -.2259508464541951E+03

 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


1TEST OF ERROR RETURNS


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


 DTAN RETURNED THE VALUE     -.4638E+00



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


 DTAN RETURNED THE VALUE      .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
      (      .1250E+00,      .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      .2220E-15 =    2 ** -52.00
    OCCURRED FOR X =      .255414E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .5915E-16 =    2 ** -53.91
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .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
      (      .6743E+00,      .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      .1886E-15 =    2 ** -52.24
    OCCURRED FOR X =      .675742E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .76


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .5147E-16 =    2 ** -54.11
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


1SPECIAL TESTS


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

        X         F(X) + F(-X)

   .5017279E+00   .24475864043860263E-16

   .4981069E+00   .12387009820646888E-16

   .9202672E+00  -.40928632011327792E-16

   .1755284E+00  -.56378512969246231E-17

   .6310339E+00  -.47162794503119443E-16

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

        X         X - F(X)

   .1005123E-15   .00000000000000000E+00

   .5025614E-16   .00000000000000000E+00

   .2512807E-16   .00000000000000000E+00

   .1256403E-16   .00000000000000000E+00

   .6282017E-17   .00000000000000000E+00

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

        X         1 - F(X)

   .1940812E+02  -.27755575615628914E-16

   .2340812E+02   .00000000000000000E+00

   .2740812E+02   .00000000000000000E+00

   .3140812E+02   .00000000000000000E+00

   .3540812E+02   .00000000000000000E+00

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

       DTANH(  .182183-230) =  .182183-230

 THE FUNCTION DTANH WILL BE CALLED WITH THE ARGUMENT   .1797693+309
       DTANH(  .179769+309) =  .100000E+01

 THE FUNCTION DTANH WILL BE CALLED WITH THE ARGUMENT   .2225074-307
       DTANH(  .222507-307) =  .222507-307

 THE FUNCTION DTANH WILL BE CALLED WITH THE ARGUMENT   .0000000E+00
       DTANH(  .000000E+00) =  .000000E+00

 THIS CONCLUDES THE TESTS
