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


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .0000D+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
      (      .7071D+00,      .9375D+00)


 DLOG(X) WAS LARGER     0 TIMES,
             AGREED  1507 TIMES, AND
        WAS SMALLER   493 TIMES.


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


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


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


1TEST OF DLOG10(X) VS DLOG10(11X/10)-DLOG10(11/10) 


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (      .3162D+00,      .9000D+00)


 DLOG10(X) WAS LARGER     0 TIMES,
               AGREED   873 TIMES, AND
          WAS SMALLER  1127 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .5259D-15 =    2 ** -50.76
    OCCURRED FOR X =      .833353D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   2.24


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .1502D-15 =    2 ** -52.56
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .44


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (      .1600D+02,      .2400D+03)


 DLOG(X) WAS LARGER    62 TIMES,
             AGREED  1938 TIMES, AND
        WAS SMALLER     0 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .2204D-15 =    2 ** -52.01
    OCCURRED FOR X =      .562282D+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .99


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .2939D-16 =    2 ** -54.92
 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)

   .1598332D+02   .44408920985006262D-15

   .1533961D+02   .00000000000000000D+00

   .1534757D+02   .44408920985006262D-15

   .1581323D+02   .00000000000000000D+00

   .1574018D+02   .00000000000000000D+00



 TEST OF SPECIAL ARGUMENTS


 DLOG(1.0) =    .00000000000000000D+00


 DLOG(XMIN) = DLOG(   .49406564584124657-323) =   -.74444007192138122D+03


 DLOG(XMAX) = DLOG(                      INF) =                       INF


1TEST OF ERROR RETURNS


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


 DLOG RETURNED THE VALUE           NaNQ



 DLOG WILL BE CALLED WITH THE ARGUMENT      .0000D+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
      (     -.1250D+00,      .1250D+00)


 DASIN(X) WAS LARGER   528 TIMES,
              AGREED   992 TIMES, AND
         WAS SMALLER   480 TIMES.


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


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


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .1121D-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
      (     -.1250D+00,      .1250D+00)


 DACOS(X) WAS LARGER   482 TIMES,
             AGREED  1027 TIMES, AND
        WAS SMALLER   491 TIMES.


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


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


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


 DASIN(X) WAS LARGER   311 TIMES,
              AGREED  1363 TIMES, AND
         WAS SMALLER   326 TIMES.


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


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


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


 DACOS(X) WAS LARGER   393 TIMES,
             AGREED  1243 TIMES, AND
        WAS SMALLER   364 TIMES.


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


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


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


 DACOS(X) WAS LARGER   424 TIMES,
             AGREED  1194 TIMES, AND
        WAS SMALLER   382 TIMES.


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


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


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .1057D-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)

  -.8570483D+00   .00000000000000000D+00

  -.3795332D+00   .00000000000000000D+00

  -.2069628D+00   .00000000000000000D+00

  -.7937374D+00   .00000000000000000D+00

  -.1474389D+00   .00000000000000000D+00

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

        X         X - F(X)

   .8129991D-16   .00000000000000000D+00

   .4064995D-16   .00000000000000000D+00

   .2032498D-16   .00000000000000000D+00

   .1016249D-16   .00000000000000000D+00

   .5081244D-17   .00000000000000000D+00

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

       DASIN(  .331389-242) =  .331389-242

