1IBETA (floating-point base)                                   2
 IT (number of significand digits)                           113
 IRND (0: chops, >=1: rounds)                                  5
 NGRD (number of guard digits)                                 0
 MACHEP (see MACHAR)                                        -112
 NEGEPS (see MACHAR)                                        -113
 IEXP (number of exponent bits)                               15
 MINEXP (exponent of min fp number)                       -16382
 MAXEXP (exponent of max fp number)                        16384
 EPS (machine epsilon: 1 + e .ne. 1)     1.9259299443872358530559779425849273E-00034
 EPSNEG (machine epsilon: 1 - e .ne. 1)  9.6296497219361792652798897129246366E-00035
 XMIN (smallest fp number)               3.3621031431120935062626778173217526E-04932
 XMAX (largest fp number)                1.1897314953572317650857593266280070E+04932
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  1576 TIMES, AND
        WAS SMALLER   424 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.6633D-34 =    2 **-113.54
 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   875 TIMES, AND
          WAS SMALLER  1125 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.5189D-33 =    2 **-110.57
    OCCURRED FOR X =     0.898685D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   2.43


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1376D-33 =    2 **-112.49
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.51


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


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


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


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.2483D-34 =    2 **-114.96
 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.33621031431120935-4931) =  -0.11355137111933024D+05


 QLOG(XMAX) = QLOG( 0.11897314953572318+4933) =   0.11356523406294144D+05


1TEST OF ERROR RETURNS


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


 QLOG RETURNED THE VALUENaN            



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


 QLOG RETURNED THE VALUE-Inf           



 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   442 TIMES,
              AGREED  1125 TIMES, AND
         WAS SMALLER   433 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2934D-33 =    2 **-111.39
    OCCURRED FOR X =     0.410092D-01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.61


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.9034D-34 =    2 **-113.09
 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   376 TIMES,
             AGREED  1224 TIMES, AND
        WAS SMALLER   400 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2448D-33 =    2 **-111.65
    OCCURRED FOR X =    -0.280515D-02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.35


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.7664D-34 =    2 **-113.33
 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   332 TIMES,
              AGREED  1307 TIMES, AND
         WAS SMALLER   361 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1973D-33 =    2 **-111.97
    OCCURRED FOR X =     0.828426D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.03


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.8480D-34 =    2 **-113.18
 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   434 TIMES,
             AGREED  1124 TIMES, AND
        WAS SMALLER   442 TIMES.


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


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


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.9987D-34 =    2 **-112.95
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.05


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   403 TIMES,
             AGREED  1179 TIMES, AND
        WAS SMALLER   418 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.9256D-34 =    2 **-113.06
 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(0.248289-3698) =0.248289-3698

1TEST OF ERROR RETURNS


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


 QASIN RETURNED THE VALUENaN            



 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    68 TIMES,
              AGREED  1875 TIMES, AND
         WAS SMALLER    57 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1914D-33 =    2 **-112.01
    OCCURRED FOR X =     0.157236D-01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.99


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.3270D-34 =    2 **-114.56
 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   278 TIMES,
              AGREED  1489 TIMES, AND
         WAS SMALLER   233 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.7113D-34 =    2 **-113.44
 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   274 TIMES,
              AGREED  1440 TIMES, AND
         WAS SMALLER   286 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1837D-33 =    2 **-112.07
    OCCURRED FOR X =     0.268236D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.93


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.7895D-34 =    2 **-113.29
 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.4142D+00,     0.1000D+01)


 QATAN(X) WAS LARGER   137 TIMES,
              AGREED  1750 TIMES, AND
         WAS SMALLER   113 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.547479D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.4797D-34 =    2 **-114.01
 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(0.248289-3698) =0.248289-3698

