[u/mrichter/AliRoot.git] / ISAJET / isatape / rend.F

#include "isajet/pilot.h"
      SUBROUTINE REND
C
C          INVERSE OF WREND
C          READ END RECORD (TYPE 300)
C
#include "isajet/itapes.inc"
#include "isajet/final.inc"
#include "isajet/zevel.inc"
      NKINF=IZEVEL(3)
      SIGF=ZEVEL(4)
      ALUM=ZEVEL(5)
      ACCEPT=ZEVEL(6)
      NRECS=IZEVEL(7)
      RETURN
      END
Commit	Line	Data
0795afa3	1	#include "isajet/pilot.h"
	2	SUBROUTINE REND
	3	C
	4	C INVERSE OF WREND
	5	C READ END RECORD (TYPE 300)
	6	C
	7	#include "isajet/itapes.inc"
	8	#include "isajet/final.inc"
	9	#include "isajet/zevel.inc"
	10	NKINF=IZEVEL(3)
	11	SIGF=ZEVEL(4)
	12	ALUM=ZEVEL(5)
	13	ACCEPT=ZEVEL(6)
	14	NRECS=IZEVEL(7)
	15	RETURN
	16	END