1TEST OF ERROR RETURNS


 DASIN WILL BE CALLED WITH THE ARGUMENT      .1200D+01
 THIS SHOULD TRIGGER AN ERROR MESSAGE


 DASIN RETURNED THE VALUE           NaNQ



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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     -.6250D-01,      .6250D-01)


 DATAN(X) WAS LARGER   469 TIMES,
              AGREED  1052 TIMES, AND
         WAS SMALLER   479 TIMES.


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


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


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .1082D-15 =    2 ** -53.04
 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
      (      .6250D-01,      .2679D+00)


 DATAN(X) WAS LARGER   432 TIMES,
              AGREED  1371 TIMES, AND
         WAS SMALLER   197 TIMES.


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


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


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .8645D-16 =    2 ** -53.36
 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
      (      .2679D+00,      .4142D+00)


 DATAN(X) WAS LARGER   255 TIMES,
              AGREED  1480 TIMES, AND
         WAS SMALLER   265 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .2117D-15 =    2 ** -52.07
    OCCURRED FOR X =      .268431D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .93


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .8706D-16 =    2 ** -53.35
 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
      (      .4142D+00,      .1000D+01)


 DATAN(X) WAS LARGER   155 TIMES,
              AGREED  1708 TIMES, AND
         WAS SMALLER   137 TIMES.


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


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


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .5783D-16 =    2 ** -53.94
 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)

   .3786934D+01   .00000000000000000D+00

   .8369797D+00   .00000000000000000D+00

   .2806985D+01   .00000000000000000D+00

   .4141307D+01   .00000000000000000D+00

   .2921555D+01   .00000000000000000D+00

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

        X         X - F(X)

   .9530362D-16   .00000000000000000D+00

   .4765181D-16   .00000000000000000D+00

   .2382591D-16   .00000000000000000D+00

   .1191295D-16   .00000000000000000D+00

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

   .1169997D+01   .8020087D+00   .00000000000000000D+00  -.31415926535897931D+01

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

   .1494548D+00   .3078682D+00   .00000000000000000D+00  -.31415926535897931D+01

  -.2371523D+00   .1237900D+00  -.22204460492503131D-15   .31415926535897931D+01

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

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

       DATAN(  .331389-242) =  .331389-242

1TEST OF ERROR RETURNS


 DATAN WILL BE CALLED WITH THE ARGUMENT            INF
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE

       DATAN(          INF) =  .157080D+01

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

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

 DATAN2 WILL BE CALLED WITH THE ARGUMENTS
   .4940656-323            INF
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE

       DATAN2(  .494066-323          INF) =  .000000D+00

 DATAN2 WILL BE CALLED WITH THE ARGUMENTS
            INF   .4940656-323
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE

       DATAN2(          INF  .494066-323) =  .157080D+01

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


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

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


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


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .8083D-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
      (     -.3466D+01,     -.7063D+03)


 DEXP(X-V) WAS LARGER   302 TIMES,
              AGREED  1462 TIMES, AND
         WAS SMALLER   236 TIMES.


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


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


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .8419D-16 =    2 ** -53.40
 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
      (      .6931D+01,            INF)


 DEXP(X-V) 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           NaNQ =    2 **   NaNQ
    OCCURRED FOR X =              INF
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS           NaNQ =    2 **   NaNQ
 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

   .4969983D+00  -.95796856980712980D-16

   .1597669D+01  -.42617275901328866D-16

   .1584547D+01   .66996272173495115D-16

   .5408677D+00   .25781619170136177D-17

   .1058453D+01  -.17839838743557954D-16



 TEST OF SPECIAL ARGUMENTS


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

 DEXP( -.744000D+03) =  .988131-323

 DEXP(          INF) =          INF

0IF DEXP(          INF) =                     INF IS NOT ABOUT
 DEXP(          INF)**2 =                     INF THERE IS AN ARG RED ERROR
1TEST OF ERROR RETURNS


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


 DEXP RETURNED THE VALUE      .0000D+00



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


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


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


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .0000D+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
      (      .1000D+01,            INF)


 X**1.5 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           NaNQ =    2 **   NaNQ
    OCCURRED FOR X =             NaNQ
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS           NaNQ =    2 **   NaNQ
 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 (      .1000D-01,      .1000D+02), Y IN (           -INF,           NaNQ)


  X**Y  WAS LARGER     0 TIMES,
            AGREED  2000 TIMES, AND
       WAS SMALLER     0 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF           NaNQ =    2 **   NaNQ
    OCCURRED FOR X =      .999767D+01 Y =             NaNQ
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS           NaNQ =    2 **   NaNQ
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


1SPECIAL TESTS


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

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

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

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

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

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

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

