1 #include "isajet/pilot.h"
2 LOGICAL FUNCTION LOGYW(IERR)
4 C SET AND CHECK Y LIMITS FOR W(Z0)
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"
17 C INVERSE HYPERBOLIC COSINE FUNCTION
18 ACOSH(X)=ALOG(X+SQRT(X**2-1.0))
19 C INVERSE HYPERBOLIC SINE FUNCTION
20 ASINH(X)=ALOG(X+SQRT(X**2+1.0))
25 IF(YWMIN.LT.UNDEF.AND.YWMAX.LT.UNDEF) THEN
26 YWMAX=ACOSH(HALFE/SQRT(QTMIN**2+QMIN**2))
30 IF(YWMAX.LT.UNDEF) THEN
36 YWMX=ACOSH(HALFE/SQRT(QTMIN**2+QMIN**2))
41 IF(FIXYW.AND.(COMB(1).OR.COMB(2))) THEN
43 CALL LOGERR(102,1,IERR)
47 IF(COMB(1)) YWMAX=YWMX
48 IF(COMB(2)) YWMIN=YWMN