1IBETA (floating-point base)                                   2
 IT (number of significand digits)                            24
 IRND (0: chops, 1: rounds)                                    5
 NGRD (number of guard digits)                                 0
 MACHEP (see MACHAR)                                         -23
 NEGEPS (see MACHAR)                                         -24
 IEXP (number of exponent bits)                                8
 MINEXP (exponent of min fp number)                         -126
 MAXEXP (exponent of max fp number)                          128
 EPS (machine epsilon: 1 + e .ne. 1)              1.19209290E-07
 EPSNEG (machine epsilon: 1 - e .ne. 1)           5.96046448E-08
 XMIN (smallest fp number)                        1.17549435E-38
 XMAX (largest fp number)                         3.40282347E+38
1TEST OF ALOG(X) VS T.S. EXPANSION OF ALOG(1+Y)


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (1-EPS,1+EPS), WHERE EPS =      .3906E-02


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


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


 THE MAXIMUM RELATIVE ERROR OF      .0000E+00 =    2 **-999.00
    OCCURRED FOR X =      .000000E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


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


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


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


 ALOG(X) WAS LARGER     0 TIMES,
             AGREED   491 TIMES, AND
        WAS SMALLER  1509 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .4626E-06 =    2 ** -21.04
    OCCURRED FOR X =      .922632E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   2.96


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .1371E-06 =    2 ** -22.80
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.20


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


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


 ALOG10(X) WAS LARGER     0 TIMES,
               AGREED   953 TIMES, AND
          WAS SMALLER  1047 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .3228E-06 =    2 ** -21.56
    OCCURRED FOR X =      .899163E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   2.44


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .7702E-07 =    2 ** -23.63
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .37


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


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


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


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


 THE MAXIMUM RELATIVE ERROR OF      .0000E+00 =    2 **-999.00
    OCCURRED FOR X =      .000000E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


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


1SPECIAL TESTS


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

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

   .1511114E+02  -.9352789E-08

   .1689214E+02   .2963273E-07

   .1551779E+02   .3054988E-07

   .1572357E+02   .1511835E-07

   .1544667E+02   .4372259E-07



 TEST OF SPECIAL ARGUMENTS


 ALOG(1.0) =    .0000000E+00


 ALOG(XMIN) = ALOG(   .1175494E-37) =   -.8733655E+02


 ALOG(XMAX) = ALOG(   .3402823E+39) =    .8872284E+02


1TEST OF ERROR RETURNS


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


 ALOG RETURNED THE VALUE            NAN



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


 ALOG RETURNED THE VALUE           -INF



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


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


 ASIN(X) WAS LARGER   494 TIMES,
             AGREED   997 TIMES, AND
        WAS SMALLER   509 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .1192E-06 =    2 ** -23.00
    OCCURRED FOR X =     -.781244E-02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .5936E-07 =    2 ** -24.01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


1TEST OF ACOS(X) VS TAYLOR SERIES


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


 ACOS(X) WAS LARGER   481 TIMES,
             AGREED  1017 TIMES, AND
        WAS SMALLER   502 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .8246E-07 =    2 ** -23.53
    OCCURRED FOR X =      .124868E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .47


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .5343E-07 =    2 ** -24.16
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


1TEST OF ASIN(X) VS TAYLOR SERIES


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


 ASIN(X) WAS LARGER   317 TIMES,
             AGREED  1356 TIMES, AND
        WAS SMALLER   327 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .1188E-06 =    2 ** -23.00
    OCCURRED FOR X =      .843106E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .5182E-07 =    2 ** -24.20
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


1TEST OF ACOS(X) VS TAYLOR SERIES


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


 ACOS(X) WAS LARGER   394 TIMES,
             AGREED  1236 TIMES, AND
        WAS SMALLER   370 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .1186E-06 =    2 ** -23.01
    OCCURRED FOR X =      .876389E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .99


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .5556E-07 =    2 ** -24.10
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


1TEST OF ACOS(X) VS TAYLOR SERIES


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


 ACOS(X) WAS LARGER   413 TIMES,
             AGREED  1211 TIMES, AND
        WAS SMALLER   376 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .9856E-07 =    2 ** -23.27
    OCCURRED FOR X =     -.750104E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .73


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .5628E-07 =    2 ** -24.08
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


