＜Example Program＞

Program gamma_example
  Real :: x(8) = [ 2.0, 4.0, 6.0, 8.0, 10.0, 12.0, 14.0, 16.0 ]
  Print 1, x
  Print 2, Gamma(x)
1 Format(999F9.2)
2 Format(999ES9.2)
End Program

---

■ Execution Results

     2.00     4.00     6.00     8.00    10.00    12.00    14.00    16.00
 1.00E+00 6.00E+00 1.20E+02 5.04E+03 3.63E+05 3.99E+07 6.23E+09 1.31E+12