More volume overlaps corrected
[u/mrichter/AliRoot.git] / ISAJET / code / istrad.F
CommitLineData
0795afa3 1#include "isajet/pilot.h"
2 SUBROUTINE ISTRAD(FUDGE)
3C----------------------------------------------------------------------
4C-
5C- Purpose and Methods :
6C- Set parameters and call QCDINI to generate initial
7C- state radiation
8C- Inputs :
9C- FUDGE= fudge factor
10C-
11C- Created 16-AUG-1991 Serban D. Protopopescu
12C-
13C----------------------------------------------------------------------
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
24C----------------------------------------------------------------------
25C
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
35150 JDCAY(I)=-2
36 JMATCH(1)=0
37 JMATCH(2)=0
38C
39 CALL QCDINI(1,2)
40 999 RETURN
41 END