1SPECIAL TESTS


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

        X         F(X) + F(-X)

  -.3638713E+00   .0000000E+00

  -.4839116E+00   .0000000E+00

  -.4889470E+00   .0000000E+00

  -.1183719E+00   .0000000E+00

  -.7964936E+00   .0000000E+00

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

        X         X - F(X)

   .3348048E-07  -.6617445E-23

   .1674024E-07   .0000000E+00

   .8370120E-08   .0000000E+00

   .4185060E-08   .0000000E+00

   .2092530E-08   .0000000E+00

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

       ASIN(  .356998E-28) =  .356998E-28

1TEST OF ERROR RETURNS


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


 ASIN RETURNED THE VALUE            NAN



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


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


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


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


 THE MAXIMUM RELATIVE ERROR OF      .0000E+00 =    2 **-999.00
    OCCURRED FOR X =      .000000E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


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


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


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


 ATAN(X) WAS LARGER   224 TIMES,
             AGREED  1573 TIMES, AND
        WAS SMALLER   203 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .1192E-06 =    2 ** -23.00
    OCCURRED FOR X =      .255468E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .4087E-07 =    2 ** -24.54
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


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


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


 ATAN(X) WAS LARGER   140 TIMES,
             AGREED  1707 TIMES, AND
        WAS SMALLER   153 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .1138E-06 =    2 ** -23.07
    OCCURRED FOR X =      .268055E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .93


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .3575E-07 =    2 ** -24.74
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


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


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


 ATAN(X) WAS LARGER    69 TIMES,
             AGREED  1842 TIMES, AND
        WAS SMALLER    89 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .1190E-06 =    2 ** -23.00
    OCCURRED FOR X =      .547340E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .2322E-07 =    2 ** -25.36
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


1SPECIAL TESTS


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

        X         F(X) + F(-X)

   .3617411E+01  -.3642919E-16

   .2176353E+01  -.2341877E-16

   .2044134E+01   .1929880E-16

   .5168115E+00  -.1859407E-16

   .4601443E+01  -.6516055E-16

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

        X         X - F(X)

   .2150919E-08   .0000000E+00

   .1075460E-08   .0000000E+00

   .5377298E-09   .0000000E+00

   .2688649E-09   .0000000E+00

   .1344325E-09   .0000000E+00

 THE IDENTITY ATAN(X/Y) = ATAN2(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))

   .4321790E-01   .8505591E+00  -.6938894E-17  -.3141593E+01

  -.7204334E+00   .9864566E+00   .0000000E+00   .3141593E+01

  -.7716829E+00   .3849098E+00   .0000000E+00   .3141593E+01

  -.1545089E+01   .2159743E+00   .0000000E+00   .3141593E+01

   .1987153E+01   .5985181E+00   .0000000E+00  -.3141593E+01

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

       ATAN(  .356998E-28) =  .356998E-28

1TEST OF ERROR RETURNS


 ATAN WILL BE CALLED WITH THE ARGUMENT   .3402823E+39
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE

       ATAN(  .340282E+39) =  .157080E+01

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

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

 ATAN2 WILL BE CALLED WITH THE ARGUMENTS
   .1175494E-37   .3402823E+39
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE

       ATAN2(  .117549E-37  .340282E+39) =  .000000E+00

 ATAN2 WILL BE CALLED WITH THE ARGUMENTS
   .3402823E+39   .1175494E-37
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE

       ATAN2(  .340282E+39  .117549E-37) =  .157080E+01

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


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

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


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


 EXP(X-V) WAS LARGER   255 TIMES,
              AGREED  1500 TIMES, AND
         WAS SMALLER   245 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .1189E-06 =    2 ** -23.00
    OCCURRED FOR X =      .652217E-01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .4333E-07 =    2 ** -24.46
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (     -.3466E+01,     -.6931E+02)


 EXP(X-V) WAS LARGER   248 TIMES,
              AGREED  1478 TIMES, AND
         WAS SMALLER   274 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .1191E-06 =    2 ** -23.00
    OCCURRED FOR X =     -.692742E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .4443E-07 =    2 ** -24.42
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (      .6931E+01,      .8862E+02)


 EXP(X-V) WAS LARGER   257 TIMES,
              AGREED  1475 TIMES, AND
         WAS SMALLER   268 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .1188E-06 =    2 ** -23.01
    OCCURRED FOR X =      .766825E+01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .99


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .4437E-07 =    2 ** -24.43
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


1SPECIAL TESTS


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

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

   .4172930E+00   .3361027E-16

   .1616278E+00   .1734723E-16

   .2034688E+00  -.3187554E-16

   .1433597E+01   .2461139E-16

   .1199615E+01  -.1024571E-16



 TEST OF SPECIAL ARGUMENTS


 EXP(0.0) - 1.0E0 =    .0000000E+00

 EXP( -.870000E+02) =  .164581E-37

 EXP(  .880000E+02) =  .165164E+39

