]>
Commit | Line | Data |
---|---|---|
0795afa3 | 1 | #include "isajet/pilot.h" |
2 | LOGICAL FUNCTION LOGXW(IERR) | |
3 | C | |
4 | C SET AND CHECK X LIMITS FOR W(Z0) | |
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 | LOGXW=.TRUE. | |
17 | FIXXW=.FALSE. | |
18 | C | |
19 | IF(XWMIN.LT.UNDEF.AND.XWMAX.LT.UNDEF) THEN | |
20 | XWMIN=-1.0 | |
21 | XWMAX=1.0 | |
22 | ELSEIF(XWMAX.GT.UNDEF) THEN | |
23 | FIXXW=.TRUE. | |
24 | XW=XWMIN | |
25 | XWMAX=XW | |
26 | C IF XW=0 THEN YW=0 | |
27 | IF(XW.NE.0) THEN | |
28 | FIXYW=.TRUE. | |
29 | YW=0 | |
30 | YWMIN=0 | |
31 | YWMAX=0 | |
32 | ENDIF | |
33 | ENDIF | |
34 | C | |
35 | C IF YW=0 THAN XW=0 | |
36 | IF(YW.EQ.0) THEN | |
37 | FIXXW=.TRUE. | |
38 | XW=0 | |
39 | XWMAX=0 | |
40 | ENDIF | |
41 | C | |
42 | RETURN | |
43 | END |