ISAJET/isatape/rdtape.F

   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