1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
c*************************************************************************
c Parameters used by genps and dsample, you must recompile
c dsample if you change anything below
c*************************************************************************
include 'maxparticles.inc'
integer max_branch
parameter (max_branch=max_particles-1)
integer ng , maxdim , maxinvar , maxconfigs
parameter (ng = 96, maxdim = 3*(max_particles-2)-1, maxinvar= 4*max_particles, maxconfigs=10)
c parameter (ng = 43, maxdim = 25, maxinvar= 57 , maxconfigs=20)
double precision xgmin, xgmax
parameter (xgmin=-1d0, xgmax=1d0)
integer maxevents !Requires about 1K/event
parameter (maxevents=200000) !Maximum # events to write to disk
c*************************************************************************
c Parameters used for parallel running
c*************************************************************************
integer max_host ,maxplace ,maxpoints ,maxans
parameter (max_host=9,maxplace=9,maxpoints=10,maxans=5)
c parameter (max_host=99,maxplace=199,maxpoints=100,maxans=50)
integer maxprb
parameter (maxprb = maxconfigs*maxplace*maxpoints)
integer maxfprb
parameter (maxfprb = maxinvar*maxplace*maxpoints)
c*************************************************************************
c Parameters for helicity sums in matrixN.f
c*************************************************************************
REAL*8 LIMHEL
PARAMETER(LIMHEL=1e-6)
INTEGER MAXTRIES
PARAMETER(MAXTRIES=100)
|