pystop.f

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

 
C*********************************************************************
 
C...PYSTOP
C...Allows users to handle STOP statemens
 
      SUBROUTINE pystop(MCOD)
 
C...Double precision and integer declarations.
      IMPLICIT DOUBLE PRECISION(a-h, o-z)
      IMPLICIT INTEGER(i-n)
      INTEGER pyk,pychge,pycomp
C...Commonblocks.
      common/pydat1/mstu(200),paru(200),mstj(200),parj(200)
      SAVE /pydat1/

 
C...Write message, then stop
      WRITE(mstu(11),5000) mcod
      stop

 
C...Formats for output.
 5000 FORMAT(/5x,'PYSTOP called with code: ',i4)
      RETURN
      END