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