Analysis Software
Documentation for sPHENIX simulation software
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
pyhigamm.f
Go to the documentation of this file. Or view the newest version in sPHENIX GitHub for file pyhigamm.f
1 
2 C*********************************************************************
3 
4  FUNCTION pyhigamm(X)
5 
6 C...Gives ordinary Gamma function Gamma(x) for positive, real arguments;
7 C...see M. Abramowitz, I. A. Stegun: Handbook of Mathematical Functions
8 C...(Dover, 1965) 6.1.36.
9  dimension b(8)
10  DATA b/-0.577191652,0.988205891,-0.897056937,0.918206857,
11  &-0.756704078,0.482199394,-0.193527818,0.035868343/
12 
13  nx=int(x)
14  dx=x-nx
15 
16  pyhigamm=1.
17  DO 100 i=1,8
18  100 pyhigamm=pyhigamm+b(i)*dx**i
19  IF(x.LT.1.) THEN
21  ELSE
22  DO 110 ix=1,nx-1
23  110 pyhigamm=(x-ix)*pyhigamm
24  ENDIF
25 
26  RETURN
27  END