1 #include "isajet/pilot.h"
3 C----------------------------------------------------------------------
5 C- Purpose and Methods :
6 C- Setup for process 1 (TWOJET)
7 C- Lorentz frames and perform initial and final QCD jet
8 C- evolution in leading-log approximation.
10 C- Created 13-AUG-1991 Frank E. Paige,Serban D. Protopopescu
12 C----------------------------------------------------------------------
13 #if defined(CERNLIB_IMPNONE)
16 #include "isajet/primar.inc"
17 #include "isajet/jetpar.inc"
18 #include "isajet/pjets.inc"
19 #include "isajet/jetset.inc"
20 #include "isajet/jwork.inc"
21 #include "isajet/jwork2.inc"
22 #include "isajet/frame.inc"
24 INTEGER I,K,J,NJSAVE,NJFINL
25 C----------------------------------------------------------------------
27 C Copy momenta from /PJETS/ to /JETSET/
32 C Set flags and maximum off-shell masses and generate
33 C initial QCD parton shower.
39 C Final state evolution.
40 C Define Lorentz frames and JMATCH pointers for jet evolution
43 CALL IFRAMS(N0JETS,NJSAVE,1,.FALSE.)
45 C Set maximum off-shell masses and JDCAY flags.
48 DO 310 J=N0JETS,NJSAVE
49 IF(IABS(JTYPE(J)).LT.10) THEN
50 PJSET(5,J)=EVOLMS(J,1.0)
55 C Produce final-state QCD parton cascade