1IBETA (floating-point base)                                   2
 IT (number of significand digits)                           113
 IRND (0: chops, >=1: rounds)                                  3
 NGRD (number of guard digits)                                 1
 MACHEP (see MACHAR)                                        -112
 NEGEPS (see MACHAR)                                        -112
 IEXP (number of exponent bits)                               15
 MINEXP (exponent of min fp number)                       -16382
 MAXEXP (exponent of max fp number)                        16273
 EPS (machine epsilon: 1 + e .ne. 1)     1.9259299443872358530559779425849274E-00034
 EPSNEG (machine epsilon: 1 - e .ne. 1)  1.9259299443872358530559779425849274E-00034
 XMIN (smallest fp number)               3.3621031431120935062626778173217530E-04932
 XMAX (largest fp number)                3.7179109229913492658929978957125214E+04930
1TEST OF QLOG(X) VS T.S. EXPANSION OF QLOG(1+Y)  


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (1-EPS,1+EPS), WHERE EPS =     0.7276D-11


 QLOG(X) WAS LARGER     0 TIMES,
             AGREED  2000 TIMES, AND
        WAS SMALLER     0 TIMES.


 THERE ARE 113 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 QLOG(X) VS QLOG(17X/16)-QLOG(17/16)   


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.7071D+00,     0.9375D+00)


 QLOG(X) WAS LARGER     0 TIMES,
             AGREED  1635 TIMES, AND
        WAS SMALLER   365 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1920D-33 =    2 **-112.00
    OCCURRED FOR X =     0.778202D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.6063D-34 =    2 **-113.67
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.3162D+00,     0.9000D+00)


 QLOG10(X) WAS LARGER     0 TIMES,
               AGREED   957 TIMES, AND
          WAS SMALLER  1043 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.4800D-33 =    2 **-110.68
    OCCURRED FOR X =     0.890929D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   2.32


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1293D-33 =    2 **-112.57
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.43


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.1600D+02,     0.2400D+03)


 QLOG(X) WAS LARGER    74 TIMES,
             AGREED  1926 TIMES, AND
        WAS SMALLER     0 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1922D-33 =    2 **-112.00
    OCCURRED FOR X =     0.550846D+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.2772D-34 =    2 **-114.80
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1SPECIAL TESTS


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

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

  0.1692701D+02  0.00000000000000000D+00

  0.1685049D+02  0.00000000000000000D+00

  0.1638389D+02  0.00000000000000000D+00

  0.1668111D+02  0.00000000000000000D+00

  0.1529519D+02  0.00000000000000000D+00



 TEST OF SPECIAL ARGUMENTS


 QLOG(1.0) =   0.00000000000000000D+00


 QLOG(XMIN) = QLOG(*************************) =  -0.11355137111933024D+05


 QLOG(XMAX) = QLOG(*************************) =   0.11353057670391344D+05


1TEST OF ERROR RETURNS


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


 QLOG RETURNED THE VALUE    -0.1143D+05



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


 QLOG RETURNED THE VALUE    -0.1143D+05



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


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


 QASIN(X) WAS LARGER     3 TIMES,
              AGREED  1994 TIMES, AND
         WAS SMALLER     3 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1642D-33 =    2 **-112.23
    OCCURRED FOR X =     0.732587D-01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.77


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.6635D-35 =    2 **-116.86
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1TEST OF QACOS(X) VS TAYLOR SERIES 


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


 QACOS(X) WAS LARGER     0 TIMES,
             AGREED  1583 TIMES, AND
        WAS SMALLER   417 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1332D-33 =    2 **-112.53
    OCCURRED FOR X =     0.124888D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.47


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.5611D-34 =    2 **-113.78
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1TEST OF QASIN(X) VS TAYLOR SERIES 


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.7500D+00,     0.1000D+01)


 QASIN(X) WAS LARGER    60 TIMES,
              AGREED  1285 TIMES, AND
         WAS SMALLER   655 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1925D-33 =    2 **-112.00
    OCCURRED FOR X =     0.841732D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.8395D-34 =    2 **-113.20
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1TEST OF QACOS(X) VS TAYLOR SERIES 


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.7500D+00,     0.1000D+01)


 QACOS(X) WAS LARGER    14 TIMES,
             AGREED  1977 TIMES, AND
        WAS SMALLER     9 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1638D-33 =    2 **-112.23
    OCCURRED FOR X =     0.832177D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.77


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1514D-34 =    2 **-115.67
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1TEST OF QACOS(X) VS TAYLOR SERIES 


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (    -0.1000D+01,    -0.7500D+00)


 QACOS(X) WAS LARGER    31 TIMES,
             AGREED  1497 TIMES, AND
        WAS SMALLER   472 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1592D-33 =    2 **-112.27
    OCCURRED FOR X =    -0.750368D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.73


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.7340D-34 =    2 **-113.39
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1SPECIAL TESTS


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

        X         F(X) + F(-X)

 -0.3671894D+00  0.00000000000000000D+00

 -0.7168578D+00  0.00000000000000000D+00

 -0.3584321D+00  0.00000000000000000D+00

 -0.4825447D+00  0.00000000000000000D+00

 -0.8147298D-01  0.00000000000000000D+00

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

        X         X - F(X)

  0.3401816D-35  0.00000000000000000D+00

  0.1700908D-35  0.00000000000000000D+00

  0.8504540D-36  0.00000000000000000D+00

  0.4252270D-36  0.00000000000000000D+00

  0.2126135D-36  0.00000000000000000D+00

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

       QASIN(*************) =*************

