fhsetflags.f

Go to the documentation of this file. Or view the newest version in sPHENIX GitHub for file fhsetflags.f

 
C*********************************************************************
 
C...FHSETFLAGS
C...Dummy function, to be removed when FEYNHIGGS is to be linked.
 
      SUBROUTINE fhsetflags(IERR,IMSP,IFR,ITBR,IHMX,IP2A,ILP,ITR,IBR)
      IMPLICIT DOUBLE PRECISION(a-h, o-z)
      IMPLICIT INTEGER(i-n)
Cmssmpart = 4     # full MSSM [recommended]
Cfieldren = 0     # MSbar field ren. [strongly recommended]
Ctanbren =  0     # MSbar TB-ren. [strongly recommended]
Chiggsmix = 2     # 2x2 (h0-HH) mixing in the neutral Higgs sector
Cp2approx = 0     # no approximation [recommended]
Clooplevel= 2     # include 2-loop corrections
Ctl_running_mt= 1 # running top mass in 2-loop corrections [recommended]
Ctl_bot_resum = 1 # resummed MB in 2-loop corrections [recommended]
 
C...Commonblocks.
      common/pydat1/mstu(200),paru(200),mstj(200),parj(200)
      SAVE /pydat1/
 
C...Stop program if this routine is ever called.
      WRITE(mstu(11),5000)
      CALL pystop(103)
 
C...Format for error printout.
 5000 FORMAT(1x,'Error: you did not link FEYNHIGGS correctly.'/
     &1x,'Dummy routine FHSETFLAGS in PYTHIA file called instead.'/
     &1x,'Execution stopped!')
      RETURN
      END