pythiaeRHIC/pythia/fhsetpara.f

0001
0002 C*********************************************************************
0003
0004 C...FHSETPARA
0005 C...Dummy function, to be removed when FEYNHIGGS is to be linked.
0006
0007       SUBROUTINE FHSETPARA(IER,SCF,DMT,DMB,DMW,DMZ,DTANB,DMA,DMH,DM3L,
0008      &     DM3E,DM3Q,DM3U,DM3D,DM2L,DM2E,DM2Q,DM2U, DM2D,DM1L,DM1E,DM1Q,
0009      &     DM1U,DM1D,DMU,AE33,AU33,AD33,AE22,AU22,AD22,AE11,AU11,AD11,
0010      &     DM1,DM2,DM3,RLT,RLB,QTAU,QT,QB)
0011       IMPLICIT DOUBLE PRECISION(A-H, O-Z)
0012       IMPLICIT INTEGER(I-N)
0013
0014       DOUBLE COMPLEX SAEFF, UHIGGS(3,3)
0015       DOUBLE COMPLEX DMU,
0016      &     AE33, AU33, AD33, AE22, AU22, AD22, AE11, AU11, AD11,
0017      &     DM1, DM2, DM3
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 FHSETPARA in PYTHIA file called instead.'/
0030      &1X,'Execution stopped!')
0031       RETURN
0032       END