[u/mrichter/AliRoot.git] / ISAJET / isarun / isaset.F

#include "isajet/pilot.h"
      SUBROUTINE ISASET(IDKY,IEVT,ICOM,ILIS)
C
C          SUBROUTINE TO SET UP ISAJET RUN THROUGH DIALOG
C          IDKY, IEVT, ICOM, ILIS ARE TAPE NUMBERS AS FOR ISAJET.
C
#include "isajet/itapes.inc"
C          SET TAPE NUMBERS
      ITDKY=IABS(IDKY)
      ITEVT=IABS(IEVT)
      ITCOM=IABS(ICOM)
      ITLIS=IABS(ILIS)
C          INITIALIZE
      CALL SETCON
      CALL RESET
C          READ COMMANDS INTERACTIVELY AND WRITE COMMAND FILE.
      CALL DIALOG
      REWIND ITCOM
      RETURN
      END
Commit	Line	Data
0795afa3	1	#include "isajet/pilot.h"
	2	SUBROUTINE ISASET(IDKY,IEVT,ICOM,ILIS)
	3	C
	4	C SUBROUTINE TO SET UP ISAJET RUN THROUGH DIALOG
	5	C IDKY, IEVT, ICOM, ILIS ARE TAPE NUMBERS AS FOR ISAJET.
	6	C
	7	#include "isajet/itapes.inc"
	8	C SET TAPE NUMBERS
	9	ITDKY=IABS(IDKY)
	10	ITEVT=IABS(IEVT)
	11	ITCOM=IABS(ICOM)
	12	ITLIS=IABS(ILIS)
	13	C INITIALIZE
	14	CALL SETCON
	15	CALL RESET
	16	C READ COMMANDS INTERACTIVELY AND WRITE COMMAND FILE.
	17	CALL DIALOG
	18	REWIND ITCOM
	19	RETURN
	20	END