1TEST OF ERROR RETURNS


 QASIN WILL BE CALLED WITH THE ARGUMENT     0.1200D+01
 THIS SHOULD TRIGGER AN ERROR MESSAGE


 QASIN RETURNED THE VALUE     0.0000D+00



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


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


 QATAN(X) WAS LARGER    18 TIMES,
              AGREED  1975 TIMES, AND
         WAS SMALLER     7 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1812D-33 =    2 **-112.09
    OCCURRED FOR X =    -0.332255D-01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.91


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1406D-34 =    2 **-115.78
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.6250D-01,     0.2679D+00)


 QATAN(X) WAS LARGER   265 TIMES,
              AGREED  1505 TIMES, AND
         WAS SMALLER   230 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1925D-33 =    2 **-112.00
    OCCURRED FOR X =     0.125700D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.7001D-34 =    2 **-113.46
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.2679D+00,     0.4142D+00)


 QATAN(X) WAS LARGER   606 TIMES,
              AGREED  1177 TIMES, AND
         WAS SMALLER   217 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.3646D-33 =    2 **-111.08
    OCCURRED FOR X =     0.270421D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.92


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.9933D-34 =    2 **-112.96
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.04


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.4142D+00,     0.1000D+01)


 QATAN(X) WAS LARGER   343 TIMES,
              AGREED  1198 TIMES, AND
         WAS SMALLER   459 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.3653D-33 =    2 **-111.08
    OCCURRED FOR X =     0.582240D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.92


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.9514D-34 =    2 **-113.02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1SPECIAL TESTS


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

        X         F(X) + F(-X)

  0.2531971D+01  0.00000000000000000D+00

  0.6192880D+00  0.00000000000000000D+00

  0.2565012D+01  0.00000000000000000D+00

  0.3345354D+01  0.00000000000000000D+00

  0.3246731D+01  0.00000000000000000D+00

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

        X         X - F(X)

  0.2199179D-34  0.00000000000000000D+00

  0.1099589D-34  0.00000000000000000D+00

  0.5497947D-35  0.00000000000000000D+00

  0.2748973D-35  0.00000000000000000D+00

  0.1374487D-35  0.00000000000000000D+00

 THE IDENTITY QATAN(X/Y) = QATAN2(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.1719879D+01  0.8904708D+00  0.00000000000000000D+00  0.31415926535897932D+01

  0.1886938D+01  0.7906983D+00  0.00000000000000000D+00 -0.31415926535897932D+01

  0.1068282D+01  0.8428823D+00  0.00000000000000000D+00 -0.31415926535897932D+01

 -0.1461670D+01  0.5155677D+00  0.00000000000000000D+00  0.31415926535897932D+01

  0.1688041D+01  0.7892421D+00  0.00000000000000000D+00 -0.31415926535897932D+01

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

       QATAN(*************) =*************

1TEST OF ERROR RETURNS


 QATAN WILL BE CALLED WITH THE ARGUMENT***************
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE

       QATAN(*************) = 0.157080D+01

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

       QATAN2( 0.100000D+01 0.000000D+00) = 0.157080D+01

 QATAN2 WILL BE CALLED WITH THE ARGUMENTS
******************************
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE

       QATAN2(**************************) = 0.000000D+00

 QATAN2 WILL BE CALLED WITH THE ARGUMENTS
******************************
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE

       QATAN2(**************************) = 0.157080D+01

 QATAN2 WILL BE CALLED WITH THE ARGUMENTS
  0.0000000D+00  0.0000000D+00
 THIS SHOULD TRIGGER AN ERROR MESSAGE


       QATAN2( 0.000000D+00 0.000000D+00) = 0.000000D+00

 THIS CONCLUDES THE TESTS
1TEST OF QEXP(X- 0.0625) VS QEXP(X)/QEXP( 0.0625)


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


 QEXP(X-V) WAS LARGER   524 TIMES,
              AGREED   880 TIMES, AND
         WAS SMALLER   596 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.3808D-33 =    2 **-111.02
    OCCURRED FOR X =     0.738688D-01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.98


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1265D-33 =    2 **-112.61
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.39


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (    -0.3466D+01,    -0.1128D+05)


 QEXP(X-V) WAS LARGER   585 TIMES,
              AGREED   863 TIMES, AND
         WAS SMALLER   552 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.3844D-33 =    2 **-111.00
    OCCURRED FOR X =    -0.643167D+04
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   2.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1285D-33 =    2 **-112.58
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.42


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.6931D+01,     0.1135D+05)


 QEXP(X-V) WAS LARGER   561 TIMES,
              AGREED   879 TIMES, AND
         WAS SMALLER   560 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.4223D-33 =    2 **-110.87
    OCCURRED FOR X =     0.493279D+04
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   2.13


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1278D-33 =    2 **-112.59
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.41


