The Init method of AliITSreconstruction has to be called by the user. This was done...
[u/mrichter/AliRoot.git] / ISAJET / isatape / isawbg.F
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