ECCE @ EIC Software
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
romg.f
Go to the documentation of this file. Or view the newest version in sPHENIX GitHub for file romg.f
1 C
2 C
3 C
4  FUNCTION romg(X)
5 C ********This gives the eikonal function from a table
6 C calculated in the first call
7  dimension fr(0:1000)
8  DATA i0/0/
9 
10  SAVE i0, fr !Uzhi
11 
12  IF(i0.NE.0) go to 100
13  DO 50 i=1,1001
14  xr=(i-1)*0.01
15  fr(i-1)=omg0(xr)
16 50 CONTINUE
17 100 i0=1
18  IF(x.GE.10.0) THEN
19  romg=0.0
20  RETURN
21  ENDIF
22  ix=int(x*100)
23  romg=(fr(ix)*((ix+1)*0.01-x)+fr(ix+1)*(x-ix*0.01))/0.01
24  RETURN
25  END