pythiaeRHIC/pythia/sugra.f

0001
0002 C*********************************************************************
0003
0004 C...SUGRA
0005 C...Dummy routine, to be removed when ISAJET (ISASUSY) is to be linked.
0006
0007       SUBROUTINE SUGRA(MZERO,MHLF,AZERO,TANB,SGNMU,MTOP,IMODL)
0008        IMPLICIT DOUBLE PRECISION(A-H, O-Z)
0009       IMPLICIT INTEGER(I-N)
0010       REAL MZERO,MHLF,AZERO,TANB,SGNMU,MTOP
0011       INTEGER IMODL
0012 C...Commonblocks.
0013       COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200)
0014       SAVE /PYDAT1/
0015
0016 C...Stop program if this routine is ever called.
0017       WRITE(MSTU(11),5000)
0018       CALL PYSTOP(110)
0019
0020 C...Format for error printout.
0021  5000 FORMAT(1X,'Error: you did not link ISAJET correctly.'/
0022      &1X,'Dummy routine SUGRA in PYTHIA file called instead.'/
0023      &1X,'Execution stopped!')
0024
0025       RETURN
0026       END