1TEST OF ERROR RETURNS


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


 THE VALUE RETURNED IS      .4941-323



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


 THE VALUE RETURNED IS            INF



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


 THE VALUE RETURNED IS      .0000D+00



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


 THE VALUE RETURNED IS      .1000D+01



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


 THE VALUE RETURNED IS      .4000D+01



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


 THE VALUE RETURNED IS      .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
      (      .0000D+00,      .1571D+01)


 DSIN(X) WAS LARGER   955 TIMES,
            AGREED     0 TIMES, AND
       WAS SMALLER  1045 TIMES.


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


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


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .7697D-16 =    2 ** -53.53
 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
      (      .1885D+02,      .2042D+02)


 DSIN(X) WAS LARGER   990 TIMES,
            AGREED     0 TIMES, AND
       WAS SMALLER  1010 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .2531D-15 =    2 ** -51.81
    OCCURRED FOR X =      .196732D+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.19


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .7755D-16 =    2 ** -53.52
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (      .2199D+02,      .2356D+02)


 DCOS(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      .2841D-15 =    2 ** -51.64
    OCCURRED FOR X =      .227061D+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.36


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .7960D-16 =    2 ** -53.48
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


1SPECIAL TESTS


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

   .1357806D+02   .00000000000000000D+00

   .5377632D+01   .00000000000000000D+00

   .1302793D+02   .00000000000000000D+00

   .4997217D+01   .00000000000000000D+00

   .6650451D+01   .00000000000000000D+00

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

        X         X - F(X)

   .8565047D-16   .00000000000000000D+00

   .4282523D-16   .00000000000000000D+00

   .2141262D-16   .00000000000000000D+00

   .1070631D-16   .00000000000000000D+00

   .5353154D-17   .00000000000000000D+00

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

        X         F(X) - F(-X)

   .4362607D+01   .00000000000000000D+00

   .5742273D+01   .00000000000000000D+00

   .1797722D+02   .00000000000000000D+00

   .1683830D+02   .00000000000000000D+00

   .1519520D+02   .00000000000000000D+00

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

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

       DSIN(  .9490626562425154D+08) =  .9419570571788562D+00

       DSIN(  .9490626562425156D+08) =  .9419570521760389D+00

       DSIN(  .9490626562425157D+08) =  .9419570471732214D+00
1TEST OF ERROR RETURNS


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


 DSIN RETURNED THE VALUE     -.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
      (      .0000D+00,      .5000D+00)


 DSINH(X) WAS LARGER   421 TIMES,
              AGREED  1170 TIMES, AND
         WAS SMALLER   409 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .3861D-15 =    2 ** -51.20
    OCCURRED FOR X =      .359392D-01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.80


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .1032D-15 =    2 ** -53.10
 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
      (      .0000D+00,      .5000D+00)


 DCOSH(X) WAS LARGER   477 TIMES,
             AGREED  1064 TIMES, AND
        WAS SMALLER   459 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .2220D-15 =    2 ** -52.00
    OCCURRED FOR X =      .820749D-03
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .1466D-15 =    2 ** -52.60
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .40


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (      .3000D+01,            INF)


 DSINH(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           NaNQ =    2 **   NaNQ
    OCCURRED FOR X =              INF
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS           NaNQ =    2 **   NaNQ
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (      .3000D+01,            INF)


 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           NaNQ =    2 **   NaNQ
    OCCURRED FOR X =              INF
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS           NaNQ =    2 **   NaNQ
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


1SPECIAL TESTS


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

        X         F(X) + F(-X)

   .2799016D+01   .00000000000000000D+00

   .6197683D+00   .00000000000000000D+00

   .2879801D+01   .00000000000000000D+00

   .2883944D+01   .00000000000000000D+00

   .1625756D+01   .00000000000000000D+00

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

        X         X - F(X)

   .5344542D-16   .00000000000000000D+00

   .2672271D-16   .00000000000000000D+00

   .1336135D-16   .00000000000000000D+00

   .6680677D-17   .00000000000000000D+00

   .3340339D-17   .00000000000000000D+00

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

        X         F(X) - F(-X)

   .2321169D+01   .00000000000000000D+00

   .1272770D+01   .00000000000000000D+00

   .3520453D-01   .00000000000000000D+00

   .1070712D+01   .00000000000000000D+00

   .1874405D+01   .00000000000000000D+00

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

       DSINH(  .331389-242) =  .331389-242

1TEST OF ERROR RETURNS


 DSINH WILL BE CALLED WITH THE ARGUMENT            INF
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE


 DSINH RETURNED THE VALUE            INF



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


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .0000D+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
      (      .1000D+01,      .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      .0000D+00 =    2 **-999.00
    OCCURRED FOR X =      .000000D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


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


1TEST OF SPECIAL ARGUMENTS


 DSQRT(XMIN) = DSQRT(   .49406564584124657-323) =    .22227587494850775-161


 DSQRT(1-EPSNEG) = DSQRT(1-   .1110223D-15) =    .99999999999999989D+00


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


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


 DSQRT(XMAX) = DSQRT(                      INF) =                       INF


1TEST OF ERROR RETURNS


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


 DSQRT RETURNED THE VALUE      .0000D+00



0DSQRT WILL BE CALLED WITH THE ARGUMENT     -.1000D+01
 THIS SHOULD TRIGGER AN ERROR MESSAGE


 DSQRT RETURNED THE VALUE           NaNQ



 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
      (      .0000D+00,      .7854D+00)


 DTAN(X) WAS LARGER   437 TIMES,
             AGREED  1121 TIMES, AND
        WAS SMALLER   442 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .4311D-15 =    2 ** -51.04
    OCCURRED FOR X =      .321833D-01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.96


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .1100D-15 =    2 ** -53.01
 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
      (      .2749D+01,      .3534D+01)


 DTAN(X) WAS LARGER   380 TIMES,
             AGREED  1268 TIMES, AND
        WAS SMALLER   352 TIMES.


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


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


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .9781D-16 =    2 ** -53.18
 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
      (      .1885D+02,      .1963D+02)


 DTAN(X) WAS LARGER   442 TIMES,
             AGREED  1089 TIMES, AND
        WAS SMALLER   469 TIMES.


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


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


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


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (      .1885D+02,      .1963D+02)


 DCOT(X) WAS LARGER   516 TIMES,
             AGREED  1027 TIMES, AND
        WAS SMALLER   457 TIMES.


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


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


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .1255D-15 =    2 ** -52.82
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .18


1SPECIAL TESTS


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

        X         F(X) + F(-X)

   .1544204D+02   .00000000000000000D+00

   .7636684D+01   .00000000000000000D+00

   .5502511D+01   .00000000000000000D+00

   .3914012D+01   .00000000000000000D+00

   .8480963D+01   .00000000000000000D+00

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

        X         X - F(X)

   .1572444D-16   .00000000000000000D+00

   .7862219D-17   .00000000000000000D+00

   .3931109D-17   .00000000000000000D+00

   .1965555D-17   .00000000000000000D+00

   .9827773D-18   .00000000000000000D+00

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

       DTAN(  .3313893083842064-242) =  .3313893083842064-242

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

       DTAN(  .1100000000000000D+02) = -.2259508464541952D+03

 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


1TEST OF ERROR RETURNS


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


 DTAN RETURNED THE VALUE     -.4638D+00



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


 DTAN RETURNED THE VALUE      .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
      (      .1250D+00,      .5493D+00)


 DTANH(X) WAS LARGER   600 TIMES,
              AGREED   841 TIMES, AND
         WAS SMALLER   559 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .5037D-15 =    2 ** -50.82
    OCCURRED FOR X =      .473297D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   2.18


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .1529D-15 =    2 ** -52.54
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .46


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
      (      .6743D+00,      .1941D+02)


 DTANH(X) WAS LARGER   567 TIMES,
              AGREED   937 TIMES, AND
         WAS SMALLER   496 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .3330D-15 =    2 ** -51.42
    OCCURRED FOR X =      .804972D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.58


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .9259D-16 =    2 ** -53.26
 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)

   .5017279D+00   .00000000000000000D+00

   .4981069D+00   .00000000000000000D+00

   .9202672D+00   .00000000000000000D+00

   .1755284D+00   .00000000000000000D+00

   .6310339D+00   .00000000000000000D+00

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

        X         X - F(X)

   .1005123D-15   .00000000000000000D+00

   .5025614D-16   .00000000000000000D+00

   .2512807D-16   .00000000000000000D+00

   .1256403D-16   .00000000000000000D+00

   .6282017D-17   .00000000000000000D+00

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

        X         1 - F(X)

   .1940812D+02   .00000000000000000D+00

   .2340812D+02   .00000000000000000D+00

   .2740812D+02   .00000000000000000D+00

   .3140812D+02   .00000000000000000D+00

   .3540812D+02   .00000000000000000D+00

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

       DTANH(  .331389-242) =  .331389-242

 THE FUNCTION DTANH WILL BE CALLED WITH THE ARGUMENT            INF
       DTANH(          INF) =  .100000D+01

 THE FUNCTION DTANH WILL BE CALLED WITH THE ARGUMENT   .4940656-323
       DTANH(  .494066-323) =  .494066-323

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

 THIS CONCLUDES THE TESTS
STOP 