0IF EXP(  .440000E+02) =   .128516E+20 IS NOT ABOUT
 EXP(  .220000E+02)**2 =   .128516E+20 THERE IS AN ARG RED ERROR
1TEST OF ERROR RETURNS


0EXP WILL BE CALLED WITH THE ARGUMENT     -.9223E+19
 THIS SHOULD TRIGGER AN ERROR MESSAGE


 EXP RETURNED THE VALUE      .0000E+00



0EXP WILL BE CALLED WITH THE ARGUMENT      .9223E+19
 THIS SHOULD TRIGGER AN ERROR MESSAGE


 EXP RETURNED THE VALUE            INF



 THIS CONCLUDES THE TESTS
1TEST OF X**1.0 VS X


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


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


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


 THE MAXIMUM RELATIVE ERROR OF      .0000E+00 =    2 **-999.00
    OCCURRED FOR X =      .000000E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


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


1TEST OF XSQ**1.5 VS XSQ*X


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


 X**1.5 WAS LARGER   134 TIMES,
            AGREED  1760 TIMES, AND
       WAS SMALLER   106 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .1186E-06 =    2 ** -23.01
    OCCURRED FOR X =      .631065E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .99


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .2966E-07 =    2 ** -25.01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


1TEST OF XSQ**1.5 VS XSQ*X


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


 X**1.5 WAS LARGER   149 TIMES,
            AGREED  1707 TIMES, AND
       WAS SMALLER   144 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .1190E-06 =    2 ** -23.00
    OCCURRED FOR X =      .550119E+12
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .3174E-07 =    2 ** -24.91
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


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


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


  X**Y  WAS LARGER   674 TIMES,
            AGREED   645 TIMES, AND
       WAS SMALLER   681 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .5736E-06 =    2 ** -20.73
    OCCURRED FOR X =      .805317E+01 Y =      .190455E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   3.27


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .1485E-06 =    2 ** -22.68
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.32


1SPECIAL TESTS


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

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

   .3429194E+01   .4649270E+01         .0000000E+00

   .7158762E+01   .1084530E+02         .0000000E+00

   .1663063E+01   .3882931E+01         .0000000E+00

   .1366361E+01   .6795137E+01         .0000000E+00

   .5392149E+01   .1001862E+02         .0000000E+00

1TEST OF ERROR RETURNS


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


 THE VALUE RETURNED IS      .1175E-37



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


 THE VALUE RETURNED IS      .1701E+39



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


 THE VALUE RETURNED IS      .0000E+00



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


 THE VALUE RETURNED IS      .1000E+01



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


 THE VALUE RETURNED IS      .4000E+01



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


 THE VALUE RETURNED IS      .1000E+01



 THIS CONCLUDES THE TESTS
1TEST OF SIN(X) VS 3*SIN(X/3)-4*SIN(X/3)**3


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


 SIN(X) WAS LARGER   993 TIMES,
            AGREED     0 TIMES, AND
       WAS SMALLER  1007 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .1138E-06 =    2 ** -23.07
    OCCURRED FOR X =      .399304E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .93


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .3503E-07 =    2 ** -24.77
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (      .1885E+02,      .2042E+02)


 SIN(X) WAS LARGER   980 TIMES,
            AGREED     0 TIMES, AND
       WAS SMALLER  1020 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .1111E-02 =    2 **  -9.81
    OCCURRED FOR X =      .188500E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS  14.19


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .2889E-04 =    2 ** -15.08
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   8.92


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


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


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


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


 THE MAXIMUM RELATIVE ERROR OF      .9577E-03 =    2 ** -10.03
    OCCURRED FOR X =      .235624E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS  13.97


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .2709E-04 =    2 ** -15.17
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   8.83


1SPECIAL TESTS


 IF   .100000E+01 IS NOT ALMOST 1.0E0,    SIN HAS THE WRONG PERIOD.


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

        X         F(X) + F(-X)

   .7988396E+01  -.4748806E-16

   .1837256E+02  -.1254964E-16

   .1577381E+02  -.4133521E-17

   .1137237E+02  -.3279712E-16

   .7829143E+01  -.4266336E-16

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

        X         X - F(X)

   .5475400E-07   .2735835E-22

   .2737700E-07   .3420198E-23

   .1368850E-07   .4273228E-24

   .6844250E-08   .5331438E-25

   .3422125E-08   .6664297E-26

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

        X         F(X) - F(-X)

   .1559717E+02   .3908549E-16

   .8141365E+01   .1544988E-16

   .1864421E+02   .3220080E-16

   .1203059E+02  -.4456071E-16

   .1470889E+02  -.2612927E-16

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

       SIN(  .356998E-28) =  .356998E-28
 THE FOLLOWING THREE LINES ILLUSTRATE THE LOSS IN SIGNIFICANCE
 FOR LARGE ARGUMENTS.  THE ARGUMENTS ARE CONSECUTIVE.

       SIN(  .409600E+04) = -.594838E+00

       SIN(  .409600E+04) = -.594642E+00

       SIN(  .409600E+04) = -.594249E+00
