In order to work with this library, hzxxxxx routines have to fulfill some additional requirements.
The HZNLO common block is defined as follows:
INTEGER NLO, TOT, DIJET, TRIPJET, QUADJET
COMMON /HZNLO/NLO, TOT, DIJET, TRIPJET, QUADJET
An example might look like:
IF (iflag.eq.1) THEN
C... init step
NLO=0
ELSE IF (iflag.eq.2) THEN
C... fill step
C... make some phase space cuts
CTH add total x-section
IF ((NLO.eq.1).AND.(TOT.ne.1)) GOTO 11112
nall=nall+xw
11112 CONTINUE
C... run some jet algorithm and make some cuts on dijet events
IF (twojet) THEN
IF ((NLO.eq.1).AND.(DIJET.ne.1)) GOTO 11114
nall2=nall2+xw
call hfill(121,x,0.,xw)
call hfill(131,q2,0.,xw)
11114 CONTINUE
ENDIF
ENDIF