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

#include "isajet/pilot.h"
      LOGICAL FUNCTION LOGMGM(IERR)
C
C       Set and check limits for multijet mass
C
C       Note we use the convention that not setting an upper limit
C       gives a fixed variable, even though that currently is not
C       implemented in N-jet phase space.
C
#if defined(CERNLIB_IMPNONE)
      IMPLICIT NONE
#endif
#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"
#include "isajet/mglims.inc"
C
      REAL UNDEF
      INTEGER IERR
      DATA UNDEF/-.9E9/
C
      LOGMGM=.TRUE.
C
      IF(EHMGMN.LT.UNDEF.OR.EHMGMX.LT.UNDEF) THEN
        LOGMGM=.FALSE.
      ENDIF
C
      RETURN
      END
Commit	Line	Data
0795afa3	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