1SPECIAL TESTS


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

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

  0.1103001D+01  0.19259299443872359D-33

  0.1943307D+01 -0.28888949165808538D-33

  0.1690399D+00  0.00000000000000000D+00

  0.1706243D+01  0.00000000000000000D+00

  0.2920031D+00 -0.19259299443872359D-33



 TEST OF SPECIAL ARGUMENTS


 QEXP(0.0) - 1.0D+00 =   0.0000000D+00

 QEXP(-0.113550D+05) =*************

 QEXP( 0.113530D+05) =*************

0IF QEXP( 0.567650D+04) = *********************** IS NOT ABOUT
 QEXP( 0.283825D+04)**2 = *********************** THERE IS AN ARG RED ERROR
1TEST OF ERROR RETURNS


0EXP WILL BE CALLED WITH THE ARGUMENT***************
 THIS SHOULD TRIGGER AN ERROR MESSAGE


 QEXP RETURNED THE VALUE     0.0000D+00



0EXP WILL BE CALLED WITH THE ARGUMENT***************
 THIS SHOULD TRIGGER AN ERROR MESSAGE


 QEXP 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 113 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   383 TIMES,
            AGREED  1291 TIMES, AND
       WAS SMALLER   326 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.4061D-33 =    2 **-110.92
    OCCURRED FOR X =     0.562339D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   2.08


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.8966D-34 =    2 **-113.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,***************)


 X**1.5 WAS LARGER  1003 TIMES,
            AGREED     0 TIMES, AND
       WAS SMALLER   997 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1367D-29 =    2 ** -99.21
    OCCURRED FOR X =*****************
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS  13.79


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.6251D-30 =    2 **-100.34
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS  12.66


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.2466D+04,     0.2466D+04)


  X**Y  WAS LARGER    61 TIMES,
            AGREED  1870 TIMES, AND
       WAS SMALLER    69 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1094D-29 =    2 ** -99.53
    OCCURRED FOR X =     0.516034D-01 Y =    -0.177294D+04
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS  13.47


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.6636D-31 =    2 **-103.57
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   9.43


1SPECIAL TESTS


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

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

  0.4487551D+01  0.2191977D+01        0.0000000D+00

  0.1016069D+02  0.5675036D+01        0.0000000D+00

  0.9151790D+01  0.6733529D+01        0.0000000D+00

  0.8043469D+01  0.9199433D+01        0.0000000D+00

  0.2227268D+01  0.7102010D+01        0.0000000D+00

