]>
Commit | Line | Data |
---|---|---|
0795afa3 | 1 | #include "isajet/pilot.h" |
2 | FUNCTION EVOLMS(J,FUDGE) | |
3 | C---------------------------------------------------------------------- | |
4 | C- | |
5 | C- Purpose and Methods : | |
6 | C- Set evolution mass scale for parton J | |
7 | C- | |
8 | C- Returned value : maximum mass | |
9 | C- | |
10 | C- Inputs : | |
11 | C- J = index to PJSET array | |
12 | C- FUDGE= fudge factor | |
13 | C- | |
14 | C- Created 16-AUG-1991 Serban D. Protopopescu | |
15 | C- | |
16 | C---------------------------------------------------------------------- | |
17 | #if defined(CERNLIB_IMPNONE) | |
18 | IMPLICIT NONE | |
19 | #endif | |
20 | REAL EVOLMS,FUDGE | |
21 | INTEGER J | |
22 | #include "isajet/limevl.inc" | |
23 | #include "isajet/jetset.inc" | |
24 | #include "isajet/jetpar.inc" | |
25 | C---------------------------------------------------------------------- | |
26 | C | |
27 | IF ( USELIM ) THEN | |
28 | EVOLMS=SQRT(PJSET(1,J)**2+PJSET(2,J)**2)*CONCUT | |
29 | ELSE | |
30 | EVOLMS=FUDGE*SQRT(QSQ) | |
31 | ENDIF | |
32 | 999 RETURN | |
33 | END |