ISAJET/code/isaini.F

   1 #include "isajet/pilot.h"
   2       SUBROUTINE ISAINI(JTDKY,JTEVT,JTCOM,JTLIS)
   3 C----------------------------------------------------------------------
   4 C-
   5 C-   Purpose and Methods :
   6 C-         INITIALIZE PROCESSES
   7 C-
   8 C-   Inputs  :
   9 C          JTDKY = +/- UNIT NUMBER FOR DECAY TABLE FILE.
  10 C                      IF IT IS NEGATIVE, DECAY TABLE IS NOT PRINTED.
  11 C          JTEVT = +/- UNIT NUMBER FOR OUTPUT EVENT FILE.
  12 C                      IF IT IS NEGATIVE, ONLY STABLE PARTICLES ARE
  13 C                      WRITTEN ON IT.
  14 C          JTCOM =     UNIT NUMBER FOR COMMAND FILE.
  15 C          JTLIS =     UNIT NUMBER FOR LISTING.
  16 C-
  17 C-   Created   3-FEB-1988   Serban D. Protopopescu
  18 C-
  19 C----------------------------------------------------------------------
  20 C
  21 #include "isajet/idrun.inc"
  22 #include "isajet/itapes.inc"
  23 C
  24 C          ENTRY.
  25       ITDKY=IABS(JTDKY)
  26       ITEVT=JTEVT
  27       ITCOM=IABS(JTCOM)
  28       ITLIS=IABS(JTLIS)
  29 C
  30       IEVT=0
  31       CALL SETCON
  32       CALL RESET
  33       IF(JTDKY.GT.0) THEN
  34         CALL SETDKY(.TRUE.)
  35       ELSE
  36         CALL SETDKY(.FALSE.)
  37       ENDIF
  38 C
  39   999 RETURN
  40       END