The Init method of AliITSreconstruction has to be called by the user. This was done...
[u/mrichter/AliRoot.git] / ISAJET / isatape / rdtape.F
CommitLineData
0795afa3 1#include "isajet/pilot.h"
2 SUBROUTINE RDTAPE(IDEV,IFL)
3C
4C CALL ROUTINES TO READ AND UNPACK ISAJET DATA
5C RGENS FOR EVENTS
6C RDBEG FOR BEGINNING RECORD
7C REND FOR END RECORD
8C
9#include "isajet/itapes.inc"
10#include "isajet/ita.inc"
11#include "isajet/rectp.inc"
12#include "isajet/zevel.inc"
13 ITB=IABS(IDEV)
14 CALL RGENS(IFL)
15 IF(IFL.NE.0) RETURN
16 IF(IRECTP.EQ.200) CALL RDBEG
17 IF(IRECTP.EQ.300) CALL REND
18 RETURN
19 END