1 #include "isajet/pilot.h"
3 C RESET ALL USER DEFINED VARIABLES
4 #if defined(CERNLIB_IMPNONE)
7 #include "isajet/itapes.inc"
8 #include "isajet/qcdpar.inc"
9 #include "isajet/dylim.inc"
10 #include "isajet/frgpar.inc"
11 #include "isajet/hcon.inc"
12 #include "isajet/jetlim.inc"
13 #include "isajet/jetpar.inc"
14 #include "isajet/nodcay.inc"
15 #include "isajet/primar.inc"
16 #include "isajet/qlmass.inc"
17 #include "isajet/q1q2.inc"
18 #include "isajet/seed.inc"
19 #include "isajet/sspar.inc"
20 #include "isajet/tcpar.inc"
21 #include "isajet/types.inc"
22 #include "isajet/wcon.inc"
23 #include "isajet/force.inc"
24 #include "isajet/mbgen.inc"
25 #include "isajet/isloop.inc"
26 #include "isajet/limevl.inc"
27 #include "isajet/xmssm.inc"
28 #include "isajet/eepar.inc"
29 #include "isajet/mglims.inc"
31 INTEGER I,I1,I2,I3,J1,INDEX,J,K
107 CALL FLAVOR(80+I,I1,I2,I3,J1,INDEX)
109 CALL FLAVOR(29,I1,I2,I3,J1,INDEX)
111 CALL FLAVOR(30,I1,I2,I3,J1,INDEX)
113 CALL FLAVOR(39,I1,I2,I3,J1,INDEX)
115 CALL FLAVOR(40,I1,I2,I3,J1,INDEX)
118 CALL FLAVOR(20+I,I1,I2,I3,J1,INDEX)
119 AMLEP(INDEX)=100.+AMASS(I)
120 CALL FLAVOR(30+I,I1,I2,I3,J1,INDEX)
121 AMLEP(INDEX)=100.+AMASS(I+10)
139 133 GOWMOD(J,I)=.TRUE.
161 143 WMODES(K,I)=BLANK
167 CALL FLAVOR(80,I1,I2,I3,J,INDEX)
168 AMLEP(INDEX)=WMASS(2)
169 CALL FLAVOR(90,I1,I2,I3,J,INDEX)
170 AMLEP(INDEX)=WMASS(4)
180 C RESET QCD EVOLUTION CUTS