1TEST OF ERROR RETURNS


 SIN WILL BE CALLED WITH THE ARGUMENT      .1678E+08
 THIS SHOULD TRIGGER AN ERROR MESSAGE


 SIN RETURNED THE VALUE     -.7796E+00



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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (      .0000E+00,      .5000E+00)


 SINH(X) WAS LARGER     8 TIMES,
             AGREED  1988 TIMES, AND
        WAS SMALLER     4 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .1190E-06 =    2 ** -23.00
    OCCURRED FOR X =      .482073E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .6445E-08 =    2 ** -27.21
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (      .0000E+00,      .5000E+00)


 COSH(X) WAS LARGER    19 TIMES,
             AGREED  1961 TIMES, AND
        WAS SMALLER    20 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .1188E-06 =    2 ** -23.01
    OCCURRED FOR X =      .872198E-01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .99


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .1565E-07 =    2 ** -25.93
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (      .3000E+01,      .8872E+02)


 SINH(X) WAS LARGER     0 TIMES,
             AGREED   956 TIMES, AND
        WAS SMALLER  1044 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .1191E-06 =    2 ** -23.00
    OCCURRED FOR X =      .395104E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .6111E-07 =    2 ** -23.96
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .04


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (      .3000E+01,      .8872E+02)


 COSH(X) WAS LARGER     0 TIMES,
             AGREED   914 TIMES, AND
        WAS SMALLER  1086 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .1191E-06 =    2 ** -23.00
    OCCURRED FOR X =      .519867E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.00


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .6261E-07 =    2 ** -23.93
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .07


1SPECIAL TESTS


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

        X         F(X) + F(-X)

   .4758721E+00   .0000000E+00

   .2484013E+01   .0000000E+00

   .1501598E+01   .0000000E+00

   .1699758E+01   .0000000E+00

   .2469687E+01   .0000000E+00

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

        X         X - F(X)

   .5385918E-07  -.2646978E-22

   .2692959E-07  -.3308722E-23

   .1346480E-07   .0000000E+00

   .6732398E-08   .0000000E+00

   .3366199E-08   .0000000E+00

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

        X         F(X) - F(-X)

   .2852678E+01   .0000000E+00

   .2584760E+01   .0000000E+00

   .2094970E+01   .0000000E+00

   .8712769E+00   .0000000E+00

   .9096088E+00   .0000000E+00

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

       SINH(  .356998E-28) =  .356998E-28

1TEST OF ERROR RETURNS


 SINH WILL BE CALLED WITH THE ARGUMENT      .8885E+02
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE


 SINH RETURNED THE VALUE      .1928E+39



0SINH WILL BE CALLED WITH THE ARGUMENT      .1678E+08
 THIS SHOULD TRIGGER AN ERROR MESSAGE


 SINH RETURNED THE VALUE            INF



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


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


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


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


 THE MAXIMUM RELATIVE ERROR OF      .0000E+00 =    2 **-999.00
    OCCURRED FOR X =      .000000E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


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


1TEST OF SQRT(X*X) - X


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


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


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


 THE MAXIMUM RELATIVE ERROR OF      .0000E+00 =    2 **-999.00
    OCCURRED FOR X =      .000000E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


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


1TEST OF SPECIAL ARGUMENTS


 SQRT(XMIN) = SQRT(   .1175494E-37) =    .1084202E-18


 SQRT(1-EPSNEG) = SQRT(1-   .5960464E-07) =    .9999999E+00


 SQRT(1.0) = SQRT(   .1000000E+01) =    .1000000E+01


 SQRT(1+EPS) = SQRT(1+   .1192093E-06) =    .1000000E+01


 SQRT(XMAX) = SQRT(   .3402823E+39) =    .1844674E+20


