ssmssm.f

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

 
C*********************************************************************
 
C...SSMSSM
C...Dummy function, to be removed when ISAJET (ISASUSY) is to be linked.
 
      SUBROUTINE ssmssm(RDUM1,RDUM2,RDUM3,RDUM4,RDUM5,RDUM6,RDUM7,
     &rdum8,rdum9,rdum10,rdum11,rdum12,rdum13,rdum14,rdum15,rdum16,
     &rdum17,rdum18,rdum19,rdum20,rdum21,rdum22,rdum23,rdum24,rdum25,
     &idum1,idum2)
      IMPLICIT DOUBLE PRECISION(a-h, o-z)
      IMPLICIT INTEGER(i-n)
      REAL rdum1,rdum2,rdum3,rdum4,rdum5,rdum6,rdum7,rdum8,rdum9,
     &rdum10,rdum11,rdum12,rdum13,rdum14,rdum15,rdum16,rdum17,rdum18,
     &rdum19,rdum20,rdum21,rdum22,rdum23,rdum24,rdum25
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(110)
 
C...Format for error printout.
 5000 FORMAT(1x,'Error: you did not link ISAJET correctly.'/
     &1x,'Dummy routine SSMSSM in PYTHIA file called instead.'/
     &1x,'Execution stopped!')
      RETURN
      END