The Init method of AliITSreconstruction has to be called by the user. This was done...
[u/mrichter/AliRoot.git] / ISAJET / isatape / isawnd.F
CommitLineData
0795afa3 1#include "isajet/pilot.h"
2 SUBROUTINE ISAWND
3C
4C WRITE END RECORD, TYPE 300
5C CONTAINS CROSS SECTIONS AND LUMINOSITY
6C
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"
14C
15C 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
281010 FORMAT(////' THIS RUN WROTE',I10,
29 1' PHYSICAL RECORDS ON TAPE',I3)
30 RETURN
31 END