]>
Commit | Line | Data |
---|---|---|
0795afa3 | 1 | #include "isajet/pilot.h" |
2 | LOGICAL FUNCTION LOGQT(IERR) | |
3 | C | |
4 | C SET AND CHECK W(Z0) PT RANGE | |
5 | C | |
6 | #include "isajet/itapes.inc" | |
7 | #include "isajet/jetlim.inc" | |
8 | #include "isajet/primar.inc" | |
9 | #include "isajet/jetpar.inc" | |
10 | #include "isajet/const.inc" | |
11 | #include "isajet/dylim.inc" | |
12 | #include "isajet/keys.inc" | |
13 | #include "isajet/q1q2.inc" | |
14 | DATA UNDEF/-.9E9/ | |
15 | C | |
16 | LOGQT=.TRUE. | |
17 | FIXQT=.FALSE. | |
18 | IF(QTMIN.LT.UNDEF.AND.QTMAX.LT.UNDEF) THEN | |
19 | QTMAX=PTMAX(3) | |
20 | QTMIN=PTMIN(3) | |
21 | C SET DEFAULT QTW LIMITS IF NONE WERE SET | |
22 | IF(QTMAX.GT.0.99*HALFE) THEN | |
23 | NJET=2 | |
24 | QTMIN=0. | |
25 | QTMAX=0. | |
26 | QTW=0. | |
27 | STDDY=.TRUE. | |
28 | FIXQT=.TRUE. | |
29 | PTMIN(3)=0. | |
30 | PTMAX(3)=0. | |
31 | FIXPT(3)=.TRUE. | |
32 | CALL LOGERR(0,1,IERR) | |
33 | ENDIF | |
34 | ELSEIF(FIXPT(3)) THEN | |
35 | QTW=PT(3) | |
36 | QTMIN=PTMIN(3) | |
37 | QTMAX=QTMIN | |
38 | FIXQT=.TRUE. | |
39 | ELSEIF(QTMAX.LT.UNDEF) THEN | |
40 | FIXQT=.TRUE. | |
41 | QTW=QTMIN | |
42 | QTMAX=QTMIN | |
43 | FIXPT(3)=.TRUE. | |
44 | PT(3)=QTW | |
45 | PTMIN(3)=QTMIN | |
46 | PTMAX(3)=QTMAX | |
47 | ELSE | |
48 | IF(QTMAX.LT.PTMAX(3)) PTMAX(3)=QTMAX | |
49 | IF(QTMIN.GT.PTMIN(3)) PTMIN(3)=QTMIN | |
50 | IF(QTMAX.GT.PTMAX(3)) QTMAX=PTMAX(3) | |
51 | IF(QTMIN.LT.PTMIN(3)) QTMIN=PTMIN(3) | |
52 | ENDIF | |
53 | C | |
54 | RETURN | |
55 | END |