PYTHIA/pythia/pyupin.F

   1
   2 C*********************************************************************
   3
   4       SUBROUTINE PYUPIN(ISUB,TITLE,SIGMAX)
   5
   6 C...Routine to be called by user to set up a user-defined process.
   7       COMMON/LUDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200)
   8       COMMON/PYINT2/ISET(200),KFPR(200,2),COEF(200,20),ICOL(40,4,2)
   9       COMMON/PYINT6/PROC(0:200)
  10       CHARACTER PROC*28
  11       SAVE /LUDAT1/,/PYINT2/,/PYINT6/
  12       CHARACTER*(*) TITLE
  13
  14 C...Check that subprocess number free.
  15       IF(ISUB.LT.1.OR.ISUB.GT.200.OR.ISET(ISUB).GE.0) THEN
  16         WRITE(MSTU(11),5000) ISUB
  17         STOP
  18       ENDIF
  19
  20 C...Fill information on new process.
  21       ISET(ISUB)=11
  22       COEF(ISUB,1)=SIGMAX
  23       PROC(ISUB)=TITLE//' '
  24
  25 C...Format for error output.
  26  5000 FORMAT(1X,'Error: user-defined subprocess code ',I4,
  27      &' not allowed.'//1X,'Execution stopped!')
  28
  29       RETURN
  30       END