1TEST OF ERROR RETURNS


 QATAN WILL BE CALLED WITH THE ARGUMENT 0.1189731+4933
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE

       QATAN(0.118973+4933) = 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
 0.3362103-4931 0.1189731+4933
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE

       QATAN2(0.336210-49310.118973+4933) = 0.000000D+00

 QATAN2 WILL BE CALLED WITH THE ARGUMENTS
 0.1189731+4933 0.3362103-4931
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE

       QATAN2(0.118973+49330.336210-4931) = 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   237 TIMES,
              AGREED  1510 TIMES, AND
         WAS SMALLER   253 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1923D-33 =    2 **-112.00
    OCCURRED FOR X =     0.638900D-01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


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


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   254 TIMES,
              AGREED  1499 TIMES, AND
         WAS SMALLER   247 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.335549D+04
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


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


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


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


 QEXP(X-V) WAS LARGER   244 TIMES,
              AGREED  1493 TIMES, AND
         WAS SMALLER   263 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.153675D+04
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


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


1SPECIAL TESTS


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

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

  0.1103001D+01  0.00000000000000000D+00

  0.1943307D+01  0.00000000000000000D+00

  0.1690399D+00  0.00000000000000000D+00

  0.1706243D+01  0.00000000000000000D+00

  0.2920031D+00  0.00000000000000000D+00



 TEST OF SPECIAL ARGUMENTS


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

 QEXP(-0.113550D+05) =0.385619-4931

 QEXP( 0.113560D+05) =0.704915+4932

0IF QEXP( 0.567800D+04) = 0.8395919127758236+2466 IS NOT ABOUT
 QEXP( 0.283900D+04)**2 = 0.8395919127758236+2466 THERE IS AN ARG RED ERROR
1TEST OF ERROR RETURNS


0EXP WILL BE CALLED WITH THE ARGUMENT   -0.5454+2466
 THIS SHOULD TRIGGER AN ERROR MESSAGE


 QEXP RETURNED THE VALUE     0.0000D+00



0EXP WILL BE CALLED WITH THE ARGUMENT    0.5454+2466
 THIS SHOULD TRIGGER AN ERROR MESSAGE


 QEXP RETURNED THE VALUEInf            



 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     2 TIMES,
            AGREED  1992 TIMES, AND
       WAS SMALLER     6 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1835D-33 =    2 **-112.07
    OCCURRED FOR X =     0.640170D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.93


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


1TEST OF XSQ**1.5 VS XSQ*X


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


 X**1.5 WAS LARGER     2 TIMES,
            AGREED  1994 TIMES, AND
       WAS SMALLER     4 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1626D-33 =    2 **-112.24
    OCCURRED FOR X =    0.556095+1643
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.76


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


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE REGION
      X IN (     0.1000D-01,     0.1000D+02), Y IN (    -0.2466D+04,     0.2466D+04)


  X**Y  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 Y =     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


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.1949323D-33

  0.9151790D+01  0.6733529D+01       -0.4065024D-33

  0.8043469D+01  0.9199433D+01       -0.1210275D-33

  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.3362-4931



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


 THE VALUE RETURNED IS    0.5949+4932



 ( 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   355 TIMES,
            AGREED  1244 TIMES, AND
       WAS SMALLER   401 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2465D-33 =    2 **-111.64
    OCCURRED FOR X =     0.196600D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.36


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.7673D-34 =    2 **-113.33
 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   357 TIMES,
            AGREED  1224 TIMES, AND
       WAS SMALLER   419 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2520D-33 =    2 **-111.61
    OCCURRED FOR X =     0.192416D+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.39


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.7638D-34 =    2 **-113.33
 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   365 TIMES,
            AGREED  1241 TIMES, AND
       WAS SMALLER   394 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2074D-33 =    2 **-111.89
    OCCURRED FOR X =     0.230791D+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.11


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.7559D-34 =    2 **-113.35
 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(0.2482894545954105-3698) =0.2482894545954105-3698
 THE FOLLOWING THREE LINES ILLUSTRATE THE LOSS IN SIGNIFICANCE
 FOR LARGE ARGUMENTS.  THE ARGUMENTS ARE CONSECUTIVE.

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

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

       QSIN( 0.1019048267604124D+18) = 0.9999541964752519D+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.4080D+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   320 TIMES,
              AGREED  1373 TIMES, AND
         WAS SMALLER   307 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2186D-33 =    2 **-111.82
    OCCURRED FOR X =     0.427347D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.18


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.7519D-34 =    2 **-113.36
 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    41 TIMES,
             AGREED  1919 TIMES, AND
        WAS SMALLER    40 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.1896D-33 =    2 **-112.02
    OCCURRED FOR X =     0.177730D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.98


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.3580D-34 =    2 **-114.43
 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.1136D+05)


 QSINH(X) WAS LARGER   512 TIMES,
              AGREED  1290 TIMES, AND
         WAS SMALLER   198 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2586D-33 =    2 **-111.57
    OCCURRED FOR X =     0.347029D+04
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.43


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


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


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


 QCOSH(X) WAS LARGER   526 TIMES,
             AGREED  1281 TIMES, AND
        WAS SMALLER   193 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2617D-33 =    2 **-111.56
    OCCURRED FOR X =     0.333997D+04
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.44


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


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(0.248289-3698) =0.248289-3698

