1 #include "isajet/pilot.h"
2 LOGICAL FUNCTION LOGQT(IERR)
4 C SET AND CHECK W(Z0) PT RANGE
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"
18 IF(QTMIN.LT.UNDEF.AND.QTMAX.LT.UNDEF) THEN
21 C SET DEFAULT QTW LIMITS IF NONE WERE SET
22 IF(QTMAX.GT.0.99*HALFE) THEN
39 ELSEIF(QTMAX.LT.UNDEF) THEN
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)