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
pyhiw2au.f
Go to the documentation of this file.
Or view
the newest version in sPHENIX GitHub for file pyhiw2au.f
1
2
C***********************************************************************
3
4
FUNCTION
pyhiw2au
(EPS,IREIM)
5
6
C...Calculates real and imaginary parts of the auxiliary function W2;
7
C...see R. K. Ellis, I. Hinchliffe, M. Soldate and J. J. van der Bij,
8
C...FERMILAB-Pub-87/100-T, LBL-23504, June, 1987
9
common
/ludat1/mstu(200),paru(200),mstj(200),parj(200)
10
SAVE
/ludat1/
11
12
asinh
(
x
)=
log
(
x
+
sqrt
(
x
**2+1.))
13
acosh(
x
)=
log
(
x
+
sqrt
(
x
**2-1.))
14
15
IF
(
eps
.LT.0.)
THEN
16
w2re=4.*(
asinh
(
sqrt
(-1./
eps
)))**2
17
w2im=0.
18
ELSEIF
(
eps
.LT.1.)
THEN
19
w2re=4.*(acosh(
sqrt
(1./
eps
)))**2-paru(1)**2
20
w2im=-4.*paru(1)*acosh(
sqrt
(1./
eps
))
21
ELSE
22
w2re=-4.*(asin(
sqrt
(1./
eps
)))**2
23
w2im=0.
24
ENDIF
25
26
IF
(ireim.EQ.1)
pyhiw2au
=w2re
27
IF
(ireim.EQ.2)
pyhiw2au
=w2im
28
29
RETURN
30
END
coresoftware
blob
master
generators
hijing
src
pyhiw2au.f
Built by
Jin Huang
. updated:
Wed Jun 29 2022 17:24:29
using
1.8.2 with
ECCE GitHub integration