pythiaeRHIC/pythia/fhhiggscorr.f

0001
0002 C*********************************************************************
0003
0004 C...FHHIGGSCORR
0005 C...Dummy function, to be removed when FEYNHIGGS is to be linked.
0006
0007       SUBROUTINE FHHIGGSCORR(IERR, RMHIGG, SAEFF, UHIGGS)
0008       IMPLICIT DOUBLE PRECISION(A-H, O-Z)
0009       IMPLICIT INTEGER(I-N)
0010
0011 C...FeynHiggs variables
0012       DOUBLE PRECISION RMHIGG(4)
0013       DOUBLE COMPLEX SAEFF, UHIGGS(3,3)
0014       DOUBLE COMPLEX DMU,
0015      &     AE33, AU33, AD33, AE22, AU22, AD22, AE11, AU11, AD11,
0016      &     DM1, DM2, DM3
0017
0018 C...Commonblocks.
0019       COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200)
0020       SAVE /PYDAT1/
0021
0022 C...Stop program if this routine is ever called.
0023       WRITE(MSTU(11),5000)
0024       CALL PYSTOP(103)
0025
0026 C...Format for error printout.
0027  5000 FORMAT(1X,'Error: you did not link FEYNHIGGS correctly.'/
0028      &1X,'Dummy routine FHSETPARA in PYTHIA file called instead.'/
0029      &1X,'Execution stopped!')
0030       RETURN
0031       END