1TEST OF ERROR RETURNS


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


 THE VALUE RETURNED IS***************



 ( 0.2000000D+01 ) ** ( 0.1627200D+05 ) WILL BE COMPUTED.
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE


 THE VALUE RETURNED IS***************



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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.0000D+00,     0.1571D+01)


 QSIN(X) WAS LARGER   473 TIMES,
            AGREED  1160 TIMES, AND
       WAS SMALLER   367 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2701D-33 =    2 **-111.51
    OCCURRED FOR X =     0.793970D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.49


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.8199D-34 =    2 **-113.23
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.1885D+02,     0.2042D+02)


 QSIN(X) WAS LARGER   538 TIMES,
            AGREED  1036 TIMES, AND
       WAS SMALLER   426 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2769D-33 =    2 **-111.48
    OCCURRED FOR X =     0.196186D+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.52


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.9173D-34 =    2 **-113.07
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.2199D+02,     0.2356D+02)


 QCOS(X) WAS LARGER   445 TIMES,
            AGREED  1032 TIMES, AND
       WAS SMALLER   523 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2714D-33 =    2 **-111.51
    OCCURRED FOR X =     0.227729D+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.49


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.9273D-34 =    2 **-113.05
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1SPECIAL TESTS


 IF  0.100000D+01 IS NOT ALMOST 1.0D+00,    QSIN HAS THE WRONG PERIOD.  


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

        X         F(X) + F(-X)

  0.1723996D+02  0.00000000000000000D+00

  0.1425580D+02  0.00000000000000000D+00

  0.6863059D+01  0.00000000000000000D+00

  0.5560553D+00  0.00000000000000000D+00

  0.2452347D+01  0.00000000000000000D+00

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

        X         X - F(X)

  0.3347600D-34  0.00000000000000000D+00

  0.1673800D-34  0.00000000000000000D+00

  0.8368999D-35  0.00000000000000000D+00

  0.4184500D-35  0.00000000000000000D+00

  0.2092250D-35  0.00000000000000000D+00

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

        X         F(X) - F(-X)

  0.4700027D+01  0.00000000000000000D+00

  0.1549030D+02  0.00000000000000000D+00

  0.3470642D+01  0.00000000000000000D+00

  0.1370910D+02  0.00000000000000000D+00

  0.1660743D+02  0.00000000000000000D+00

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

       QSIN(***********************) =***********************
 THE FOLLOWING THREE LINES ILLUSTRATE THE LOSS IN SIGNIFICANCE
 FOR LARGE ARGUMENTS.  THE ARGUMENTS ARE CONSECUTIVE.

       QSIN( 0.1019048267604124D+18) = 0.0000000000000000D+00

       QSIN( 0.1019048267604124D+18) = 0.0000000000000000D+00

       QSIN( 0.1019048267604124D+18) = 0.0000000000000000D+00
1TEST OF ERROR RETURNS


 QSIN WILL BE CALLED WITH THE ARGUMENT     0.1038D+35
 THIS SHOULD TRIGGER AN ERROR MESSAGE


 QSIN RETURNED THE VALUE     0.0000D+00



 THIS CONCLUDES THE TESTS
1TEST OF QSINH(X) VS T.S. EXPANSION OF QSINH(X) 


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.0000D+00,     0.5000D+00)


 QSINH(X) WAS LARGER    27 TIMES,
              AGREED  1967 TIMES, AND
         WAS SMALLER     6 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1915D-33 =    2 **-112.01
    OCCURRED FOR X =     0.483720D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.99


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1641D-34 =    2 **-115.55
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.0000D+00,     0.5000D+00)


 QCOSH(X) WAS LARGER   139 TIMES,
             AGREED  1720 TIMES, AND
        WAS SMALLER   141 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1926D-33 =    2 **-112.00
    OCCURRED FOR X =     0.916836D-03
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.6868D-34 =    2 **-113.49
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.3000D+01,     0.1135D+05)


 QSINH(X) WAS LARGER   662 TIMES,
              AGREED   851 TIMES, AND
         WAS SMALLER   487 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.4051D-33 =    2 **-110.93
    OCCURRED FOR X =     0.704689D+04
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   2.07


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1308D-33 =    2 **-112.56
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.44


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.3000D+01,     0.1135D+05)


 QCOSH(X) WAS LARGER   707 TIMES,
             AGREED   824 TIMES, AND
        WAS SMALLER   469 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.4043D-33 =    2 **-110.93
    OCCURRED FOR X =     0.549008D+04
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   2.07


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1348D-33 =    2 **-112.51
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.49


