c28b8f8d |
1 | CCC Common FACFAC for Factorials |
2 | |
3 | integer factorial_max |
fddd64df |
4 | parameter (factorial_max = 80000) ! max # multiplicity per event; |
c28b8f8d |
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 | |