More volume overlaps corrected
[u/mrichter/AliRoot.git] / ISAJET / code / evolms.F
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