]>
Commit | Line | Data |
---|---|---|
0795afa3 | 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 |