ISAJET/isatape/isawnd.F

   1 #include "isajet/pilot.h"
   2       SUBROUTINE ISAWND
   3 C
   4 C          WRITE END RECORD, TYPE 300
   5 C          CONTAINS CROSS SECTIONS AND LUMINOSITY
   6 C
   7 #include "isajet/itapes.inc"
   8 #include "isajet/final.inc"
   9 #include "isajet/totals.inc"
  10 #include "isajet/zevel.inc"
  11 #include "isajet/jetlim.inc"
  12 #include "isajet/dylim.inc"
  13 #include "isajet/keys.inc"
  14 C
  15 C       keep entry point WREND for backward compatibility
  16       ENTRY WREND
  17       ITA=IABS(ITEVT)
  18       IZEVEL(1)=300
  19       IZEVEL(2)=1
  20       IZEVEL(3)=NKINF
  21       ZEVEL(4)=SIGF
  22       ZEVEL(5)=ALUM
  23       ZEVEL(6)=ACCEPT
  24       IZEVEL(7)=NRECS
  25       IL=7
  26       CALL BUFOUT(IL)
  27       WRITE(ITLIS,1010) NRECS,ITA
  28 1010  FORMAT(////' THIS RUN WROTE',I10,
  29      1' PHYSICAL RECORDS ON TAPE',I3)
  30       RETURN
  31       END