hijflv.f

Go to the documentation of this file. Or view the newest version in sPHENIX GitHub for file hijflv.f

C
C       
C***************************************
        SUBROUTINE hijflv(ID)
        common/ranseed/nseed
        SAVE  /ranseed/
        id=1
        rnid=atl_ran(nseed)
        IF(rnid.GT.0.43478) THEN
                id=2
                IF(rnid.GT.0.86956) id=3
        ENDIF
        RETURN
        END