]>
Commit | Line | Data |
---|---|---|
0795afa3 | 1 | #include "isajet/pilot.h" |
2 | SUBROUTINE ISTRAD(FUDGE) | |
3 | C---------------------------------------------------------------------- | |
4 | C- | |
5 | C- Purpose and Methods : | |
6 | C- Set parameters and call QCDINI to generate initial | |
7 | C- state radiation | |
8 | C- Inputs : | |
9 | C- FUDGE= fudge factor | |
10 | C- | |
11 | C- Created 16-AUG-1991 Serban D. Protopopescu | |
12 | C- | |
13 | C---------------------------------------------------------------------- | |
14 | #if defined(CERNLIB_IMPNONE) | |
15 | IMPLICIT NONE | |
16 | #endif | |
17 | REAL FUDGE | |
18 | #include "isajet/limevl.inc" | |
19 | #include "isajet/jetset.inc" | |
20 | #include "isajet/jwork.inc" | |
21 | #include "isajet/jetpar.inc" | |
22 | REAL OFF | |
23 | INTEGER I | |
24 | C---------------------------------------------------------------------- | |
25 | C | |
26 | IF ( USELIM.AND.CONCUT.LT.1.0 ) THEN | |
27 | OFF=ETTHRS | |
28 | ELSEIF( .NOT.USELIM) THEN | |
29 | OFF=SQRT(QSQ)*FUDGE | |
30 | ELSE | |
31 | OFF=SQRT(QSQ) | |
32 | ENDIF | |
33 | DO 150 I=1,2 | |
34 | PJSET(5,I)=-OFF | |
35 | 150 JDCAY(I)=-2 | |
36 | JMATCH(1)=0 | |
37 | JMATCH(2)=0 | |
38 | C | |
39 | CALL QCDINI(1,2) | |
40 | 999 RETURN | |
41 | END |