Analysis Software
Documentation for
sPHENIX
simulation software
Home page
Related Pages
Modules
Namespaces
Classes
Files
Examples
External Links
File List
File Members
All
Classes
Namespaces
Files
Functions
Variables
Typedefs
Enumerations
Enumerator
Friends
Macros
Groups
Pages
fhhiggscorr.f
Go to the documentation of this file.
Or view
the newest version in sPHENIX GitHub for file fhhiggscorr.f
1
2
C*********************************************************************
3
4
C...FHHIGGSCORR
5
C...Dummy function, to be removed when FEYNHIGGS is to be linked.
6
7
SUBROUTINE
fhhiggscorr
(IERR, RMHIGG, SAEFF, UHIGGS)
8
IMPLICIT
DOUBLE PRECISION
(a-
h
, o-
z
)
9
IMPLICIT
INTEGER
(
i
-
n
)
10
11
C...FeynHiggs variables
12
DOUBLE PRECISION
rmhigg(4)
13
DOUBLE COMPLEX
saeff, uhiggs(3,3)
14
DOUBLE COMPLEX
dmu,
15
& ae33, au33, ad33, ae22, au22, ad22, ae11, au11, ad11,
16
& dm1, dm2, dm3
17
18
C...Commonblocks.
19
common/
pydat1
/mstu(200),paru(200),mstj(200),parj(200)
20
SAVE
/
pydat1
/
21
22
C...Stop program if this routine is ever called.
23
WRITE
(mstu(11),5000)
24
CALL
pystop
(103)
25
26
C...Format for error printout.
27
5000
FORMAT
(1
x
,
'Error: you did not link FEYNHIGGS correctly.'
/
28
&1
x
,
'Dummy routine FHSETPARA in PYTHIA file called instead.'
/
29
&1
x
,
'Execution stopped!'
)
30
RETURN
31
END
pythia6
blob
master
pythiaeRHIC
pythia
fhhiggscorr.f
Built by
Jin Huang
. updated:
Sat Feb 17 2024 22:18:40
using
1.8.2 with
sPHENIX GitHub integration