ECCE @ EIC Software
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
hirnd.f
Go to the documentation of this file. Or view the newest version in sPHENIX GitHub for file hirnd.f
1 C
2 C
3 C
4  FUNCTION hirnd(I)
5  common/hijhb/rr(10,201),xx(10,201)
6  SAVE /hijhb/
7  common/ranseed/nseed
8  SAVE /ranseed/
9  rx=atl_ran(nseed)
10  jl=0
11  ju=202
12 10 IF(ju-jl.GT.1) THEN
13  jm=(ju+jl)/2
14  IF((rr(i,201).GT.rr(i,1)).EQV.(rx.GT.rr(i,jm))) THEN
15  jl=jm
16  ELSE
17  ju=jm
18  ENDIF
19  go to 10
20  ENDIF
21  j=jl
22  IF(j.LT.1) j=1
23  IF(j.GE.201) j=200
24  hirnd=(xx(i,j)+xx(i,j+1))/2.0
25  RETURN
26  END