ISAJET/code/higgs.F

   1 #include "isajet/pilot.h"
   2       SUBROUTINE HIGGS
   3 C
   4 C          FINISH HIGGS GENERATION STARTED BY DRLLYN FOR DECAY
   5 C          HIGGS --> W W.
   6 C
   7 C          VER 7.14: TEST BOTH JET1 AND JET2 FOR W,Z FOR SAFETY
   8 C
   9 #include "isajet/itapes.inc"
  10 #include "isajet/qcdpar.inc"
  11 #include "isajet/jetpar.inc"
  12 #include "isajet/pjets.inc"
  13 #include "isajet/primar.inc"
  14 #include "isajet/q1q2.inc"
  15 #include "isajet/jetsig.inc"
  16 #include "isajet/qsave.inc"
  17 #include "isajet/wcon.inc"
  18 #include "isajet/const.inc"
  19 #include "isajet/hcon.inc"
  20 C
  21       DIMENSION X(2)
  22       EQUIVALENCE (X(1),X1)
  23 C
  24       IDABS1=IABS(IDJETS(1))
  25       IDABS2=IABS(IDJETS(2))
  26       IF(IDABS1.NE.80.AND.IDABS1.NE.90.AND.
  27      $IDABS2.NE.80.AND.IDABS2.NE.90) THEN
  28         NPAIR=0
  29         DO 100 I=1,4
  30         IDPAIR(I)=0
  31         JPAIR(I)=0
  32         DO 110 K=1,5
  33 110     PPAIR(K,I)=0.
  34 100     CONTINUE
  35       ELSE
  36         CALL WPAIR
  37       ENDIF
  38       RETURN
  39       END