The Init method of AliITSreconstruction has to be called by the user. This was done...
[u/mrichter/AliRoot.git] / ISAJET / isatape / isawbg.F
CommitLineData
0795afa3 1#include "isajet/pilot.h"
2 SUBROUTINE ISAWBG
3C
4C Write initial record (type 200)
5C Inverse of RDBEG
6C
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"
22C
23#include "isajet/zvout.inc"
24#include "isajet/zevel.inc"
25#include "isajet/final.inc"
26C
27 INTEGER NL,IL,ITA
28C
29C Keep entry point WRBEG for backward compatibility
30 ENTRY WRBEG
31C
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
76C
77 IZEVEL(1)=200
78 IZEVEL(2)=1
79 CALL BUFOUT(IL)
80 RETURN
81 END