1TEST OF ERROR RETURNS


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


 QSINH RETURNED THE VALUE    0.6741+4932



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


 QSINH RETURNED THE VALUEInf            



 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     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 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( 0.33621031431120935-4931) =  0.18336038675548472-2465


 QSQRT(1-EPSNEG) = QSQRT(1-  0.9629650D-34) =   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( 0.11897314953572318+4933) =  0.10907481356194159+2467


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 VALUENaN            



 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   440 TIMES,
             AGREED  1089 TIMES, AND
        WAS SMALLER   471 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.3436D-33 =    2 **-111.16
    OCCURRED FOR X =     0.699488D-01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.84


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.9628D-34 =    2 **-113.00
 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.2749D+01,     0.3534D+01)


 QTAN(X) WAS LARGER   440 TIMES,
             AGREED  1118 TIMES, AND
        WAS SMALLER   442 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.3512D-33 =    2 **-111.13
    OCCURRED FOR X =     0.340918D+01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.87


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.9652D-34 =    2 **-113.00
 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   441 TIMES,
             AGREED  1130 TIMES, AND
        WAS SMALLER   429 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.3795D-33 =    2 **-111.02
    OCCURRED FOR X =     0.188813D+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.98


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.9529D-34 =    2 **-113.02
 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   476 TIMES,
             AGREED  1037 TIMES, AND
        WAS SMALLER   487 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.3704D-33 =    2 **-111.06
    OCCURRED FOR X =     0.196154D+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.94


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1087D-33 =    2 **-112.83
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.17


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(0.2482894545954105-3698) =0.2482894545954105-3698

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



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


 QTAN RETURNED THE VALUE    -0.4469D+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   585 TIMES,
              AGREED   815 TIMES, AND
         WAS SMALLER   600 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.3973D-33 =    2 **-110.96
    OCCURRED FOR X =     0.529251D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   2.04


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.1245D-33 =    2 **-112.63
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   0.37


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   557 TIMES,
              AGREED   833 TIMES, AND
         WAS SMALLER   610 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF     0.2565D-33 =    2 **-111.59
    OCCURRED FOR X =     0.974956D+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.41


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS     0.8808D-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(0.248289-3698) =0.248289-3698

 THE FUNCTION QTANH WILL BE CALLED WITH THE ARGUMENT 0.1189731+4933
       QTANH(0.118973+4933) = 0.100000D+01

 THE FUNCTION QTANH WILL BE CALLED WITH THE ARGUMENT 0.3362103-4931
       QTANH(0.336210-4931) =0.336210-4931

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

 THIS CONCLUDES THE TESTS
 Note: IEEE floating-point exception flags raised: 
    Inexact;  Division by Zero;  Underflow;  Overflow;  Invalid Operation; 
 See the Numerical Computation Guide, ieee_flags(3M) 
