[u/mrichter/AliRoot.git] / MEVSIM / common_facfac.inc

CCC   Common FACFAC for Factorials

      integer factorial_max
      parameter (factorial_max = 10000) ! max # multiplicity per event;
CCC                                     ! for any specific particle ID;
CCC                                     ! also used for log(n!).
      Common/FACFAC/ FACLOG(factorial_max)
      real*4 FACLOG
Commit	Line	Data
	1	CCC Common FACFAC for Factorials
	2
	3	integer factorial_max
	4	parameter (factorial_max = 10000) ! max # multiplicity per event;
	5	CCC ! for any specific particle ID;
	6	CCC ! also used for log(n!).
	7	Common/FACFAC/ FACLOG(factorial_max)
	8	real*4 FACLOG
	9