]>
Commit | Line | Data |
---|---|---|
0795afa3 | 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 |