1 #include "isajet/pilot.h"
4 C Read first record (type 200)
7 #if defined(CERNLIB_IMPNONE)
10 #include "isajet/itapes.inc"
11 #include "isajet/dylim.inc"
12 #include "isajet/frgpar.inc"
13 #include "isajet/idrun.inc"
14 #include "isajet/jetlim.inc"
15 #include "isajet/keys.inc"
16 #include "isajet/primar.inc"
17 #include "isajet/qcdpar.inc"
18 #include "isajet/qlmass.inc"
19 #include "isajet/q1q2.inc"
20 #include "isajet/types.inc"
21 #include "isajet/xmssm.inc"
23 #include "isajet/zevel.inc"
29 CALL MOVLEI(IZEVEL(IL),IDVER,4)
30 IF(IDVER.NE.IDSAVE) WRITE(ITLIS,1777) IDVER,IDSAVE
32 $' WARNING: DATA WERE GENERATED WITH VERSION',I5,/,
33 $' DATA ARE BEING READ WITH VERSION',I5,/,
34 $' RESULTS CANNOT BE PREDICTED.'///)
36 CALL MOVLEI(IZEVEL(IL),NJET,7)
39 IF(NJET.NE.0) CALL MOVLEL(LZEVEL(IL),GOQ(1,1),NL)
41 CALL MOVLEL(LZEVEL(IL),KEYS(1),10)
43 CALL MOVLEV(ZEVEL(IL),PMIN(1),36)
45 IF(.NOT.KEYS(3)) GO TO 11
46 CALL MOVLEV(ZEVEL(IL),QMIN,12)
49 CALL MOVLEL(LZEVEL(IL),GODY(1),5)
51 CALL MOVLEV(ZEVEL(IL),PUD,22)
53 CALL MOVLEV(ZEVEL(IL),ALAM,4)
55 CALL MOVLEV(ZEVEL(IL),AMLEP(6),3)
57 CALL MOVLEI(IZEVEL(IL),LOC(1),100)
59 CALL MOVLEL(LZEVEL(IL),GOMSSM,1)
61 CALL MOVLEV(ZEVEL(IL),XGLSS,11)
63 CALL MOVLEL(LZEVEL(IL),GOSUG,1)
65 CALL MOVLEV(ZEVEL(IL),XM0SU,5)