ISAJET/code/logmgm.F

   1 #include "isajet/pilot.h"
   2       LOGICAL FUNCTION LOGMGM(IERR)
   3 C
   4 C       Set and check limits for multijet mass
   5 C
   6 C       Note we use the convention that not setting an upper limit
   7 C       gives a fixed variable, even though that currently is not
   8 C       implemented in N-jet phase space.
   9 C
  10 #if defined(CERNLIB_IMPNONE)
  11       IMPLICIT NONE
  12 #endif
  13 #include "isajet/itapes.inc"
  14 #include "isajet/jetlim.inc"
  15 #include "isajet/primar.inc"
  16 #include "isajet/jetpar.inc"
  17 #include "isajet/const.inc"
  18 #include "isajet/dylim.inc"
  19 #include "isajet/keys.inc"
  20 #include "isajet/q1q2.inc"
  21 #include "isajet/mglims.inc"
  22 C
  23       REAL UNDEF
  24       INTEGER IERR
  25       DATA UNDEF/-.9E9/
  26 C
  27       LOGMGM=.TRUE.
  28 C
  29       IF(EHMGMN.LT.UNDEF.OR.EHMGMX.LT.UNDEF) THEN
  30         LOGMGM=.FALSE.
  31       ENDIF
  32 C
  33       RETURN
  34       END