PYTHIA/pythia/pyupev.F

   1
   2 C*********************************************************************
   3
   4       SUBROUTINE PYUPEV(ISUB,SIGEV)
   5
   6 C...Dummy routine, to be replaced by user. When called from PYTHIA
   7 C...the subprocess number ISUB will be given, and PYUPEV is supposed
   8 C...to generate an event of this type, to be stored in the PYUPPR
   9 C...commonblock. SIGEV gives the differential cross-section associated
  10 C...with the event, i.e. the acceptance probability of the event is
  11 C...taken to be SIGEV/SIGMAX, where SIGMAX was given in the PYUPIN
  12 C...call.
  13       COMMON/LUDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200)
  14       SAVE /LUDAT1/
  15       COMMON/PYUPPR/NUP,KUP(20,7),PUP(20,5),NFUP,IFUP(10,2),Q2UP(0:10)
  16       SAVE /PYUPPR/
  17
  18 C...Stop program if this routine is ever called.
  19 C...You should not copy these lines to your own routine.
  20       WRITE(MSTU(11),5000)
  21       IF(RLU(0).LT.10.) STOP
  22       SIGEV=ISUB
  23
  24 C...Format for error printout.
  25  5000 FORMAT(1X,'Error: you did not link your PYUPEV routine ',
  26      &'correctly.'/1X,'Dummy routine in PYTHIA file called instead.'/
  27      &1X,'Execution stopped!')
  28
  29       RETURN
  30       END