HIJING/hijing1_36/gmin.F

   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