fhsetpara.f

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

 
C*********************************************************************
 
C...FHSETPARA
C...Dummy function, to be removed when FEYNHIGGS is to be linked.
 
      SUBROUTINE fhsetpara(IER,SCF,DMT,DMB,DMW,DMZ,DTANB,DMA,DMH,DM3L,
     &     dm3e,dm3q,dm3u,dm3d,dm2l,dm2e,dm2q,dm2u, dm2d,dm1l,dm1e,dm1q,
     &     dm1u,dm1d,dmu,ae33,au33,ad33,ae22,au22,ad22,ae11,au11,ad11,
     &     dm1,dm2,dm3,rlt,rlb,qtau,qt,qb)
      IMPLICIT DOUBLE PRECISION(a-h, o-z)
      IMPLICIT INTEGER(i-n)
 
      DOUBLE COMPLEX saeff, uhiggs(3,3)
      DOUBLE COMPLEX dmu,
     &     ae33, au33, ad33, ae22, au22, ad22, ae11, au11, ad11,
     &     dm1, dm2, dm3

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 FHSETPARA in PYTHIA file called instead.'/
     &1x,'Execution stopped!')
      RETURN
      END