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

#include "isajet/pilot.h"
      SUBROUTINE ISAWND
C
C          WRITE END RECORD, TYPE 300
C          CONTAINS CROSS SECTIONS AND LUMINOSITY
C
#include "isajet/itapes.inc"
#include "isajet/final.inc"
#include "isajet/totals.inc"
#include "isajet/zevel.inc"
#include "isajet/jetlim.inc"
#include "isajet/dylim.inc"
#include "isajet/keys.inc"
C
C       keep entry point WREND for backward compatibility
      ENTRY WREND
      ITA=IABS(ITEVT)
      IZEVEL(1)=300
      IZEVEL(2)=1
      IZEVEL(3)=NKINF
      ZEVEL(4)=SIGF
      ZEVEL(5)=ALUM
      ZEVEL(6)=ACCEPT
      IZEVEL(7)=NRECS
      IL=7
      CALL BUFOUT(IL)
      WRITE(ITLIS,1010) NRECS,ITA
1010  FORMAT(////' THIS RUN WROTE',I10,
     1' PHYSICAL RECORDS ON TAPE',I3)
      RETURN
      END
Commit	Line	Data
0795afa3	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