]>
git.uio.no Git - u/mrichter/AliRoot.git/blame - HIJING/hijing1_36/gmin.F
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 |