gmin.f

Go to the documentation of this file. Or view the newest version in sPHENIX GitHub for file gmin.f

c
C
C
        FUNCTION gmin(N)
        IMPLICIT REAL*8(a-h,o-z)
        ga=0.
        IF(n.LE.2) go to 20
        DO 10 i=1,n-1
        z=i
        ga=ga+dlog(z)
10      CONTINUE
20      gmin=ga
        RETURN
        END