ISAJET/isatape/rend.F

   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