[u/mrichter/AliRoot.git] / ISAJET / code / evolms.F

#include "isajet/pilot.h"
      FUNCTION EVOLMS(J,FUDGE)
C----------------------------------------------------------------------
C-
C-   Purpose and Methods : 
C-     Set evolution mass scale for parton J
C-
C-   Returned value  : maximum mass
C-
C-   Inputs  : 
C-     J    = index to PJSET array
C-     FUDGE= fudge factor
C-
C-   Created  16-AUG-1991   Serban D. Protopopescu
C-
C----------------------------------------------------------------------
#if defined(CERNLIB_IMPNONE)
      IMPLICIT NONE
#endif
      REAL    EVOLMS,FUDGE
      INTEGER J
#include "isajet/limevl.inc"
#include "isajet/jetset.inc"
#include "isajet/jetpar.inc"
C----------------------------------------------------------------------
C
      IF ( USELIM ) THEN
        EVOLMS=SQRT(PJSET(1,J)**2+PJSET(2,J)**2)*CONCUT
      ELSE
        EVOLMS=FUDGE*SQRT(QSQ)
      ENDIF
  999 RETURN
      END
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