1 #include "isajet/pilot.h"
2 LOGICAL FUNCTION LOGPHI(IERR,DELPH)
4 C SET AND CHECK LIMITS FOR JET PHI
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"
23 IF(PHIMAX(I).LT.UNDEF.AND.PHIMIN(I).LT.UNDEF) THEN
28 IF(PHIMAX(I).LT.UNDEF) FIXPHI(I)=.TRUE.
33 IF(KEYS(3).AND.I.LT.3) THEN
35 CALL LOGERR(105,I,IERR)
44 DELPH(I)=PHIMAX(I)-PHIMIN(I)
46 IF(DELPH(I).GT.2.*PI.OR.DELPH(I).LT.0) THEN
56 IF(KEYS(1).AND.DELPH(1).GT.DELPH(2)) THEN
57 PHIMIN(1)=PHIMIN(2)+PI
58 PHIMAX(1)=PHIMIN(1)+DELPH(2)