Analysis Software
Documentation for sPHENIX simulation software
 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(1x,'Error: you did not link FEYNHIGGS correctly.'/
28  &1x,'Dummy routine FHSETPARA in PYTHIA file called instead.'/
29  &1x,'Execution stopped!')
30  RETURN
31  END