1 #include "isajet/pilot.h"
3 C----------------------------------------------------------------------
5 C- Purpose and Methods :
6 C- Initialize a process before event generation
8 C- Created 5-FEB-1988 Serban D. Protopopescu
10 C Ver 7.14: Do logic after setting physics parameters
11 C----------------------------------------------------------------------
12 #if defined(CERNLIB_IMPNONE)
15 #include "isajet/nodcay.inc"
16 #include "isajet/idrun.inc"
17 #include "isajet/keys.inc"
18 #include "isajet/primar.inc"
19 #include "isajet/jetpar.inc"
20 #include "isajet/isloop.inc"
21 #include "isajet/xmssm.inc"
22 #include "isajet/isapw.inc"
30 C ISAPW2 is used to check whether ALDATA is loaded
31 DATA ISAPW2/'ALDATA REQUIRED BY FORTRAN G,H'/
35 IF(ISAPW1.NE.ISAPW2) THEN
36 PRINT*, ' ISABEG ERROR: BLOCK DATA ALDATA HAS NOT BEEN LOADED.'
37 PRINT*, ' ISAJET CANNOT RUN WITHOUT IT.'
38 PRINT*, ' PLEASE READ THE FINE MANUAL FOR ISAJET.'
53 C Read in user data and decay table
62 IF (KEYS(10).AND..NOT.GOMSSM) THEN
67 C Generate NSIGMA unevolved events for SIGF calculation
103 ELSE IF(KEYS(4)) THEN
111 ELSE IF(KEYS(5)) THEN
122 ELSE IF(KEYS(6)) THEN
134 ELSE IF(KEYS(7)) THEN
161 ELSE IF(KEYS(9)) THEN
172 ELSE IF(KEYS(10)) THEN
184 ELSE IF(KEYS(11)) THEN
197 C ZJJ0 initializes cross sections, so no event loop
198 ELSEIF(KEYS(12)) THEN