]>
Commit | Line | Data |
---|---|---|
0795afa3 | 1 | #include "isajet/pilot.h" |
2 | SUBROUTINE RDBEG | |
3 | C | |
4 | C Read first record (type 200) | |
5 | C Inverse of WRBEG | |
6 | C | |
7 | #if defined(CERNLIB_IMPNONE) | |
8 | IMPLICIT NONE | |
9 | #endif | |
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" | |
22 | C | |
23 | #include "isajet/zevel.inc" | |
24 | C | |
25 | INTEGER NL,IDSAVE,IL | |
26 | C | |
27 | IL=3 | |
28 | IDSAVE=IDVER | |
29 | CALL MOVLEI(IZEVEL(IL),IDVER,4) | |
30 | IF(IDVER.NE.IDSAVE) WRITE(ITLIS,1777) IDVER,IDSAVE | |
31 | 1777 FORMAT(///, | |
32 | $' WARNING: DATA WERE GENERATED WITH VERSION',I5,/, | |
33 | $' DATA ARE BEING READ WITH VERSION',I5,/, | |
34 | $' RESULTS CANNOT BE PREDICTED.'///) | |
35 | IL=IL+4 | |
36 | CALL MOVLEI(IZEVEL(IL),NJET,7) | |
37 | IL=IL+7 | |
38 | NL=NJET*MXGOQ | |
39 | IF(NJET.NE.0) CALL MOVLEL(LZEVEL(IL),GOQ(1,1),NL) | |
40 | IL=14+NL | |
41 | CALL MOVLEL(LZEVEL(IL),KEYS(1),10) | |
42 | IL=IL+10 | |
43 | CALL MOVLEV(ZEVEL(IL),PMIN(1),36) | |
44 | IL=IL+36 | |
45 | IF(.NOT.KEYS(3)) GO TO 11 | |
46 | CALL MOVLEV(ZEVEL(IL),QMIN,12) | |
47 | IL=IL+12 | |
48 | 11 CONTINUE | |
49 | CALL MOVLEL(LZEVEL(IL),GODY(1),5) | |
50 | IL=IL+5 | |
51 | CALL MOVLEV(ZEVEL(IL),PUD,22) | |
52 | IL=IL+22 | |
53 | CALL MOVLEV(ZEVEL(IL),ALAM,4) | |
54 | IL=IL+4 | |
55 | CALL MOVLEV(ZEVEL(IL),AMLEP(6),3) | |
56 | IL=IL+3 | |
57 | CALL MOVLEI(IZEVEL(IL),LOC(1),100) | |
58 | IL=IL+100 | |
59 | CALL MOVLEL(LZEVEL(IL),GOMSSM,1) | |
60 | IL=IL+1 | |
61 | CALL MOVLEV(ZEVEL(IL),XGLSS,11) | |
62 | IL=IL+11 | |
63 | CALL MOVLEL(LZEVEL(IL),GOSUG,1) | |
64 | IL=IL+1 | |
65 | CALL MOVLEV(ZEVEL(IL),XM0SU,5) | |
66 | IL=IL+5 | |
67 | C | |
68 | RETURN | |
69 | END |