1SPECIAL TESTS


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

        X         F(X) + F(-X)

  0.2933770D+01  0.00000000000000000D+00

  0.2906230D+01  0.00000000000000000D+00

  0.1691800D+01  0.00000000000000000D+00

  0.1821877D+01  0.00000000000000000D+00

  0.2611769D+01  0.00000000000000000D+00

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

        X         X - F(X)

  0.1175806D-34  0.00000000000000000D+00

  0.5879032D-35  0.00000000000000000D+00

  0.2939516D-35  0.00000000000000000D+00

  0.1469758D-35  0.00000000000000000D+00

  0.7348790D-36  0.00000000000000000D+00

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

        X         F(X) - F(-X)

  0.2277678D+00  0.00000000000000000D+00

  0.2552395D+01  0.00000000000000000D+00

  0.2297020D+01  0.00000000000000000D+00

  0.2660293D+01  0.00000000000000000D+00

  0.2349137D+01  0.00000000000000000D+00

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

       QSINH(*************) =*************

1TEST OF ERROR RETURNS


 QSINH WILL BE CALLED WITH THE ARGUMENT     0.1135D+05
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE


 QSINH RETURNED THE VALUE***************



0QSINH WILL BE CALLED WITH THE ARGUMENT     0.1038D+35
 THIS SHOULD TRIGGER AN ERROR MESSAGE


 QSINH RETURNED THE VALUE***************



 THIS CONCLUDES THE TESTS
1TEST OF QSQRT(X*X) - X 


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.7071D+00,     0.1000D+01)


 QSQRT(X) WAS LARGER    67 TIMES,
              AGREED  1865 TIMES, AND
         WAS SMALLER    68 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1361D-33 =    2 **-112.50
    OCCURRED FOR X =     0.707445D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.50


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.3174D-34 =    2 **-114.60
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1TEST OF QSQRT(X*X) - X 


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.1000D+01,     0.1414D+01)


 QSQRT(X) WAS LARGER     0 TIMES,
              AGREED  2000 TIMES, AND
         WAS SMALLER     0 TIMES.


 THERE ARE 113 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


 QSQRT(XMIN) = QSQRT(*************************) = *************************


 QSQRT(1-EPSNEG) = QSQRT(1-  0.1925930D-33) =   0.10000000000000000D+01


 QSQRT(1.0) = QSQRT(  0.10000000000000000D+01) =   0.10000000000000000D+01


 QSQRT(1+EPS) = QSQRT(1+  0.1925930D-33) =   0.10000000000000000D+01


 QSQRT(XMAX) = QSQRT(*************************) = *************************


1TEST OF ERROR RETURNS


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


 QSQRT RETURNED THE VALUE     0.0000D+00



0QSQRT WILL BE CALLED WITH THE ARGUMENT    -0.1000D+01
 THIS SHOULD TRIGGER AN ERROR MESSAGE


 QSQRT RETURNED THE VALUE     0.0000D+00



 THIS CONCLUDES THE TESTS
1TEST OF QTAN(X) VS 2*QTAN(X/2)/(1-QTAN(X/2)**2) 


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.0000D+00,     0.7854D+00)


 QTAN(X) WAS LARGER   487 TIMES,
             AGREED  1095 TIMES, AND
        WAS SMALLER   418 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.3451D-33 =    2 **-111.16
    OCCURRED FOR X =     0.509064D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.84


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.9777D-34 =    2 **-112.98
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.02


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.2749D+01,     0.3534D+01)


 QTAN(X) WAS LARGER   424 TIMES,
             AGREED  1131 TIMES, AND
        WAS SMALLER   445 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.3761D-33 =    2 **-111.03
    OCCURRED FOR X =     0.320552D+01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.97


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.9501D-34 =    2 **-113.02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.1885D+02,     0.1963D+02)


 QTAN(X) WAS LARGER   502 TIMES,
             AGREED  1122 TIMES, AND
        WAS SMALLER   376 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.3660D-33 =    2 **-111.07
    OCCURRED FOR X =     0.189803D+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.93


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.9656D-34 =    2 **-113.00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.1885D+02,     0.1963D+02)


 QCOT(X) WAS LARGER   444 TIMES,
             AGREED  1069 TIMES, AND
        WAS SMALLER   487 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.3404D-33 =    2 **-111.18
    OCCURRED FOR X =     0.195733D+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.82


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1073D-33 =    2 **-112.84
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.16