1TEST OF ERROR RETURNS


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


 SQRT RETURNED THE VALUE      .0000E+00



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


 SQRT RETURNED THE VALUE            NAN



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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (      .0000E+00,      .7854E+00)


 TAN(X) WAS LARGER  1003 TIMES,
            AGREED     1 TIMES, AND
       WAS SMALLER   996 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .1395E-06 =    2 ** -22.77
    OCCURRED FOR X =      .512708E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.23


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .4315E-07 =    2 ** -24.47
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


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


   2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL
      (      .2749E+01,      .3534E+01)


 TAN(X) WAS LARGER   975 TIMES,
            AGREED     0 TIMES, AND
       WAS SMALLER  1025 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .1273E-06 =    2 ** -22.90
    OCCURRED FOR X =      .290038E+01
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.10


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .4361E-07 =    2 ** -24.45
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


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


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


 TAN(X) WAS LARGER   993 TIMES,
            AGREED     1 TIMES, AND
       WAS SMALLER  1006 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .1311E-06 =    2 ** -22.86
    OCCURRED FOR X =      .193793E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.14


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .4221E-07 =    2 ** -24.50
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


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


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


 COT(X) WAS LARGER   974 TIMES,
            AGREED     0 TIMES, AND
       WAS SMALLER  1026 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .1514E-06 =    2 ** -22.66
    OCCURRED FOR X =      .190918E+02
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS   1.34


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .4739E-07 =    2 ** -24.33
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


1SPECIAL TESTS


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

        X         F(X) + F(-X)

   .1583949E+02   .1287490E-17

   .7335019E+00   .4499439E-16

   .1628951E+02   .9269929E-17

   .4370002E+00  -.8239937E-17

   .1692591E+02   .1541735E-15

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

        X         X - F(X)

   .1451136E-07  -.1654361E-23

   .7255678E-08   .0000000E+00

   .3627839E-08   .0000000E+00

   .1813919E-08   .0000000E+00

   .9069597E-09   .0000000E+00

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

       TAN(  .356998E-28) =  .356998E-28

 THE RELATIVE ERROR IN TAN(11) IS  -.2215876E-07 =    2 ** -25.43 WHERE

       TAN(  .110000E+02) = -.225951E+03

 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


1TEST OF ERROR RETURNS


 TAN WILL BE CALLED WITH THE ARGUMENT      .4096E+04
 THIS SHOULD NOT TRIGGER AN ERROR MESSAGE


 TAN RETURNED THE VALUE     -.7396E+00



0TAN WILL BE CALLED WITH THE ARGUMENT      .1678E+08
 THIS SHOULD TRIGGER AN ERROR MESSAGE


 TAN RETURNED THE VALUE     -.1245E+01



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


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


 TANH(X) WAS LARGER   321 TIMES,
             AGREED  1596 TIMES, AND
        WAS SMALLER    83 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .1183E-06 =    2 ** -23.01
    OCCURRED FOR X =      .126611E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .99


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .3611E-07 =    2 ** -24.72
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


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


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


 TANH(X) WAS LARGER   228 TIMES,
             AGREED  1605 TIMES, AND
        WAS SMALLER   167 TIMES.


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


 THE MAXIMUM RELATIVE ERROR OF      .1012E-06 =    2 ** -23.24
    OCCURRED FOR X =      .675832E+00
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .76


 THE ROOT MEAN SQUARE RELATIVE ERROR WAS      .2749E-07 =    2 ** -25.12
 THE ESTIMATED LOSS OF BASE   2 SIGNIFICANT DIGITS IS    .00


1SPECIAL TESTS


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

        X         F(X) + F(-X)

   .8272786E+00   .1778092E-16

   .4098293E+00  -.2724058E-16

   .2286662E+00   .6139295E-17

   .5832699E+00   .3258028E-16

   .9087355E+00  -.1550409E-16

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

        X         X - F(X)

   .3528241E-07   .1323489E-22

   .1764120E-07   .3308722E-23

   .8820602E-08   .0000000E+00

   .4410301E-08   .0000000E+00

   .2205151E-08   .0000000E+00

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

        X         1 - F(X)

   .9357487E+01  -.1490117E-07

   .1335749E+02  -.4998779E-11

   .1735749E+02  -.1665335E-14

   .2135749E+02   .0000000E+00

   .2535749E+02   .0000000E+00

 TEST OF UNDERFLOW FOR VERY SMALL ARGUMENT.

       TANH(  .356998E-28) =  .356998E-28

 THE FUNCTION TANH WILL BE CALLED WITH THE ARGUMENT   .3402823E+39
       TANH(  .340282E+39) =  .100000E+01

 THE FUNCTION TANH WILL BE CALLED WITH THE ARGUMENT   .1175494E-37
       TANH(  .117549E-37) =  .117549E-37

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

 THIS CONCLUDES THE TESTS
