pythiaeRHIC/pythia/fhsetflags.f

0001
0002 C*********************************************************************
0003
0004 C...FHSETFLAGS
0005 C...Dummy function, to be removed when FEYNHIGGS is to be linked.
0006
0007       SUBROUTINE FHSETFLAGS(IERR,IMSP,IFR,ITBR,IHMX,IP2A,ILP,ITR,IBR)
0008       IMPLICIT DOUBLE PRECISION(A-H, O-Z)
0009       IMPLICIT INTEGER(I-N)
0010 Cmssmpart = 4     # full MSSM [recommended]
0011 Cfieldren = 0     # MSbar field ren. [strongly recommended]
0012 Ctanbren =  0     # MSbar TB-ren. [strongly recommended]
0013 Chiggsmix = 2     # 2x2 (h0-HH) mixing in the neutral Higgs sector
0014 Cp2approx = 0     # no approximation [recommended]
0015 Clooplevel= 2     # include 2-loop corrections
0016 Ctl_running_mt= 1 # running top mass in 2-loop corrections [recommended]
0017 Ctl_bot_resum = 1 # resummed MB in 2-loop corrections [recommended]
0018
0019 C...Commonblocks.
0020       COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200)
0021       SAVE /PYDAT1/
0022
0023 C...Stop program if this routine is ever called.
0024       WRITE(MSTU(11),5000)
0025       CALL PYSTOP(103)
0026
0027 C...Format for error printout.
0028  5000 FORMAT(1X,'Error: you did not link FEYNHIGGS correctly.'/
0029      &1X,'Dummy routine FHSETFLAGS in PYTHIA file called instead.'/
0030      &1X,'Execution stopped!')
0031       RETURN
0032       END