1SPECIAL TESTS


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

        X         F(X) + F(-X)

  0.4610391D+01  0.00000000000000000D+00

  0.1120348D+01  0.00000000000000000D+00

  0.1677493D+02  0.00000000000000000D+00

  0.1043550D+02  0.00000000000000000D+00

  0.8120299D+01  0.00000000000000000D+00

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

        X         X - F(X)

  0.1572808D-34  0.00000000000000000D+00

  0.7864039D-35  0.00000000000000000D+00

  0.3932020D-35  0.00000000000000000D+00

  0.1966010D-35  0.00000000000000000D+00

  0.9830049D-36  0.00000000000000000D+00

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

       QTAN(***********************) =***********************

 THE RELATIVE ERROR IN QTAN(11) IS   0.5966567D-34 =    2 **-113.69 WHERE

       QTAN( 0.1100000000000000D+02) =-0.2259508464541951D+03

 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1TEST OF ERROR RETURNS


 QTAN WILL BE CALLED WITH THE ARGUMENT     0.7206D+17
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE


 QTAN RETURNED THE VALUE     0.0000D+00



0QTAN WILL BE CALLED WITH THE ARGUMENT     0.1038D+35
 THIS SHOULD TRIGGER AN ERROR MESSAGE


 QTAN RETURNED THE VALUE     0.0000D+00



 THIS CONCLUDES THE TESTS
1TEST OF QTANH(X) VS (QTANH(X-1/8)+QTANH(1/8))/(1+QTANH(X-1/8)QTANH(1/8))  


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


 QTANH(X) WAS LARGER   357 TIMES,
              AGREED  1021 TIMES, AND
         WAS SMALLER   622 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.3741D-33 =    2 **-111.04
    OCCURRED FOR X =     0.129433D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.96


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.9901D-34 =    2 **-112.96
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.04


1TEST OF QTANH(X) VS (QTANH(X-1/8)+QTANH(1/8))/(1+QTANH(X-1/8)QTANH(1/8))  


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     0.6743D+00,     0.4020D+02)


 QTANH(X) WAS LARGER   562 TIMES,
              AGREED   851 TIMES, AND
         WAS SMALLER   587 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2605D-33 =    2 **-111.56
    OCCURRED FOR X =     0.949209D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.44


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.8825D-34 =    2 **-113.13
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.00


1SPECIAL TESTS


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

        X         F(X) + F(-X)

  0.1199430D+00  0.00000000000000000D+00

  0.4239392D-01  0.00000000000000000D+00

  0.5761810D+00  0.00000000000000000D+00

  0.8957933D+00  0.00000000000000000D+00

  0.7428899D+00  0.00000000000000000D+00

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

        X         X - F(X)

  0.3554564D-34  0.00000000000000000D+00

  0.1777282D-34  0.00000000000000000D+00

  0.8886409D-35  0.00000000000000000D+00

  0.4443205D-35  0.00000000000000000D+00

  0.2221602D-35  0.00000000000000000D+00

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

        X         1 - F(X)

  0.4020254D+02  0.00000000000000000D+00

  0.4420254D+02  0.00000000000000000D+00

  0.4820254D+02  0.00000000000000000D+00

  0.5220254D+02  0.00000000000000000D+00

  0.5620254D+02  0.00000000000000000D+00

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

       QTANH(*************) =*************

 THE FUNCTION QTANH WILL BE CALLED WITH THE ARGUMENT***************
       QTANH(*************) = 0.100000D+01

 THE FUNCTION QTANH WILL BE CALLED WITH THE ARGUMENT***************
       QTANH(*************) =*************

 THE FUNCTION QTANH WILL BE CALLED WITH THE ARGUMENT  0.0000000D+00
       QTANH( 0.000000D+00) = 0.000000D+00

 THIS CONCLUDES THE TESTS

logq domain error

logq singularity error

asinq domain error

expq underflow error

expq overflow error

sinq total loss of precision error

sinq total loss of precision error

sinq total loss of precision error

sinq total loss of precision error

sinhq domain error

sqrtq domain error

tanq total loss of precision error

tanq total loss of precision error
