ISAJET/code/logqm.F

   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