First PHOS calibration object data (Y.K.)
[u/mrichter/AliRoot.git] / ISAJET / isarun / isaset.F
CommitLineData
0795afa3 1#include "isajet/pilot.h"
2 SUBROUTINE ISASET(IDKY,IEVT,ICOM,ILIS)
3C
4C SUBROUTINE TO SET UP ISAJET RUN THROUGH DIALOG
5C IDKY, IEVT, ICOM, ILIS ARE TAPE NUMBERS AS FOR ISAJET.
6C
7#include "isajet/itapes.inc"
8C SET TAPE NUMBERS
9 ITDKY=IABS(IDKY)
10 ITEVT=IABS(IEVT)
11 ITCOM=IABS(ICOM)
12 ITLIS=IABS(ILIS)
13C INITIALIZE
14 CALL SETCON
15 CALL RESET
16C READ COMMANDS INTERACTIVELY AND WRITE COMMAND FILE.
17 CALL DIALOG
18 REWIND ITCOM
19 RETURN
20 END