The Init method of AliITSreconstruction has to be called by the user. This was done...
[u/mrichter/AliRoot.git] / ISAJET / isatape / isawnd.F
1 #include "isajet/pilot.h"
2       SUBROUTINE ISAWND
3 C
4 C          WRITE END RECORD, TYPE 300
5 C          CONTAINS CROSS SECTIONS AND LUMINOSITY
6 C
7 #include "isajet/itapes.inc"
8 #include "isajet/final.inc"
9 #include "isajet/totals.inc"
10 #include "isajet/zevel.inc"
11 #include "isajet/jetlim.inc"
12 #include "isajet/dylim.inc"
13 #include "isajet/keys.inc"
14 C
15 C       keep entry point WREND for backward compatibility
16       ENTRY WREND
17       ITA=IABS(ITEVT)
18       IZEVEL(1)=300
19       IZEVEL(2)=1
20       IZEVEL(3)=NKINF
21       ZEVEL(4)=SIGF
22       ZEVEL(5)=ALUM
23       ZEVEL(6)=ACCEPT
24       IZEVEL(7)=NRECS
25       IL=7
26       CALL BUFOUT(IL)
27       WRITE(ITLIS,1010) NRECS,ITA
28 1010  FORMAT(////' THIS RUN WROTE',I10,
29      1' PHYSICAL RECORDS ON TAPE',I3)
30       RETURN
31       END