3 C*********************************************************************
5 FUNCTION PYGAMM_HIJING(X)
7 C...Gives ordinary Gamma function Gamma(x) for positive, real arguments;
8 C...see M. Abramowitz, I. A. Stegun: Handbook of Mathematical Functions
9 C...(Dover, 1965) 6.1.36.
11 DATA B/-0.577191652,0.988205891,-0.897056937,0.918206857,
12 &-0.756704078,0.482199394,-0.193527818,0.035868343/
19 100 PYGAMM_HIJING=PYGAMM_HIJING+B(I)*DX**I
21 PYGAMM_HIJING=PYGAMM_HIJING/X
24 110 PYGAMM_HIJING=(X-IX)*PYGAMM_HIJING