ISAJET/code/setnxt.F

   1 #include "isajet/pilot.h"
   2       SUBROUTINE SETNXT
   3 C
   4 C            RESET LIMITS BEFORE NEXT SET
   5 C
   6 #include "isajet/itapes.inc"
   7 #include "isajet/lstprt.inc"
   8 #include "isajet/totals.inc"
   9 #include "isajet/dylim.inc"
  10 #include "isajet/jetlim.inc"
  11 #include "isajet/primar.inc"
  12 #include "isajet/jetset.inc"
  13 #include "isajet/partcl.inc"
  14       DATA UNDEF/-1.E9/
  15       DO 1 I=1,36
  16       IF(SETLMJ(I)) BLIMS(I)=UNDEF
  17     1 CONTINUE
  18       DO 2 I=1,12
  19       IF(SETLMQ(I)) BLIM1(I)=UNDEF
  20     2 CONTINUE
  21 C          RESET /TOTALS/
  22       NKINPT=0
  23       NWGEN=0
  24       NKEEP=0
  25       SUMWT=0.
  26 C          RESET /LSTPRT/
  27       LSTPRT=0
  28 C          RESET NJSET AND NPTCL
  29       NJSET=0
  30       NPTCL=0
  31       NPAIR=0
  32       RETURN
  33       END