[u/mrichter/AliRoot.git] / ISAJET / code / logxw.F

#include "isajet/pilot.h"
      LOGICAL FUNCTION LOGXW(IERR)
C
C       SET AND CHECK X LIMITS FOR W(Z0)
C
#include "isajet/itapes.inc"
#include "isajet/jetlim.inc"
#include "isajet/primar.inc"
#include "isajet/jetpar.inc"
#include "isajet/const.inc"
#include "isajet/dylim.inc"
#include "isajet/keys.inc"
#include "isajet/q1q2.inc"
      DATA UNDEF/-.9E9/
C
      LOGXW=.TRUE.
      FIXXW=.FALSE.
C
      IF(XWMIN.LT.UNDEF.AND.XWMAX.LT.UNDEF) THEN
        XWMIN=-1.0
        XWMAX=1.0
      ELSEIF(XWMAX.GT.UNDEF) THEN
        FIXXW=.TRUE.
        XW=XWMIN
        XWMAX=XW
C            IF XW=0 THEN YW=0
        IF(XW.NE.0) THEN
          FIXYW=.TRUE.
          YW=0
          YWMIN=0
          YWMAX=0
        ENDIF
      ENDIF
C
C            IF YW=0 THAN XW=0
      IF(YW.EQ.0) THEN
        FIXXW=.TRUE.
        XW=0
        XWMAX=0
      ENDIF
C
      RETURN
      END
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