]> git.uio.no Git - u/mrichter/AliRoot.git/blob - HIJING/hijing1_36/hijflv.F
git://git.uio.no / u / mrichter / AliRoot.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
fWSN->Eval(0.001) to avoid fpe.
[u/mrichter/AliRoot.git] / HIJING / hijing1_36 / hijflv.F
1 * $Id$
2 C
3 C       
4 C***************************************
5         SUBROUTINE HIJFLV(ID)
6         ID=1
7         RNID=RLU_HIJING(0)
8         IF(RNID.GT.0.43478) THEN
9                 ID=2
10                 IF(RNID.GT.0.86956) ID=3
11         ENDIF
12         RETURN
13         END