HIJING/hijing1_36/sgmin.F

   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