ISAJET/code/logxw.F

   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