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

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