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