]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 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 |