]>
Commit | Line | Data |
---|---|---|
0795afa3 | 1 | #include "isajet/pilot.h" |
2 | SUBROUTINE ISAWBG | |
3 | C | |
4 | C Write initial record (type 200) | |
5 | C Inverse of RDBEG | |
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/zvout.inc" | |
24 | #include "isajet/zevel.inc" | |
25 | #include "isajet/final.inc" | |
26 | C | |
27 | INTEGER NL,IL,ITA | |
28 | C | |
29 | C Keep entry point WRBEG for backward compatibility | |
30 | ENTRY WRBEG | |
31 | C | |
32 | ITA=IABS(ITEVT) | |
33 | NKINF=0 | |
34 | SIGF=0. | |
35 | ALUM=0. | |
36 | ACCEPT=0. | |
37 | NRECS=0 | |
38 | #if defined(CERNLIB_CDCPACK) | |
39 | CALL ZEROL(ZVOUT,512) | |
40 | #endif | |
41 | CALL ZEROL(ZEVEL,MAXLEN) | |
42 | IL=3 | |
43 | CALL MOVLEI(IDVER,IZEVEL(IL),4) | |
44 | IL=IL+4 | |
45 | CALL MOVLEI(NJET,IZEVEL(IL),7) | |
46 | IL=IL+7 | |
47 | NL=NJET*MXGOQ | |
48 | IF(NJET.NE.0) CALL MOVLEL(GOQ(1,1),LZEVEL(IL),NL) | |
49 | IL=IL+NL | |
50 | CALL MOVLEL(KEYS(1),LZEVEL(IL),10) | |
51 | IL=IL+10 | |
52 | CALL MOVLEV(PMIN(1),ZEVEL(IL),36) | |
53 | IL=IL+36 | |
54 | IF(.NOT.KEYS(3)) GOTO 11 | |
55 | CALL MOVLEV(QMIN,ZEVEL(IL),12) | |
56 | IL=IL+12 | |
57 | 11 CONTINUE | |
58 | CALL MOVLEL(GODY(1),LZEVEL(IL),5) | |
59 | IL=IL+5 | |
60 | CALL MOVLEV(PUD,ZEVEL(IL),22) | |
61 | IL=IL+22 | |
62 | CALL MOVLEV(ALAM,ZEVEL(IL),4) | |
63 | IL=IL+4 | |
64 | CALL MOVLEV(AMLEP(6),ZEVEL(IL),3) | |
65 | IL=IL+3 | |
66 | CALL MOVLEI(LOC(1),IZEVEL(IL),100) | |
67 | IL=IL+100 | |
68 | CALL MOVLEL(GOMSSM,LZEVEL(IL),1) | |
69 | IL=IL+1 | |
70 | CALL MOVLEV(XGLSS,ZEVEL(IL),11) | |
71 | IL=IL+11 | |
72 | CALL MOVLEL(GOSUG,LZEVEL(IL),1) | |
73 | IL=IL+1 | |
74 | CALL MOVLEV(XM0SU,ZEVEL(IL),5) | |
75 | IL=IL+5 | |
76 | C | |
77 | IZEVEL(1)=200 | |
78 | IZEVEL(2)=1 | |
79 | CALL BUFOUT(IL) | |
80 | RETURN | |
81 | END |