git://git.uio.no / u / mrichter / AliRoot.git / blame
| Commit | Line | Data |
|---|---|---|
| 0795afa3 | 1 | #include "isajet/pilot.h" |
| 2 | SUBROUTINE RDTAPE(IDEV,IFL) | |
| 3 | C | |
| 4 | C CALL ROUTINES TO READ AND UNPACK ISAJET DATA | |
| 5 | C RGENS FOR EVENTS | |
| 6 | C RDBEG FOR BEGINNING RECORD | |
| 7 | C REND FOR END RECORD | |
| 8 | C | |
| 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 |