1 #include "isajet/pilot.h"
2 LOGICAL FUNCTION LOGPHW(IERR,DELPH)
4 C SET AND CHECK LIMITS FOR W(Z0) 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"
22 PHIW=AMOD(PHI(3)+PI,2.*PI)
23 ELSEIF(PHWMIN.LT.UNDEF.AND.PHWMAX.LT.UNDEF) THEN
26 ELSEIF(PHWMAX.LT.UNDEF) THEN
38 IF(DELPHW.LT.0.OR.DELPHW.GT.2.*PI) THEN
39 CALL LOGERR(110,1,IERR)
43 IF(DELPHW.LE.DELPH(3)) THEN
45 PHIMAX(3)=PHIMIN(3)+DELPHW
48 PHWMAX=PHWMIN+DELPH(3)