pythiaeRHIC/pythia/ssmssm.f

0001
0002 C*********************************************************************
0003
0004 C...SSMSSM
0005 C...Dummy function, to be removed when ISAJET (ISASUSY) is to be linked.
0006
0007       SUBROUTINE SSMSSM(RDUM1,RDUM2,RDUM3,RDUM4,RDUM5,RDUM6,RDUM7,
0008      &RDUM8,RDUM9,RDUM10,RDUM11,RDUM12,RDUM13,RDUM14,RDUM15,RDUM16,
0009      &RDUM17,RDUM18,RDUM19,RDUM20,RDUM21,RDUM22,RDUM23,RDUM24,RDUM25,
0010      &IDUM1,IDUM2)
0011       IMPLICIT DOUBLE PRECISION(A-H, O-Z)
0012       IMPLICIT INTEGER(I-N)
0013       REAL RDUM1,RDUM2,RDUM3,RDUM4,RDUM5,RDUM6,RDUM7,RDUM8,RDUM9,
0014      &RDUM10,RDUM11,RDUM12,RDUM13,RDUM14,RDUM15,RDUM16,RDUM17,RDUM18,
0015      &RDUM19,RDUM20,RDUM21,RDUM22,RDUM23,RDUM24,RDUM25
0016 C...Commonblocks.
0017       COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200)
0018       SAVE /PYDAT1/
0019
0020 C...Stop program if this routine is ever called.
0021       WRITE(MSTU(11),5000)
0022       CALL PYSTOP(110)
0023
0024 C...Format for error printout.
0025  5000 FORMAT(1X,'Error: you did not link ISAJET correctly.'/
0026      &1X,'Dummy routine SSMSSM in PYTHIA file called instead.'/
0027      &1X,'Execution stopped!')
0028       RETURN
0029       END