ISAJET/code/istrad.F

   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