]>
Commit | Line | Data |
---|---|---|
0795afa3 | 1 | #include "isajet/pilot.h" |
2 | LOGICAL FUNCTION LOGQM(IERR) | |
3 | C | |
4 | C Set and check limits for gamma*/W/Z0/Higgs mass range | |
5 | C Ver 7.14: Use HMASS+-5*HGAM for MSSM default range | |
6 | C | |
7 | #if defined(CERNLIB_IMPNONE) | |
8 | IMPLICIT NONE | |
9 | #endif | |
10 | #include "isajet/itapes.inc" | |
11 | #include "isajet/jetlim.inc" | |
12 | #include "isajet/primar.inc" | |
13 | #include "isajet/jetpar.inc" | |
14 | #include "isajet/const.inc" | |
15 | #include "isajet/dylim.inc" | |
16 | #include "isajet/keys.inc" | |
17 | #include "isajet/q1q2.inc" | |
18 | #include "isajet/hcon.inc" | |
19 | #include "isajet/xmssm.inc" | |
20 | C | |
21 | REAL UNDEF | |
22 | INTEGER IERR | |
23 | DATA UNDEF/-.9E9/ | |
24 | C | |
25 | LOGQM=.TRUE. | |
26 | FIXQM=.FALSE. | |
27 | IF(QMIN.LT.UNDEF.AND.QMAX.LT.UNDEF) THEN | |
28 | IF(KEYS(7).AND.GOMSSM) THEN | |
29 | C For MSSM Higgs, set default limits around Higgs | |
30 | QMAX=HMASS+5*HGAM | |
31 | QMIN=HMASS-5*HGAM | |
32 | ELSE | |
33 | C Set default QMW limits if none were set. | |
34 | QMAX=0.2*ECM | |
35 | QMIN=0.05*ECM | |
36 | ENDIF | |
37 | CALL LOGERR(0,1,IERR) | |
38 | ENDIF | |
39 | IF(QMAX.LT.UNDEF) FIXQM=.TRUE. | |
40 | IF(FIXQM) THEN | |
41 | QMW=QMIN | |
42 | QMAX=QMIN | |
43 | ENDIF | |
44 | C | |
45 | RETURN | |
46 | END |