sgmin.f

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

C
C
C
C
C
        FUNCTION sgmin(N)
        ga=0.
        IF(n.LE.2) go to 20
        DO 10 i=1,n-1
        z=i
        ga=ga+alog(z)
10      CONTINUE
20      sgmin=ga
        RETURN
        END