1Test of GAMMA(X) vs Duplication Formula


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


 GAMMA(X) was larger   387 times,
              agreed   691 times, and
         was smaller   922 times.


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


 The maximum relative error of     0.5876E-15 =    2 ** -50.60
    occurred for X = 0.828440E+00
 The estimated loss of base   2 significant digits is   2.40


 The root mean square relative error was     0.1638E-15 =    2 ** -52.44
 The estimated loss of base   2 significant digits is   0.56


1Test of GAMMA(X) vs Duplication Formula


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


 GAMMA(X) was larger   478 times,
              agreed   653 times, and
         was smaller   869 times.


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


 The maximum relative error of     0.8003E-15 =    2 ** -50.15
    occurred for X = 0.839821E+01
 The estimated loss of base   2 significant digits is   2.85


 The root mean square relative error was     0.1967E-15 =    2 ** -52.17
 The estimated loss of base   2 significant digits is   0.83


1Test of GAMMA(X) vs Duplication Formula


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


 GAMMA(X) was larger   932 times,
              agreed     9 times, and
         was smaller  1059 times.


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


 The maximum relative error of     0.2228E-12 =    2 ** -42.03
    occurred for X = 0.168758E+03
 The estimated loss of base   2 significant digits is  10.97


 The root mean square relative error was     0.4899E-13 =    2 ** -44.21
 The estimated loss of base   2 significant digits is   8.79


1Test of GAMMA(X) vs Duplication Formula


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


 GAMMA(X) was larger   870 times,
              agreed   439 times, and
         was smaller   691 times.


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


 The maximum relative error of     0.1143E-14 =    2 ** -49.64
    occurred for X =-0.472446E+01
 The estimated loss of base   2 significant digits is   3.36


 The root mean square relative error was     0.2928E-15 =    2 ** -51.60
 The estimated loss of base   2 significant digits is   1.40


1Special Tests




 Test of special arguments


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


 GAMMA ( 0.224755-307) =  0.444929+308


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


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


 GAMMA ( 0.169908E+03) =  0.266542+305


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.179000+309



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


 GAMMA returned the value 0.179000+309



 GAMMA will be called with the argument 0.222507-307
 This should trigger an error message


 GAMMA returned the value 0.179000+309



 GAMMA will be called with the argument 0.171624E+03
 This should trigger an error message


 GAMMA returned the value 0.179000+309



 This concludes the tests
