ECCE @ EIC Software
Reference for
ECCE @ EIC
simulation and reconstruction software on GitHub
Home page
Related Pages
Modules
Namespaces
Classes
Files
External Links
File List
File Members
All
Classes
Namespaces
Files
Functions
Variables
Typedefs
Enumerations
Enumerator
Friends
Macros
Groups
Pages
fjetrig.f
Go to the documentation of this file.
Or view
the newest version in sPHENIX GitHub for file fjetrig.f
1
C
2
C
3
C
4
FUNCTION
fjetrig
(X,WGT)
5
IMPLICIT
REAL*8
(
a
-h,o-
z
)
6
REAL
hipr1
(100),
hint1
(100),ptmax,ptmin
7
common
/hiparnt/
hipr1
,
ihpr2
(50),
hint1
,
ihnt2
(50)
8
SAVE
/hiparnt/
9
dimension
x
(10)
10
ptmin=abs(
hipr1
(10))-0.25
11
ptmin=
max
(ptmin,
hipr1
(8))
12
am2=0.d0
13
IF
(
ihpr2
(3).EQ.3)
THEN
14
am2=
hipr1
(7)**2
15
ptmin=
max
(0.0,
hipr1
(10))
16
ENDIF
17
ptmax=abs(
hipr1
(10))+0.25
18
IF
(
hipr1
(10).LE.0.0) ptmax=
hint1
(1)/2.0-am2
19
IF
(ptmax.LE.ptmin) ptmax=ptmin+0.25
20
pt2
=(ptmax**2-ptmin**2)*
x
(1)+ptmin**2
21
amt2=
pt2
+am2
22
xt
=2.0*dsqrt(amt2)/
hint1
(1)
23
ymx1=dlog(1.0/
xt
+dsqrt(1.0/
xt
**2-1.0))
24
y1
=2.0*ymx1*
x
(2)-ymx1
25
ymx2=dlog(2.0/
xt
-dexp(
y1
))
26
ymn2=dlog(2.0/
xt
-dexp(-
y1
))
27
y2
=(ymx2+ymn2)*
x
(3)-ymn2
28
IF
(
ihpr2
(3).EQ.3)
THEN
29
gtrig=2.0*
ghvq
(
y1
,
y2
,amt2)
30
ELSE
IF
(
ihpr2
(3).EQ.2)
THEN
31
gtrig=2.0*
gphoton
(
y1
,
y2
,
pt2
)
32
ELSE
33
gtrig=
g
(
y1
,
y2
,
pt2
)
34
ENDIF
35
fjetrig
=2.0*ymx1*(ymx2+ymn2)*(ptmax**2-ptmin**2)
36
& *gtrig/2.0
37
RETURN
38
END
coresoftware
blob
master
generators
hijing
src
fjetrig.f
Built by
Jin Huang
. updated:
Wed Jun 29 2022 17:24:29
using
1.8.2 with
ECCE GitHub integration