[u/mrichter/AliRoot.git] / HIJING / hijing1_36 / sgmin.F

* $Id$
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
Commit	Line	Data
e74335a4	1	* $Id$
	2	C
	3	C
	4	C
	5	C
	6	C
	7	FUNCTION SGMIN(N)
	8	GA=0.
	9	IF(N.LE.2) GO TO 20
	10	DO 10 I=1,N-1
	11	Z=I
	12	GA=GA+ALOG(Z)
	13	10 CONTINUE
	14	20 SGMIN=GA
	15	RETURN
	16	END