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