EffC++ warnings corrected.
[u/mrichter/AliRoot.git] / ISAJET / isarun / isaset.F
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