1Test of GAMMA(X) vs Duplication Formula


   2000 Random arguments were tested from the interval (  0.000,  2.000)


 GAMMA(X) was larger  1104 times,
              agreed   676 times, and
         was smaller   220 times.


 There are  24 base   2 significant digits in a floating-point number


 The maximum relative error of     0.2957E-06 =    2 ** -21.69
    occurred for X = 0.144902E+00
 The estimated loss of base   2 significant digits is   2.31


 The root mean square relative error was     0.9218E-07 =    2 ** -23.37
 The estimated loss of base   2 significant digits is   0.63


1Test of GAMMA(X) vs Duplication Formula


   2000 Random arguments were tested from the interval (  2.000, 10.000)


 GAMMA(X) was larger  1088 times,
              agreed   594 times, and
         was smaller   318 times.


 There are  24 base   2 significant digits in a floating-point number


 The maximum relative error of     0.4409E-06 =    2 ** -21.11
    occurred for X = 0.722777E+01
 The estimated loss of base   2 significant digits is   2.89


 The root mean square relative error was     0.1107E-06 =    2 ** -23.11
 The estimated loss of base   2 significant digits is   0.89


1Test of GAMMA(X) vs Duplication Formula


   2000 Random arguments were tested from the interval ( 10.000, 34.541)


 GAMMA(X) was larger   924 times,
              agreed    71 times, and
         was smaller  1005 times.


 There are  24 base   2 significant digits in a floating-point number


 The maximum relative error of     0.1272E-04 =    2 ** -16.26
    occurred for X = 0.317867E+02
 The estimated loss of base   2 significant digits is   7.74


 The root mean square relative error was     0.3071E-05 =    2 ** -18.31
 The estimated loss of base   2 significant digits is   5.69


1Test of GAMMA(X) vs Duplication Formula


   2000 Random arguments were tested from the interval ( -4.750, -4.250)


 GAMMA(X) was larger   839 times,
              agreed   409 times, and
         was smaller   752 times.


 There are  24 base   2 significant digits in a floating-point number


 The maximum relative error of     0.5974E-06 =    2 ** -20.67
    occurred for X =-0.474669E+01
 The estimated loss of base   2 significant digits is   3.33


 The root mean square relative error was     0.1523E-06 =    2 ** -22.65
 The estimated loss of base   2 significant digits is   1.35


1Special Tests




 Test of special arguments


 GAMMA (-0.500000E+00) = -0.354491E+01


 GAMMA ( 0.118737E-37) =  0.842199E+38


 GAMMA ( 0.100000E+01) =  0.100000E+01


 GAMMA ( 0.200000E+01) =  0.100000E+01


 GAMMA ( 0.346904E+02) =  0.987630E+38


1Test of Error Returns



 GAMMA will be called with the argument-0.100000E+01
 This should trigger an error message


 GAMMA returned the value 0.340000E+39



 GAMMA will be called with the argument 0.000000E+00
 This should trigger an error message


 GAMMA returned the value 0.340000E+39



 GAMMA will be called with the argument 0.117549E-37
 This should trigger an error message


 GAMMA returned the value 0.340000E+39



 GAMMA will be called with the argument 0.350408E+02
 This should trigger an error message


 GAMMA returned the value 0.340000E+39



 This concludes the tests
