1
=== modified file 'Template/LO/Source/make_opts'
2
--- Template/LO/Source/make_opts	2014-01-07 10:50:42 +0000
3
+++ Template/LO/Source/make_opts	2014-08-26 07:56:12 +0000
4
@@ -1,14 +1,15 @@
5
1
# Environment variables
1
# Environment variables
6
2
2
7
3
ifeq ($(origin FFLAGS),undefined)
3
ifeq ($(origin FFLAGS),undefined)
9
4
  FFLAGS= -O -w -fbounds-check
4
  FFLAGS= -O -w -fbounds-check -fPIC
10
5
  #FFLAGS+= -g -fbounds-check -ffpe-trap=invalid,zero,overflow,underflow,denormal -Wall
5
  #FFLAGS+= -g -fbounds-check -ffpe-trap=invalid,zero,overflow,underflow,denormal -Wall
11
6
endif
6
endif
12
7
FFLAGS+= -ffixed-line-length-132
7
FFLAGS+= -ffixed-line-length-132
13
8
8
14
9
# Set FC unless it's defined by an environment variable
9
# Set FC unless it's defined by an environment variable
15
10
ifeq ($(origin FC),default)
10
ifeq ($(origin FC),default)
17
11
  FC=gfortran
11
#  FC=gfortran
18
12
   FC=gfortran
19
12
endif
13
endif
20
13
14
21
14
# Options: dynamic, lhapdf
15
# Options: dynamic, lhapdf
22
@@ -17,6 +18,12 @@
23
17
18
24
18
# Option dynamic
19
# Option dynamic
25
19
20
26
21
ifeq ($(UNAME), Darwin)
27
22
  dylibext=dylib
28
23
else
29
24
  dylibext=so  
30
25
endif
31
26
32
20
ifdef dynamic
27
ifdef dynamic
33
21
  ifeq ($(UNAME), Darwin)
28
  ifeq ($(UNAME), Darwin)
34
22
    libext=dylib
29
    libext=dylib
35
23
30
36
=== modified file 'Template/NLO/Cards/shower_card.dat'
37
--- Template/NLO/Cards/shower_card.dat	2014-07-01 13:57:28 +0000
38
+++ Template/NLO/Cards/shower_card.dat	2014-08-26 07:56:12 +0000
39
@@ -1,81 +1,111 @@
99
1
################################################################################
1
#***********************************************************************
100
2
#                                                                               
2
#                        MadGraph5_aMC@NLO                             *
101
3
# This file contains the settings for partons showers to be used in aMC@NLO     
3
#                                                                      *
102
4
#   mind the format:   variable = name           #         comment              
4
#                      shower_card.dat aMC@NLO                         *
103
5
#                                                                               
5
#                                                                      *
104
6
################################################################################
6
#  This file is used to set the parameters for the shower.             *
105
7
#
7
#                                                                      *
106
8
# SHOWER SETTINGS:
8
#  Some notation/conventions:                                          *
107
9
#
9
#                                                                      *
108
10
nevents    = -1     # number of events to shower. If negative, shower all events
10
#   Lines starting with a hash (#) are info or comments                *
109
11
nsplit_jobs= 1      # number of jobs to be run on parallel or on a cluster (<100)
11
#                                                                      *
110
12
combine_td = T      # combine or not the td files if splitting
12
#   mind the format:   variable    = value     # comment               *
111
13
ue_enabled = F      # underlying event on (T)/ off (F) (is MSTP(81) 0/1 for PY6)
13
#***********************************************************************
112
14
pdfcode    = 0      # pdf code: 0 = internal pdf, 1 = same as NLO, other = lhaglue
14
#
113
15
hadronize  = T      # hadronization on/off (is MSTP(111) 0/1 for PY6) 
15
#****************
114
16
maxprint   = 2      # maximum number of events to be printed in the log
16
# Shower settings
115
17
maxerrs    = 0.1    # maximum tolerated fraction of errors
17
#****************
116
18
b_stable   = F      # b hadrons are stable
18
#
117
19
pi_stable  = T      # pi0's are stable
19
#***********************************************************************
118
20
wp_stable  = F      # w+'s are stable
20
# Number of events, jobs, errors, and random seeds                     *
119
21
wm_stable  = F      # w-'s are stable
21
#***********************************************************************
120
22
z_stable   = F      # z0's are stable
22
nevents      = -1     # N evts to shower (< 0 = all)
121
23
h_stable   = F      # Higgs bosons are stable
23
nsplit_jobs  = 1      # N jobs to run in parallel (< 100!!)
122
24
tap_stable = F      # tau+'s are stable
24
combine_td   = T      # combine the topdrawer files if nsplit_jobs > 1
123
25
tam_stable = F      # tau-'s are stable
25
maxprint     = 2      # N evts to print in the log
124
26
mup_stable = F      # mu+'s are stable
26
maxerrs      = 0.1    # max fraction of errors
125
27
mum_stable = F      # mu-'s are stable
27
rnd_seed     = 0      # 1st random seed (0 = default)
126
28
rnd_seed   = 0      # random seed (0 is default)
28
rnd_seed2    = 0      # 2nd random seed (0 = default) !ONLY FOR HWERIG6!
127
29
rnd_seed2  = 0      # 2nd random seed (only for HW6, 0 is default)
29
#***********************************************************************
128
30
lambda_5   = -1     # lambda_5 value, -1 for default
30
# PDFs and non-perturbative modelling                                  *
129
31
b_mass     = -1     # b mass, -1 for default
31
#***********************************************************************
130
32
is_4lep    = F      # true if it is 4 lepton production (only for PY6)
32
pdfcode      = 0      # 0 = internal, 1 = same as NLO, other = lhaglue
131
33
is_bbar    = F      # true if it is b-b~ production (only for HW6)
33
ue_enabled   = F      # underlying event
132
34
modbos_1   = 5      # dec mode for boson 1 (only for HW6, overridden by DM_ below)
34
hadronize    = T      # hadronisation on/off        !IGNORED BY HERWIG6!
133
35
modbos_2   = 5      # dec mode for boson 2 (only for HW6, overridden by DM_ below)
35
lambda_5     = -1     # Lambda_5 (< 0 = default)    !IGNORED BY PYTHIA8!
134
36
################################################################################
36
#***********************************************************************
135
37
# DECAY CHANNELS
37
# Stable or unstable particles                                         *
136
38
# Write down the decay channels for the resonances, to be performed by the shower.
38
#***********************************************************************
137
39
# The syntax (for a two-body decay) is
39
b_stable     = F      # set B hadrons stable
138
40
# DM_I = M > D1 D2 @ BR @ ME
40
pi_stable    = T      # set pi0's stable
139
41
# where I = 1, ..., 99, M is the decaying resonance, D1, D2 are the decay products
41
wp_stable    = F      # set w+'s stable
140
42
# (up to D5 if  such a decay is supported by the shower), BR is the branching ratio
42
wm_stable    = F      # set w-'s stable
141
43
# (only used by the HERWIG6 shower, ignored otherwise) and ME is the type of matrix
43
z_stable     = F      # set z0's stable
142
44
# element to be used in the decay (only used by HERWIG6, ignored otherwise).
44
h_stable     = F      # set Higgs' stable
143
45
# BR's are correctly understood by HERWIG6 only if they add up to one and only if
45
tap_stable   = F      # set tau+'s stable
144
46
# no more than three modes are required for a given resonance.
46
tam_stable   = F      # set tau-'s stable
145
47
# ME corresponds to the third entry of subroutine HWMODK, see the relevant manual.
47
mup_stable   = F      # set mu+'s stable
146
48
# Examples of syntax:
48
mum_stable   = F      # set mu-'s stable
147
49
# Z -> e+ e- or mu+ mu- with BR = 0.5 each
49
#***********************************************************************
148
50
# DM_1 = 23 > -11 11 @ 0.5d0 @ 100
50
# Mass of the b quark                                                  *
149
51
# DM_2 = 23 > -13 13 @ 0.5d0 @ 100
51
#***********************************************************************
150
52
# H -> tau+ tau- with BR = 1
52
b_mass       = -1     # if < 0 = read from SubProcesses/MCmasses_*.inc
151
53
# DM_3 = 25 > -15 15 @ 1.0d0 @ 0
53
#***********************************************************************
152
54
# t -> nu_e e+ b @ 1d0
54
# Special settings                                                     *
153
55
# DM_4 = 6 > 12 -11 5 @ 1d0 @ 100
55
#***********************************************************************
154
56
# WARNING: for HERWIG6 the order of decay products in >2-body decays IS RELEVANT.
56
is_4lep      = F    # T if 4-lepton production        !ONLY FOR PYTHIA6!
155
57
# WARNING: 1 -> n decays (with n > 2) are handled by PYTHIA6 and PYTHIA8 through
57
is_bbar      = F    # T if bb~ production             !ONLY FOR HERWIG6!
156
58
# a sequence of 1 -> 2 decays.
58
#***********************************************************************
157
59
################################################################################
59
# Decay channels                                                       *
158
60
# Write down the decay channels for the resonances, to be performed by *
159
61
# the shower.                                                          *
160
62
# The syntax (for a two-body decay) is                                 *
161
63
# DM_I = M > D1 D2 @ BR @ ME                                           *
162
64
# where I < 100, M is the decaying resonance, D1, D2 are the decay     *
163
65
# products (up to D5 if such a decay is supported by the shower), BR   *
164
66
# is the branching ratio (only used by the HERWIG6 shower, ignored     *
165
67
# otherwise) and ME is the type of matrix element to be used in the    *
166
68
# decay (only used by HERWIG6, ignored otherwise).                     *
167
69
# BR's are correctly understood by HERWIG6 only if they add up to 1    *
168
70
# and only if no more than three modes are required for a given        *
169
71
# resonance.                                                           *
170
72
# ME corresponds to the third entry of subroutine HWMODK, see the      *
171
73
# relevant manual.                                                     *
172
74
#                                                                      *
173
75
# WARNING: in HERWIG6, the order of decay products in > 2-body decays  *
174
76
# IS RELEVANT.                                                         *
175
77
# WARNING: in PYTHIA6, turning hadronisation off disables top decays   *
176
78
# WARNING: in PYTHIA6 and PYTHIA8, 1 -> n decays (with n > 2) are      *
177
79
# handled through a sequence of 1 -> 2 decays.                         *
178
80
#                                                                      *
179
81
# Examples of syntax:                                                  *
180
82
# Z -> e+ e- or mu+ mu- with BR = 0.5 each                             *
181
83
# DM_1 = 23 > -11 11 @ 0.5d0 @ 100                                     *
182
84
# DM_2 = 23 > -13 13 @ 0.5d0 @ 100                                     *
183
85
# H -> tau+ tau- with BR = 1                                           *
184
86
# DM_3 = 25 > -15 15 @ 1.0d0 @ 0                                       *
185
87
# t -> nu_e e+ b with BR = 1 (HERWIG)                                  *
186
88
# DM_4 = 6 > 12 -11 5 @ 1d0 @ 100                                      *
187
89
# t -> nu_e e+ b with BR = 1 (PYTHIA)                                  *
188
90
# DM_5 = 6 > 24 5 @ 1d0 @ 100                                          *
189
91
# DM_6 = 24 > 12 -11 @ 1d0 @ 100                                       *
190
92
#***********************************************************************
191
60
93
211
61
################################################################################
94
#***********************************************************************
212
62
#
95
# Extra Libraries/analyses                                             *
213
63
# EXTRA LIBRARIES/ANALYSES
96
# The following lines need to be changed if the user does not want to  *
214
64
# The following lines need to be changed if the user does not want to create the
97
# create a StdHEP/HepMC file, but to directly run an own analysis (to  *
215
65
# StdHEP/HEPMC file, but to directly run his/her own analyse.
98
# be placed in HWAnalyzer or analogous MCatNLO subfolders).            *
216
66
# Please note that this works only for HW6 and PY6, and that the analysis should
99
# Please use files in those folders as examples.                       *
217
67
# be in the HWAnalyzer/ (or PYAnalyzer/) folder. 
100
#***********************************************************************
218
68
# Please use files in those folders as examples.
101
EXTRALIBS    = stdhep Fmcfio     # Extra-libraries (not LHAPDF) 
219
69
# "None" and an empty value are equivalent.
102
                                 # Default: "stdhep Fmcfio"
220
70
#
103
EXTRAPATHS   = ../lib            # Path to the extra-libraries
221
71
################################################################################
104
                                 # Default: "../lib"
222
72
EXTRALIBS   = stdhep Fmcfio         # Needed extra-libraries (not LHAPDF). 
105
INCLUDEPATHS =                   # Path to header files needed by c++
223
73
                                    #   Default: "stdhep Fmcfio"
106
                                 # Dir names separated by white spaces
224
74
EXTRAPATHS  = ../lib                # Path to the extra-libraries. 
107
ANALYSE      =                   # User's analysis and histogramming
225
75
                                    #   Default: "../lib"
108
                                 # routines (please use .o as extension
226
76
INCLUDEPATHS=                       # Path to the dirs containing header files neede by C++.
109
                                 # and use spaces to separate files)
208
77
                                    # Directory names are separated by white spaces
209
78
ANALYSE     =                       # User's analysis and histogramming routines 
210
79
                                    # (please use .o as extension and use spaces to separate files)
227
80
110
228
81
111
229
82
112
230
=== modified file 'Template/NLO/MCatNLO/Scripts/MCatNLO_MadFKS_HERWIG6.Script'
231
--- Template/NLO/MCatNLO/Scripts/MCatNLO_MadFKS_HERWIG6.Script	2014-06-19 07:02:07 +0000
232
+++ Template/NLO/MCatNLO/Scripts/MCatNLO_MadFKS_HERWIG6.Script	2014-08-26 07:56:12 +0000
233
@@ -316,7 +316,6 @@
234
316
 '$PART1'  '$PART2'               ! hadron types
316
 '$PART1'  '$PART2'               ! hadron types
235
317
  $beammom1 $beammom2               ! beam momenta
317
  $beammom1 $beammom2               ! beam momenta
236
318
  $LHSOFT                         ! Underlying event on (.TRUE.) or off (.FALSE.)
318
  $LHSOFT                         ! Underlying event on (.TRUE.) or off (.FALSE.)
237
319
  $MODBOS_1 $MODBOS_2             ! Gauge boson decay modes
238
320
EOF
319
EOF
239
321
if [ $pdftype = 1 ]
320
if [ $pdftype = 1 ]
240
322
then
321
then
241
323
322
242
=== modified file 'Template/NLO/MCatNLO/srcHerwig/madfks_hwdriver.f'
243
--- Template/NLO/MCatNLO/srcHerwig/madfks_hwdriver.f	2014-06-06 09:51:20 +0000
244
+++ Template/NLO/MCatNLO/srcHerwig/madfks_hwdriver.f	2014-08-26 07:56:12 +0000
245
@@ -69,9 +69,6 @@
246
69
      IF(.NOT.LHSOFT)WRITE(*,*)'Underlying event WILL NOT be generated'
69
      IF(.NOT.LHSOFT)WRITE(*,*)'Underlying event WILL NOT be generated'
247
70
      WRITE(*,*)
70
      WRITE(*,*)
248
71
C
71
C
249
72
      WRITE(*,*)'Enter decay modes for gauge bosons'
250
73
      READ(*,*)MODBOS(1),MODBOS(2)
251
74
C
252
75
      IF(LHSOFT.AND.IPDF.NE.1)THEN
72
      IF(LHSOFT.AND.IPDF.NE.1)THEN
253
76
         WRITE(*,*)' '
73
         WRITE(*,*)' '
254
77
         WRITE(*,*)'Underlying event requires external PDF sets'
74
         WRITE(*,*)'Underlying event requires external PDF sets'
255
78
75
256
=== removed file 'Template/NLO/Source/make_opts'
257
--- Template/NLO/Source/make_opts	2014-06-24 08:40:18 +0000
258
+++ Template/NLO/Source/make_opts	1970-01-01 00:00:00 +0000
259
@@ -1,86 +0,0 @@
260
1
# Environment variables
261
2
262
3
ifeq ($(origin FFLAGS),undefined)
263
4
  #FFLAGS= -O -w
264
5
  FFLAGS = -O -fno-automatic
265
6
  #FFLAGS+= -g -fbounds-check -ffpe-trap=invalid,zero,overflow,underflow,denormal -Wall
266
7
endif
267
8
268
9
ifeq ($(origin CXXFLAGS),undefined)
269
10
  #CXXFLAGS= -g 
270
11
  CXXFLAGS = -O 
271
12
endif
272
13
273
14
ifeq ($(origin CFLAGS),undefined)
274
15
  #CFLAGS= -g 
275
16
  CFLAGS = -O 
276
17
endif
277
18
278
19
  
279
20
280
21
FFLAGS+= -ffixed-line-length-132
281
22
282
23
# Set FC unless it's defined by an environment variable
283
24
ifeq ($(origin FC),default)
284
25
#  FC=g77
285
26
  FC=gfortran
286
27
endif
287
28
288
29
# Set CXX unless it's defined by an environment variable
289
30
ifeq ($(origin CXX),default)
290
31
  CXX=g++
291
32
endif
292
33
293
34
# Options: dynamic, lhapdf
294
35
295
36
UNAME := $(shell uname)
296
37
297
38
# Option dynamic
298
39
299
40
ifdef dynamic
300
41
  ifeq ($(UNAME), Darwin)
301
42
    libext=dylib
302
43
    FFLAGS+= -fno-common
303
44
    LDFLAGS += -bundle
304
45
    define CREATELIB
305
46
      $(FC) -dynamiclib -undefined dynamic_lookup -o $(1) $(2)
306
47
    endef
307
48
  else
308
49
    libext=so
309
50
    FFLAGS+= -fPIC
310
51
    LDFLAGS += -shared
311
52
    define CREATELIB
312
53
      $(FC) $(FFLAGS) $(LDFLAGS) -o $(1) $(2)
313
54
    endef
314
55
  endif
315
56
else
316
57
  libext=a
317
58
  define CREATELIB
318
59
    $(AR) cru $(1) $(2)
319
60
    ranlib $(1)
320
61
  endef
321
62
endif
322
63
323
64
# Option lhapdf
324
65
325
66
ifdef lhapdf
326
67
  alfas_functions=alfas_functions_lhapdf
327
68
  lhapdf=-lLHAPDF -lstdc++
328
69
  reweight_xsec_events_pdf_dummy=
329
70
else
330
71
  alfas_functions=alfas_functions
331
72
  lhapdf=
332
73
  reweight_xsec_events_pdf_dummy=reweight_xsec_events_pdf_dummy.o
333
74
endif
334
75
335
76
# Madloop
336
77
ifeq ($(has_loops),true)
337
78
  libmadloop=libMadLoop.a
338
79
  libcuttools=-lcts
339
80
else
340
81
  libmadloop=
341
82
  libcuttools=
342
83
endif
343
84
344
85
# OLP (virtuals) necessary link
345
86
libOLP=
346
87
0
347
=== added file 'Template/NLO/Source/make_opts.inc'
348
--- Template/NLO/Source/make_opts.inc	1970-01-01 00:00:00 +0000
349
+++ Template/NLO/Source/make_opts.inc	2014-08-26 07:56:12 +0000
350
@@ -0,0 +1,86 @@
351
1
# Environment variables
352
2
353
3
ifeq ($(origin FFLAGS),undefined)
354
4
  #FFLAGS= -O -w
355
5
  FFLAGS = -O -fno-automatic
356
6
  #FFLAGS+= -g -fbounds-check -ffpe-trap=invalid,zero,overflow,underflow,denormal -Wall
357
7
endif
358
8
359
9
ifeq ($(origin CXXFLAGS),undefined)
360
10
  #CXXFLAGS= -g 
361
11
  CXXFLAGS = -O 
362
12
endif
363
13
364
14
ifeq ($(origin CFLAGS),undefined)
365
15
  #CFLAGS= -g 
366
16
  CFLAGS = -O 
367
17
endif
368
18
369
19
  
370
20
371
21
FFLAGS+= -ffixed-line-length-132
372
22
373
23
# Set FC unless it's defined by an environment variable
374
24
ifeq ($(origin FC),default)
375
25
#  FC=g77
376
26
  FC=gfortran
377
27
endif
378
28
379
29
# Set CXX unless it's defined by an environment variable
380
30
ifeq ($(origin CXX),default)
381
31
  CXX=g++
382
32
endif
383
33
384
34
# Options: dynamic, lhapdf
385
35
386
36
UNAME := $(shell uname)
387
37
388
38
# Option dynamic
389
39
390
40
ifdef dynamic
391
41
  ifeq ($(UNAME), Darwin)
392
42
    libext=dylib
393
43
    FFLAGS+= -fno-common
394
44
    LDFLAGS += -bundle
395
45
    define CREATELIB
396
46
      $(FC) -dynamiclib -undefined dynamic_lookup -o $(1) $(2)
397
47
    endef
398
48
  else
399
49
    libext=so
400
50
    FFLAGS+= -fPIC
401
51
    LDFLAGS += -shared
402
52
    define CREATELIB
403
53
      $(FC) $(FFLAGS) $(LDFLAGS) -o $(1) $(2)
404
54
    endef
405
55
  endif
406
56
else
407
57
  libext=a
408
58
  define CREATELIB
409
59
    $(AR) cru $(1) $(2)
410
60
    ranlib $(1)
411
61
  endef
412
62
endif
413
63
414
64
# Option lhapdf
415
65
416
66
ifdef lhapdf
417
67
  alfas_functions=alfas_functions_lhapdf
418
68
  lhapdf=-lLHAPDF -lstdc++
419
69
  reweight_xsec_events_pdf_dummy=
420
70
else
421
71
  alfas_functions=alfas_functions
422
72
  lhapdf=
423
73
  reweight_xsec_events_pdf_dummy=reweight_xsec_events_pdf_dummy.o
424
74
endif
425
75
426
76
# Madloop
427
77
ifdef madloop
428
78
  libmadloop=libMadLoop.a
429
79
  libcuttools=-lcts %(link_tir_libs)s
430
80
else
431
81
  libmadloop=
432
82
  libcuttools=
433
83
endif
434
84
435
85
# OLP (virtuals) necessary link
436
86
libOLP=
437
0
87
438
=== modified file 'Template/NLO/Source/makefile'
439
--- Template/NLO/Source/makefile	2014-06-25 23:19:58 +0000
440
+++ Template/NLO/Source/makefile	2014-08-26 07:56:12 +0000
441
@@ -5,6 +5,7 @@
442
5
BINDIR= ../bin/
5
BINDIR= ../bin/
443
6
PDFDIR= ./PDF/
6
PDFDIR= ./PDF/
444
7
CUTTOOLSDIR= ./CutTools/
7
CUTTOOLSDIR= ./CutTools/
445
8
IREGIDIR= ./IREGI/src/
446
8
STDHEPDIR= ./StdHEP/
9
STDHEPDIR= ./StdHEP/
447
9
10
448
10
PROCESS= hfill.o matrix.o myamp.o 
11
PROCESS= hfill.o matrix.o myamp.o 
449
@@ -80,10 +81,16 @@
450
80
81
451
81
CutTools: $(LIBDIR)libcts.a
82
CutTools: $(LIBDIR)libcts.a
452
82
83
453
84
IREGI: $(LIBDIR)libiregi.a
454
85
455
83
$(LIBDIR)libcts.a: $(CUTTOOLSDIR)
86
$(LIBDIR)libcts.a: $(CUTTOOLSDIR)
456
84
	cd $(CUTTOOLSDIR); make
87
	cd $(CUTTOOLSDIR); make
459
85
	ln -sf ../Source/CutTools/includects/libcts.a $(LIBDIR)libcts.a
88
	ln -sf ../Source/$(CUTTOOLSDIR)includects/libcts.a $(LIBDIR)libcts.a
460
86
	ln -sf ../Source/CutTools/includects/mpmodule.mod $(LIBDIR)mpmodule.mod
89
	ln -sf ../Source/$(CUTTOOLSDIR)includects/mpmodule.mod $(LIBDIR)mpmodule.mod
461
90
462
91
$(LIBDIR)libiregi.a: $(IREGIDIR)
463
92
	cd $(IREGIDIR); make
464
93
	ln -sf ../Source/$(IREGIDIR)libiregi.a $(LIBDIR)libiregi.a
465
87
94
466
88
StdHEP: $(MCATNLOLIBDIR)libstdhep.a  
95
StdHEP: $(MCATNLOLIBDIR)libstdhep.a  
467
89
96
468
@@ -99,6 +106,9 @@
469
99
cleanCT:
106
cleanCT:
470
100
	cd $(CUTTOOLSDIR); make clean; cd ..
107
	cd $(CUTTOOLSDIR); make clean; cd ..
471
101
108
472
109
cleanIR:
473
110
	cd $(IREGIDIR); make clean; cd ..
474
111
475
102
cleanStdHEP:
112
cleanStdHEP:
476
103
	cd $(STDHEPDIR); make clean; cd ..
113
	cd $(STDHEPDIR); make clean; cd ..
477
104
114
478
105
115
479
=== modified file 'Template/NLO/SubProcesses/BinothLHA.f'
480
--- Template/NLO/SubProcesses/BinothLHA.f	2013-12-18 07:47:00 +0000
481
+++ Template/NLO/SubProcesses/BinothLHA.f	2014-08-26 07:56:12 +0000
482
@@ -28,8 +28,10 @@
483
28
      parameter (pi=3.1415926535897932385d0)
28
      parameter (pi=3.1415926535897932385d0)
484
29
      parameter (zero=0d0)
29
      parameter (zero=0d0)
485
30
      double precision p(0:3,nexternal-1)
30
      double precision p(0:3,nexternal-1)
488
31
      double precision virt_wgt,born_wgt,double,single,virt_wgts(3)
31
      double precision virt_wgt,born_wgt,double,single
489
32
     $     ,virt_wgts_hel(3),born_wgt_recomputed,born_wgt_recomp_direct
32
     $     ,born_wgt_recomputed,born_wgt_recomp_direct
490
33
      double precision, allocatable :: virt_wgts(:,:)
491
34
      double precision, allocatable :: virt_wgts_hel(:,:)
492
33
      double precision mu,ao2pi,conversion,alpha_S
35
      double precision mu,ao2pi,conversion,alpha_S
493
34
      save conversion
36
      save conversion
494
35
      double precision fkssymmetryfactor,fkssymmetryfactorBorn,
37
      double precision fkssymmetryfactor,fkssymmetryfactorBorn,
495
@@ -39,6 +41,8 @@
496
39
     &                         fkssymmetryfactorDeg,ngluons,nquarks
41
     &                         fkssymmetryfactorDeg,ngluons,nquarks
497
40
      logical firsttime,firsttime_conversion
42
      logical firsttime,firsttime_conversion
498
41
      data firsttime,firsttime_conversion /.true.,.true./
43
      data firsttime,firsttime_conversion /.true.,.true./
499
44
      logical firsttime_run
500
45
      data firsttime_run /.true./
501
42
      double precision qes2
46
      double precision qes2
502
43
      common /coupl_es/ qes2
47
      common /coupl_es/ qes2
503
44
      integer nvtozero
48
      integer nvtozero
504
@@ -52,16 +56,18 @@
505
52
      parameter (fksprefact=.true.)
56
      parameter (fksprefact=.true.)
506
53
      integer ret_code
57
      integer ret_code
507
54
      double precision madfks_single, madfks_double
58
      double precision madfks_single, madfks_double
509
55
      double precision tolerance,prec_found
59
      double precision tolerance, prec_found
510
60
      double precision, allocatable :: accuracies(:)
511
56
      integer i,j
61
      integer i,j
512
57
      integer nbad, nbadmax
62
      integer nbad, nbadmax
513
58
      double precision target,ran2,accum
63
      double precision target,ran2,accum
514
59
      external ran2
64
      external ran2
515
60
      double precision wgt_hel(max_bhel)
65
      double precision wgt_hel(max_bhel)
516
61
      common/c_born_hel/wgt_hel
66
      common/c_born_hel/wgt_hel
517
67
      integer nsqso, MLResArrayDim
518
62
c statistics for MadLoop
68
c statistics for MadLoop
519
63
      double precision avgPoleRes(2),PoleDiff(2)
69
      double precision avgPoleRes(2),PoleDiff(2)
521
64
      integer ntot,nsun,nsps,nups,neps,n100,nddp,nqdp,nini,n10,n1
70
      integer ntot,nsun,nsps,nups,neps,n100,nddp,nqdp,nini,n10,n1(0:9)
522
65
      common/ups_stats/ntot,nsun,nsps,nups,neps,n100,nddp,nqdp,nini,n10,n1
71
      common/ups_stats/ntot,nsun,nsps,nups,neps,n100,nddp,nqdp,nini,n10,n1
523
66
      parameter (nbadmax = 5)
72
      parameter (nbadmax = 5)
524
67
      double precision pmass(nexternal)
73
      double precision pmass(nexternal)
525
@@ -86,30 +92,39 @@
526
86
      single  = 0d0
92
      single  = 0d0
527
87
      double  = 0d0
93
      double  = 0d0
528
88
      prec_found = 1.0d0
94
      prec_found = 1.0d0
530
89
      if (firsttime) then
95
      if (firsttime_run) then
531
96
         call get_nsqso_loop(nsqso)
532
97
         call get_answer_dimension(MLResArrayDim)
533
98
         allocate(accuracies(0:nsqso))
534
99
         allocate(virt_wgts(0:3,0:MLResArrayDim))
535
100
         allocate(virt_wgts_hel(0:3,0:MLResArrayDim))
536
90
c Make sure that whenever in the initialisation phase, MadLoop calls
101
c Make sure that whenever in the initialisation phase, MadLoop calls
537
91
c itself again to perform stability check to make sure no unstable EPS
102
c itself again to perform stability check to make sure no unstable EPS
538
92
c splips unnoticed.
103
c splips unnoticed.
539
93
         CALL FORCE_STABILITY_CHECK(.TRUE.)
104
         CALL FORCE_STABILITY_CHECK(.TRUE.)
541
94
105
         firsttime_run = .false.
542
106
      endif
543
107
      if (firsttime) then
544
95
         write(*,*) "alpha_s value used for the virtuals"/
108
         write(*,*) "alpha_s value used for the virtuals"/
545
96
     &        /" is (for the first PS point): ", alpha_S
109
     &        /" is (for the first PS point): ", alpha_S
546
97
         tolerance=IRPoleCheckThreshold/10d0 ! for the pole check below
110
         tolerance=IRPoleCheckThreshold/10d0 ! for the pole check below
548
98
         call sloopmatrix_thres(p, virt_wgts, tolerance, prec_found,
111
         call sloopmatrix_thres(p, virt_wgts, tolerance, accuracies,
549
99
     $        ret_code)
112
     $        ret_code)
553
100
         virt_wgt= virt_wgts(1)/dble(ngluons)
113
         prec_found = accuracies(0)
554
101
         single  = virt_wgts(2)/dble(ngluons)
114
         virt_wgt= virt_wgts(1,0)/dble(ngluons)
555
102
         double  = virt_wgts(3)/dble(ngluons)
115
         single  = virt_wgts(2,0)/dble(ngluons)
556
116
         double  = virt_wgts(3,0)/dble(ngluons)
557
103
      else
117
      else
558
104
         tolerance=PrecisionVirtualAtRunTime
118
         tolerance=PrecisionVirtualAtRunTime
559
105
c Just set the accuracy found to a positive value as it is not specified
119
c Just set the accuracy found to a positive value as it is not specified
560
106
c once the initial pole check is performed.
120
c once the initial pole check is performed.
561
107
         if (mc_hel.eq.0) then
121
         if (mc_hel.eq.0) then
563
108
            call sloopmatrix_thres(p,virt_wgts,tolerance,prec_found
122
            call sloopmatrix_thres(p,virt_wgts,tolerance,accuracies
564
109
     $           ,ret_code)
123
     $           ,ret_code)
568
110
            virt_wgt= virt_wgts(1)/dble(ngluons)
124
            prec_found = accuracies(0)            
569
111
            single  = virt_wgts(2)/dble(ngluons)
125
            virt_wgt= virt_wgts(1,0)/dble(ngluons)
570
112
            double  = virt_wgts(3)/dble(ngluons)
126
            single  = virt_wgts(2,0)/dble(ngluons)
571
127
            double  = virt_wgts(3,0)/dble(ngluons)
572
113
         elseif (mc_hel.eq.1) then
128
         elseif (mc_hel.eq.1) then
573
114
c Use the Born helicity amplitudes to sample the helicities of the
129
c Use the Born helicity amplitudes to sample the helicities of the
574
115
c virtual as flat as possible
130
c virtual as flat as possible
575
@@ -142,12 +157,13 @@
576
142
c$$$            fillh=.true.
157
c$$$            fillh=.true.
577
143
            fillh=.false.
158
            fillh=.false.
578
144
            call sloopmatrixhel_thres(p,hel(ihel),virt_wgts_hel
159
            call sloopmatrixhel_thres(p,hel(ihel),virt_wgts_hel
585
145
     $           ,tolerance,prec_found,ret_code)
160
     $           ,tolerance,accuracies,ret_code)
586
146
            virt_wgt = virt_wgt + virt_wgts_hel(1)*dble(goodhel(ihel))
161
            prec_found = accuracies(0)
587
147
     $           /volh/4d0/dble(ngluons)
162
            virt_wgt = virt_wgt + virt_wgts_hel(1,0)*dble(goodhel(ihel))
588
148
            single   = single   + virt_wgts_hel(2)*dble(goodhel(ihel))
163
     $           /volh/4d0/dble(ngluons)
589
149
     $           /volh/4d0/dble(ngluons)
164
            single   = single   + virt_wgts_hel(2,0)*dble(goodhel(ihel))
590
150
            double   = double   + virt_wgts_hel(3)*dble(goodhel(ihel))
165
     $           /volh/4d0/dble(ngluons)
591
166
            double   = double   + virt_wgts_hel(3,0)*dble(goodhel(ihel))
592
151
     $           /volh/4d0/dble(ngluons)
167
     $           /volh/4d0/dble(ngluons)
593
152
c Average over initial state helicities (and take the ngluon factor into
168
c Average over initial state helicities (and take the ngluon factor into
594
153
c account)
169
c account)
595
@@ -200,7 +216,12 @@
596
200
            if (mc_hel.ne.0) then
216
            if (mc_hel.ne.0) then
597
201
c Set-up the MC over helicities. This assumes that the 'HelFilter.dat'
217
c Set-up the MC over helicities. This assumes that the 'HelFilter.dat'
598
202
c exists, which should be the case when firsttime is false.
218
c exists, which should be the case when firsttime is false.
600
203
               open (unit=67,file='HelFilter.dat',status='old',err=201)
219
               if (NHelForMCoverHels.lt.0) then
601
220
                   mc_hel=0
602
221
                   goto 203
603
222
               endif
604
223
               open (unit=67,file='../MadLoop5_resources/HelFilter.dat',
605
224
     $   status='old',err=201)
606
204
               hel(0)=0
225
               hel(0)=0
607
205
               j=0
226
               j=0
608
206
c optimized loop output
227
c optimized loop output
609
@@ -214,8 +235,18 @@
610
214
                 endif
235
                 endif
611
215
               enddo
236
               enddo
612
216
               goto 203
237
               goto 203
613
238
201            continue
614
239
               write (*,*) 'Cannot do MC over hel:'/
615
240
     &     /' "HelFilter.dat" does not exist'/
616
241
     &     /' or does not have the correct format.'/
617
242
     $     /' Change NHelForMCoverHels in FKS_params.dat '/
618
243
     &     /'to explicitly summ over them instead.'
619
244
               stop
620
245
c               mc_hel=0
621
246
c               goto 203
622
247
202            continue
623
217
c non optimized loop output
248
c non optimized loop output
625
218
 202           rewind(67)
249
               rewind(67)
626
219
               read(67,*,err=201) (include_hel(i),i=1,max_bhel)
250
               read(67,*,err=201) (include_hel(i),i=1,max_bhel)
627
220
               do i=1,max_bhel
251
               do i=1,max_bhel
628
221
                  if (include_hel(i).eq.'T') then
252
                  if (include_hel(i).eq.'T') then
629
@@ -225,7 +256,7 @@
630
225
                     hel(j)=i
256
                     hel(j)=i
631
226
                  endif
257
                  endif
632
227
               enddo
258
               enddo
634
228
 203           continue
259
203            continue
635
229
c Only do MC over helicities if there are NHelForMCoverHels
260
c Only do MC over helicities if there are NHelForMCoverHels
636
230
c or more non-zero (independent) helicities
261
c or more non-zero (independent) helicities
637
231
               if (NHelForMCoverHels.eq.-1) then
262
               if (NHelForMCoverHels.eq.-1) then
638
@@ -290,9 +321,7 @@
639
290
      else
321
      else
640
291
         n10=n10+1              ! no known ret_code (10)
322
         n10=n10+1              ! no known ret_code (10)
641
292
      endif
323
      endif
645
293
      if (mod(ret_code,10).ne.0) then
324
         n1(mod(ret_code,10))=n1(mod(ret_code,10))+1                ! unit ret code distribution
643
294
         n1=n1+1                ! no known ret_code (1)
644
295
      endif
646
296
325
647
297
c Write out the unstable, non-rescued phase-space points (MadLoop return
326
c Write out the unstable, non-rescued phase-space points (MadLoop return
648
298
c code is in the four hundreds) or the ones that are found by the pole
327
c code is in the four hundreds) or the ones that are found by the pole
649
@@ -342,10 +371,6 @@
650
342
     $     .and. ret_code/100.eq.1)virt_wgt=0d0
371
     $     .and. ret_code/100.eq.1)virt_wgt=0d0
651
343
372
652
344
      return
373
      return
653
345
 201  write (*,*) 'Cannot do MC over hel:'/
654
346
     &     /' "HelFilter.dat" does not exist'/
655
347
     &     /' or does not have the correct format'
656
348
      stop
657
349
      end
374
      end
658
350
375
659
351
      subroutine BinothLHAInit(filename)
376
      subroutine BinothLHAInit(filename)
660
352
377
661
=== modified file 'Template/NLO/SubProcesses/add_write_info.f'
662
--- Template/NLO/SubProcesses/add_write_info.f	2014-02-19 09:46:05 +0000
663
+++ Template/NLO/SubProcesses/add_write_info.f	2014-08-26 07:56:12 +0000
664
@@ -228,7 +228,7 @@
665
228
      enddo
228
      enddo
666
229
c Assume helicity summed
229
c Assume helicity summed
667
230
      do i=1,nexternal
230
      do i=1,nexternal
669
231
         jpart(7,i)=0
231
         jpart(7,i)=9
670
232
      enddo
232
      enddo
671
233
      if (firsttime2 .and. isum_hel.ne.0) then
233
      if (firsttime2 .and. isum_hel.ne.0) then
672
234
         write (*,*) 'WARNING: for writing the events, no helicity '//
234
         write (*,*) 'WARNING: for writing the events, no helicity '//
673
235
235
674
=== modified file 'Template/NLO/SubProcesses/ajob_template'
675
--- Template/NLO/SubProcesses/ajob_template	2014-06-12 08:52:03 +0000
676
+++ Template/NLO/SubProcesses/ajob_template	2014-08-26 07:56:12 +0000
677
@@ -7,8 +7,9 @@
678
7
fi
7
fi
679
8
}
8
}
680
9
9
683
10
10
if [[ -e MadLoop5_resources.tar && ! -e MadLoop5_resources ]]; then
684
11
11
    tar -xf MadLoop5_resources.tar
685
12
fi
686
12
13
687
13
TAGTAGTAGTAGTAGTAGTAG for i in 1 ; do
14
TAGTAGTAGTAGTAGTAGTAG for i in 1 ; do
688
14
    
15
    
689
@@ -72,22 +73,17 @@
690
72
    fi
73
    fi
691
73
    if  [[ ! -e symfact.dat ]] ; then
74
    if  [[ ! -e symfact.dat ]] ; then
692
74
    	if [[  -e ../symfact.dat ]] ; then
75
    	if [[  -e ../symfact.dat ]] ; then
697
75
	    ln -sf ../symfact.dat .
76
			ln -sf ../symfact.dat .
698
76
	else
77
		else
699
77
	    ln -sf ../../symfact.dat .    
78
			ln -sf ../../symfact.dat .    
700
78
	fi
79
		fi
701
79
    fi
80
    fi
702
80
81
703
81
    link1up MadLoopParams.dat
704
82
    link1up HelFilter.dat 
705
83
    link1up LoopFilter.dat
706
84
    link1up ColorDenomFactors.dat
707
85
    link1up HelConfigs.dat
708
86
    link1up ColorNumFactors.dat
709
87
    link1up FKS_params.dat
82
    link1up FKS_params.dat
710
83
#   Not necessary anymore
711
84
#    link1up MadLoop5_resources
712
88
    link1up OLE_order.olc
85
    link1up OLE_order.olc
713
89
    link1up param_card.dat
86
    link1up param_card.dat
714
90
    link1up libLHAPDF.so
715
91
    
87
    
716
92
#   check where is the basic file for the creation of input_app.txt
88
#   check where is the basic file for the creation of input_app.txt
717
93
#       
89
#       
718
94
90
719
=== modified file 'Template/NLO/SubProcesses/check_poles.f'
720
--- Template/NLO/SubProcesses/check_poles.f	2013-12-13 08:38:35 +0000
721
+++ Template/NLO/SubProcesses/check_poles.f	2014-08-26 07:56:12 +0000
722
@@ -9,10 +9,13 @@
723
9
      double precision pi, zero
9
      double precision pi, zero
724
10
      parameter (pi=3.1415926535897932385d0)
10
      parameter (pi=3.1415926535897932385d0)
725
11
      parameter (zero = 0d0)
11
      parameter (zero = 0d0)
727
12
      integer npoints, npointsChecked,ret_code
12
      integer npoints, npointsChecked
728
13
      integer i, j, k
13
      integer i, j, k
730
14
      double precision tolerance
14
      integer return_code
731
15
      double precision tolerance, tolerance_default
732
16
      double precision, allocatable :: accuracies(:)
733
15
      double precision accuracy
17
      double precision accuracy
734
18
      parameter (tolerance_default = 1d-5)
735
16
      double precision ren_scale, energy
19
      double precision ren_scale, energy
736
17
      parameter (ren_scale = 1d2)
20
      parameter (ren_scale = 1d2)
737
18
      parameter (energy = 1d3)
21
      parameter (energy = 1d3)
738
@@ -23,7 +26,8 @@
739
23
      double precision p_born(0:3,nexternal-1)
26
      double precision p_born(0:3,nexternal-1)
740
24
      common/pborn/p_born
27
      common/pborn/p_born
741
25
      double precision pswgt
28
      double precision pswgt
743
26
      double precision virt_wgts(3), fks_double, fks_single
29
      double precision fks_double, fks_single
744
30
      double precision, allocatable :: virt_wgts(:,:)
745
27
      double precision double, single, finite
31
      double precision double, single, finite
746
28
      double complex born(2)
32
      double complex born(2)
747
29
      logical calculatedborn
33
      logical calculatedborn
748
@@ -46,19 +50,21 @@
749
46
      include 'run.inc'
50
      include 'run.inc'
750
47
      include 'coupl.inc'
51
      include 'coupl.inc'
751
48
      include 'q_es.inc'
52
      include 'q_es.inc'
752
53
      integer nsqso      
753
49
      double precision pmass(nexternal), pmass_rambo(nexternal)
54
      double precision pmass(nexternal), pmass_rambo(nexternal)
754
50
      integer nfail
55
      integer nfail
755
56
      logical first_time
756
57
      data first_time/.TRUE./
757
51
      
58
      
758
52
c general MadFKS parameters
759
53
      include "FKSParams.inc"
760
54
761
55
C-----
59
C-----
762
56
C  BEGIN CODE
60
C  BEGIN CODE
763
57
C-----  
61
C-----  
768
58
c
62
      if (first_time) then
769
59
c     Read general MadFKS parameters
63
          call get_nsqso_loop(nsqso)          
770
60
c
64
          allocate(virt_wgts(0:3,0:nsqso))
771
61
      call FKSParamReader(paramFileName,.TRUE.,.FALSE.)
65
          allocate(accuracies(0:nsqso))
772
66
          first_time = .false.
773
67
      endif
774
62
68
775
63
      call setrun                !Sets up run parameters
69
      call setrun                !Sets up run parameters
776
64
      call setpara('param_card.dat')   !Sets up couplings and masses
70
      call setpara('param_card.dat')   !Sets up couplings and masses
777
@@ -71,9 +77,9 @@
778
71
      read(*,*) npoints
77
      read(*,*) npoints
779
72
      write(*,*)'Insert the relative tolerance'
78
      write(*,*)'Insert the relative tolerance'
780
73
      write(*,*)' A negative number will mean use the default one: ',
79
      write(*,*)' A negative number will mean use the default one: ',
782
74
     1 IRPoleCheckThreshold 
80
     1 tolerance_default 
783
75
      read(*,*) tolerance
81
      read(*,*) tolerance
785
76
      if (tolerance .le. zero) tolerance = IRPoleCheckThreshold
82
      if (tolerance .le. zero) tolerance = tolerance_default
786
77
83
787
78
      mu_r = ren_scale
84
      mu_r = ren_scale
788
79
      qes2 = ren_scale**2
85
      qes2 = ren_scale**2
789
@@ -160,12 +166,13 @@
790
160
          enddo
166
          enddo
791
161
167
792
162
          call sborn(p_born, born)
168
          call sborn(p_born, born)
795
163
          call sloopmatrix_thres(p_born,virt_wgts,tolerance,accuracy
169
          call sloopmatrix_thres(p_born,virt_wgts,tolerance,
796
164
     $         ,ret_code) 
170
     1 accuracies,return_code)
797
171
          accuracy=accuracies(0)
798
165
172
802
166
          finite = virt_wgts(1)/dble(ngluons)
173
          finite = virt_wgts(1,0)/dble(ngluons)
803
167
          single = virt_wgts(2)/dble(ngluons)
174
          single = virt_wgts(2,0)/dble(ngluons)
804
168
          double = virt_wgts(3)/dble(ngluons)
175
          double = virt_wgts(3,0)/dble(ngluons)
805
169
176
806
170
C         If MadLoop was still in initialization mode, then skip this
177
C         If MadLoop was still in initialization mode, then skip this
807
171
C         point for the checks
178
C         point for the checks
808
172
179
809
=== removed symlink 'Template/NLO/SubProcesses/check_sa_loop.f'
810
=== target was u'../../loop_material/StandAlone/SubProcesses/check_sa.f'
811
=== modified file 'Template/NLO/SubProcesses/driver_mintFO.f'
812
--- Template/NLO/SubProcesses/driver_mintFO.f	2014-07-02 13:45:42 +0000
813
+++ Template/NLO/SubProcesses/driver_mintFO.f	2014-08-26 07:56:12 +0000
814
@@ -107,7 +107,7 @@
815
107
      common/SHevents/Hevents
107
      common/SHevents/Hevents
816
108
      character*10 dum
108
      character*10 dum
817
109
c statistics for MadLoop      
109
c statistics for MadLoop      
819
110
      integer ntot,nsun,nsps,nups,neps,n100,nddp,nqdp,nini,n10,n1
110
      integer ntot,nsun,nsps,nups,neps,n100,nddp,nqdp,nini,n10,n1(0:9)
820
111
      common/ups_stats/ntot,nsun,nsps,nups,neps,n100,nddp,nqdp,nini,n10,n1
111
      common/ups_stats/ntot,nsun,nsps,nups,neps,n100,nddp,nqdp,nini,n10,n1
821
112
112
822
113
      double precision virtual_over_born
113
      double precision virtual_over_born
823
@@ -148,7 +148,9 @@
824
148
      nqdp=0
148
      nqdp=0
825
149
      nini=0
149
      nini=0
826
150
      n10=0
150
      n10=0
828
151
      n1=0
151
      do i=0,9
829
152
        n1(i)=0
830
153
      enddo
831
152
      
154
      
832
153
      open (unit=lun+1,file='../dname.mg',status='unknown',err=11)
155
      open (unit=lun+1,file='../dname.mg',status='unknown',err=11)
833
154
      read (lun+1,'(a130)',err=11,end=11) buf
156
      read (lun+1,'(a130)',err=11,end=11) buf
834
@@ -320,7 +322,12 @@
835
320
         write(*,*)
322
         write(*,*)
836
321
     &        "  Unknown return code (10):                        ",n10
323
     &        "  Unknown return code (10):                        ",n10
837
322
         write(*,*)
324
         write(*,*)
839
323
     &        "  Unknown return code (1):                         ",n1
325
     &        "  Unit return code distribution (1):               "
840
326
         do j=0,9
841
327
           if (n1(j).ne.0) then
842
328
              write(*,*) "#Unit ",j," = ",n1(j)
843
329
           endif
844
330
         enddo
845
324
      endif
331
      endif
846
325
332
847
326
      call cpu_time(tAfter)
333
      call cpu_time(tAfter)
848
327
334
849
=== modified file 'Template/NLO/SubProcesses/driver_mintMC.f'
850
--- Template/NLO/SubProcesses/driver_mintMC.f	2014-07-02 13:45:42 +0000
851
+++ Template/NLO/SubProcesses/driver_mintMC.f	2014-08-26 07:56:12 +0000
852
@@ -128,7 +128,7 @@
853
128
      common/SHevents/Hevents
128
      common/SHevents/Hevents
854
129
      character*10 dum
129
      character*10 dum
855
130
c statistics for MadLoop      
130
c statistics for MadLoop      
857
131
      integer ntot,nsun,nsps,nups,neps,n100,nddp,nqdp,nini,n10,n1
131
      integer ntot,nsun,nsps,nups,neps,n100,nddp,nqdp,nini,n10,n1(0:9)
858
132
      common/ups_stats/ntot,nsun,nsps,nups,neps,n100,nddp,nqdp,nini,n10,n1
132
      common/ups_stats/ntot,nsun,nsps,nups,neps,n100,nddp,nqdp,nini,n10,n1
859
133
133
860
134
c timing statistics
134
c timing statistics
861
@@ -161,7 +161,9 @@
862
161
      nqdp=0
161
      nqdp=0
863
162
      nini=0
162
      nini=0
864
163
      n10=0
163
      n10=0
866
164
      n1=0
164
      do i=0,9
867
165
        n1(i)=0
868
166
      enddo
869
165
      
167
      
870
166
      open (unit=lun+1,file='../dname.mg',status='unknown',err=11)
168
      open (unit=lun+1,file='../dname.mg',status='unknown',err=11)
871
167
      read (lun+1,'(a130)',err=11,end=11) buf
169
      read (lun+1,'(a130)',err=11,end=11) buf
872
@@ -513,7 +515,12 @@
873
513
         write(*,*)
515
         write(*,*)
874
514
     &        "  Unknown return code (10):                        ",n10
516
     &        "  Unknown return code (10):                        ",n10
875
515
         write(*,*)
517
         write(*,*)
877
516
     &        "  Unknown return code (1):                         ",n1
518
     &        "  Unit return code distribution (1):               "
878
519
         do j=0,9
879
520
           if (n1(j).ne.0) then
880
521
              write(*,*) "#Unit ",j," = ",n1(j)
881
522
           endif
882
523
         enddo
883
517
      endif
524
      endif
884
518
525
885
519
      call cpu_time(tAfter)
526
      call cpu_time(tAfter)
886
520
527
887
=== modified file 'Template/NLO/SubProcesses/driver_vegas.f'
888
--- Template/NLO/SubProcesses/driver_vegas.f	2013-11-28 17:05:38 +0000
889
+++ Template/NLO/SubProcesses/driver_vegas.f	2014-08-26 07:56:12 +0000
890
@@ -98,7 +98,7 @@
891
98
98
892
99
      integer n_mp, n_disc
99
      integer n_mp, n_disc
893
100
c statistics for MadLoop      
100
c statistics for MadLoop      
895
101
      integer ntot,nsun,nsps,nups,neps,n100,nddp,nqdp,nini,n10,n1
101
      integer ntot,nsun,nsps,nups,neps,n100,nddp,nqdp,nini,n10,n1(0:9)
896
102
      common/ups_stats/ntot,nsun,nsps,nups,neps,n100,nddp,nqdp,nini,n10,n1
102
      common/ups_stats/ntot,nsun,nsps,nups,neps,n100,nddp,nqdp,nini,n10,n1
897
103
103
898
104
c general MadFKS parameters
104
c general MadFKS parameters
899
@@ -126,7 +126,9 @@
900
126
      nqdp=0
126
      nqdp=0
901
127
      nini=0
127
      nini=0
902
128
      n10=0
128
      n10=0
904
129
      n1=0
129
      do i=0,9
905
130
        n1(i)=0
906
131
      enddo
907
130
132
908
131
      open (unit=lun+1,file='../dname.mg',status='unknown',err=11)
133
      open (unit=lun+1,file='../dname.mg',status='unknown',err=11)
909
132
      read (lun+1,'(a130)',err=11,end=11) buf
134
      read (lun+1,'(a130)',err=11,end=11) buf
910
@@ -311,7 +313,12 @@
911
311
         write(*,*)
313
         write(*,*)
912
312
     &        "  Unknown return code (10):                        ",n10
314
     &        "  Unknown return code (10):                        ",n10
913
313
         write(*,*)
315
         write(*,*)
915
314
     &        "  Unknown return code (1):                         ",n1
316
     &        "  Unit return code distribution (1):               "
916
317
         do j=0,9
917
318
           if (n1(j).ne.0) then
918
319
              write(*,*) "#Unit ",j," = ",n1(j)
919
320
           endif
920
321
         enddo
921
315
      endif
322
      endif
922
316
323
923
317
      if(savegrid)call initplot_dummy
324
      if(savegrid)call initplot_dummy
924
318
325
925
=== removed file 'Template/NLO/SubProcesses/makefile_loop'
926
--- Template/NLO/SubProcesses/makefile_loop	2012-11-15 11:00:21 +0000
927
+++ Template/NLO/SubProcesses/makefile_loop	1970-01-01 00:00:00 +0000
928
@@ -1,33 +0,0 @@
929
1
include ../../../Source/make_opts
930
2
931
3
LIBDIR = ../../../lib/
932
4
LOOPLIB= libMadLoop.a
933
5
LINKLIBS =  -L$(LIBDIR) -lcts -ldhelas -lmodel
934
6
LIBS = $(LIBDIR)libcts.$(libext) $(LIBDIR)libdhelas.$(libext)	\
935
7
	$(LIBDIR)libmodel.$(libext)
936
8
PROCESS= loop_matrix.o improve_ps.o born_matrix.o loop_num.o CT_interface.o		\
937
9
		 $(patsubst %.f,%.o,$(wildcard polynomial.f)) \
938
10
		 $(patsubst %.f,%.o,$(wildcard MadLoopParamReader.f)) \
939
11
		 $(patsubst %.f,%.o,$(wildcard helas_calls*.f)) \
940
12
		 $(patsubst %.f,%.o,$(wildcard jamp?_calls_*.f)) \
941
13
		 $(patsubst %.f,%.o,$(wildcard mp_born_amps_and_wfs.f)) \
942
14
		 $(patsubst %.f,%.o,$(wildcard mp_compute_loop_coefs.f)) \
943
15
		 $(patsubst %.f,%.o,$(wildcard mp_helas_calls*.f)) \
944
16
		 $(patsubst %.f,%.o,$(wildcard coef_construction_*.f)) \
945
17
		 $(patsubst %.f,%.o,$(wildcard loop_CT_calls_*.f)) \
946
18
		 $(patsubst %.f,%.o,$(wildcard mp_coef_construction_*.f))
947
19
948
20
%.o : %.f
949
21
	$(FC) $(FFLAGS) -c $<
950
22
951
23
all: cleanlib $(LOOPLIB) 
952
24
953
25
$(LOOPLIB): $(PROCESS)   
954
26
	@ar cr $(LOOPLIB) $(PROCESS)
955
27
	mv $(LOOPLIB) ../
956
28
957
29
clean: cleanlib
958
30
		@rm -f *.o 
959
31
960
32
cleanlib:
961
33
	rm -f ../$(LOOPLIB) $(PROG)
962
34
0
963
=== added file 'Template/NLO/SubProcesses/makefile_loop.inc'
964
--- Template/NLO/SubProcesses/makefile_loop.inc	1970-01-01 00:00:00 +0000
965
+++ Template/NLO/SubProcesses/makefile_loop.inc	2014-08-26 07:56:12 +0000
966
@@ -0,0 +1,36 @@
967
1
include ../../../Source/make_opts
968
2
969
3
LIBDIR = ../../../lib/
970
4
LOOPLIB= libMadLoop.a
971
5
972
6
LINKLIBS =  -L$(LIBDIR) -lcts -ldhelas -lmodel %(link_tir_libs)s
973
7
LIBS = $(LIBDIR)libcts.$(libext) $(LIBDIR)libdhelas.$(libext)	\
974
8
	$(LIBDIR)libmodel.$(libext) %(tir_libs)s
975
9
PROCESS= loop_matrix.o improve_ps.o born_matrix.o loop_num.o CT_interface.o	MadLoopCommons.o \
976
10
		 $(patsubst %(dotf)s,%(doto)s,$(wildcard polynomial.f)) \
977
11
		 $(patsubst %(dotf)s,%(doto)s,$(wildcard MadLoopParamReader.f)) \
978
12
		 $(patsubst %(dotf)s,%(doto)s,$(wildcard helas_calls*.f)) \
979
13
		 $(patsubst %(dotf)s,%(doto)s,$(wildcard jamp?_calls_*.f)) \
980
14
		 $(patsubst %(dotf)s,%(doto)s,$(wildcard mp_born_amps_and_wfs.f)) \
981
15
		 $(patsubst %(dotf)s,%(doto)s,$(wildcard mp_compute_loop_coefs.f)) \
982
16
		 $(patsubst %(dotf)s,%(doto)s,$(wildcard mp_helas_calls*.f)) \
983
17
		 $(patsubst %(dotf)s,%(doto)s,$(wildcard coef_construction_*.f)) \
984
18
		 $(patsubst %(dotf)s,%(doto)s,$(wildcard loop_CT_calls_*.f)) \
985
19
		 $(patsubst %(dotf)s,%(doto)s,$(wildcard mp_coef_construction_*.f)) \
986
20
		 $(patsubst %(dotf)s,%(doto)s,$(wildcard TIR_interface.f)) \
987
21
		 $(patsubst %(dotf)s,%(doto)s,$(wildcard GOLEM_interface.f))		 
988
22
989
23
%(doto)s : %(dotf)s
990
24
	$(FC) $(FFLAGS) -c $< %(tir_include)s
991
25
992
26
all: cleanlib $(LOOPLIB) 
993
27
994
28
$(LOOPLIB): $(PROCESS)   
995
29
	@ar cr $(LOOPLIB) $(PROCESS)
996
30
	mv $(LOOPLIB) ../
997
31
998
32
clean: cleanlib
999
33
		@rm -f *.o 
1000
34
1001
35
cleanlib:
1002
36
	rm -f ../$(LOOPLIB) $(PROG)
1003
0
37
1004
=== modified file 'Template/NLO/SubProcesses/montecarlocounter.f'
1005
--- Template/NLO/SubProcesses/montecarlocounter.f	2014-05-27 16:58:59 +0000
1006
+++ Template/NLO/SubProcesses/montecarlocounter.f	2014-08-26 07:56:12 +0000
1007
@@ -349,6 +349,7 @@
1008
349
      include "fks_powers.inc"
349
      include "fks_powers.inc"
1009
350
      include "madfks_mcatnlo.inc"
350
      include "madfks_mcatnlo.inc"
1010
351
      include "run.inc"
351
      include "run.inc"
1011
352
      include "../../Source/MODEL/input.inc"
1012
352
      include 'nFKSconfigs.inc'
353
      include 'nFKSconfigs.inc'
1013
353
      integer fks_j_from_i(nexternal,0:nexternal)
354
      integer fks_j_from_i(nexternal,0:nexternal)
1014
354
     &     ,particle_type(nexternal),pdg_type(nexternal)
355
     &     ,particle_type(nexternal),pdg_type(nexternal)
1015
@@ -366,7 +367,7 @@
1016
366
      integer jpartner,mpartner
367
      integer jpartner,mpartner
1017
367
      logical emscasharp
368
      logical emscasharp
1018
368
369
1020
369
      double precision shattmp,dot,xkern,xkernazi,born_red,
370
      double precision shattmp,dot,xkern(2),xkernazi(2),born_red,
1021
370
     & born_red_tilde
371
     & born_red_tilde
1022
371
      double precision bornbars(max_bcol), bornbarstilde(max_bcol)
372
      double precision bornbars(max_bcol), bornbarstilde(max_bcol)
1023
372
373
1024
@@ -452,6 +453,7 @@
1025
452
      parameter (vtf=1d0/2d0)
453
      parameter (vtf=1d0/2d0)
1026
453
      parameter (vca=3d0)
454
      parameter (vca=3d0)
1027
454
455
1028
456
      double precision g_ew,charge,qi2,qj2
1029
455
      double precision pmass(nexternal)
457
      double precision pmass(nexternal)
1030
456
      include "pmass.inc"
458
      include "pmass.inc"
1031
457
459
1032
@@ -470,6 +472,9 @@
1033
470
      knbar    = veckbarn_ev
472
      knbar    = veckbarn_ev
1034
471
      kn0      = xp0jfks
473
      kn0      = xp0jfks
1035
472
      nofpartners = ipartners(0)
474
      nofpartners = ipartners(0)
1036
475
      g_ew=sqrt(4.d0*pi/aewm1)
1037
476
      qi2=charge(pdg_type(i_fks))**2
1038
477
      qj2=charge(pdg_type(j_fks))**2
1039
473
      tiny = 1d-4
478
      tiny = 1d-4
1040
474
      if (softtest.or.colltest)tiny = 1d-6
479
      if (softtest.or.colltest)tiny = 1d-6
1041
475
c Logical variables to control the IR limits:
480
c Logical variables to control the IR limits:
1042
@@ -585,8 +590,8 @@
1043
585
c Compute MC subtraction terms
590
c Compute MC subtraction terms
1044
586
         if(lzone(npartner))then
591
         if(lzone(npartner))then
1045
587
            if(.not.flagmc)flagmc=.true.
592
            if(.not.flagmc)flagmc=.true.
1048
588
            if( (ileg.ge.3 .and. m_type.eq.8) .or.
593
            if( (ileg.ge.3 .and. (m_type.eq.8.or.m_type.eq.0)) .or.
1049
589
     &          (ileg.le.2 .and. j_type.eq.8) )then
594
     &          (ileg.le.2 .and. (j_type.eq.8.or.j_type.eq.0)) )then
1050
590
               if(i_type.eq.8)then
595
               if(i_type.eq.8)then
1051
591
c g  --> g  g ( icode = 1 )
596
c g  --> g  g ( icode = 1 )
1052
592
c go --> go g
597
c go --> go g
1053
@@ -594,17 +599,17 @@
1054
594
                     N_p=2
599
                     N_p=2
1055
595
                     if(isspecial)N_p=1
600
                     if(isspecial)N_p=1
1056
596
                     if(limit)then
601
                     if(limit)then
1059
597
                        xkern=(g**2/N_p)*8*vca*(1-x*(1-x))**2/(s*x**2)
602
                        xkern(1)=(g**2/N_p)*8*vca*(1-x*(1-x))**2/(s*x**2)
1060
598
                        xkernazi=-(g**2/N_p)*16*vca*(1-x)**2/(s*x**2)
603
                        xkernazi(1)=-(g**2/N_p)*16*vca*(1-x)**2/(s*x**2)
1061
599
                     elseif(non_limit)then
604
                     elseif(non_limit)then
1062
600
                        xfact=(1-yi)*(1-x)/x
605
                        xfact=(1-yi)*(1-x)/x
1063
601
                        prefact=4/(s*N_p)
606
                        prefact=4/(s*N_p)
1064
602
                        call AP_reduced(m_type,i_type,one,z(npartner),ap)
607
                        call AP_reduced(m_type,i_type,one,z(npartner),ap)
1065
603
                        ap=ap/(1-z(npartner))
608
                        ap=ap/(1-z(npartner))
1067
604
                        xkern=prefact*xfact*xjac(npartner)*ap/xi(npartner)
609
                        xkern(1)=prefact*xfact*xjac(npartner)*ap/xi(npartner)
1068
605
                        call Qterms_reduced_spacelike(m_type,i_type,one,z(npartner),Q)
610
                        call Qterms_reduced_spacelike(m_type,i_type,one,z(npartner),Q)
1069
606
                        Q=Q/(1-z(npartner))
611
                        Q=Q/(1-z(npartner))
1071
607
                        xkernazi=prefact*xfact*xjac(npartner)*Q/xi(npartner)
612
                        xkernazi(1)=prefact*xfact*xjac(npartner)*Q/xi(npartner)
1072
608
                     endif
613
                     endif
1073
609
c
614
c
1074
610
                  elseif(ileg.eq.3)then
615
                  elseif(ileg.eq.3)then
1075
@@ -615,59 +620,66 @@
1076
615
                        prefact=2/(s*N_p)
620
                        prefact=2/(s*N_p)
1077
616
                        call AP_reduced_SUSY(j_type,i_type,one,z(npartner),ap)
621
                        call AP_reduced_SUSY(j_type,i_type,one,z(npartner),ap)
1078
617
                        ap=ap/(1-z(npartner))
622
                        ap=ap/(1-z(npartner))
1080
618
                        xkern=prefact*xfact*xjac(npartner)*ap/xi(npartner)
623
                        xkern(1)=prefact*xfact*xjac(npartner)*ap/xi(npartner)
1081
619
                     endif
624
                     endif
1082
620
c
625
c
1083
621
                  elseif(ileg.eq.4)then
626
                  elseif(ileg.eq.4)then
1084
622
                     N_p=2
627
                     N_p=2
1085
623
                     if(isspecial)N_p=1
628
                     if(isspecial)N_p=1
1086
624
                     if(limit)then
629
                     if(limit)then
1088
625
                        xkern=(g**2/N_p)*( 8*vca*
630
                        xkern(1)=(g**2/N_p)*( 8*vca*
1089
626
     &                       (s**2*(1-(1-x)*x)-s*(1+x)*xm12+xm12**2)**2 )/
631
     &                       (s**2*(1-(1-x)*x)-s*(1+x)*xm12+xm12**2)**2 )/
1090
627
     &                       ( s*(s-xm12)**2*(s*x-xm12)**2 )
632
     &                       ( s*(s-xm12)**2*(s*x-xm12)**2 )
1092
628
                        xkernazi=-(g**2/N_p)*(16*vca*s*(1-x)**2)/((s-xm12)**2)
633
                        xkernazi(1)=-(g**2/N_p)*(16*vca*s*(1-x)**2)/((s-xm12)**2)
1093
629
                     elseif(non_limit)then
634
                     elseif(non_limit)then
1094
630
                        xfact=(2-(1-x)*(1-yj))/xij*(1-xm12/s)*(1-x)*(1-yj)
635
                        xfact=(2-(1-x)*(1-yj))/xij*(1-xm12/s)*(1-x)*(1-yj)
1095
631
                        prefact=2/(s*N_p)
636
                        prefact=2/(s*N_p)
1096
632
                        call AP_reduced(j_type,i_type,one,z(npartner),ap)
637
                        call AP_reduced(j_type,i_type,one,z(npartner),ap)
1097
633
                        ap=ap/(1-z(npartner))
638
                        ap=ap/(1-z(npartner))
1099
634
                        xkern=prefact*xfact*xjac(npartner)*ap/xi(npartner)
639
                        xkern(1)=prefact*xfact*xjac(npartner)*ap/xi(npartner)
1100
635
                        call Qterms_reduced_timelike(j_type,i_type,one,z(npartner),Q)
640
                        call Qterms_reduced_timelike(j_type,i_type,one,z(npartner),Q)
1101
636
                        Q=Q/(1-z(npartner))
641
                        Q=Q/(1-z(npartner))
1103
637
                        xkernazi=prefact*xfact*xjac(npartner)*Q/xi(npartner)
642
                        xkernazi(1)=prefact*xfact*xjac(npartner)*Q/xi(npartner)
1104
638
                     endif
643
                     endif
1105
639
                  endif
644
                  endif
1106
640
               elseif(abs(i_type).eq.3)then
645
               elseif(abs(i_type).eq.3)then
1107
641
c g --> q q~ ( icode = 2 )
646
c g --> q q~ ( icode = 2 )
1108
647
c a --> q q~
1109
642
                  if(ileg.le.2)then
648
                  if(ileg.le.2)then
1110
643
                     N_p=1
649
                     N_p=1
1111
644
                     if(limit)then
650
                     if(limit)then
1113
645
                        xkern=(g**2/N_p)*4*vtf*(1-x)*((1-x)**2+x**2)/(s*x)
651
                        xkern(1)=(g**2/N_p)*4*vtf*(1-x)*((1-x)**2+x**2)/(s*x)
1114
652
                        xkern(2)=xkern(1)*(g_ew**2/g**2)*(qi2*vca/vtf)
1115
646
                     elseif(non_limit)then
653
                     elseif(non_limit)then
1116
647
                        xfact=(1-yi)*(1-x)/x
654
                        xfact=(1-yi)*(1-x)/x
1117
648
                        prefact=4/(s*N_p)
655
                        prefact=4/(s*N_p)
1118
649
                        call AP_reduced(m_type,i_type,one,z(npartner),ap)
656
                        call AP_reduced(m_type,i_type,one,z(npartner),ap)
1119
650
                        ap=ap/(1-z(npartner))
657
                        ap=ap/(1-z(npartner))
1121
651
                        xkern=prefact*xfact*xjac(npartner)*ap/xi(npartner)
658
                        xkern(1)=prefact*xfact*xjac(npartner)*ap/xi(npartner)
1122
659
                        xkern(2)=xkern(1)*(g_ew**2/g**2)*(qi2*vca/vtf)
1123
652
                     endif
660
                     endif
1124
653
c
661
c
1125
654
                  elseif(ileg.eq.4)then
662
                  elseif(ileg.eq.4)then
1126
655
                     N_p=2
663
                     N_p=2
1127
656
                     if(isspecial)N_p=1
664
                     if(isspecial)N_p=1
1128
657
                     if(limit)then
665
                     if(limit)then
1130
658
                        xkern=(g**2/N_p)*( 4*vtf*(1-x)*
666
                        xkern(1)=(g**2/N_p)*( 4*vtf*(1-x)*
1131
659
     &                        (s**2*(1-2*(1-x)*x)-2*s*x*xm12+xm12**2) )/
667
     &                        (s**2*(1-2*(1-x)*x)-2*s*x*xm12+xm12**2) )/
1132
660
     &                        ( (s-xm12)**2*(s*x-xm12) )
668
     &                        ( (s-xm12)**2*(s*x-xm12) )
1134
661
                        xkernazi=(g**2/N_p)*(16*vtf*s*(1-x)**2)/((s-xm12)**2)
669
                        xkern(2)=xkern(1)*(g_ew**2/g**2)*(qi2*vca/vtf)
1135
670
                        xkernazi(1)=(g**2/N_p)*(16*vtf*s*(1-x)**2)/((s-xm12)**2)
1136
671
                        xkernazi(2)=xkernazi(1)*(g_ew**2/g**2)*(qi2*vca/vtf)
1137
662
                     elseif(non_limit)then
672
                     elseif(non_limit)then
1138
663
                        xfact=(2-(1-x)*(1-yj))/xij*(1-xm12/s)*(1-x)*(1-yj)
673
                        xfact=(2-(1-x)*(1-yj))/xij*(1-xm12/s)*(1-x)*(1-yj)
1139
664
                        prefact=2/(s*N_p)
674
                        prefact=2/(s*N_p)
1140
665
                        call AP_reduced(j_type,i_type,one,z(npartner),ap)
675
                        call AP_reduced(j_type,i_type,one,z(npartner),ap)
1141
666
                        ap=ap/(1-z(npartner))
676
                        ap=ap/(1-z(npartner))
1143
667
                        xkern=prefact*xfact*xjac(npartner)*ap/xi(npartner)
677
                        xkern(1)=prefact*xfact*xjac(npartner)*ap/xi(npartner)
1144
678
                        xkern(2)=xkern(1)*(g_ew**2/g**2)*(qi2*vca/vtf)
1145
668
                        call Qterms_reduced_timelike(j_type,i_type,one,z(npartner),Q)
679
                        call Qterms_reduced_timelike(j_type,i_type,one,z(npartner),Q)
1146
669
                        Q=Q/(1-z(npartner))
680
                        Q=Q/(1-z(npartner))
1148
670
                        xkernazi=prefact*xfact*xjac(npartner)*Q/xi(npartner)
681
                        xkernazi(1)=prefact*xfact*xjac(npartner)*Q/xi(npartner)
1149
682
                        xkernazi(2)=xkernazi(1)*(g_ew**2/g**2)*(qi2*vca/vtf)
1150
671
                     endif
683
                     endif
1151
672
                  endif
684
                  endif
1152
673
               else
685
               else
1153
@@ -679,21 +691,26 @@
1154
679
     &              (ileg.le.2 .and. abs(j_type).eq.3) )then
691
     &              (ileg.le.2 .and. abs(j_type).eq.3) )then
1155
680
               if(abs(i_type).eq.3)then
692
               if(abs(i_type).eq.3)then
1156
681
c q --> g q ( icode = 3 )
693
c q --> g q ( icode = 3 )
1157
694
c a --> a q
1158
682
                  if(ileg.le.2)then
695
                  if(ileg.le.2)then
1159
683
                     N_p=2
696
                     N_p=2
1160
684
                     if(isspecial)N_p=1
697
                     if(isspecial)N_p=1
1161
685
                     if(limit)then
698
                     if(limit)then
1164
686
                        xkern=(g**2/N_p)*4*vcf*(1-x)*((1-x)**2+1)/(s*x**2)
699
                        xkern(1)=(g**2/N_p)*4*vcf*(1-x)*((1-x)**2+1)/(s*x**2)
1165
687
                        xkernazi=-(g**2/N_p)*16*vcf*(1-x)**2/(s*x**2)
700
                        xkern(2)=xkern(1)*(g_ew**2/g**2)*(qi2/vcf)
1166
701
                        xkernazi(1)=-(g**2/N_p)*16*vcf*(1-x)**2/(s*x**2)
1167
702
                        xkernazi(2)=xkernazi(1)*(g_ew**2/g**2)*(qi2/vcf)
1168
688
                     elseif(non_limit)then
703
                     elseif(non_limit)then
1169
689
                        xfact=(1-yi)*(1-x)/x
704
                        xfact=(1-yi)*(1-x)/x
1170
690
                        prefact=4/(s*N_p)
705
                        prefact=4/(s*N_p)
1171
691
                        call AP_reduced(m_type,i_type,one,z(npartner),ap)
706
                        call AP_reduced(m_type,i_type,one,z(npartner),ap)
1172
692
                        ap=ap/(1-z(npartner))
707
                        ap=ap/(1-z(npartner))
1174
693
                        xkern=prefact*xfact*xjac(npartner)*ap/xi(npartner)
708
                        xkern(1)=prefact*xfact*xjac(npartner)*ap/xi(npartner)
1175
709
                        xkern(2)=xkern(1)*(g_ew**2/g**2)*(qi2/vcf)
1176
694
                        call Qterms_reduced_spacelike(m_type,i_type,one,z(npartner),Q)
710
                        call Qterms_reduced_spacelike(m_type,i_type,one,z(npartner),Q)
1177
695
                        Q=Q/(1-z(npartner))
711
                        Q=Q/(1-z(npartner))
1179
696
                        xkernazi=prefact*xfact*xjac(npartner)*Q/xi(npartner)
712
                        xkernazi(1)=prefact*xfact*xjac(npartner)*Q/xi(npartner)
1180
713
                        xkernazi(2)=xkernazi(1)*(g_ew**2/g**2)*(qi2/vcf)
1181
697
                     endif
714
                     endif
1182
698
c
715
c
1183
699
                  elseif(ileg.eq.3)then
716
                  elseif(ileg.eq.3)then
1184
@@ -703,21 +720,24 @@
1185
703
                        prefact=2/(s*N_p)
720
                        prefact=2/(s*N_p)
1186
704
                        call AP_reduced(j_type,i_type,one,z(npartner),ap)
721
                        call AP_reduced(j_type,i_type,one,z(npartner),ap)
1187
705
                        ap=ap/(1-z(npartner))
722
                        ap=ap/(1-z(npartner))
1189
706
                        xkern=prefact*xfact*xjac(npartner)*ap/xi(npartner)
723
                        xkern(1)=prefact*xfact*xjac(npartner)*ap/xi(npartner)
1190
724
                        xkern(2)=xkern(1)*(g_ew**2/g**2)*(qi2/vcf)
1191
707
                     endif
725
                     endif
1192
708
c
726
c
1193
709
                  elseif(ileg.eq.4)then
727
                  elseif(ileg.eq.4)then
1194
710
                     N_p=1
728
                     N_p=1
1195
711
                     if(limit)then
729
                     if(limit)then
1199
712
                        xkern=(g**2/N_p)*
730
                        xkern(1)=(g**2/N_p)*
1200
713
     &                        ( 4*vcf*(1-x)*(s**2*(1-x)**2+(s-xm12)**2) )/
731
     &                       ( 4*vcf*(1-x)*(s**2*(1-x)**2+(s-xm12)**2) )/
1201
714
     &                        ( (s-xm12)*(s*x-xm12)**2 )
732
     &                       ( (s-xm12)*(s*x-xm12)**2 )
1202
733
                        xkern(2)=xkern(1)*(g_ew**2/g**2)*(qi2/vcf)
1203
715
                     elseif(non_limit)then
734
                     elseif(non_limit)then
1204
716
                        xfact=(2-(1-x)*(1-yj))/xij*(1-xm12/s)*(1-x)*(1-yj)
735
                        xfact=(2-(1-x)*(1-yj))/xij*(1-xm12/s)*(1-x)*(1-yj)
1205
717
                        prefact=2/(s*N_p)
736
                        prefact=2/(s*N_p)
1206
718
                        call AP_reduced(j_type,i_type,one,z(npartner),ap)
737
                        call AP_reduced(j_type,i_type,one,z(npartner),ap)
1207
719
                        ap=ap/(1-z(npartner))
738
                        ap=ap/(1-z(npartner))
1209
720
                        xkern=prefact*xfact*xjac(npartner)*ap/xi(npartner)
739
                        xkern(1)=prefact*xfact*xjac(npartner)*ap/xi(npartner)
1210
740
                        xkern(2)=xkern(1)*(g_ew**2/g**2)*(qi2/vcf)
1211
721
                     endif
741
                     endif
1212
722
                  endif
742
                  endif
1213
723
               elseif(i_type.eq.8)then
743
               elseif(i_type.eq.8)then
1214
@@ -726,13 +746,13 @@
1215
726
                  if(ileg.le.2)then
746
                  if(ileg.le.2)then
1216
727
                     N_p=1
747
                     N_p=1
1217
728
                     if(limit)then
748
                     if(limit)then
1219
729
                        xkern=(g**2/N_p)*4*vcf*(1+x**2)/(s*x)
749
                        xkern(1)=(g**2/N_p)*4*vcf*(1+x**2)/(s*x)
1220
730
                     elseif(non_limit)then
750
                     elseif(non_limit)then
1221
731
                        xfact=(1-yi)*(1-x)/x
751
                        xfact=(1-yi)*(1-x)/x
1222
732
                        prefact=4/(s*N_p)
752
                        prefact=4/(s*N_p)
1223
733
                        call AP_reduced(m_type,i_type,one,z(npartner),ap)
753
                        call AP_reduced(m_type,i_type,one,z(npartner),ap)
1224
734
                        ap=ap/(1-z(npartner))
754
                        ap=ap/(1-z(npartner))
1226
735
                        xkern=prefact*xfact*xjac(npartner)*ap/xi(npartner)
755
                        xkern(1)=prefact*xfact*xjac(npartner)*ap/xi(npartner)
1227
736
                     endif
756
                     endif
1228
737
c
757
c
1229
738
                  elseif(ileg.eq.3)then
758
                  elseif(ileg.eq.3)then
1230
@@ -750,13 +770,13 @@
1231
750
                           call AP_reduced_SUSY(j_type,i_type,one,z(npartner),ap)
770
                           call AP_reduced_SUSY(j_type,i_type,one,z(npartner),ap)
1232
751
                        endif
771
                        endif
1233
752
                        ap=ap/(1-z(npartner))
772
                        ap=ap/(1-z(npartner))
1235
753
                        xkern=prefact*xfact*xjac(npartner)*ap/xi(npartner)
773
                        xkern(1)=prefact*xfact*xjac(npartner)*ap/xi(npartner)
1236
754
                     endif
774
                     endif
1237
755
c
775
c
1238
756
                  elseif(ileg.eq.4)then
776
                  elseif(ileg.eq.4)then
1239
757
                     N_p=1
777
                     N_p=1
1240
758
                     if(limit)then
778
                     if(limit)then
1242
759
                        xkern=(g**2/N_p)*4*vcf*
779
                        xkern(1)=(g**2/N_p)*4*vcf*
1243
760
     &                        ( s**2*(1+x**2)-2*xm12*(s*(1+x)-xm12) )/
780
     &                        ( s**2*(1+x**2)-2*xm12*(s*(1+x)-xm12) )/
1244
761
     &                        ( s*(s-xm12)*(s*x-xm12) )
781
     &                        ( s*(s-xm12)*(s*x-xm12) )
1245
762
                     elseif(non_limit)then
782
                     elseif(non_limit)then
1246
@@ -764,7 +784,57 @@
1247
764
                        prefact=2/(s*N_p)
784
                        prefact=2/(s*N_p)
1248
765
                        call AP_reduced(j_type,i_type,one,z(npartner),ap)
785
                        call AP_reduced(j_type,i_type,one,z(npartner),ap)
1249
766
                        ap=ap/(1-z(npartner))
786
                        ap=ap/(1-z(npartner))
1251
767
                        xkern=prefact*xfact*xjac(npartner)*ap/xi(npartner)
787
                        xkern(1)=prefact*xfact*xjac(npartner)*ap/xi(npartner)
1252
788
                     endif
1253
789
                  endif
1254
790
               elseif(i_type.eq.0)then
1255
791
c q  --> q  a ( icode = 4 )
1256
792
c sq --> sq a
1257
793
                  if(ileg.le.2)then
1258
794
                     N_p=1
1259
795
                     if(limit)then
1260
796
                        xkern(2)=(g_ew**2/N_p)*4*qj2*(1+x**2)/(s*x)
1261
797
                     else
1262
798
                        xfact=(1-yi)*(1-x)/x
1263
799
                        prefact=4/(s*N_p)
1264
800
                        call AP_reduced(m_type,i_type,one,z(npartner),ap)
1265
801
                        ap=ap/(1-z(npartner))
1266
802
                        xkern(2)=prefact*xfact*xjac(npartner)*ap/xi(npartner)
1267
803
                        xkern(2)=xkern(2)*(g_ew**2/g**2)*(qj2/vcf)
1268
804
                     endif
1269
805
c
1270
806
                  elseif(ileg.eq.3)then
1271
807
                     N_p=1
1272
808
                     if(non_limit)then
1273
809
                        xfact=(2-(1-x)*(1-(kn0/kn)*yj))/kn*knbar*(1-x)*(1-yj)
1274
810
                        prefact=2/(s*N_p)
1275
811
                        if(abs(PDG_type(j_fks)).le.6)then
1276
812
                           if(shower_mc.ne.'HERWIGPP')
1277
813
     &                     call AP_reduced(j_type,i_type,one,z(npartner),ap)
1278
814
                           if(shower_mc.eq.'HERWIGPP')
1279
815
     &                     call AP_reduced_massive(j_type,i_type,one,z(npartner),
1280
816
     &                                                 xi(npartner),xm12,ap)
1281
817
                        else
1282
818
                           call AP_reduced_SUSY(j_type,i_type,one,z(npartner),ap)
1283
819
                        endif
1284
820
                        ap=ap/(1-z(npartner))
1285
821
                        xkern(2)=prefact*xfact*xjac(npartner)*ap/xi(npartner)
1286
822
                        xkern(2)=xkern(2)*(g_ew**2/g**2)*(qj2/vcf)
1287
823
                     endif
1288
824
c
1289
825
                  elseif(ileg.eq.4)then
1290
826
                     N_p=1
1291
827
                     if(limit)then
1292
828
                        xkern(2)=(g_ew**2/N_p)*4*qj2*
1293
829
     &                       ( s**2*(1+x**2)-2*xm12*(s*(1+x)-xm12) )/
1294
830
     &                       ( s*(s-xm12)*(s*x-xm12) )
1295
831
                     else
1296
832
                        xfact=(2-(1-x)*(1-yj))/xij*(1-xm12/s)*(1-x)*(1-yj)
1297
833
                        prefact=2/(s*N_p)
1298
834
                        call AP_reduced(j_type,i_type,one,z(npartner),ap)
1299
835
                        ap=ap/(1-z(npartner))
1300
836
                        xkern(2)=prefact*xfact*xjac(npartner)*ap/xi(npartner)
1301
837
                        xkern(2)=xkern(2)*(g_ew**2/g**2)*(qj2/vcf)
1302
768
                     endif
838
                     endif
1303
769
                  endif
839
                  endif
1304
770
               else
840
               else
1305
@@ -814,13 +884,16 @@
1306
814
884
1307
815
        born_red=0d0
885
        born_red=0d0
1308
816
        born_red_tilde=0d0
886
        born_red_tilde=0d0
1311
817
        xkern=xkern*gfactsf*wcc
887
        do i=1,2
1312
818
        xkernazi=xkernazi*gfactazi*gfactsf*wcc
888
           xkern(i)=xkern(i)*gfactsf*wcc
1313
889
           xkernazi(i)=xkernazi(i)*gfactazi*gfactsf*wcc
1314
890
        enddo
1315
819
        do cflows=1,colorflow(npartner,0)
891
        do cflows=1,colorflow(npartner,0)
1316
820
           born_red=born_red+bornbars(colorflow(npartner,cflows))
892
           born_red=born_red+bornbars(colorflow(npartner,cflows))
1317
821
           born_red_tilde=born_red_tilde+bornbarstilde(colorflow(npartner,cflows))
893
           born_red_tilde=born_red_tilde+bornbarstilde(colorflow(npartner,cflows))
1318
822
        enddo
894
        enddo
1320
823
        xmcxsec(npartner)=xkern*born_red+xkernazi*born_red_tilde
895
c Change here, to include also xkern(2)!
1321
896
        xmcxsec(npartner)=xkern(1)*born_red+xkernazi(1)*born_red_tilde
1322
824
        if(dampMCsubt)xmcxsec(npartner)=xmcxsec(npartner)*emscwgt(npartner)
897
        if(dampMCsubt)xmcxsec(npartner)=xmcxsec(npartner)*emscwgt(npartner)
1323
825
        wgt=wgt+xmcxsec(npartner)
898
        wgt=wgt+xmcxsec(npartner)
1324
826
899
1325
@@ -2650,6 +2723,7 @@
1326
2650
      zm3=(1-sqrt(1-4*xi/mdip_g**2))/2
2723
      zm3=(1-sqrt(1-4*xi/mdip_g**2))/2
1327
2651
2724
1328
2652
c Dead zones
2725
c Dead zones
1329
2726
c IMPLEMENT QED DZ's!
1330
2653
      if(shower_mc.eq.'HERWIG6')then
2727
      if(shower_mc.eq.'HERWIG6')then
1331
2654
         lzone=.false.
2728
         lzone=.false.
1332
2655
         if(ileg.le.2.and.z**2.ge.xi)lzone=.true.
2729
         if(ileg.le.2.and.z**2.ge.xi)lzone=.true.
1333
@@ -2713,3 +2787,38 @@
1334
2713
      lzone=.false.
2787
      lzone=.false.
1335
2714
      return
2788
      return
1336
2715
      end
2789
      end
1337
2790
1338
2791
1339
2792
1340
2793
      function charge(ipdg)
1341
2794
c computes the electric charge given the pdg code
1342
2795
      implicit none
1343
2796
      integer ipdg
1344
2797
      double precision charge,tmp,dipdg
1345
2798
1346
2799
      dipdg=dble(ipdg)
1347
2800
c quarks
1348
2801
      if(abs(dipdg).eq.1) tmp=-1d0/3d0*sign(1d0,dipdg)
1349
2802
      if(abs(dipdg).eq.2) tmp= 2d0/3d0*sign(1d0,dipdg)
1350
2803
      if(abs(dipdg).eq.3) tmp=-1d0/3d0*sign(1d0,dipdg)
1351
2804
      if(abs(dipdg).eq.4) tmp= 2d0/3d0*sign(1d0,dipdg)
1352
2805
      if(abs(dipdg).eq.5) tmp=-1d0/3d0*sign(1d0,dipdg)
1353
2806
      if(abs(dipdg).eq.6) tmp= 2d0/3d0*sign(1d0,dipdg)
1354
2807
c leptons
1355
2808
      if(abs(dipdg).eq.11)tmp=-1d0*sign(1d0,dipdg)
1356
2809
      if(abs(dipdg).eq.12)tmp= 0d0
1357
2810
      if(abs(dipdg).eq.13)tmp=-1d0*sign(1d0,dipdg)
1358
2811
      if(abs(dipdg).eq.14)tmp= 0d0
1359
2812
      if(abs(dipdg).eq.15)tmp=-1d0*sign(1d0,dipdg)
1360
2813
      if(abs(dipdg).eq.16)tmp= 0d0
1361
2814
c bosons
1362
2815
      if(dipdg.eq.21)     tmp= 0d0
1363
2816
      if(dipdg.eq.22)     tmp= 0d0
1364
2817
      if(dipdg.eq.23)     tmp= 0d0
1365
2818
      if(abs(dipdg).eq.24)tmp= 1d0*sign(1d0,dipdg)
1366
2819
      if(dipdg.eq.25)     tmp= 0d0
1367
2820
c
1368
2821
      charge=tmp
1369
2822
1370
2823
      return
1371
2824
      end
1372
2716
2825
1373
=== modified file 'Template/NLO/SubProcesses/setcuts.f'
1374
--- Template/NLO/SubProcesses/setcuts.f	2014-04-17 12:06:34 +0000
1375
+++ Template/NLO/SubProcesses/setcuts.f	2014-08-26 07:56:12 +0000
1376
@@ -409,7 +409,7 @@
1377
409
               if ( itree(1,i).eq.1 .or. itree(1,i).eq.2 ) t_channel=i
409
               if ( itree(1,i).eq.1 .or. itree(1,i).eq.2 ) t_channel=i
1378
410
               if (t_channel.ne.0) exit ! only s-channels
410
               if (t_channel.ne.0) exit ! only s-channels
1379
411
               mass_min(i)=mass_min(itree(1,i))+mass_min(itree(2,i))
411
               mass_min(i)=mass_min(itree(1,i))+mass_min(itree(2,i))
1381
412
               if (xm(i).lt.mass_min(i)) then
412
               if (xm(i).lt.mass_min(i)-vtiny) then
1382
413
                  write (*,*)
413
                  write (*,*)
1383
414
     $                 'ERROR in the determination of conflicting BW',i
414
     $                 'ERROR in the determination of conflicting BW',i
1384
415
     $                 ,xm(i),mass_min(i)
415
     $                 ,xm(i),mass_min(i)
1385
416
416
1386
=== modified file 'Template/NLO/SubProcesses/sumres.py'
1387
--- Template/NLO/SubProcesses/sumres.py	2013-12-12 13:33:17 +0000
1388
+++ Template/NLO/SubProcesses/sumres.py	2014-08-26 07:56:12 +0000
1389
@@ -65,8 +65,9 @@
1390
65
            tot+= proc['result']
65
            tot+= proc['result']
1391
66
            err+= math.pow(proc['error'],2)
66
            err+= math.pow(proc['error'],2)
1392
67
if dirs:
67
if dirs:
1394
68
    print "%d jobs did not terminate correctly " % len(dirs)
68
    print "%d jobs did not terminate correctly: " % len(dirs)
1395
69
    print '\n'.join(dirs)
69
    print '\n'.join(dirs)
1396
70
    print "The results are probably not correct. Please check the relevant log files corresponding to the above jobs for more information."
1397
70
71
1398
71
processes.sort(key = lambda proc: -proc['errorABS'])
72
processes.sort(key = lambda proc: -proc['errorABS'])
1399
72
73
1400
73
74
1401
=== modified file 'Template/loop_material/Checks/StabilityCheckDriver.f'
1402
--- Template/loop_material/Checks/StabilityCheckDriver.f	2012-11-09 19:55:19 +0000
1403
+++ Template/loop_material/Checks/StabilityCheckDriver.f	2014-08-26 07:56:12 +0000
1404
@@ -24,11 +24,23 @@
1405
24
!     
24
!     
1406
25
      INTEGER I,J,K
25
      INTEGER I,J,K
1407
26
      REAL*8 P(0:3,NEXTERNAL)   ! four momenta. Energy is the zeroth component.
26
      REAL*8 P(0:3,NEXTERNAL)   ! four momenta. Energy is the zeroth component.
1409
27
      REAL*8 SQRTS,MATELEM(3),BORNELEM,AO2PI           ! sqrt(s)= center of mass energy 
27
1410
28
      INTEGER MATELEM_ARRAY_DIM
1411
29
      REAL*8 , allocatable :: MATELEM(:,:)
1412
30
1413
31
      REAL*8 SQRTS,BORNELEM,AO2PI           ! sqrt(s)= center of mass energy 
1414
28
      REAL*8 PIN(0:3), POUT(0:3)
32
      REAL*8 PIN(0:3), POUT(0:3)
1415
29
      CHARACTER*120 BUFF(NEXTERNAL)
33
      CHARACTER*120 BUFF(NEXTERNAL)
1416
30
      CHARACTER*1 EX 
34
      CHARACTER*1 EX 
1417
31
      INTEGER HELCHOICE
35
      INTEGER HELCHOICE
1418
36
      INTEGER SOCHOICE
1419
37
1420
38
!
1421
39
!     SAVED VARIABLES
1422
40
!
1423
41
      LOGICAL INIT
1424
42
      DATA INIT/.TRUE./
1425
43
      COMMON/INITCHECKSA/INIT
1426
32
44
1427
33
!     
45
!     
1428
34
!     EXTERNAL
46
!     EXTERNAL
1429
@@ -41,15 +53,22 @@
1430
41
!-----
53
!-----
1431
42
!     
54
!     
1432
43
!---  INITIALIZATION CALLS
55
!---  INITIALIZATION CALLS
1434
44
!     
56
!    
1435
57
      IF (INIT) THEN
1436
58
         INIT=.FALSE.
1437
59
         CALL %(proc_prefix)sGET_ANSWER_DIMENSION(MATELEM_ARRAY_DIM)
1438
60
         ALLOCATE(MATELEM(0:3,0:MATELEM_ARRAY_DIM))
1439
61
1440
62
1441
45
!---  Call to initialize the values of the couplings, masses and widths 
63
!---  Call to initialize the values of the couplings, masses and widths 
1442
46
!     used in the evaluation of the matrix element. The primary parameters of the
64
!     used in the evaluation of the matrix element. The primary parameters of the
1443
47
!     models are read from Cards/param_card.dat. The secondary parameters are calculated
65
!     models are read from Cards/param_card.dat. The secondary parameters are calculated
1444
48
!     in Source/MODEL/couplings.f. The values are stored in common blocks that are listed
66
!     in Source/MODEL/couplings.f. The values are stored in common blocks that are listed
1445
49
!     in coupl.inc .
67
!     in coupl.inc .
1446
50
68
1448
51
      call setpara('param_card.dat')  !first call to setup the paramaters
69
          call setpara('param_card.dat')  !first call to setup the paramaters
1449
52
70
1450
71
      ENDIF
1451
53
      AO2PI=G**2/(8.D0*(3.14159265358979323846d0**2))
72
      AO2PI=G**2/(8.D0*(3.14159265358979323846d0**2))
1452
54
73
1453
55
74
1454
@@ -79,28 +98,35 @@
1455
79
        if (MU_R.lt.0.0d0) then
98
        if (MU_R.lt.0.0d0) then
1456
80
          MU_R=SQRTS            
99
          MU_R=SQRTS            
1457
81
        endif
100
        endif
1459
82
        write(*,*) "Enter Helicity tag, -1 = summed. For loops only."
101
        write(*,*) "Enter Helicity tag, -1 = summed."
1460
83
        read(*,*) HELCHOICE
102
        read(*,*) HELCHOICE
1461
103
        write(*,*) "Enter split_orders choice, -1 = all."
1462
104
        read(*,*) SOCHOICE
1463
105
        IF (SOCHOICE.NE.-1) THEN
1464
106
          CALL %(proc_prefix)sSET_COUPLINGORDERS_TARGET(SOCHOICE)
1465
107
        ENDIF
1466
84
!---  Update the couplings with the new MU_R
108
!---  Update the couplings with the new MU_R
1467
85
        CALL UPDATE_AS_PARAM()
109
        CALL UPDATE_AS_PARAM()
1468
86
!     
110
!     
1469
87
!     Now we can call the matrix element!
111
!     Now we can call the matrix element!
1470
88
!
112
!
1471
89
        CALL SMATRIX(P,BORNELEM) 
1472
90
        IF (HELCHOICE.EQ.-1) THEN
113
        IF (HELCHOICE.EQ.-1) THEN
1474
91
          CALL SLOOPMATRIX(P,MATELEM)
114
          CALL %(proc_prefix)sSLOOPMATRIX(P,MATELEM)
1475
92
        ELSE
115
        ELSE
1477
93
          CALL SLOOPMATRIXHEL(P,HELCHOICE,MATELEM)
116
          CALL %(proc_prefix)sSLOOPMATRIXHEL(P,HELCHOICE,MATELEM)
1478
94
        ENDIF
117
        ENDIF
1479
95
        write(*,*) '##TAG#RESULT_START#TAG##'
118
        write(*,*) '##TAG#RESULT_START#TAG##'
1480
96
        do i=1,nexternal      
119
        do i=1,nexternal      
1481
97
          write (*,'(a2,1x,5e25.15)') 'PS',P(0,i),P(1,i),P(2,i),P(3,i)
120
          write (*,'(a2,1x,5e25.15)') 'PS',P(0,i),P(1,i),P(2,i),P(3,i)
1482
98
        enddo
121
        enddo
1483
99
        write (*,'(a3,1x,i2)') 'EXP',-(2*nexternal-8)
122
        write (*,'(a3,1x,i2)') 'EXP',-(2*nexternal-8)
1488
100
        write (*,'(a4,1x,1e25.15)') 'BORN',BORNELEM
123
        write (*,'(a4,1x,1e25.15)') 'BORN',MATELEM(0,0)
1489
101
        write (*,'(a3,1x,1e25.15)') 'FIN',MATELEM(1)/BORNELEM/AO2PI
124
        write (*,'(a3,1x,1e25.15)') 'FIN',
1490
102
        write (*,'(a4,1x,1e25.15)') '1EPS',MATELEM(2)/BORNELEM/AO2PI
125
     &MATELEM(1,0)/MATELEM(0,0)/AO2PI
1491
103
        write (*,'(a4,1x,1e25.15)') '2EPS',MATELEM(3)/BORNELEM/AO2PI
126
        write (*,'(a4,1x,1e25.15)') '1EPS',
1492
127
     &MATELEM(2,0)/MATELEM(0,0)/AO2PI
1493
128
        write (*,'(a4,1x,1e25.15)') '2EPS',
1494
129
     &MATELEM(3,0)/MATELEM(0,0)/AO2PI
1495
104
        write (*,*) 'Export_Format Default'
130
        write (*,*) 'Export_Format Default'
1496
105
        write(*,*) '##TAG#RESULT_STOP#TAG##'      
131
        write(*,*) '##TAG#RESULT_STOP#TAG##'      
1497
106
      enddo
132
      enddo
1498
107
133
1499
=== modified file 'Template/loop_material/Checks/StabilityCheckDriver_loop_induced.f'
1500
--- Template/loop_material/Checks/StabilityCheckDriver_loop_induced.f	2012-11-09 19:55:19 +0000
1501
+++ Template/loop_material/Checks/StabilityCheckDriver_loop_induced.f	2014-08-26 07:56:12 +0000
1502
@@ -24,11 +24,22 @@
1503
24
!     
24
!     
1504
25
      INTEGER I,J,K
25
      INTEGER I,J,K
1505
26
      REAL*8 P(0:3,NEXTERNAL)   ! four momenta. Energy is the zeroth component.
26
      REAL*8 P(0:3,NEXTERNAL)   ! four momenta. Energy is the zeroth component.
1507
27
      REAL*8 SQRTS,MATELEM(3),BORNELEM,AO2PI           ! sqrt(s)= center of mass energy 
27
      
1508
28
      INTEGER MATELEM_ARRAY_DIM
1509
29
      REAL*8 , allocatable :: MATELEM(:,:)
1510
30
1511
31
      REAL*8 SQRTS,BORNELEM,AO2PI           ! sqrt(s)= center of mass energy 
1512
28
      REAL*8 PIN(0:3), POUT(0:3)
32
      REAL*8 PIN(0:3), POUT(0:3)
1513
29
      CHARACTER*120 BUFF(NEXTERNAL)
33
      CHARACTER*120 BUFF(NEXTERNAL)
1514
30
      CHARACTER*1 EX 
34
      CHARACTER*1 EX 
1516
31
      INTEGER HELCHOICE
35
      INTEGER HELCHOICE, SOCHOICE
1517
36
1518
37
!
1519
38
!     SAVED VARIABLES
1520
39
!
1521
40
      LOGICAL INIT
1522
41
      DATA INIT/.TRUE./
1523
42
      COMMON/INITCHECKSA/INIT
1524
32
43
1525
33
!     
44
!     
1526
34
!     EXTERNAL
45
!     EXTERNAL
1527
@@ -41,14 +52,22 @@
1528
41
!-----
52
!-----
1529
42
!     
53
!     
1530
43
!---  INITIALIZATION CALLS
54
!---  INITIALIZATION CALLS
1532
44
!     
55
!    
1533
56
1534
57
      IF (INIT) THEN
1535
58
         INIT=.FALSE.
1536
59
         CALL %(proc_prefix)sGET_ANSWER_DIMENSION(MATELEM_ARRAY_DIM)
1537
60
         ALLOCATE(MATELEM(0:3,0:MATELEM_ARRAY_DIM))
1538
61
1539
45
!---  Call to initialize the values of the couplings, masses and widths 
62
!---  Call to initialize the values of the couplings, masses and widths 
1540
46
!     used in the evaluation of the matrix element. The primary parameters of the
63
!     used in the evaluation of the matrix element. The primary parameters of the
1541
47
!     models are read from Cards/param_card.dat. The secondary parameters are calculated
64
!     models are read from Cards/param_card.dat. The secondary parameters are calculated
1542
48
!     in Source/MODEL/couplings.f. The values are stored in common blocks that are listed
65
!     in Source/MODEL/couplings.f. The values are stored in common blocks that are listed
1543
49
!     in coupl.inc .
66
!     in coupl.inc .
1544
50
67
1546
51
      call setpara('param_card.dat')  !first call to setup the paramaters
68
         call setpara('param_card.dat')  !first call to setup the paramaters
1547
69
1548
70
      ENDIF
1549
52
71
1550
53
      AO2PI=G**2/(8.D0*(3.14159265358979323846d0**2))
72
      AO2PI=G**2/(8.D0*(3.14159265358979323846d0**2))
1551
54
73
1552
@@ -81,15 +100,20 @@
1553
81
        endif
100
        endif
1554
82
        write(*,*) "Enter Helicity tag, -1 = summed. For loops only."
101
        write(*,*) "Enter Helicity tag, -1 = summed. For loops only."
1555
83
        read(*,*) HELCHOICE
102
        read(*,*) HELCHOICE
1556
103
        write(*,*) "Enter split_orders choice, -1 = all."
1557
104
        read(*,*) SOCHOICE
1558
105
        IF (SOCHOICE.NE.-1) THEN
1559
106
          CALL %(proc_prefix)sSET_COUPLINGORDERS_TARGET(SOCHOICE)
1560
107
        ENDIF
1561
84
!---  Update the couplings with the new MU_R
108
!---  Update the couplings with the new MU_R
1562
85
        CALL UPDATE_AS_PARAM()
109
        CALL UPDATE_AS_PARAM()
1563
86
!     
110
!     
1564
87
!     Now we can call the matrix element!
111
!     Now we can call the matrix element!
1565
88
!
112
!
1566
89
        IF (HELCHOICE.EQ.-1) THEN
113
        IF (HELCHOICE.EQ.-1) THEN
1568
90
          CALL SLOOPMATRIX(P,MATELEM)
114
          CALL %(proc_prefix)sSLOOPMATRIX(P,MATELEM)
1569
91
        ELSE
115
        ELSE
1571
92
          CALL SLOOPMATRIXHEL(P,HELCHOICE,MATELEM)
116
          CALL %(proc_prefix)sSLOOPMATRIXHEL(P,HELCHOICE,MATELEM)
1572
93
        ENDIF
117
        ENDIF
1573
94
        write(*,*) '##TAG#RESULT_START#TAG##'
118
        write(*,*) '##TAG#RESULT_START#TAG##'
1574
95
        do i=1,nexternal      
119
        do i=1,nexternal      
1575
@@ -97,7 +121,7 @@
1576
97
        enddo
121
        enddo
1577
98
        write (*,'(a3,1x,i2)') 'EXP',-(2*nexternal-8)
122
        write (*,'(a3,1x,i2)') 'EXP',-(2*nexternal-8)
1578
99
        write (*,'(a4,1x,1e25.15)') 'BORN',0.0d0
123
        write (*,'(a4,1x,1e25.15)') 'BORN',0.0d0
1580
100
        write (*,'(a3,1x,1e25.15)') 'FIN',MATELEM(1)
124
        write (*,'(a3,1x,1e25.15)') 'FIN',MATELEM(1,0)
1581
101
        write (*,'(a4,1x,1e25.15)') '1EPS',0.0d0
125
        write (*,'(a4,1x,1e25.15)') '1EPS',0.0d0
1582
102
        write (*,'(a4,1x,1e25.15)') '2EPS',0.0d0
126
        write (*,'(a4,1x,1e25.15)') '2EPS',0.0d0
1583
103
        write (*,*) 'Export_Format LoopInduced'
127
        write (*,*) 'Export_Format LoopInduced'
1584
104
128
1585
=== added directory 'Template/loop_material/StandAlone/Cards'
1586
=== removed directory 'Template/loop_material/StandAlone/Cards'
1587
=== renamed file 'Template/loop_material/StandAlone/Cards/MadLoopParams.dat' => 'Template/loop_material/StandAlone/Cards/MadLoopParams.dat'
1588
--- Template/loop_material/StandAlone/Cards/MadLoopParams.dat	2013-05-01 16:26:01 +0000
1589
+++ Template/loop_material/StandAlone/Cards/MadLoopParams.dat	2014-08-26 07:56:12 +0000
1590
@@ -2,6 +2,37 @@
1591
2
! The name of the variable to define must start with the '#' sign and then
2
! The name of the variable to define must start with the '#' sign and then
1592
3
! the value should be put immediately on the next line.
3
! the value should be put immediately on the next line.
1593
4
4
1594
5
!     
1595
6
#MLReductionLib
1596
7
1|4|3|2
1597
8
! Default :: 1|4|3|2
1598
9
!     The tensor integral reduction library.The current choices are:
1599
10
!     1 | CutTools
1600
11
!     2 | PJFry++
1601
12
!     3 | IREGI
1602
13
!     4 | Golem95
1603
14
!     One can use the combinations to reduce integral,e.g.
1604
15
!     1|2|3 means first use CutTools, if it is not stable, use PJFry++, 
1605
16
!     if it is still unstable, use IREGI. If it failed, use QP of CutTools.
1606
17
!  
1607
18
1608
19
!     =================================================================================
1609
20
!     The parameters below set the parameters for IREGI
1610
21
!     =================================================================================
1611
22
1612
23
#IREGIMODE
1613
24
2
1614
25
! Default :: 2
1615
26
!     IMODE=0, IBP reduction
1616
27
!     IMODE=1, PaVe reduction
1617
28
!     IMODE=2, PaVe reduction with stablility improved by IBP reduction
1618
29
1619
30
#IREGIRECY
1620
31
.TRUE.
1621
32
! Default :: .TRUE.
1622
33
!     Use RECYCLING OR NOT IN IREGI
1623
34
!
1624
35
1625
5
!     =================================================================================
36
!     =================================================================================
1626
6
!     The parameters below set the stability checks of MadLoop at run time
37
!     The parameters below set the stability checks of MadLoop at run time
1627
7
!     =================================================================================
38
!     =================================================================================
1628
@@ -78,9 +109,10 @@
1629
78
!     The parameters below set two CutTools internal parameters accessible to the user. 
109
!     The parameters below set two CutTools internal parameters accessible to the user. 
1630
79
!     =================================================================================
110
!     =================================================================================
1631
80
111
1633
81
!     Choose here what library to chose for CutTools to compute the scalar loops of the
112
!     Choose here what library to chose for CutTools/TIR to compute the scalar loops of the
1634
82
!     master integral basis. The choices are as follows:
113
!     master integral basis. The choices are as follows:
1636
83
!     2 | AVH
114
!     (Does not apply for Golem95, where OneLOop is always used)
1637
115
!     2 | OneLOop
1638
84
!     3 | QCDLoop
116
!     3 | QCDLoop
1639
85
#CTLoopLibrary
117
#CTLoopLibrary
1640
86
2
118
2
1641
@@ -131,6 +163,13 @@
1642
131
1.0d-9
163
1.0d-9
1643
132
! Default :: 1.0d-9
164
! Default :: 1.0d-9
1644
133
165
1645
166
!     Setting the on-shell threshold for deciding whether the invariant variables
1646
167
! of external momenta are on-shell or not. It will only be used in constructing
1647
168
! s-matrix in Golem95.
1648
169
#OSThres
1649
170
1.0d-8
1650
171
! Default :: 1.0d-8
1651
172
1652
134
!     The setting below is recommended to be on as it allows to systematically used the 
173
!     The setting below is recommended to be on as it allows to systematically used the 
1653
135
!     first PS point thrown at ML5 to be used for making sure that the helicity filter
174
!     first PS point thrown at ML5 to be used for making sure that the helicity filter
1654
136
!     read from HelFilter.dat is consistent as it might be no longer up to date with
175
!     read from HelFilter.dat is consistent as it might be no longer up to date with
1655
@@ -139,6 +178,14 @@
1656
139
.TRUE.
178
.TRUE.
1657
140
! Default :: .TRUE.
179
! Default :: .TRUE.
1658
141
180
1659
181
!     This decides whether to write out the helicity and loop filters to the files 
1660
182
!     HelFilters.dat and LoopFilters.dat to save them for future runs. It usually
1661
183
!     preferable but sometimes not desired because of the need of threadlocks in the
1662
184
!     context of mpi parallelization. So it can be turned off here in such cases.
1663
185
#WriteOutFilters
1664
186
.TRUE.
1665
187
! Default :: .TRUE.
1666
188
1667
142
!     Some loop contributions may be zero for some helicities which are however
189
!     Some loop contributions may be zero for some helicities which are however
1668
143
!     contributing. In order to save their computing time, you can chose here to try
190
!     contributing. In order to save their computing time, you can chose here to try
1669
144
!     to filter them out. The gain is typically minimal, so it is turned off by default.
191
!     to filter them out. The gain is typically minimal, so it is turned off by default.
1670
@@ -146,7 +193,7 @@
1671
146
.FALSE.
193
.FALSE.
1672
147
! Default :: .FALSE.
194
! Default :: .FALSE.
1673
148
195
1675
149
!     This decides wether consecutive consistency for the loop filtering setup is also 
196
!     This decides whether consecutive consistency for the loop filtering setup is also 
1676
150
!     required.
197
!     required.
1677
151
#LoopInitStartOver
198
#LoopInitStartOver
1678
152
.FALSE.
199
.FALSE.
1679
153
200
1680
=== added directory 'Template/loop_material/StandAlone/SubProcesses/MadLoop5_resources'
1681
=== added file 'Template/loop_material/StandAlone/SubProcesses/MadLoopCommons.f'
1682
--- Template/loop_material/StandAlone/SubProcesses/MadLoopCommons.f	1970-01-01 00:00:00 +0000
1683
+++ Template/loop_material/StandAlone/SubProcesses/MadLoopCommons.f	2014-08-26 07:56:12 +0000
1684
@@ -0,0 +1,341 @@
1685
1
      subroutine joinPath(str1,str2,path)
1686
2
1687
3
      character*(*) str1
1688
4
      character*(*) str2
1689
5
      character*(*) path
1690
6
1691
7
      integer i,j,k
1692
8
1693
9
      i =1
1694
10
      do while (i.le.LEN(str1))
1695
11
      if(str1(i:i).eq.' ') goto 800     
1696
12
      path(i:i) = str1(i:i)
1697
13
      i=i+1
1698
14
      enddo
1699
15
800   continue
1700
16
      j=1
1701
17
      do while (j.le.LEN(str2))
1702
18
      if(str2(j:j).eq.' ') goto 801
1703
19
      path(i-1+j:i-1+j) = str2(j:j)
1704
20
      j=j+1
1705
21
      enddo
1706
22
801   continue
1707
23
      k=i+j-1
1708
24
      do while (k.le.LEN(path))
1709
25
      path(k:k) = ' '
1710
26
      k=k+1
1711
27
      enddo
1712
28
1713
29
      return
1714
30
1715
31
      end
1716
32
1717
33
      subroutine setMadLoopPath(path)
1718
34
1719
35
      character(512) path
1720
36
      character(512) dummy      
1721
37
1722
38
      character(512) prefix,fpath
1723
39
      character(17) nameToCheck
1724
40
      parameter (nameToCheck='MadLoopParams.dat')
1725
41
1726
42
      LOGICAL ML_INIT
1727
43
      DATA ML_INIT/.TRUE./
1728
44
      common/ML_INIT/ML_INIT
1729
45
1730
46
      LOGICAL CTINIT,TIRINIT,GOLEMINIT
1731
47
      DATA CTINIT,TIRINIT,GOLEMINIT/.TRUE.,.TRUE.,.TRUE./
1732
48
      COMMON/REDUCTIONCODEINIT/CTINIT, TIRINIT, GOLEMINIT
1733
49
1734
50
      character(512) MLPath
1735
51
      data MLPath/'[[NA]]'/      
1736
52
      common/MLPATH/MLPath
1737
53
1738
54
      integer i
1739
55
1740
56
C     Just a dummy call for LD to pick up this function
1741
57
C     when creating the BLHA2 dynamic library
1742
58
      dummy = ' '
1743
59
      CALL SETPARA2(dummy)
1744
60
1745
61
      if (LEN(path).ge.4 .and. path(1:4).eq.'auto') then
1746
62
          if (MLPath(1:6).eq.'[[NA]]') then
1747
63
C     Try to automatically find the path
1748
64
          prefix='./'
1749
65
          call joinPath(prefix,nameToCheck,fpath)
1750
66
          OPEN(1, FILE=fpath, ERR=1, STATUS='OLD',      
1751
67
     $    ACTION='READ')
1752
68
          MLPath=prefix
1753
69
          goto 10
1754
70
1         continue
1755
71
          close(1)
1756
72
          prefix='./MadLoop5_resources/'
1757
73
          call joinPath(prefix,nameToCheck,fpath)
1758
74
          OPEN(1, FILE=fpath, ERR=2, STATUS='OLD',      
1759
75
     $    ACTION='READ')
1760
76
          MLPath=prefix
1761
77
          goto 10
1762
78
2         continue
1763
79
          close(1)
1764
80
          prefix='../MadLoop5_resources/'
1765
81
          call joinPath(prefix,nameToCheck,fpath)
1766
82
          OPEN(1, FILE=fpath, ERR=66, STATUS='OLD',      
1767
83
     $    ACTION='READ')
1768
84
          MLPath=prefix
1769
85
          goto 10
1770
86
66        continue
1771
87
          close(1)
1772
88
c     We could not automatically find the auxiliary files
1773
89
          write(*,*) '==='
1774
90
          write(*,*) 'ERROR: MadLoop5 could not automatically find',
1775
91
     $    ' the file MadLoopParams.dat.'
1776
92
          write(*,*) '==='
1777
93
          write(*,*) '(Try using <CALL setMadLoopPath(/my/path)>',
1778
94
     $    ' (before your first call to MadLoop) in order to',
1779
95
     $    ' set the directory where this file is located as well as',
1780
96
     $    ' other auxiliary files, such as <xxx>_ColorNumFactors.dat',
1781
97
     $    ', <xxx>_ColorDenomFactors.dat, etc..)'
1782
98
          stop
1783
99
10        continue
1784
100
          close(1)
1785
101
          return
1786
102
          endif
1787
103
      else
1788
104
C     Use the one specified by the user
1789
105
C     Make sure there is a separator added
1790
106
      i =1
1791
107
      do while (i.le.LEN(path) .and. path(i:i).ne.' ')
1792
108
      i=i+1
1793
109
      enddo
1794
110
      if (path(i-1:i-1).ne.'/') then
1795
111
          path(i:i) = '/'
1796
112
      endif
1797
113
      MLpath=path          
1798
114
      endif
1799
115
1800
116
C     Check that the FilePath set is correct
1801
117
      call joinPath(MLPath,nameToCheck,fpath)
1802
118
      OPEN(1, FILE=fpath, ERR=3, STATUS='OLD',      
1803
119
     $ACTION='READ')
1804
120
      goto 11
1805
121
3     continue
1806
122
      close(1)
1807
123
      write(*,*) '==='
1808
124
      write(*,*) 'ERROR: The MadLoop5 auxiliary files could not',
1809
125
     $' be found in ',MLPath
1810
126
      write(*,*) '==='
1811
127
      stop
1812
128
11    continue
1813
129
      close(1)
1814
130
1815
131
      end
1816
132
1817
133
      INTEGER FUNCTION SET_RET_CODE_U(MLRed,DOING_QP,STABLE)
1818
134
C
1819
135
C This functions returns the value of U
1820
136
C
1821
137
C
1822
138
C     U == 0
1823
139
C         Not stable.
1824
140
C     U == 1
1825
141
C         Stable with CutTools in double precision.
1826
142
C     U == 2
1827
143
C         Stable with PJFry++.
1828
144
C     U == 3
1829
145
C         Stable with IREGI.
1830
146
C     U == 4
1831
147
C         Stable with Golem95
1832
148
C     U == 9
1833
149
C         Stable with CutTools in quadruple precision.
1834
150
C
1835
151
      IMPLICIT NONE
1836
152
C     
1837
153
C CONSTANTS
1838
154
C
1839
155
C
1840
156
C ARGUMENTS
1841
157
C
1842
158
      INTEGER MLRed
1843
159
      LOGICAL DOING_QP,STABLE
1844
160
C
1845
161
C LOCAL VARIABLES
1846
162
C
1847
163
C
1848
164
C FUNCTION
1849
165
C
1850
166
C
1851
167
C BEGIN CODE
1852
168
C
1853
169
      IF(.NOT.STABLE)THEN
1854
170
         SET_RET_CODE_U=0
1855
171
         RETURN
1856
172
      ENDIF
1857
173
      IF(DOING_QP)THEN
1858
174
         IF(MLRed.EQ.1)THEN
1859
175
            SET_RET_CODE_U=9
1860
176
            RETURN
1861
177
         ELSE
1862
178
            STOP 'Only CutTools can use quardruple precision'
1863
179
         ENDIF
1864
180
      ENDIF
1865
181
      IF(MLRed.GE.1.AND.MLRed.LE.4)THEN
1866
182
         SET_RET_CODE_U=MLRed
1867
183
      ELSE
1868
184
         STOP 'Only CutTools,PJFry++,IREGI,Golem95 are available'
1869
185
      ENDIF
1870
186
      END
1871
187
1872
188
      SUBROUTINE DETECT_LOOPLIB(LIBNUM,NLOOPLINE,RANK,complex_mass,
1873
189
     $     LPASS)
1874
190
C
1875
191
C DETECT WHICH LOOP LIB PASSED
1876
192
C
1877
193
      IMPLICIT NONE
1878
194
C
1879
195
C CONSTANTS
1880
196
C
1881
197
C
1882
198
C ARGUMENTS
1883
199
C
1884
200
      INTEGER LIBNUM,NLOOPLINE,RANK
1885
201
      LOGICAL complex_mass,LPASS
1886
202
C     
1887
203
C LOCAL VARIABLES
1888
204
C
1889
205
C
1890
206
C GLOBAL VARIABLES
1891
207
C
1892
208
C ----------
1893
209
C BEGIN CODE
1894
210
C ----------
1895
211
      IF(LIBNUM.EQ.1)THEN
1896
212
C CutTools
1897
213
         CALL DETECT_CUTTOOLS(NLOOPLINE,RANK,complex_mass,LPASS)
1898
214
      ELSEIF(LIBNUM.EQ.2)THEN
1899
215
C PJFry++
1900
216
         CALL DETECT_PJFRY(NLOOPLINE,RANK,complex_mass,LPASS)
1901
217
      ELSEIF(LIBNUM.EQ.3)THEN
1902
218
C IREGI
1903
219
         CALL DETECT_IREGI(NLOOPLINE,RANK,complex_mass,LPASS)
1904
220
      ELSEIF(LIBNUM.EQ.4)THEN
1905
221
C Golem95
1906
222
         CALL DETECT_GOLEM(NLOOPLINE,RANK,complex_mass,LPASS)
1907
223
      ELSE
1908
224
         STOP 'ONLY CUTTOOLS,PJFry++,IREGI,Golem95 are provided'
1909
225
      ENDIF
1910
226
      RETURN
1911
227
      END
1912
228
1913
229
      SUBROUTINE DETECT_CUTTOOLS(NLOOPLINE,RANK,complex_mass,LPASS)
1914
230
C
1915
231
C DETECT THE CUTTOOLS CAN BE USED OR NOT
1916
232
C
1917
233
      IMPLICIT NONE
1918
234
C
1919
235
C CONSTANTS
1920
236
C
1921
237
C
1922
238
C ARGUMENTS
1923
239
C
1924
240
      INTEGER NLOOPLINE,RANK
1925
241
      LOGICAL complex_mass,LPASS
1926
242
C
1927
243
C LOCAL VARIABLES
1928
244
C
1929
245
C
1930
246
C GLOBAL VARIABLES
1931
247
C
1932
248
C ----------
1933
249
C BEGIN CODE
1934
250
C ----------
1935
251
      LPASS=.TRUE.
1936
252
      IF(NLOOPLINE+1.LT.RANK)LPASS=.FALSE.
1937
253
      RETURN
1938
254
      END
1939
255
1940
256
      SUBROUTINE DETECT_PJFRY(NLOOPLINE,RANK,complex_mass,LPASS)
1941
257
C
1942
258
C DETECT THE PJFRY++ CAN BE USED OR NOT
1943
259
C
1944
260
      IMPLICIT NONE
1945
261
C
1946
262
C CONSTANTS
1947
263
C
1948
264
C
1949
265
C ARGUMENTS
1950
266
C
1951
267
      INTEGER NLOOPLINE,RANK
1952
268
      LOGICAL complex_mass,LPASS
1953
269
C
1954
270
C LOCAL VARIABLES
1955
271
C
1956
272
C
1957
273
C GLOBAL VARIABLES
1958
274
C
1959
275
C ----------
1960
276
C BEGIN CODE
1961
277
C ----------
1962
278
      LPASS=.TRUE.
1963
279
      IF(NLOOPLINE.LT.RANK.OR.RANK.GT.5
1964
280
     $.OR.NLOOPLINE.GT.5.OR.complex_mass.OR.NLOOPLINE.eq.1) THEN
1965
281
        LPASS=.FALSE.
1966
282
      ENDIF
1967
283
      RETURN
1968
284
      END
1969
285
1970
286
      SUBROUTINE DETECT_IREGI(NLOOPLINE,RANK,complex_mass,LPASS)
1971
287
C     
1972
288
C DETECT THE IREGI CAN BE USED OR NOT
1973
289
C
1974
290
      IMPLICIT NONE
1975
291
C
1976
292
C CONSTANTS
1977
293
C
1978
294
C
1979
295
C ARGUMENTS
1980
296
C
1981
297
      INTEGER NLOOPLINE,RANK
1982
298
      LOGICAL complex_mass,LPASS
1983
299
C     
1984
300
C LOCAL VARIABLES
1985
301
C
1986
302
C
1987
303
C GLOBAL VARIABLES
1988
304
C
1989
305
C ----------
1990
306
C BEGIN CODE
1991
307
C ----------
1992
308
      LPASS=.TRUE.
1993
309
      IF(NLOOPLINE.GE.7.OR.RANK.GE.7)LPASS=.FALSE.
1994
310
      RETURN
1995
311
      END
1996
312
1997
313
      SUBROUTINE DETECT_GOLEM(NLOOPLINE,RANK,complex_mass,LPASS)
1998
314
C
1999
315
C DETECT THE Golem95 CAN BE USED OR NOT
2000
316
C
2001
317
            IMPLICIT NONE
2002
318
C
2003
319
C CONSTANTS
2004
320
C
2005
321
C
2006
322
C ARGUMENTS
2007
323
C
2008
324
            INTEGER NLOOPLINE,RANK
2009
325
            LOGICAL complex_mass,LPASS
2010
326
C
2011
327
C LOCAL VARIABLES
2012
328
C
2013
329
C
2014
330
C GLOBAL VARIABLES
2015
331
C
2016
332
C ----------
2017
333
C BEGIN CODE
2018
334
C ----------
2019
335
2020
336
      LPASS=.TRUE.
2021
337
      IF(NLOOPLINE.GE.7.OR.RANK.GE.7.OR.NLOOPLINE.LE.1)LPASS=.FALSE.
2022
338
      IF(NLOOPLINE.LE.5.AND.RANK.GT.NLOOPLINE+1)LPASS=.FALSE.
2023
339
      IF(NLOOPLINE.EQ.6.AND.RANK.GT.NLOOPLINE)LPASS=.FALSE.
2024
340
      RETURN
2025
341
      END
2026
0
342
2027
=== modified file 'Template/loop_material/StandAlone/SubProcesses/MadLoopParamReader.f'
2028
--- Template/loop_material/StandAlone/SubProcesses/MadLoopParamReader.f	2013-05-01 16:26:01 +0000
2029
+++ Template/loop_material/StandAlone/SubProcesses/MadLoopParamReader.f	2014-08-26 07:56:12 +0000
2030
@@ -2,10 +2,14 @@
2031
2
2
2032
3
      implicit none
3
      implicit none
2033
4
4
2035
5
      CHARACTER*64 fileName, buff, buff2, mode
5
      CHARACTER(512) fileName, buff, buff2, mode
2036
6
      CHARACTER*10 MLReductionLib_str,MLReductionLib_str_save
2037
7
      CHARACTER*2  MLReductionLib_char
2038
8
      INTEGER MLRed,i,j,k
2039
9
2040
6
      include "MadLoopParams.inc"
10
      include "MadLoopParams.inc"
2041
7
11
2043
8
      logical printParam, couldRead, paramPrinted
12
      logical printParam, couldRead, paramPrinted, find
2044
9
      data paramPrinted/.FALSE./
13
      data paramPrinted/.FALSE./
2045
10
      couldRead=.False.
14
      couldRead=.False.
2046
11
!     Default parameters
15
!     Default parameters
2047
@@ -68,6 +72,12 @@
2048
68
                 stop 'ZeroThres must be > 0'
72
                 stop 'ZeroThres must be > 0'
2049
69
             endif
73
             endif
2050
70
74
2051
75
           else if (buff .eq. '#OSThres') then
2052
76
              read(666,*,end=999) OSThres
2053
77
              if (OSThres.le.0.0d0) then
2054
78
                 stop 'OSThres must be > 0'
2055
79
              endif
2056
80
2057
71
           else if (buff .eq. '#CheckCycle') then
81
           else if (buff .eq. '#CheckCycle') then
2058
72
             read(666,*,end=999) CheckCycle
82
             read(666,*,end=999) CheckCycle
2059
73
             if (CheckCycle.lt.1) then
83
             if (CheckCycle.lt.1) then
2060
@@ -92,13 +102,65 @@
2061
92
          else if (buff .eq. '#HelInitStartOver') then
102
          else if (buff .eq. '#HelInitStartOver') then
2062
93
             read(666,*,end=999) HelInitStartOver
103
             read(666,*,end=999) HelInitStartOver
2063
94
104
2064
105
          else if (buff .eq. '#WriteOutFilters') then
2065
106
             read(666,*,end=999) WriteOutFilters
2066
107
2067
95
          else if (buff .eq. '#ImprovePSPoint') then
108
          else if (buff .eq. '#ImprovePSPoint') then
2068
96
             read(666,*,end=999) ImprovePSPoint
109
             read(666,*,end=999) ImprovePSPoint
2069
97
             if (ImprovePSPoint .lt. -1 .or.
110
             if (ImprovePSPoint .lt. -1 .or.
2070
98
     &           ImprovePSPoint .gt. 2 ) then
111
     &           ImprovePSPoint .gt. 2 ) then
2071
99
               stop 'ImprovePSPoint must be >= -1 and <=2.'
112
               stop 'ImprovePSPoint must be >= -1 and <=2.'
2072
100
             endif
113
             endif
2074
101
114
          else if (buff .eq. '#MLReductionLib') then
2075
115
             read(666,*,end=999) MLReductionLib_str
2076
116
             MLReductionLib(1:5)=0
2077
117
             MLReductionLib_str_save=MLReductionLib_str
2078
118
             j=0
2079
119
             DO
2080
120
                i=index(MLReductionLib_str,'|')
2081
121
                IF(i.EQ.0)THEN
2082
122
                   MLReductionLib_char=MLReductionLib_str
2083
123
                ELSE
2084
124
                   MLReductionLib_char=MLReductionLib_str(:i-1)
2085
125
                ENDIF
2086
126
                IF(MLReductionLib_char.EQ.'1 ')THEN
2087
127
                   MLRed=1
2088
128
                ELSEIF(MLReductionLib_char.EQ.'2 ')THEN
2089
129
                   MLRed=2
2090
130
                ELSEIF(MLReductionLib_char.EQ.'3 ')THEN
2091
131
                   MLRed=3
2092
132
                ELSEIF(MLReductionLib_char.EQ.'4 ')THEN
2093
133
                   MLRed=4
2094
134
                ELSE
2095
135
                   PRINT *, 'MLReductionLib is wrong: '//
2096
136
     $                  TRIM(MLReductionLib_str_save)
2097
137
                   STOP
2098
138
                ENDIF
2099
139
                find=.FALSE.
2100
140
                DO k=1,j
2101
141
                   IF(MLReductionLib(k).EQ.MLRed)THEN
2102
142
                      find=.TRUE.
2103
143
                      EXIT
2104
144
                   ENDIF
2105
145
                ENDDO
2106
146
                IF(.NOT.find)THEN
2107
147
                   j=j+1
2108
148
                   MLReductionLib(j)=MLRed
2109
149
                ENDIF
2110
150
                IF(i.EQ.0)THEN
2111
151
                   EXIT
2112
152
                ELSE
2113
153
                   MLReductionLib_str=MLReductionLib_str(i+1:)
2114
154
                ENDIF
2115
155
             ENDDO
2116
156
          else if (buff .eq. '#IREGIRECY') then
2117
157
             read(666,*,end=999) IREGIRECY
2118
158
          else if (buff .eq. '#IREGIMODE') then
2119
159
             read(666,*,end=999) IREGIMODE
2120
160
             if (IREGIMODE .lt. 0 .or.
2121
161
     &            IREGIMODE .gt.2) then
2122
162
                stop 'IREGIMODE must be >=0 and <=2.'
2123
163
             endif
2124
102
          else
164
          else
2125
103
             write(*,*) 'The parameter name ',buff(2:),
165
             write(*,*) 'The parameter name ',buff(2:),
2126
104
     &' is not reckognized.'
166
     &' is not reckognized.'
2127
@@ -136,6 +198,10 @@
2128
136
      endif
198
      endif
2129
137
      write(*,*)
199
      write(*,*)
2130
138
     & '==============================================================='
200
     & '==============================================================='
2131
201
      write(*,*) ' > MLReductionLib            = '
2132
202
     $     //TRIM(MLReductionLib_str_save)
2133
203
      write(*,*) ' > IREGIMODE                 = ',IREGIMODE
2134
204
      write(*,*) ' > IREGIRECY                 = ',IREGIRECY
2135
139
      write(*,*) ' > CTModeRun                 = ',CTModeRun
205
      write(*,*) ' > CTModeRun                 = ',CTModeRun
2136
140
      write(*,*) ' > MLStabThres               = ',MLStabThres
206
      write(*,*) ' > MLStabThres               = ',MLStabThres
2137
141
      write(*,*) ' > NRotations_DP             = ',NRotations_DP
207
      write(*,*) ' > NRotations_DP             = ',NRotations_DP
2138
@@ -152,6 +218,8 @@
2139
152
      write(*,*) ' > LoopInitStartOver         = ',LoopInitStartOver
218
      write(*,*) ' > LoopInitStartOver         = ',LoopInitStartOver
2140
153
      write(*,*) ' > HelInitStartOver          = ',HelInitStartOver
219
      write(*,*) ' > HelInitStartOver          = ',HelInitStartOver
2141
154
      write(*,*) ' > ZeroThres                 = ',ZeroThres
220
      write(*,*) ' > ZeroThres                 = ',ZeroThres
2142
221
      write(*,*) ' > OSThres                   = ',OSThres
2143
222
      write(*,*) ' > WriteOutFilters           = ',WriteOutFilters      
2144
155
      write(*,*)
223
      write(*,*)
2145
156
     & '==============================================================='
224
     & '==============================================================='
2146
157
      paramPrinted=.TRUE.
225
      paramPrinted=.TRUE.
2147
@@ -167,6 +235,10 @@
2148
167
      
235
      
2149
168
      include "MadLoopParams.inc"
236
      include "MadLoopParams.inc"
2150
169
237
2151
238
      MLReductionLib(1)=1
2152
239
      MLReductionLib(2:5)=0
2153
240
      IREGIMODE=2
2154
241
      IREGIRECY=.TRUE.
2155
170
      CTModeInit=0
242
      CTModeInit=0
2156
171
      CTModeRun=-1
243
      CTModeRun=-1
2157
172
      NRotations_DP=1
244
      NRotations_DP=1
2158
@@ -180,7 +252,9 @@
2159
180
      DoubleCheckHelicityFilter=.True.
252
      DoubleCheckHelicityFilter=.True.
2160
181
      LoopInitStartOver=.False.
253
      LoopInitStartOver=.False.
2161
182
      HelInitStartOver=.False.
254
      HelInitStartOver=.False.
2162
255
      WriteOutFilters=.True.
2163
183
      ZeroThres=1.0d-9
256
      ZeroThres=1.0d-9
2164
257
      OSThres=1.0d-13
2165
184
      ImprovePSPoint=2
258
      ImprovePSPoint=2
2166
185
259
2167
186
      end
260
      end
2168
187
261
2169
=== modified file 'Template/loop_material/StandAlone/SubProcesses/MadLoopParams.inc'
2170
--- Template/loop_material/StandAlone/SubProcesses/MadLoopParams.inc	2013-05-01 16:26:01 +0000
2171
+++ Template/loop_material/StandAlone/SubProcesses/MadLoopParams.inc	2014-08-26 07:56:12 +0000
2172
@@ -6,14 +6,16 @@
2173
6
!====================================================================
6
!====================================================================
2174
7
!
7
!
2175
8
	  integer CTModeInit,CTModeRun,CheckCycle,MaxAttempts,
8
	  integer CTModeInit,CTModeRun,CheckCycle,MaxAttempts,
2177
9
     &CTLoopLibrary,NRotations_DP,NRotations_QP,ImprovePSPoint
9
     &CTLoopLibrary,NRotations_DP,NRotations_QP,ImprovePSPoint,
2178
10
     &MLReductionLib(5),IREGIMODE
2179
10
11
2181
11
      real*8 MLStabThres,CTStabThres,ZeroThres
12
      real*8 MLStabThres,CTStabThres,ZeroThres,OSThres
2182
12
13
2183
13
      logical UseLoopFilter,LoopInitStartOver,DoubleCheckHelicityFilter
14
      logical UseLoopFilter,LoopInitStartOver,DoubleCheckHelicityFilter
2185
14
	  logical HelInitStartOver
15
	  logical HelInitStartOver,IREGIRECY,WriteOutFilters
2186
15
16
2187
16
      common /MADLOOP/CTModeInit,CTModeRun,NRotations_DP,NRotations_QP,
17
      common /MADLOOP/CTModeInit,CTModeRun,NRotations_DP,NRotations_QP,
2188
17
     &ImprovePSPoint,CheckCycle, MaxAttempts,UseLoopFilter,MLStabThres,
18
     &ImprovePSPoint,CheckCycle, MaxAttempts,UseLoopFilter,MLStabThres,
2189
18
     &CTStabThres,CTLoopLibrary,LoopInitStartOver,
19
     &CTStabThres,CTLoopLibrary,LoopInitStartOver,
2191
19
     &DoubleCheckHelicityFilter,ZeroThres,HelInitStartOver
20
     &DoubleCheckHelicityFilter,ZeroThres,OSThres,HelInitStartOver,
2192
21
     &MLReductionLib,IREGIMODE,IREGIRECY,WriteOutFilters
2193
20
22
2194
=== removed file 'Template/loop_material/StandAlone/SubProcesses/check_sa.f'
2195
--- Template/loop_material/StandAlone/SubProcesses/check_sa.f	2013-12-13 07:04:16 +0000
2196
+++ Template/loop_material/StandAlone/SubProcesses/check_sa.f	1970-01-01 00:00:00 +0000
2197
@@ -1,583 +0,0 @@
2198
1
      PROGRAM DRIVER
2199
2
!**************************************************************************
2200
3
!     THIS IS THE DRIVER FOR CHECKING THE STANDALONE MATRIX ELEMENT.
2201
4
!     IT USES A SIMPLE PHASE SPACE GENERATOR
2202
5
!     Fabio Maltoni - 3rd Febraury 2007
2203
6
!**************************************************************************
2204
7
      IMPLICIT NONE
2205
8
!     
2206
9
!     CONSTANTS  
2207
10
!     
2208
11
      REAL*8 ZERO
2209
12
      PARAMETER (ZERO=0D0)
2210
13
2211
14
      LOGICAL READPS
2212
15
      PARAMETER (READPS = .FALSE.)
2213
16
2214
17
      INTEGER NPSPOINTS
2215
18
      PARAMETER (NPSPOINTS = 4)
2216
19
2217
20
!     
2218
21
!     INCLUDE FILES
2219
22
!     
2220
23
!---  the include file with the values of the parameters and masses      
2221
24
      INCLUDE "coupl.inc"
2222
25
!---  integer nexternal ! number particles (incoming+outgoing) in the me 
2223
26
      INCLUDE "nexternal.inc" 
2224
27
!---  particle masses
2225
28
      REAL*8 PMASS(NEXTERNAL)      
2226
29
!---  integer    n_max_cg
2227
30
      INCLUDE "ngraphs.inc"     !how many diagrams (could be useful to know...)
2228
31
2229
32
!     
2230
33
!     LOCAL
2231
34
!     
2232
35
      INTEGER I,J,K
2233
36
      REAL*8 P(0:3,NEXTERNAL)   ! four momenta. Energy is the zeroth component.
2234
37
      REAL*8 SQRTS,MATELEM(3),BORNELEM,AO2PI           ! sqrt(s)= center of mass energy 
2235
38
      REAL*8 PIN(0:3), POUT(0:3)
2236
39
      CHARACTER*120 BUFF(NEXTERNAL)
2237
40
      REAL*8 PREC_FOUND
2238
41
      INTEGER RETURNCODE, HUNDREDS, TENS, UNITS
2239
42
!     
2240
43
!     EXTERNAL
2241
44
!     
2242
45
      REAL*8 DOT
2243
46
      EXTERNAL DOT
2244
47
      
2245
48
!-----
2246
49
!     BEGIN CODE
2247
50
!-----
2248
51
!     
2249
52
!---  INITIALIZATION CALLS
2250
53
!     
2251
54
!---  Call to initialize the values of the couplings, masses and widths 
2252
55
!     used in the evaluation of the matrix element. The primary parameters of the
2253
56
!     models are read from Cards/param_card.dat. The secondary parameters are calculated
2254
57
!     in Source/MODEL/couplings.f. The values are stored in common blocks that are listed
2255
58
!     in coupl.inc .
2256
59
2257
60
      call setpara('param_card.dat')  !first call to setup the paramaters
2258
61
      include "pmass.inc"             !set up masses
2259
62
2260
63
      AO2PI=G**2/(8.D0*(3.14159265358979323846d0**2))
2261
64
2262
65
      write(*,*) 'AO2PI=',AO2PI
2263
66
!---  Now use a simple multipurpose PS generator (RAMBO) just to get a 
2264
67
!     RANDOM set of four momenta of given masses pmass(i) to be used to evaluate 
2265
68
!     the madgraph matrix-element.       
2266
69
!     Alternatevely, here the user can call or set the four momenta at his will, see below.
2267
70
!           
2268
71
      IF(nincoming.EQ.1) THEN
2269
72
         SQRTS=PMASS(1)
2270
73
      ELSE
2271
74
         SQRTS=1000d0              !CMS energy in GEV
2272
75
      ENDIF
2273
76
2274
77
      call printout()
2275
78
2276
79
      do K=1,NPSPOINTS
2277
80
2278
81
      if(READPS) then
2279
82
        open(967, file="PS.input", err=976, status='OLD', action='READ')
2280
83
        do i=1,NExternal
2281
84
          read(967,*,end=978) P(0,i),P(1,i),P(2,i),P(3,i)
2282
85
        enddo
2283
86
       goto 978
2284
87
  976  continue
2285
88
         stop 'Could not read the PS.input phase-space point.'
2286
89
  978  continue
2287
90
       close(967)
2288
91
      else
2289
92
        if ((nincoming.eq.2).and.((nexternal - nincoming .eq.1))) then
2290
93
          if (pmass(3).eq.0.0d0) then
2291
94
              stop 'Cannot generate 2>1 kin. config. with m3=0.0d0'
2292
95
          else
2293
96
              ! deal with the case of only one particle in the final
2294
97
              ! state
2295
98
               p(0,1) = pmass(3)/2d0
2296
99
               p(1,1) = 0d0
2297
100
               p(2,1) = 0d0
2298
101
               p(3,1) = pmass(3)/2d0
2299
102
               if (pmass(1).GT.0d0) then
2300
103
                 p(3,1) = dsqrt(pmass(3)**2/4d0 - pmass(1)**2)
2301
104
               endif
2302
105
               p(0,2) = pmass(3)/2d0
2303
106
               p(1,2) = 0d0
2304
107
               p(2,2) = 0d0
2305
108
               p(3,2) = -pmass(3)/2d0
2306
109
               if (pmass(2) > 0d0) then
2307
110
                 p(3,2) = -dsqrt(pmass(3)**2/4d0 - pmass(1)**2)
2308
111
               endif
2309
112
               p(0,3) = pmass(3)
2310
113
               p(1,3) = 0d0
2311
114
               p(2,3) = 0d0
2312
115
               p(3,3) = 0d0
2313
116
          endif
2314
117
        else
2315
118
          CALL GET_MOMENTA(SQRTS,PMASS,P)
2316
119
        endif
2317
120
      endif
2318
121
2319
122
      do i=0,3
2320
123
        PIN(i)=0.0d0
2321
124
        do j=1,nincoming
2322
125
          PIN(i)=PIN(i)+p(i,j)
2323
126
        enddo
2324
127
      enddo
2325
128
2326
129
!---  In standalone mode, always use sqrt_s as the renormalization
2327
130
!     scale.
2328
131
      SQRTS=dsqrt(dabs(DOT(PIN(0),PIN(0))))
2329
132
      MU_R=SQRTS
2330
133
2331
134
!---  Update the couplings with the new MU_R
2332
135
      CALL UPDATE_AS_PARAM()
2333
136
2334
137
!-- Possible tweaks to the run
2335
138
!     CALL FORCE_STABILITY_CHECK(.TRUE.)
2336
139
2337
140
!     
2338
141
!     Now we can call the matrix element!
2339
142
!
2340
143
      CALL SMATRIX(P,BORNELEM)
2341
144
      CALL SLOOPMATRIX_THRES(P,MATELEM,
2342
145
     &-1.0d0,PREC_FOUND,RETURNCODE)
2343
146
!
2344
147
!        write the information on the four momenta 
2345
148
!
2346
149
      if (K.eq.NPSPOINTS) then
2347
150
      write (*,*)
2348
151
      write (*,*) " Phase space point:"
2349
152
      write (*,*) "--------------------------------------------------",
2350
153
     &"---------------------------"
2351
154
      write (*,*)  "n        E             px             py         ",
2352
155
     &"pz               m "
2353
156
      do i=1,nexternal
2354
157
         write (*,'(i2,1x,5e15.7)') i, P(0,i),P(1,i),P(2,i),P(3,i), 
2355
158
     .dsqrt(dabs(DOT(p(0,i),p(0,i))))
2356
159
      enddo
2357
160
      write (*,*) "--------------------------------------------------",
2358
161
     &"---------------------------"
2359
162
      UNITS=MOD(RETURNCODE,10)
2360
163
      TENS=(MOD(RETURNCODE,100)-UNITS)/10
2361
164
      HUNDREDS=(RETURNCODE-TENS*10-UNITS)/100
2362
165
      if (HUNDREDS.eq.1) then
2363
166
        if (TENS.eq.3.or.TENS.eq.4) then
2364
167
          write(*,*) 'Unknown numerical stability because ',
2365
168
     &' MadLoop is in the initialization stage.'
2366
169
        else
2367
170
          write(*,*) 'Unknown numerical stability, check ',
2368
171
     &'CTModeRun value in MadLoopParams.dat.'
2369
172
        endif
2370
173
      elseif (HUNDREDS.eq.2) then
2371
174
        write(*,*) 'Stable kinematic configuration (SPS).'
2372
175
      elseif (HUNDREDS.eq.3) then
2373
176
        write(*,*) 'Unstable kinematic configuration (UPS).'
2374
177
        write(*,*) 'Quadruple precision rescue successful.'
2375
178
      elseif (HUNDREDS.eq.4) then
2376
179
        write(*,*) 'Exceptional kinematic configuration (EPS).'
2377
180
        write(*,*) 'Both double an quadruple precision computations',
2378
181
     %' are unstable.'
2379
182
      endif
2380
183
      if (TENS.eq.2.or.TENS.eq.4) then
2381
184
        write(*,*) 'Quadruple precision computation used.'
2382
185
      endif
2383
186
      if (HUNDREDS.ne.1) then
2384
187
        if (PREC_FOUND.gt.0.0d0) then
2385
188
          write(*,'(1x,a23,1x,1e10.2)') 'Relative accuracy     =',
2386
189
     &PREC_FOUND
2387
190
        elseif (PREC_FOUND.eq.0.0d0) then
2388
191
          write(*,'(1x,a23,1x,1e10.2,1x,a30)') 'Relative accuracy     ='
2389
192
     &,PREC_FOUND,'(i.e. beyond double precision)'
2390
193
        else
2391
194
          write(*,*) 'Estimated accuracy could not be',
2392
195
     &' computed for an unknown reason.'
2393
196
        endif
2394
197
      endif
2395
198
      write (*,*) "---------------------------------------------------",
2396
199
     &"--------------------------"
2397
200
      write (*,*) "Matrix element born   = ", BORNELEM, " GeV^",
2398
201
     &-(2*nexternal-8)
2399
202
      write (*,*) "Matrix element finite = ", MATELEM(1), " GeV^",
2400
203
     &-(2*nexternal-8)
2401
204
      write (*,*) "Matrix element 1eps   = ", MATELEM(2), " GeV^",
2402
205
     &-(2*nexternal-8)
2403
206
      write (*,*) "Matrix element 2eps   = ", MATELEM(3), " GeV^",
2404
207
     &-(2*nexternal-8)
2405
208
      write (*,*) "---------------------------------------------------",
2406
209
     &"--------------------------"
2407
210
      write (*,*) "finite / (born*ao2pi) = ", MATELEM(1)/BORNELEM/AO2PI
2408
211
      write (*,*) "1eps   / (born*ao2pi) = ", MATELEM(2)/BORNELEM/AO2PI
2409
212
      write (*,*) "2eps   / (born*ao2pi) = ", MATELEM(3)/BORNELEM/AO2PI
2410
213
      write (*,*) "---------------------------------------------------",
2411
214
     &"--------------------------"
2412
215
2413
216
      open(69, file="result.dat", err=976, action='WRITE')
2414
217
      do i=1,nexternal      
2415
218
          write (69,'(a2,1x,5e25.15)') 'PS',P(0,i),P(1,i),P(2,i),P(3,i)
2416
219
      enddo
2417
220
      write (69,'(a3,1x,i2)') 'EXP',-(2*nexternal-8)
2418
221
      write (69,'(a4,1x,1e25.15)') 'BORN',BORNELEM
2419
222
      write (69,'(a3,1x,1e25.15)') 'FIN',MATELEM(1)/BORNELEM/AO2PI
2420
223
      write (69,'(a4,1x,1e25.15)') '1EPS',MATELEM(2)/BORNELEM/AO2PI
2421
224
      write (69,'(a4,1x,1e25.15)') '2EPS',MATELEM(3)/BORNELEM/AO2PI
2422
225
      write (69,'(a3,1x,1e10.2)')  'ACC',PREC_FOUND
2423
226
      write (69,'(a7,1x,i3)')     'RETCODE',RETURNCODE
2424
227
      write (69,*) 'Export_Format Default'      
2425
228
      close(69)
2426
229
      else
2427
230
          write (*,*) "PS Point #",K," done."
2428
231
      endif
2429
232
      enddo
2430
233
2431
234
!!
2432
235
!!      Copy down here (or read in) the four momenta as a string. 
2433
236
!!      
2434
237
!!
2435
238
!      buff(1)=" 1   0.5630480E+04  0.0000000E+00  0.0000000E+00  0.5630480E+04"
2436
239
!      buff(2)=" 2   0.5630480E+04  0.0000000E+00  0.0000000E+00 -0.5630480E+04"
2437
240
!      buff(3)=" 3   0.5466073E+04  0.4443190E+03  0.2446331E+04 -0.4864732E+04"
2438
241
!      buff(4)=" 4   0.8785819E+03 -0.2533886E+03  0.2741971E+03  0.7759741E+03"
2439
242
!      buff(5)=" 5   0.4916306E+04 -0.1909305E+03 -0.2720528E+04  0.4088757E+04"
2440
243
!!
2441
244
!!      Here the k,E,px,py,pz are read from the string into the momenta array.
2442
245
!!      k=1,2          : incoming
2443
246
!!      k=3,nexternal  : outgoing
2444
247
!!
2445
248
!      do i=1,nexternal
2446
249
!         read (buff(i),*) k, P(0,i),P(1,i),P(2,i),P(3,i)
2447
250
!      enddo
2448
251
!
2449
252
!!- print the momenta out
2450
253
!
2451
254
!      do i=1,nexternal
2452
255
!         write (*,'(i2,1x,5e15.7)') i, P(0,i),P(1,i),P(2,i),P(3,i), 
2453
256
!     .dsqrt(dabs(DOT(p(0,i),p(0,i))))
2454
257
!      enddo
2455
258
!
2456
259
!      CALL SLOOPMATRIX(P,MATELEM)
2457
260
!
2458
261
!      write (*,*) "-------------------------------------------------"
2459
262
!      write (*,*) "Matrix element = ", MATELEM(1), " GeV^",
2460
263
!      &-(2*nexternal-8)      
2461
264
!      write (*,*) "-------------------------------------------------"
2462
265
2463
266
      end
2464
267
      
2465
268
        
2466
269
        
2467
270
        
2468
271
         double precision function dot(p1,p2)
2469
272
C****************************************************************************
2470
273
C     4-Vector Dot product
2471
274
C****************************************************************************
2472
275
      implicit none
2473
276
      double precision p1(0:3),p2(0:3)
2474
277
      dot=p1(0)*p2(0)-p1(1)*p2(1)-p1(2)*p2(2)-p1(3)*p2(3)
2475
278
      end
2476
279
2477
280
2478
281
        SUBROUTINE GET_MOMENTA(ENERGY,PMASS,P)
2479
282
C---- auxiliary function to change convention between madgraph and rambo
2480
283
c---- four momenta.         
2481
284
        IMPLICIT NONE
2482
285
        INCLUDE "nexternal.inc"
2483
286
C        ARGUMENTS
2484
287
        REAL*8 ENERGY,PMASS(NEXTERNAL),P(0:3,NEXTERNAL),PRAMBO(4,10),WGT
2485
288
C         LOCAL
2486
289
         INTEGER I
2487
290
         REAL*8 etot2,mom,m1,m2,e1,e2
2488
291
2489
292
         ETOT2=energy**2
2490
293
         m1=pmass(1)
2491
294
         m2=pmass(2)
2492
295
         mom=(Etot2**2 - 2*Etot2*m1**2 + m1**4 -
2493
296
     -        2*Etot2*m2**2 - 2*m1**2*m2**2 + m2**4)/(4.*Etot2)
2494
297
         mom=dsqrt(mom)
2495
298
         e1=DSQRT(mom**2+m1**2)
2496
299
         e2=DSQRT(mom**2+m2**2)
2497
300
c         write (*,*) e1+e2,mom
2498
301
2499
302
         if(nincoming.eq.2) then
2500
303
2501
304
            P(0,1)=e1
2502
305
            P(1,1)=0d0
2503
306
            P(2,1)=0d0
2504
307
            P(3,1)=mom
2505
308
2506
309
            P(0,2)=e2
2507
310
            P(1,2)=0d0
2508
311
            P(2,2)=0d0
2509
312
            P(3,2)=-mom
2510
313
             
2511
314
            call rambo(nexternal-2,energy,pmass(3),prambo,WGT)
2512
315
            DO I=3, NEXTERNAL
2513
316
               P(0,I)=PRAMBO(4,I-2)      
2514
317
               P(1,I)=PRAMBO(1,I-2)
2515
318
               P(2,I)=PRAMBO(2,I-2)
2516
319
               P(3,I)=PRAMBO(3,I-2)      
2517
320
            ENDDO
2518
321
             
2519
322
          elseif(nincoming.eq.1) then 
2520
323
             
2521
324
             P(0,1)=energy
2522
325
             P(1,1)=0d0
2523
326
             P(2,1)=0d0
2524
327
             P(3,1)=0d0
2525
328
             
2526
329
             call rambo(nexternal-1,energy,pmass(2),prambo,WGT)
2527
330
             DO I=2, NEXTERNAL
2528
331
                P(0,I)=PRAMBO(4,I-1)      
2529
332
                P(1,I)=PRAMBO(1,I-1)
2530
333
                P(2,I)=PRAMBO(2,I-1)
2531
334
                P(3,I)=PRAMBO(3,I-1)      
2532
335
             ENDDO
2533
336
          endif
2534
337
          
2535
338
        RETURN
2536
339
        END
2537
340
      
2538
341
2539
342
      SUBROUTINE RAMBO(N,ET,XM,P,WT)
2540
343
***********************************************************************
2541
344
*                       RAMBO                                         *
2542
345
*    RA(NDOM)  M(OMENTA)  B(EAUTIFULLY)  O(RGANIZED)                  *
2543
346
*                                                                     *
2544
347
*    A DEMOCRATIC MULTI-PARTICLE PHASE SPACE GENERATOR                *
2545
348
*    AUTHORS:  S.D. ELLIS,  R. KLEISS,  W.J. STIRLING                 *
2546
349
*    THIS IS VERSION 1.0 -  WRITTEN BY R. KLEISS                      *
2547
350
*    -- ADJUSTED BY HANS KUIJF, WEIGHTS ARE LOGARITHMIC (20-08-90)    *
2548
351
*                                                                     *
2549
352
*    N  = NUMBER OF PARTICLES                                         *
2550
353
*    ET = TOTAL CENTRE-OF-MASS ENERGY                                 *
2551
354
*    XM = PARTICLE MASSES ( DIM=NEXTERNAL-nincoming )                 *
2552
355
*    P  = PARTICLE MOMENTA ( DIM=(4,NEXTERNAL-nincoming) )            *
2553
356
*    WT = WEIGHT OF THE EVENT                                         *
2554
357
***********************************************************************
2555
358
      IMPLICIT REAL*8(A-H,O-Z)
2556
359
      INCLUDE "nexternal.inc"
2557
360
      DIMENSION XM(NEXTERNAL-NINCOMING),P(4,NEXTERNAL-NINCOMING)
2558
361
      DIMENSION Q(4,NEXTERNAL-NINCOMING),Z(NEXTERNAL-NINCOMING),R(4),
2559
362
     .   B(3),P2(NEXTERNAL-NINCOMING),XM2(NEXTERNAL-NINCOMING),
2560
363
     .   E(NEXTERNAL-NINCOMING),V(NEXTERNAL-NINCOMING),IWARN(5)
2561
364
      SAVE ACC,ITMAX,IBEGIN,IWARN
2562
365
      DATA ACC/1.D-14/,ITMAX/6/,IBEGIN/0/,IWARN/5*0/
2563
366
*
2564
367
* INITIALIZATION STEP: FACTORIALS FOR THE PHASE SPACE WEIGHT
2565
368
      IF(IBEGIN.NE.0) GOTO 103
2566
369
      IBEGIN=1
2567
370
      TWOPI=8.*DATAN(1.D0)
2568
371
      PO2LOG=LOG(TWOPI/4.)
2569
372
      Z(2)=PO2LOG
2570
373
      DO 101 K=3,(NEXTERNAL-NINCOMING-1)
2571
374
  101 Z(K)=Z(K-1)+PO2LOG-2.*LOG(DFLOAT(K-2))
2572
375
      DO 102 K=3,(NEXTERNAL-NINCOMING-1)
2573
376
  102 Z(K)=(Z(K)-LOG(DFLOAT(K-1)))
2574
377
*
2575
378
* CHECK ON THE NUMBER OF PARTICLES
2576
379
  103 IF(N.GT.1.AND.N.LT.101) GOTO 104
2577
380
      PRINT 1001,N
2578
381
      STOP
2579
382
*
2580
383
* CHECK WHETHER TOTAL ENERGY IS SUFFICIENT; COUNT NONZERO MASSES
2581
384
  104 XMT=0.
2582
385
      NM=0
2583
386
      DO 105 I=1,N
2584
387
      IF(XM(I).NE.0.D0) NM=NM+1
2585
388
  105 XMT=XMT+ABS(XM(I))
2586
389
      IF(XMT.LE.ET) GOTO 201
2587
390
      PRINT 1002,XMT,ET
2588
391
      STOP
2589
392
*
2590
393
* THE PARAMETER VALUES ARE NOW ACCEPTED
2591
394
*
2592
395
* GENERATE N MASSLESS MOMENTA IN INFINITE PHASE SPACE
2593
396
  201 DO 202 I=1,N
2594
397
         r1=rn(1)
2595
398
      C=2.*r1-1.
2596
399
      S=SQRT(1.-C*C)
2597
400
      F=TWOPI*RN(2)
2598
401
      r1=rn(3)
2599
402
      r2=rn(4)
2600
403
      Q(4,I)=-LOG(r1*r2)
2601
404
      Q(3,I)=Q(4,I)*C
2602
405
      Q(2,I)=Q(4,I)*S*COS(F)
2603
406
  202 Q(1,I)=Q(4,I)*S*SIN(F)
2604
407
*
2605
408
* CALCULATE THE PARAMETERS OF THE CONFORMAL TRANSFORMATION
2606
409
      DO 203 I=1,4
2607
410
  203 R(I)=0.
2608
411
      DO 204 I=1,N
2609
412
      DO 204 K=1,4
2610
413
  204 R(K)=R(K)+Q(K,I)
2611
414
      RMAS=SQRT(R(4)**2-R(3)**2-R(2)**2-R(1)**2)
2612
415
      DO 205 K=1,3
2613
416
  205 B(K)=-R(K)/RMAS
2614
417
      G=R(4)/RMAS
2615
418
      A=1./(1.+G)
2616
419
      X=ET/RMAS
2617
420
*
2618
421
* TRANSFORM THE Q'S CONFORMALLY INTO THE P'S
2619
422
      DO 207 I=1,N
2620
423
      BQ=B(1)*Q(1,I)+B(2)*Q(2,I)+B(3)*Q(3,I)
2621
424
      DO 206 K=1,3
2622
425
  206 P(K,I)=X*(Q(K,I)+B(K)*(Q(4,I)+A*BQ))
2623
426
  207 P(4,I)=X*(G*Q(4,I)+BQ)
2624
427
*
2625
428
* CALCULATE WEIGHT AND POSSIBLE WARNINGS
2626
429
      WT=PO2LOG
2627
430
      IF(N.NE.2) WT=(2.*N-4.)*LOG(ET)+Z(N)
2628
431
      IF(WT.GE.-180.D0) GOTO 208
2629
432
      IF(IWARN(1).LE.5) PRINT 1004,WT
2630
433
      IWARN(1)=IWARN(1)+1
2631
434
  208 IF(WT.LE. 174.D0) GOTO 209
2632
435
      IF(IWARN(2).LE.5) PRINT 1005,WT
2633
436
      IWARN(2)=IWARN(2)+1
2634
437
*
2635
438
* RETURN FOR WEIGHTED MASSLESS MOMENTA
2636
439
  209 IF(NM.NE.0) GOTO 210
2637
440
* RETURN LOG OF WEIGHT
2638
441
      WT=WT
2639
442
      RETURN
2640
443
*
2641
444
* MASSIVE PARTICLES: RESCALE THE MOMENTA BY A FACTOR X
2642
445
  210 XMAX=SQRT(1.-(XMT/ET)**2)
2643
446
      DO 301 I=1,N
2644
447
      XM2(I)=XM(I)**2
2645
448
  301 P2(I)=P(4,I)**2
2646
449
      ITER=0
2647
450
      X=XMAX
2648
451
      ACCU=ET*ACC
2649
452
  302 F0=-ET
2650
453
      G0=0.
2651
454
      X2=X*X
2652
455
      DO 303 I=1,N
2653
456
      E(I)=SQRT(XM2(I)+X2*P2(I))
2654
457
      F0=F0+E(I)
2655
458
  303 G0=G0+P2(I)/E(I)
2656
459
      IF(ABS(F0).LE.ACCU) GOTO 305
2657
460
      ITER=ITER+1
2658
461
      IF(ITER.LE.ITMAX) GOTO 304
2659
462
      PRINT 1006,ITMAX
2660
463
      GOTO 305
2661
464
  304 X=X-F0/(X*G0)
2662
465
      GOTO 302
2663
466
  305 DO 307 I=1,N
2664
467
      V(I)=X*P(4,I)
2665
468
      DO 306 K=1,3
2666
469
  306 P(K,I)=X*P(K,I)
2667
470
  307 P(4,I)=E(I)
2668
471
*
2669
472
* CALCULATE THE MASS-EFFECT WEIGHT FACTOR
2670
473
      WT2=1.
2671
474
      WT3=0.
2672
475
      DO 308 I=1,N
2673
476
      WT2=WT2*V(I)/E(I)
2674
477
  308 WT3=WT3+V(I)**2/E(I)
2675
478
      WTM=(2.*N-3.)*LOG(X)+LOG(WT2/WT3*ET)
2676
479
*
2677
480
* RETURN FOR  WEIGHTED MASSIVE MOMENTA
2678
481
      WT=WT+WTM
2679
482
      IF(WT.GE.-180.D0) GOTO 309
2680
483
      IF(IWARN(3).LE.5) PRINT 1004,WT
2681
484
      IWARN(3)=IWARN(3)+1
2682
485
  309 IF(WT.LE. 174.D0) GOTO 310
2683
486
      IF(IWARN(4).LE.5) PRINT 1005,WT
2684
487
      IWARN(4)=IWARN(4)+1
2685
488
* RETURN LOG OF WEIGHT
2686
489
  310 WT=WT
2687
490
      RETURN
2688
491
*
2689
492
 1001 FORMAT(' RAMBO FAILS: # OF PARTICLES =',I5,' IS NOT ALLOWED')
2690
493
 1002 FORMAT(' RAMBO FAILS: TOTAL MASS =',D15.6,' IS NOT',
2691
494
     . ' SMALLER THAN TOTAL ENERGY =',D15.6)
2692
495
 1004 FORMAT(' RAMBO WARNS: WEIGHT = EXP(',F20.9,') MAY UNDERFLOW')
2693
496
 1005 FORMAT(' RAMBO WARNS: WEIGHT = EXP(',F20.9,') MAY  OVERFLOW')
2694
497
 1006 FORMAT(' RAMBO WARNS:',I3,' ITERATIONS DID NOT GIVE THE',
2695
498
     . ' DESIRED ACCURACY =',D15.6)
2696
499
      END
2697
500
2698
501
      FUNCTION RN(IDUMMY)
2699
502
      REAL*8 RN,RAN
2700
503
      SAVE INIT
2701
504
      DATA INIT /1/
2702
505
      IF (INIT.EQ.1) THEN
2703
506
        INIT=0
2704
507
        CALL RMARIN(1802,9373)
2705
508
      END IF
2706
509
*
2707
510
  10  CALL RANMAR(RAN)
2708
511
      IF (RAN.LT.1D-16) GOTO 10
2709
512
      RN=RAN
2710
513
*
2711
514
      END
2712
515
2713
516
2714
517
2715
518
      SUBROUTINE RANMAR(RVEC)
2716
519
*     -----------------
2717
520
* Universal random number generator proposed by Marsaglia and Zaman
2718
521
* in report FSU-SCRI-87-50
2719
522
* In this version RVEC is a double precision variable.
2720
523
      IMPLICIT REAL*8(A-H,O-Z)
2721
524
      COMMON/ RASET1 / RANU(97),RANC,RANCD,RANCM
2722
525
      COMMON/ RASET2 / IRANMR,JRANMR
2723
526
      SAVE /RASET1/,/RASET2/
2724
527
      UNI = RANU(IRANMR) - RANU(JRANMR)
2725
528
      IF(UNI .LT. 0D0) UNI = UNI + 1D0
2726
529
      RANU(IRANMR) = UNI
2727
530
      IRANMR = IRANMR - 1
2728
531
      JRANMR = JRANMR - 1
2729
532
      IF(IRANMR .EQ. 0) IRANMR = 97
2730
533
      IF(JRANMR .EQ. 0) JRANMR = 97
2731
534
      RANC = RANC - RANCD
2732
535
      IF(RANC .LT. 0D0) RANC = RANC + RANCM
2733
536
      UNI = UNI - RANC
2734
537
      IF(UNI .LT. 0D0) UNI = UNI + 1D0
2735
538
      RVEC = UNI
2736
539
      END
2737
540
 
2738
541
      SUBROUTINE RMARIN(IJ,KL)
2739
542
*     -----------------
2740
543
* Initializing routine for RANMAR, must be called before generating
2741
544
* any pseudorandom numbers with RANMAR. The input values should be in
2742
545
* the ranges 0<=ij<=31328 ; 0<=kl<=30081
2743
546
      IMPLICIT REAL*8(A-H,O-Z)
2744
547
      COMMON/ RASET1 / RANU(97),RANC,RANCD,RANCM
2745
548
      COMMON/ RASET2 / IRANMR,JRANMR
2746
549
      SAVE /RASET1/,/RASET2/
2747
550
* This shows correspondence between the simplified input seeds IJ, KL
2748
551
* and the original Marsaglia-Zaman seeds I,J,K,L.
2749
552
* To get the standard values in the Marsaglia-Zaman paper (i=12,j=34
2750
553
* k=56,l=78) put ij=1802, kl=9373
2751
554
      I = MOD( IJ/177 , 177 ) + 2
2752
555
      J = MOD( IJ     , 177 ) + 2
2753
556
      K = MOD( KL/169 , 178 ) + 1
2754
557
      L = MOD( KL     , 169 )
2755
558
      DO 300 II = 1 , 97
2756
559
        S =  0D0
2757
560
        T = .5D0
2758
561
        DO 200 JJ = 1 , 24
2759
562
          M = MOD( MOD(I*J,179)*K , 179 )
2760
563
          I = J
2761
564
          J = K
2762
565
          K = M
2763
566
          L = MOD( 53*L+1 , 169 )
2764
567
          IF(MOD(L*M,64) .GE. 32) S = S + T
2765
568
          T = .5D0*T
2766
569
  200   CONTINUE
2767
570
        RANU(II) = S
2768
571
  300 CONTINUE
2769
572
      RANC  =   362436D0 / 16777216D0
2770
573
      RANCD =  7654321D0 / 16777216D0
2771
574
      RANCM = 16777213D0 / 16777216D0
2772
575
      IRANMR = 97
2773
576
      JRANMR = 33
2774
577
      END
2775
578
2776
579
2777
580
2778
581
2779
582
2780
583
2781
584
0
2782
=== removed file 'Template/loop_material/StandAlone/SubProcesses/check_sa_loop_induced.f'
2783
--- Template/loop_material/StandAlone/SubProcesses/check_sa_loop_induced.f	2013-12-13 07:04:16 +0000
2784
+++ Template/loop_material/StandAlone/SubProcesses/check_sa_loop_induced.f	1970-01-01 00:00:00 +0000
2785
@@ -1,574 +0,0 @@
2786
1
      PROGRAM DRIVER
2787
2
!**************************************************************************
2788
3
!     THIS IS THE DRIVER FOR CHECKING THE STANDALONE MATRIX ELEMENT.
2789
4
!     IT USES A SIMPLE PHASE SPACE GENERATOR
2790
5
!     Fabio Maltoni - 3rd Febraury 2007
2791
6
!**************************************************************************
2792
7
      IMPLICIT NONE
2793
8
!     
2794
9
!     CONSTANTS  
2795
10
!     
2796
11
      REAL*8 ZERO
2797
12
      PARAMETER (ZERO=0D0)
2798
13
2799
14
      LOGICAL READPS
2800
15
      PARAMETER (READPS = .FALSE.)
2801
16
2802
17
      INTEGER NPSPOINTS
2803
18
      PARAMETER (NPSPOINTS = 4)
2804
19
2805
20
!     
2806
21
!     INCLUDE FILES
2807
22
!     
2808
23
!---  the include file with the values of the parameters and masses      
2809
24
      INCLUDE "coupl.inc"
2810
25
!---  integer nexternal ! number particles (incoming+outgoing) in the me 
2811
26
      INCLUDE "nexternal.inc" 
2812
27
!---  particle masses
2813
28
      REAL*8 PMASS(NEXTERNAL)      
2814
29
!---  integer    n_max_cg
2815
30
      INCLUDE "ngraphs.inc"     !how many diagrams (could be useful to know...)
2816
31
2817
32
!     
2818
33
!     LOCAL
2819
34
!     
2820
35
      INTEGER I,J,K
2821
36
      REAL*8 P(0:3,NEXTERNAL)   ! four momenta. Energy is the zeroth component.
2822
37
      REAL*8 SQRTS,MATELEM(3)           ! sqrt(s)= center of mass energy 
2823
38
      REAL*8 PIN(0:3), POUT(0:3)
2824
39
      CHARACTER*120 BUFF(NEXTERNAL)
2825
40
      REAL*8 PREC_FOUND
2826
41
      INTEGER RETURNCODE, HUNDREDS, TENS, UNITS
2827
42
!     
2828
43
!     EXTERNAL
2829
44
!     
2830
45
      REAL*8 DOT
2831
46
      EXTERNAL DOT
2832
47
      
2833
48
!-----
2834
49
!     BEGIN CODE
2835
50
!-----
2836
51
!     
2837
52
!---  INITIALIZATION CALLS
2838
53
!     
2839
54
!---  Call to initialize the values of the couplings, masses and widths 
2840
55
!     used in the evaluation of the matrix element. The primary parameters of the
2841
56
!     models are read from Cards/param_card.dat. The secondary parameters are calculated
2842
57
!     in Source/MODEL/couplings.f. The values are stored in common blocks that are listed
2843
58
!     in coupl.inc .
2844
59
2845
60
      call setpara('param_card.dat')  !first call to setup the paramaters
2846
61
      include "pmass.inc"             !set up masses
2847
62
2848
63
!---  Now use a simple multipurpose PS generator (RAMBO) just to get a 
2849
64
!     RANDOM set of four momenta of given masses pmass(i) to be used to evaluate 
2850
65
!     the madgraph matrix-element.       
2851
66
!     Alternatevely, here the user can call or set the four momenta at his will, see below.
2852
67
!           
2853
68
      IF(nincoming.EQ.1) THEN
2854
69
         SQRTS=PMASS(1)
2855
70
      ELSE
2856
71
         SQRTS=1000d0              !CMS energy in GEV
2857
72
      ENDIF
2858
73
2859
74
      call printout()
2860
75
2861
76
      do K=1,NPSPOINTS
2862
77
2863
78
      if(READPS) then
2864
79
        open(967, file="PS.input", err=976, status='OLD', action='READ')
2865
80
        do i=1,NExternal
2866
81
          read(967,*,end=978) P(0,i),P(1,i),P(2,i),P(3,i)
2867
82
        enddo
2868
83
       goto 978
2869
84
  976  continue
2870
85
         stop 'Could not read the PS.input phase-space point.'
2871
86
  978  continue
2872
87
       close(967)
2873
88
      else
2874
89
        if ((nincoming.eq.2).and.((nexternal - nincoming .eq.1))) then
2875
90
          if (pmass(3).eq.0.0d0) then
2876
91
              stop 'Cannot generate 2>1 kin. config. with m3=0.0d0'
2877
92
          else
2878
93
              ! deal with the case of only one particle in the final
2879
94
              ! state
2880
95
               p(0,1) = pmass(3)/2d0
2881
96
               p(1,1) = 0d0
2882
97
               p(2,1) = 0d0
2883
98
               p(3,1) = pmass(3)/2d0
2884
99
               if (pmass(1).GT.0d0) then
2885
100
                 p(3,1) = dsqrt(pmass(3)**2/4d0 - pmass(1)**2)
2886
101
               endif
2887
102
               p(0,2) = pmass(3)/2d0
2888
103
               p(1,2) = 0d0
2889
104
               p(2,2) = 0d0
2890
105
               p(3,2) = -pmass(3)/2d0
2891
106
               if (pmass(2) > 0d0) then
2892
107
                 p(3,2) = -dsqrt(pmass(3)**2/4d0 - pmass(1)**2)
2893
108
               endif
2894
109
               p(0,3) = pmass(3)
2895
110
               p(1,3) = 0d0
2896
111
               p(2,3) = 0d0
2897
112
               p(3,3) = 0d0
2898
113
          endif
2899
114
        else
2900
115
          CALL GET_MOMENTA(SQRTS,PMASS,P)
2901
116
        endif
2902
117
      endif
2903
118
2904
119
      do i=0,3
2905
120
        PIN(i)=0.0d0
2906
121
        do j=1,nincoming
2907
122
          PIN(i)=PIN(i)+p(i,j)
2908
123
        enddo
2909
124
      enddo
2910
125
2911
126
!---  In standalone mode, always use sqrt_s as the renormalization
2912
127
!     scale.
2913
128
      SQRTS=dsqrt(dabs(DOT(PIN(0),PIN(0))))
2914
129
2915
130
      MU_R=SQRTS
2916
131
2917
132
!---  Update the couplings with the new MU_R
2918
133
      CALL UPDATE_AS_PARAM()
2919
134
2920
135
!-- Possible tweaks to the run
2921
136
!     CALL FORCE_STABILITY_CHECK(.TRUE.)
2922
137
2923
138
!     
2924
139
!     Now we can call the matrix element!
2925
140
!
2926
141
      CALL SLOOPMATRIX_THRES(P,MATELEM,-1.0d0,
2927
142
     &PREC_FOUND,RETURNCODE)
2928
143
!
2929
144
!        write the information on the four momenta 
2930
145
!
2931
146
      if (K.eq.NPSPOINTS) then
2932
147
      write (*,*)
2933
148
      write (*,*) " Phase space point:"
2934
149
      write (*,*) "--------------------------------------------------",
2935
150
     &"---------------------------"
2936
151
      write (*,*)  "n        E             px             py         ",
2937
152
     &"pz               m "
2938
153
      do i=1,nexternal
2939
154
         write (*,'(i2,1x,5e15.7)') i, P(0,i),P(1,i),P(2,i),P(3,i), 
2940
155
     .dsqrt(dabs(DOT(p(0,i),p(0,i))))
2941
156
      enddo
2942
157
      write (*,*) "--------------------------------------------------",
2943
158
     &"---------------------------"
2944
159
      UNITS=MOD(RETURNCODE,10)
2945
160
      TENS=(MOD(RETURNCODE,100)-UNITS)/10
2946
161
      HUNDREDS=(RETURNCODE-TENS*10-UNITS)/100
2947
162
      if (HUNDREDS.eq.1) then
2948
163
        if (TENS.eq.3.or.TENS.eq.4) then
2949
164
          write(*,*) 'Unknown numerical stability because ',
2950
165
     &' MadLoop is in the initialization stage.'
2951
166
        else
2952
167
          write(*,*) 'Unknown numerical stability, due to ',
2953
168
     &'the value of CTModeRun set in MadLoopParams.dat.'
2954
169
        endif
2955
170
      elseif (HUNDREDS.eq.2) then
2956
171
        write(*,*) 'Stable kinematic configuration (SPS).'
2957
172
      elseif (HUNDREDS.eq.3) then
2958
173
        write(*,*) 'Unstable kinematic configuration (UPS).'
2959
174
        write(*,*) 'Quadruple precision rescue successful.'
2960
175
      elseif (HUNDREDS.eq.4) then
2961
176
        write(*,*) 'Exceptional kinematic configuration (EPS).'
2962
177
        write(*,*) 'Both double an quadruple precision computations',
2963
178
     %' are unstable.'
2964
179
      endif
2965
180
      if (TENS.eq.2.or.TENS.eq.4) then
2966
181
        write(*,*) 'Quadruple precision computation used.'
2967
182
      endif
2968
183
      if (HUNDREDS.ne.1) then
2969
184
        if (PREC_FOUND.ge.0.0d0) then
2970
185
          write(*,'(1x,a23,1x,1e10.2)') 'Relative accuracy     =',
2971
186
     &PREC_FOUND
2972
187
        elseif (PREC_FOUND.eq.0.0d0) then
2973
188
          write(*,'(1x,a23,1x,1e10.2,1x,a30)') 'Relative accuracy     ='
2974
189
     &,PREC_FOUND,'(i.e. beyond double precision)'
2975
190
        else    
2976
191
          write(*,*) 'Estimated accuracy could not be',
2977
192
     &' computed for an unknown reason.'
2978
193
        endif
2979
194
      endif
2980
195
      write (*,*) "This is a loop induced process, so only the ",
2981
196
     &"unnormalized finite part is output"
2982
197
      write (*,*) " here. Be aware that all loops",
2983
198
     &" are expected to be UV-finite as no "
2984
199
      write (*,*) " renormalization prescription is considered. "
2985
200
      write (*,*) "---------------------------------------------------",
2986
201
     &"--------------------------"
2987
202
      write (*,*) "Matrix element finite = ", MATELEM(1), " GeV^",
2988
203
     &-(2*nexternal-8)
2989
204
      write (*,*) "---------------------------------------------------",
2990
205
     &"--------------------------"
2991
206
2992
207
      open(69, file="result.dat", err=976, action='WRITE')
2993
208
      do i=1,nexternal      
2994
209
          write (69,'(a2,1x,5e25.15)') 'PS',P(0,i),P(1,i),P(2,i),P(3,i)
2995
210
      enddo
2996
211
      write (69,'(a3,1x,i2)') 'EXP',-(2*nexternal-8)
2997
212
      write (69,'(a4,1x,1e25.15)') 'BORN',0.0d0
2998
213
      write (69,'(a3,1x,1e25.15)') 'FIN',MATELEM(1)
2999
214
      write (69,'(a4,1x,1e25.15)') '1EPS',0.0d0
3000
215
      write (69,'(a4,1x,1e25.15)') '2EPS',0.0d0
3001
216
      write (69,'(a3,1x,1e10.2)')  'ACC',PREC_FOUND
3002
217
      write (69,'(a7,1x,i3)')     'RETCODE',RETURNCODE
3003
218
      write (69,*) 'Export_Format LoopInduced'
3004
219
      close(69)
3005
220
      else
3006
221
          write (*,*) "PS Point #",K," done."
3007
222
      endif
3008
223
      enddo
3009
224
3010
225
!!
3011
226
!!      Copy down here (or read in) the four momenta as a string. 
3012
227
!!      
3013
228
!!
3014
229
!      buff(1)=" 1   0.5630480E+04  0.0000000E+00  0.0000000E+00  0.5630480E+04"
3015
230
!      buff(2)=" 2   0.5630480E+04  0.0000000E+00  0.0000000E+00 -0.5630480E+04"
3016
231
!      buff(3)=" 3   0.5466073E+04  0.4443190E+03  0.2446331E+04 -0.4864732E+04"
3017
232
!      buff(4)=" 4   0.8785819E+03 -0.2533886E+03  0.2741971E+03  0.7759741E+03"
3018
233
!      buff(5)=" 5   0.4916306E+04 -0.1909305E+03 -0.2720528E+04  0.4088757E+04"
3019
234
!!
3020
235
!!      Here the k,E,px,py,pz are read from the string into the momenta array.
3021
236
!!      k=1,2          : incoming
3022
237
!!      k=3,nexternal  : outgoing
3023
238
!!
3024
239
!      do i=1,nexternal
3025
240
!         read (buff(i),*) k, P(0,i),P(1,i),P(2,i),P(3,i)
3026
241
!      enddo
3027
242
!
3028
243
!!- print the momenta out
3029
244
!
3030
245
!      do i=1,nexternal
3031
246
!         write (*,'(i2,1x,5e15.7)') i, P(0,i),P(1,i),P(2,i),P(3,i), 
3032
247
!     .dsqrt(dabs(DOT(p(0,i),p(0,i))))
3033
248
!      enddo
3034
249
!
3035
250
!      CALL SLOOPMATRIX(P,MATELEM)
3036
251
!
3037
252
!      write (*,*) "-------------------------------------------------"
3038
253
!      write (*,*) "Matrix element = ", MATELEM(1), " GeV^",
3039
254
!      &-(2*nexternal-8)      
3040
255
!      write (*,*) "-------------------------------------------------"
3041
256
3042
257
      end
3043
258
      
3044
259
        
3045
260
        
3046
261
        
3047
262
         double precision function dot(p1,p2)
3048
263
C****************************************************************************
3049
264
C     4-Vector Dot product
3050
265
C****************************************************************************
3051
266
      implicit none
3052
267
      double precision p1(0:3),p2(0:3)
3053
268
      dot=p1(0)*p2(0)-p1(1)*p2(1)-p1(2)*p2(2)-p1(3)*p2(3)
3054
269
      end
3055
270
3056
271
3057
272
        SUBROUTINE GET_MOMENTA(ENERGY,PMASS,P)
3058
273
C---- auxiliary function to change convention between madgraph and rambo
3059
274
c---- four momenta.         
3060
275
        IMPLICIT NONE
3061
276
        INCLUDE "nexternal.inc"
3062
277
C        ARGUMENTS
3063
278
        REAL*8 ENERGY,PMASS(NEXTERNAL),P(0:3,NEXTERNAL),PRAMBO(4,10),WGT
3064
279
C         LOCAL
3065
280
         INTEGER I
3066
281
         REAL*8 etot2,mom,m1,m2,e1,e2
3067
282
3068
283
         ETOT2=energy**2
3069
284
         m1=pmass(1)
3070
285
         m2=pmass(2)
3071
286
         mom=(Etot2**2 - 2*Etot2*m1**2 + m1**4 -
3072
287
     -        2*Etot2*m2**2 - 2*m1**2*m2**2 + m2**4)/(4.*Etot2)
3073
288
         mom=dsqrt(mom)
3074
289
         e1=DSQRT(mom**2+m1**2)
3075
290
         e2=DSQRT(mom**2+m2**2)
3076
291
c         write (*,*) e1+e2,mom
3077
292
3078
293
         if(nincoming.eq.2) then
3079
294
3080
295
            P(0,1)=e1
3081
296
            P(1,1)=0d0
3082
297
            P(2,1)=0d0
3083
298
            P(3,1)=mom
3084
299
3085
300
            P(0,2)=e2
3086
301
            P(1,2)=0d0
3087
302
            P(2,2)=0d0
3088
303
            P(3,2)=-mom
3089
304
             
3090
305
            call rambo(nexternal-2,energy,pmass(3),prambo,WGT)
3091
306
            DO I=3, NEXTERNAL
3092
307
               P(0,I)=PRAMBO(4,I-2)      
3093
308
               P(1,I)=PRAMBO(1,I-2)
3094
309
               P(2,I)=PRAMBO(2,I-2)
3095
310
               P(3,I)=PRAMBO(3,I-2)      
3096
311
            ENDDO
3097
312
             
3098
313
          elseif(nincoming.eq.1) then 
3099
314
             
3100
315
             P(0,1)=energy
3101
316
             P(1,1)=0d0
3102
317
             P(2,1)=0d0
3103
318
             P(3,1)=0d0
3104
319
             
3105
320
             call rambo(nexternal-1,energy,pmass(2),prambo,WGT)
3106
321
             DO I=2, NEXTERNAL
3107
322
                P(0,I)=PRAMBO(4,I-1)      
3108
323
                P(1,I)=PRAMBO(1,I-1)
3109
324
                P(2,I)=PRAMBO(2,I-1)
3110
325
                P(3,I)=PRAMBO(3,I-1)      
3111
326
             ENDDO
3112
327
          endif
3113
328
          
3114
329
        RETURN
3115
330
        END
3116
331
      
3117
332
3118
333
      SUBROUTINE RAMBO(N,ET,XM,P,WT)
3119
334
***********************************************************************
3120
335
*                       RAMBO                                         *
3121
336
*    RA(NDOM)  M(OMENTA)  B(EAUTIFULLY)  O(RGANIZED)                  *
3122
337
*                                                                     *
3123
338
*    A DEMOCRATIC MULTI-PARTICLE PHASE SPACE GENERATOR                *
3124
339
*    AUTHORS:  S.D. ELLIS,  R. KLEISS,  W.J. STIRLING                 *
3125
340
*    THIS IS VERSION 1.0 -  WRITTEN BY R. KLEISS                      *
3126
341
*    -- ADJUSTED BY HANS KUIJF, WEIGHTS ARE LOGARITHMIC (20-08-90)    *
3127
342
*                                                                     *
3128
343
*    N  = NUMBER OF PARTICLES                                         *
3129
344
*    ET = TOTAL CENTRE-OF-MASS ENERGY                                 *
3130
345
*    XM = PARTICLE MASSES ( DIM=NEXTERNAL-nincoming )                 *
3131
346
*    P  = PARTICLE MOMENTA ( DIM=(4,NEXTERNAL-nincoming) )            *
3132
347
*    WT = WEIGHT OF THE EVENT                                         *
3133
348
***********************************************************************
3134
349
      IMPLICIT REAL*8(A-H,O-Z)
3135
350
      INCLUDE "nexternal.inc"
3136
351
      DIMENSION XM(NEXTERNAL-NINCOMING),P(4,NEXTERNAL-NINCOMING)
3137
352
      DIMENSION Q(4,NEXTERNAL-NINCOMING),Z(NEXTERNAL-NINCOMING),R(4),
3138
353
     .   B(3),P2(NEXTERNAL-NINCOMING),XM2(NEXTERNAL-NINCOMING),
3139
354
     .   E(NEXTERNAL-NINCOMING),V(NEXTERNAL-NINCOMING),IWARN(5)
3140
355
      SAVE ACC,ITMAX,IBEGIN,IWARN
3141
356
      DATA ACC/1.D-14/,ITMAX/6/,IBEGIN/0/,IWARN/5*0/
3142
357
*
3143
358
* INITIALIZATION STEP: FACTORIALS FOR THE PHASE SPACE WEIGHT
3144
359
      IF(IBEGIN.NE.0) GOTO 103
3145
360
      IBEGIN=1
3146
361
      TWOPI=8.*DATAN(1.D0)
3147
362
      PO2LOG=LOG(TWOPI/4.)
3148
363
      Z(2)=PO2LOG
3149
364
      DO 101 K=3,(NEXTERNAL-NINCOMING-1)
3150
365
  101 Z(K)=Z(K-1)+PO2LOG-2.*LOG(DFLOAT(K-2))
3151
366
      DO 102 K=3,(NEXTERNAL-NINCOMING-1)
3152
367
  102 Z(K)=(Z(K)-LOG(DFLOAT(K-1)))
3153
368
*
3154
369
* CHECK ON THE NUMBER OF PARTICLES
3155
370
  103 IF(N.GT.1.AND.N.LT.101) GOTO 104
3156
371
      PRINT 1001,N
3157
372
      STOP
3158
373
*
3159
374
* CHECK WHETHER TOTAL ENERGY IS SUFFICIENT; COUNT NONZERO MASSES
3160
375
  104 XMT=0.
3161
376
      NM=0
3162
377
      DO 105 I=1,N
3163
378
      IF(XM(I).NE.0.D0) NM=NM+1
3164
379
  105 XMT=XMT+ABS(XM(I))
3165
380
      IF(XMT.LE.ET) GOTO 201
3166
381
      PRINT 1002,XMT,ET
3167
382
      STOP
3168
383
*
3169
384
* THE PARAMETER VALUES ARE NOW ACCEPTED
3170
385
*
3171
386
* GENERATE N MASSLESS MOMENTA IN INFINITE PHASE SPACE
3172
387
  201 DO 202 I=1,N
3173
388
         r1=rn(1)
3174
389
      C=2.*r1-1.
3175
390
      S=SQRT(1.-C*C)
3176
391
      F=TWOPI*RN(2)
3177
392
      r1=rn(3)
3178
393
      r2=rn(4)
3179
394
      Q(4,I)=-LOG(r1*r2)
3180
395
      Q(3,I)=Q(4,I)*C
3181
396
      Q(2,I)=Q(4,I)*S*COS(F)
3182
397
  202 Q(1,I)=Q(4,I)*S*SIN(F)
3183
398
*
3184
399
* CALCULATE THE PARAMETERS OF THE CONFORMAL TRANSFORMATION
3185
400
      DO 203 I=1,4
3186
401
  203 R(I)=0.
3187
402
      DO 204 I=1,N
3188
403
      DO 204 K=1,4
3189
404
  204 R(K)=R(K)+Q(K,I)
3190
405
      RMAS=SQRT(R(4)**2-R(3)**2-R(2)**2-R(1)**2)
3191
406
      DO 205 K=1,3
3192
407
  205 B(K)=-R(K)/RMAS
3193
408
      G=R(4)/RMAS
3194
409
      A=1./(1.+G)
3195
410
      X=ET/RMAS
3196
411
*
3197
412
* TRANSFORM THE Q'S CONFORMALLY INTO THE P'S
3198
413
      DO 207 I=1,N
3199
414
      BQ=B(1)*Q(1,I)+B(2)*Q(2,I)+B(3)*Q(3,I)
3200
415
      DO 206 K=1,3
3201
416
  206 P(K,I)=X*(Q(K,I)+B(K)*(Q(4,I)+A*BQ))
3202
417
  207 P(4,I)=X*(G*Q(4,I)+BQ)
3203
418
*
3204
419
* CALCULATE WEIGHT AND POSSIBLE WARNINGS
3205
420
      WT=PO2LOG
3206
421
      IF(N.NE.2) WT=(2.*N-4.)*LOG(ET)+Z(N)
3207
422
      IF(WT.GE.-180.D0) GOTO 208
3208
423
      IF(IWARN(1).LE.5) PRINT 1004,WT
3209
424
      IWARN(1)=IWARN(1)+1
3210
425
  208 IF(WT.LE. 174.D0) GOTO 209
3211
426
      IF(IWARN(2).LE.5) PRINT 1005,WT
3212
427
      IWARN(2)=IWARN(2)+1
3213
428
*
3214
429
* RETURN FOR WEIGHTED MASSLESS MOMENTA
3215
430
  209 IF(NM.NE.0) GOTO 210
3216
431
* RETURN LOG OF WEIGHT
3217
432
      WT=WT
3218
433
      RETURN
3219
434
*
3220
435
* MASSIVE PARTICLES: RESCALE THE MOMENTA BY A FACTOR X
3221
436
  210 XMAX=SQRT(1.-(XMT/ET)**2)
3222
437
      DO 301 I=1,N
3223
438
      XM2(I)=XM(I)**2
3224
439
  301 P2(I)=P(4,I)**2
3225
440
      ITER=0
3226
441
      X=XMAX
3227
442
      ACCU=ET*ACC
3228
443
  302 F0=-ET
3229
444
      G0=0.
3230
445
      X2=X*X
3231
446
      DO 303 I=1,N
3232
447
      E(I)=SQRT(XM2(I)+X2*P2(I))
3233
448
      F0=F0+E(I)
3234
449
  303 G0=G0+P2(I)/E(I)
3235
450
      IF(ABS(F0).LE.ACCU) GOTO 305
3236
451
      ITER=ITER+1
3237
452
      IF(ITER.LE.ITMAX) GOTO 304
3238
453
      PRINT 1006,ITMAX
3239
454
      GOTO 305
3240
455
  304 X=X-F0/(X*G0)
3241
456
      GOTO 302
3242
457
  305 DO 307 I=1,N
3243
458
      V(I)=X*P(4,I)
3244
459
      DO 306 K=1,3
3245
460
  306 P(K,I)=X*P(K,I)
3246
461
  307 P(4,I)=E(I)
3247
462
*
3248
463
* CALCULATE THE MASS-EFFECT WEIGHT FACTOR
3249
464
      WT2=1.
3250
465
      WT3=0.
3251
466
      DO 308 I=1,N
3252
467
      WT2=WT2*V(I)/E(I)
3253
468
  308 WT3=WT3+V(I)**2/E(I)
3254
469
      WTM=(2.*N-3.)*LOG(X)+LOG(WT2/WT3*ET)
3255
470
*
3256
471
* RETURN FOR  WEIGHTED MASSIVE MOMENTA
3257
472
      WT=WT+WTM
3258
473
      IF(WT.GE.-180.D0) GOTO 309
3259
474
      IF(IWARN(3).LE.5) PRINT 1004,WT
3260
475
      IWARN(3)=IWARN(3)+1
3261
476
  309 IF(WT.LE. 174.D0) GOTO 310
3262
477
      IF(IWARN(4).LE.5) PRINT 1005,WT
3263
478
      IWARN(4)=IWARN(4)+1
3264
479
* RETURN LOG OF WEIGHT
3265
480
  310 WT=WT
3266
481
      RETURN
3267
482
*
3268
483
 1001 FORMAT(' RAMBO FAILS: # OF PARTICLES =',I5,' IS NOT ALLOWED')
3269
484
 1002 FORMAT(' RAMBO FAILS: TOTAL MASS =',D15.6,' IS NOT',
3270
485
     . ' SMALLER THAN TOTAL ENERGY =',D15.6)
3271
486
 1004 FORMAT(' RAMBO WARNS: WEIGHT = EXP(',F20.9,') MAY UNDERFLOW')
3272
487
 1005 FORMAT(' RAMBO WARNS: WEIGHT = EXP(',F20.9,') MAY  OVERFLOW')
3273
488
 1006 FORMAT(' RAMBO WARNS:',I3,' ITERATIONS DID NOT GIVE THE',
3274
489
     . ' DESIRED ACCURACY =',D15.6)
3275
490
      END
3276
491
3277
492
      FUNCTION RN(IDUMMY)
3278
493
      REAL*8 RN,RAN
3279
494
      SAVE INIT
3280
495
      DATA INIT /1/
3281
496
      IF (INIT.EQ.1) THEN
3282
497
        INIT=0
3283
498
        CALL RMARIN(1802,9373)
3284
499
      END IF
3285
500
*
3286
501
  10  CALL RANMAR(RAN)
3287
502
      IF (RAN.LT.1D-16) GOTO 10
3288
503
      RN=RAN
3289
504
*
3290
505
      END
3291
506
3292
507
3293
508
3294
509
      SUBROUTINE RANMAR(RVEC)
3295
510
*     -----------------
3296
511
* Universal random number generator proposed by Marsaglia and Zaman
3297
512
* in report FSU-SCRI-87-50
3298
513
* In this version RVEC is a double precision variable.
3299
514
      IMPLICIT REAL*8(A-H,O-Z)
3300
515
      COMMON/ RASET1 / RANU(97),RANC,RANCD,RANCM
3301
516
      COMMON/ RASET2 / IRANMR,JRANMR
3302
517
      SAVE /RASET1/,/RASET2/
3303
518
      UNI = RANU(IRANMR) - RANU(JRANMR)
3304
519
      IF(UNI .LT. 0D0) UNI = UNI + 1D0
3305
520
      RANU(IRANMR) = UNI
3306
521
      IRANMR = IRANMR - 1
3307
522
      JRANMR = JRANMR - 1
3308
523
      IF(IRANMR .EQ. 0) IRANMR = 97
3309
524
      IF(JRANMR .EQ. 0) JRANMR = 97
3310
525
      RANC = RANC - RANCD
3311
526
      IF(RANC .LT. 0D0) RANC = RANC + RANCM
3312
527
      UNI = UNI - RANC
3313
528
      IF(UNI .LT. 0D0) UNI = UNI + 1D0
3314
529
      RVEC = UNI
3315
530
      END
3316
531
 
3317
532
      SUBROUTINE RMARIN(IJ,KL)
3318
533
*     -----------------
3319
534
* Initializing routine for RANMAR, must be called before generating
3320
535
* any pseudorandom numbers with RANMAR. The input values should be in
3321
536
* the ranges 0<=ij<=31328 ; 0<=kl<=30081
3322
537
      IMPLICIT REAL*8(A-H,O-Z)
3323
538
      COMMON/ RASET1 / RANU(97),RANC,RANCD,RANCM
3324
539
      COMMON/ RASET2 / IRANMR,JRANMR
3325
540
      SAVE /RASET1/,/RASET2/
3326
541
* This shows correspondence between the simplified input seeds IJ, KL
3327
542
* and the original Marsaglia-Zaman seeds I,J,K,L.
3328
543
* To get the standard values in the Marsaglia-Zaman paper (i=12,j=34
3329
544
* k=56,l=78) put ij=1802, kl=9373
3330
545
      I = MOD( IJ/177 , 177 ) + 2
3331
546
      J = MOD( IJ     , 177 ) + 2
3332
547
      K = MOD( KL/169 , 178 ) + 1
3333
548
      L = MOD( KL     , 169 )
3334
549
      DO 300 II = 1 , 97
3335
550
        S =  0D0
3336
551
        T = .5D0
3337
552
        DO 200 JJ = 1 , 24
3338
553
          M = MOD( MOD(I*J,179)*K , 179 )
3339
554
          I = J
3340
555
          J = K
3341
556
          K = M
3342
557
          L = MOD( 53*L+1 , 169 )
3343
558
          IF(MOD(L*M,64) .GE. 32) S = S + T
3344
559
          T = .5D0*T
3345
560
  200   CONTINUE
3346
561
        RANU(II) = S
3347
562
  300 CONTINUE
3348
563
      RANC  =   362436D0 / 16777216D0
3349
564
      RANCD =  7654321D0 / 16777216D0
3350
565
      RANCM = 16777213D0 / 16777216D0
3351
566
      IRANMR = 97
3352
567
      JRANMR = 33
3353
568
      END
3354
569
3355
570
3356
571
3357
572
3358
573
3359
574
3360
575
0
3361
=== removed file 'Template/loop_material/StandAlone/SubProcesses/makefile'
3362
--- Template/loop_material/StandAlone/SubProcesses/makefile	2012-11-09 17:13:53 +0000
3363
+++ Template/loop_material/StandAlone/SubProcesses/makefile	1970-01-01 00:00:00 +0000
3364
@@ -1,29 +0,0 @@
3365
1
include ../../Source/make_opts
3366
2
3367
3
LIBDIR = ../../lib/
3368
4
PROG   = check
3369
5
STABCHECKDRIVER = StabilityCheckDriver
3370
6
LINKLIBS =  -L$(LIBDIR) -lcts -ldhelas -lmodel
3371
7
LIBS =  $(LIBDIR)libcts.$(libext) $(LIBDIR)libdhelas.$(libext) $(LIBDIR)libmodel.$(libext)
3372
8
PROCESS= loop_matrix.o improve_ps.o\
3373
9
		 $(patsubst %.f,%.o,$(wildcard born_matrix.f)) \
3374
10
		 loop_num.o CT_interface.o \
3375
11
		 $(patsubst %.f,%.o,$(wildcard polynomial.f)) \
3376
12
		 $(patsubst %.f,%.o,$(wildcard MadLoopParamReader.f)) \
3377
13
		 $(patsubst %.f,%.o,$(wildcard helas_calls*.f)) \
3378
14
		 $(patsubst %.f,%.o,$(wildcard jamp?_calls_*.f)) \
3379
15
		 $(patsubst %.f,%.o,$(wildcard mp_born_amps_and_wfs.f)) \
3380
16
		 $(patsubst %.f,%.o,$(wildcard mp_compute_loop_coefs.f)) \
3381
17
		 $(patsubst %.f,%.o,$(wildcard mp_helas_calls*.f)) \
3382
18
		 $(patsubst %.f,%.o,$(wildcard coef_construction_*.f)) \
3383
19
		 $(patsubst %.f,%.o,$(wildcard loop_CT_calls_*.f)) \
3384
20
		 $(patsubst %.f,%.o,$(wildcard mp_coef_construction_*.f))
3385
21
3386
22
$(PROG): check_sa.o $(PROCESS) makefile $(LIBS)
3387
23
	$(FC) $(FFLAGS) -o $(PROG) check_sa.o $(PROCESS) $(LINKLIBS)
3388
24
3389
25
$(STABCHECKDRIVER):  StabilityCheckDriver.o $(PROCESS) makefile $(LIBS)
3390
26
	$(FC) $(FFLAGS) -o $(STABCHECKDRIVER) StabilityCheckDriver.o $(PROCESS) $(LINKLIBS)
3391
27
3392
28
clean:
3393
29
		@rm -f *.o
3394
30
0
3395
=== added file 'Template/loop_material/StandAlone/SubProcesses/makefile.inc'
3396
--- Template/loop_material/StandAlone/SubProcesses/makefile.inc	1970-01-01 00:00:00 +0000
3397
+++ Template/loop_material/StandAlone/SubProcesses/makefile.inc	2014-08-26 07:56:12 +0000
3398
@@ -0,0 +1,74 @@
3399
1
ifeq ($(wildcard ../../Source/make_opts),)
3400
2
    ROOT = ..
3401
3
else
3402
4
    ROOT = ../..
3403
5
endif
3404
6
3405
7
3406
8
if [ -a ../../Source/make_opts]; then ROOT = ../..; fi;
3407
9
3408
10
if [ -a ../Source/make_opts]; then ROOT = ../; fi;
3409
11
3410
12
include $(ROOT)/Source/make_opts
3411
13
LIBDIR = $(ROOT)/lib/
3412
14
3413
15
PROG   = check
3414
16
OLP    = OLP
3415
17
STABCHECKDRIVER = StabilityCheckDriver
3416
18
CHECK_SA_BORN_SPLITORDERS = check_sa_born_splitOrders
3417
19
LINKLIBS =  -L$(LIBDIR) -lcts -ldhelas -lmodel %(link_tir_libs)s
3418
20
LIBS =  $(LIBDIR)libcts.$(libext) $(LIBDIR)libdhelas.$(libext) $(LIBDIR)libmodel.$(libext) %(tir_libs)s
3419
21
PROCESS= MadLoopParamReader.o MadLoopCommons.o \
3420
22
		 $(patsubst %(dotf)s,%(doto)s,$(wildcard loop_matrix.f)) \
3421
23
		 $(patsubst %(dotf)s,%(doto)s,$(wildcard improve_ps.f)) \
3422
24
		 $(patsubst %(dotf)s,%(doto)s,$(wildcard born_matrix.f)) \
3423
25
		 $(patsubst %(dotf)s,%(doto)s,$(wildcard CT_interface.f)) \
3424
26
		 $(patsubst %(dotf)s,%(doto)s,$(wildcard loop_num.f)) \
3425
27
		 $(patsubst %(dotf)s,%(doto)s,$(wildcard polynomial.f)) \
3426
28
		 $(patsubst %(dotf)s,%(doto)s,$(wildcard helas_calls*.f)) \
3427
29
		 $(patsubst %(dotf)s,%(doto)s,$(wildcard jamp?_calls_*.f)) \
3428
30
		 $(patsubst %(dotf)s,%(doto)s,$(wildcard mp_born_amps_and_wfs.f)) \
3429
31
		 $(patsubst %(dotf)s,%(doto)s,$(wildcard mp_compute_loop_coefs.f)) \
3430
32
		 $(patsubst %(dotf)s,%(doto)s,$(wildcard mp_helas_calls*.f)) \
3431
33
		 $(patsubst %(dotf)s,%(doto)s,$(wildcard coef_construction_*.f)) \
3432
34
		 $(patsubst %(dotf)s,%(doto)s,$(wildcard loop_CT_calls_*.f)) \
3433
35
		 $(patsubst %(dotf)s,%(doto)s,$(wildcard mp_coef_construction_*.f)) \
3434
36
		 $(patsubst %(dotf)s,%(doto)s,$(wildcard TIR_interface.f)) \
3435
37
		 $(patsubst %(dotf)s,%(doto)s,$(wildcard GOLEM_interface.f))
3436
38
3437
39
OLP_PROCESS= MadLoopParamReader.o MadLoopCommons.o \
3438
40
                 $(patsubst %(dotf)s,%(doto)s,$(wildcard P*/loop_matrix.f)) \
3439
41
                 $(patsubst %(dotf)s,%(doto)s,$(wildcard P*/improve_ps.f)) \
3440
42
                 $(patsubst %(dotf)s,%(doto)s,$(wildcard P*/born_matrix.f)) \
3441
43
                 $(patsubst %(dotf)s,%(doto)s,$(wildcard P*/CT_interface.f)) \
3442
44
                 $(patsubst %(dotf)s,%(doto)s,$(wildcard P*/loop_num.f)) \
3443
45
                 $(patsubst %(dotf)s,%(doto)s,$(wildcard P*/polynomial.f)) \
3444
46
                 $(patsubst %(dotf)s,%(doto)s,$(wildcard P*/helas_calls*.f)) \
3445
47
                 $(patsubst %(dotf)s,%(doto)s,$(wildcard P*/jamp?_calls_*.f)) \
3446
48
                 $(patsubst %(dotf)s,%(doto)s,$(wildcard P*/mp_born_amps_and_wfs.f)) \
3447
49
                 $(patsubst %(dotf)s,%(doto)s,$(wildcard P*/mp_compute_loop_coefs.f)) \
3448
50
                 $(patsubst %(dotf)s,%(doto)s,$(wildcard P*/mp_helas_calls*.f)) \
3449
51
                 $(patsubst %(dotf)s,%(doto)s,$(wildcard P*/coef_construction_*.f)) \
3450
52
                 $(patsubst %(dotf)s,%(doto)s,$(wildcard P*/loop_CT_calls_*.f)) \
3451
53
                 $(patsubst %(dotf)s,%(doto)s,$(wildcard P*/mp_coef_construction_*.f)) \
3452
54
		 $(patsubst %(dotf)s,%(doto)s,$(wildcard P*/TIR_interface.f)) \
3453
55
		 $(patsubst %(dotf)s,%(doto)s,$(wildcard P*/GOLEM_interface.f))
3454
56
3455
57
$(PROG): check_sa.o $(PROCESS) makefile $(LIBS)
3456
58
	$(FC) $(FFLAGS) -o $(PROG) check_sa.o $(PROCESS) $(LINKLIBS)
3457
59
3458
60
$(STABCHECKDRIVER):  StabilityCheckDriver.o $(PROCESS) makefile $(LIBS)
3459
61
	$(FC) $(FFLAGS) -o $(STABCHECKDRIVER) StabilityCheckDriver.o $(PROCESS) $(LINKLIBS)
3460
62
3461
63
# The program below is not essential but just an helpful one to run the born only
3462
64
$(CHECK_SA_BORN_SPLITORDERS):  check_sa_born_splitOrders.o $(patsubst %(dotf)s,%(doto)s,$(wildcard *born_matrix.f)) makefile $(LIBDIR)libdhelas.$(libext) $(LIBDIR)libmodel.$(libext)
3463
65
	$(FC) $(FFLAGS) -o $(CHECK_SA_BORN_SPLITORDERS) check_sa_born_splitOrders.o $(patsubst %(dotf)s,%(doto)s,$(wildcard *born_matrix.f)) -L$(LIBDIR) -ldhelas -lmodel
3464
66
3465
67
%(doto)s : %(dotf)s
3466
68
	$(FC) $(FFLAGS) -c $< -o $@ %(tir_include)s
3467
69
3468
70
$(OLP): $(OLP_PROCESS) $(LIBS)
3469
71
	$(FC) -shared $(OLP_PROCESS) -o libMadLoop.$(dylibext) $(LINKLIBS)
3470
72
3471
73
clean:
3472
74
		@rm -f *.o
3473
0
75
3474
=== modified file 'UpdateNotes.txt'
3475
--- UpdateNotes.txt	2014-08-06 16:48:15 +0000
3476
+++ UpdateNotes.txt	2014-08-26 07:56:12 +0000
3477
@@ -1,5 +1,6 @@
3478
1
Update notes for MadGraph5_aMC@NLO (in reverse time order)
1
Update notes for MadGraph5_aMC@NLO (in reverse time order)
3479
2
2
3480
3
<<<<<<< TREE
3481
3
2.1.3()XX/XX/XX)OM: Fix various compatibility problem created by the LHEFv3 version (Thanks to S. Brochet)
4
2.1.3()XX/XX/XX)OM: Fix various compatibility problem created by the LHEFv3 version (Thanks to S. Brochet)
3482
4
                OM: Fix a bug for MadSpin in gridpack mode
5
                OM: Fix a bug for MadSpin in gridpack mode
3483
5
                OM: Add a routine to check the validity of LHE file (check_event command)
6
                OM: Add a routine to check the validity of LHE file (check_event command)
3484
@@ -8,6 +9,26 @@
3485
8
                OM: Change colorflow information of LHE file in presence of two epsilon_ijk
9
                OM: Change colorflow information of LHE file in presence of two epsilon_ijk
3486
9
                    since PY8 was not able to handle such flow in that format.
10
                    since PY8 was not able to handle such flow in that format.
3487
10
11
3488
12
=======
3489
13
2.2.0(21/07/14) VH: General mixed order corrections in MadLoop (only), including QCD/EW/QED and 
3490
14
                    the UFO@NLO model 'loop_qcd_qed_sm'.
3491
15
			    VH: Re-design of both the tree and MadLoop matrix elements output to compute 
3492
16
				    contributions of different coupling order combinations independently from one another.
3493
17
			 VH+HS: Tensor integral reduction as implemented in PJFry and IREGI readily available and 
3494
18
			        interfaced to MadLoop's output.
3495
19
			    VH: Re-structuring of MadLoop's standalone output so as to easily create a single dynamic 
3496
20
				    library including many processes at once. Useful for interfacing MadLoop to other MC's 
3497
21
					and already working with Sherpa.
3498
22
			 VH+HS: This branch contains all the fixes for proper treatment of the latest BSM@NLO models 
3499
23
			        produced by FeynRules@NLO. In particular, the fixed related to the presence of majorana 
3500
24
					particles in loop ME's.
3501
25
3502
26
          PT: Redesigned shower_card.dat and eliminated modbos options for Herwig6          
3503
27
          RF: Change the SPINUP information in the NLO LHEF from 0 to 9 (i.e. sum over helicities)
3504
28
          RF: Fixed a bug in the check on the determination of the conflicting BWs.
3505
29
          MZ: enabled LHAPDF6 interface 
3506
30
3507
31
>>>>>>> MERGE-SOURCE
3508
11
2.1.2(03/07/14) OM: Fix a bug in ALOHA in presence of customized propagator (Thanks Saurabh)
32
2.1.2(03/07/14) OM: Fix a bug in ALOHA in presence of customized propagator (Thanks Saurabh)
3509
12
                OM: Fixing some compilation issue with MadWeight (Thanks A. Pin)
33
                OM: Fixing some compilation issue with MadWeight (Thanks A. Pin)
3510
13
                OM: Fixing a bug preventing MadWidth to run due to the model prefixing (depending
34
                OM: Fixing a bug preventing MadWidth to run due to the model prefixing (depending
3511
14
35
3512
=== removed symlink 'VERSION'
3513
=== target was u'madgraph/VERSION'
3514
=== modified file 'aloha/aloha_lib.py'
3515
--- aloha/aloha_lib.py	2014-01-08 20:14:42 +0000
3516
+++ aloha/aloha_lib.py	2014-08-26 07:56:12 +0000
3517
@@ -938,6 +938,7 @@
3518
938
                    if not veto or not scalar.contains(veto):
938
                    if not veto or not scalar.contains(veto):
3519
939
                        scalar = scalar.simplify()
939
                        scalar = scalar.simplify()
3520
940
                        prefactor = 1
940
                        prefactor = 1
3521
941
3522
941
                        if hasattr(scalar, 'vartype') and scalar.prefactor not in  [1,-1]:
942
                        if hasattr(scalar, 'vartype') and scalar.prefactor not in  [1,-1]:
3523
942
                            prefactor = scalar.prefactor
943
                            prefactor = scalar.prefactor
3524
943
                            scalar.prefactor = 1
944
                            scalar.prefactor = 1
3525
@@ -1048,7 +1049,16 @@
3526
1048
            else:
1049
            else:
3527
1049
                raise self.LorentzObjectRepresentationError("There is no key of (0,) in representation.")                    
1050
                raise self.LorentzObjectRepresentationError("There is no key of (0,) in representation.")                    
3528
1050
        else:
1051
        else:
3530
1051
            self[(0,)] = representation
1052
            if isinstance(representation,dict):
3531
1053
                try:
3532
1054
                    self[(0,)] = representation[(0,)]
3533
1055
                except Exception:
3534
1056
                    if representation:
3535
1057
		   	            raise LorentzObjectRepresentation.LorentzObjectRepresentationError("There is no key of (0,) in representation.")
3536
1058
                    else:
3537
1059
			            self[(0,)] = 0
3538
1060
            else:
3539
1061
                self[(0,)] = representation
3540
1052
1062
3541
1053
    def __str__(self):
1063
    def __str__(self):
3542
1054
        """ string representation """
1064
        """ string representation """
3543
1055
1065
3544
=== modified file 'aloha/aloha_writers.py'
3545
--- aloha/aloha_writers.py	2014-08-04 14:56:54 +0000
3546
+++ aloha/aloha_writers.py	2014-08-26 07:56:12 +0000
3547
@@ -33,7 +33,6 @@
3548
33
33
3549
34
            
34
            
3550
35
    def __init__(self, abstract_routine, dirpath):
35
    def __init__(self, abstract_routine, dirpath):
3551
36
        
3552
37
        if aloha.loop_mode:
36
        if aloha.loop_mode:
3553
38
            self.momentum_size = 4
37
            self.momentum_size = 4
3554
39
        else:
38
        else:
3555
@@ -53,21 +52,19 @@
3556
53
        self.routine = abstract_routine
52
        self.routine = abstract_routine
3557
54
        self.tag = self.routine.tag
53
        self.tag = self.routine.tag
3558
55
        self.name = name
54
        self.name = name
3559
55
3560
56
        self.particles =  [self.type_to_variable[spin] for spin in \
56
        self.particles =  [self.type_to_variable[spin] for spin in \
3561
57
                          abstract_routine.spins]
57
                          abstract_routine.spins]
3563
58
        
58
3564
59
        self.offshell = abstract_routine.outgoing # position of the outgoing in particle list        
59
        self.offshell = abstract_routine.outgoing # position of the outgoing in particle list        
3565
60
        self.outgoing = self.offshell             # expected position for the argument list
60
        self.outgoing = self.offshell             # expected position for the argument list
3566
61
        if 'C%s' %((self.outgoing + 1) // 2) in self.tag:
61
        if 'C%s' %((self.outgoing + 1) // 2) in self.tag:
3567
62
            #flip the outgoing tag if in conjugate
62
            #flip the outgoing tag if in conjugate
3568
63
            self.outgoing = self.outgoing + self.outgoing % 2 - (self.outgoing +1) % 2
63
            self.outgoing = self.outgoing + self.outgoing % 2 - (self.outgoing +1) % 2
3569
64
        
3570
65
        self.outname = '%s%s' % (self.particles[self.outgoing -1], \
64
        self.outname = '%s%s' % (self.particles[self.outgoing -1], \
3571
66
                                                               self.outgoing)
65
                                                               self.outgoing)
3572
67
        
3573
68
        #initialize global helper routine
66
        #initialize global helper routine
3574
69
        self.declaration = Declaration_list()
67
        self.declaration = Declaration_list()
3575
70
3576
71
                                   
68
                                   
3577
72
                                       
69
                                       
3578
73
    def pass_to_HELAS(self, indices, start=0):
70
    def pass_to_HELAS(self, indices, start=0):
3579
@@ -200,7 +197,8 @@
3580
200
        # couplings
197
        # couplings
3581
201
        if  couplings is None:
198
        if  couplings is None:
3582
202
            detected_couplings = [name for type, name in self.declaration if name.startswith('COUP')]
199
            detected_couplings = [name for type, name in self.declaration if name.startswith('COUP')]
3584
203
            detected_couplings.sort()
200
            coup_sort = lambda x,y: int(x[4:])-int(y[4:])
3585
201
            detected_couplings.sort(coup_sort)
3586
204
            if detected_couplings:
202
            if detected_couplings:
3587
205
                couplings = detected_couplings
203
                couplings = detected_couplings
3588
206
            else:
204
            else:
3589
@@ -449,7 +447,7 @@
3590
449
                   'im': 'imag(%s)',
447
                   'im': 'imag(%s)',
3591
450
                   'cmath.sqrt':'sqrt(dble(%s))', 
448
                   'cmath.sqrt':'sqrt(dble(%s))', 
3592
451
                   'sqrt': 'sqrt(dble(%s))',
449
                   'sqrt': 'sqrt(dble(%s))',
3594
452
                   'complexconjugate': 'conjg(%s)',
450
                   'complexconjugate': 'conjg(dcmplx(%s))',
3595
453
                   '/' : '{0}/(%s)'.format(one),
451
                   '/' : '{0}/(%s)'.format(one),
3596
454
                   'pow': '(%s)**(%s)',
452
                   'pow': '(%s)**(%s)',
3597
455
                   'log': 'log(dble(%s))',
453
                   'log': 'log(dble(%s))',
3598
@@ -689,7 +687,7 @@
3599
689
                    if number.imag == 1:
687
                    if number.imag == 1:
3600
690
                        out = 'CI'
688
                        out = 'CI'
3601
691
                    elif number.imag == -1:
689
                    elif number.imag == -1:
3603
692
                        out = '-CI'
690
			            out = '-CI'
3604
693
                    else: 
691
                    else: 
3605
694
                        out = '%s * CI' % self.change_number_format(number.imag)
692
                        out = '%s * CI' % self.change_number_format(number.imag)
3606
695
            else:
693
            else:
3607
@@ -728,8 +726,9 @@
3608
728
        keys.sort(sort_fct)
726
        keys.sort(sort_fct)
3609
729
        for name in keys:
727
        for name in keys:
3610
730
            fct, objs = self.routine.fct[name]
728
            fct, objs = self.routine.fct[name]
3613
731
            format = ' %s = %s\n' % (name, self.get_fct_format(fct))
729
3614
732
            try:
730
	    format = ' %s = %s\n' % (name, self.get_fct_format(fct))
3615
731
	    try:
3616
733
                text = format % ','.join([self.write_obj(obj) for obj in objs])
732
                text = format % ','.join([self.write_obj(obj) for obj in objs])
3617
734
            except TypeError:
733
            except TypeError:
3618
735
                text = format % tuple([self.write_obj(obj) for obj in objs])
734
                text = format % tuple([self.write_obj(obj) for obj in objs])
3619
@@ -909,10 +908,10 @@
3620
909
        # position of the outgoing in particle list        
908
        # position of the outgoing in particle list        
3621
910
        self.l_id = [int(c[1:]) for c in abstract_routine.tag if c[0] == 'L'][0] 
909
        self.l_id = [int(c[1:]) for c in abstract_routine.tag if c[0] == 'L'][0] 
3622
911
        self.l_helas_id = self.l_id   # expected position for the argument list
910
        self.l_helas_id = self.l_id   # expected position for the argument list
3624
912
        if 'C%s' %((self.outgoing + 1) // 2) in abstract_routine.tag:
911
        if 'C%s' %((self.l_id + 1) // 2) in abstract_routine.tag:
3625
913
            #flip the outgoing tag if in conjugate
912
            #flip the outgoing tag if in conjugate
3628
914
            self.l_helas_id += self.l_id % 2 - (self.l_id +1) % 2 
913
            self.l_helas_id += self.l_id % 2 - (self.l_id +1) % 2
3629
915
        
914
         
3630
916
915
3631
917
    def define_expression(self):
916
    def define_expression(self):
3632
918
        """Define the functions in a 100% way """
917
        """Define the functions in a 100% way """
3633
@@ -1015,30 +1014,25 @@
3634
1015
        """define a list with the string of object required as incoming argument"""
1014
        """define a list with the string of object required as incoming argument"""
3635
1016
1015
3636
1017
        conjugate = [2*(int(c[1:])-1) for c in self.tag if c[0] == 'C']
1016
        conjugate = [2*(int(c[1:])-1) for c in self.tag if c[0] == 'C']
3638
1018
        call_arg = [('list_complex', 'P%s'% self.l_helas_id)] #incoming argument of the routine
1017
        call_arg = []
3639
1018
        #incoming argument of the routine
3640
1019
        call_arg.append( ('list_complex', 'P%s'% self.l_helas_id) )
3641
1020
        
3642
1019
        self.declaration.add(call_arg[0])
1021
        self.declaration.add(call_arg[0])
3643
1020
        
1022
        
3644
1021
        for index,spin in enumerate(self.particles):
1023
        for index,spin in enumerate(self.particles):
3646
1022
            if self.offshell == index + 1:
1024
            if self.outgoing == index + 1:
3647
1023
                continue
1025
                continue
3648
1024
            if self.l_helas_id == index + 1:
1026
            if self.l_helas_id == index + 1:
3649
1025
                continue
1027
                continue
3660
1026
            
1028
            call_arg.append(('complex','%s%d' % (spin, index +1)))
3651
1027
            if index in conjugate:
3652
1028
                index2, spin2 = index+1, self.particles[index+1]
3653
1029
                call_arg.append(('complex','%s%d' % (spin2, index2 +1)))
3654
1030
                #call_arg.append('%s%d' % (spin, index +1)) 
3655
1031
            elif index-1 in conjugate:
3656
1032
                index2, spin2 = index-1, self.particles[index-1]
3657
1033
                call_arg.append(('complex','%s%d' % (spin2, index2 +1)))
3658
1034
            else:
3659
1035
                call_arg.append(('complex','%s%d' % (spin, index +1)))
3661
1036
            self.declaration.add(('list_complex', call_arg[-1][-1])) 
1029
            self.declaration.add(('list_complex', call_arg[-1][-1])) 
3662
1037
        
1030
        
3663
1038
        # couplings
1031
        # couplings
3664
1039
        if couplings is None:
1032
        if couplings is None:
3665
1040
            detected_couplings = [name for type, name in self.declaration if name.startswith('COUP')]
1033
            detected_couplings = [name for type, name in self.declaration if name.startswith('COUP')]
3667
1041
            detected_couplings.sort()
1034
            coup_sort = lambda x,y: int(x[4:])-int(y[4:])
3668
1035
            detected_couplings.sort(coup_sort)
3669
1042
            if detected_couplings:
1036
            if detected_couplings:
3670
1043
                couplings = detected_couplings
1037
                couplings = detected_couplings
3671
1044
            else:
1038
            else:
3672
@@ -1059,7 +1053,7 @@
3673
1059
                self.declaration.add(('double','W%s' % self.outgoing))
1053
                self.declaration.add(('double','W%s' % self.outgoing))
3674
1060
            
1054
            
3675
1061
        self.call_arg = call_arg
1055
        self.call_arg = call_arg
3677
1062
                
1056
        
3678
1063
        return call_arg
1057
        return call_arg
3679
1064
1058
3680
1065
    def get_momenta_txt(self):
1059
    def get_momenta_txt(self):
3681
@@ -1315,9 +1309,9 @@
3682
1315
                   'im': 'imag(%s)',
1309
                   'im': 'imag(%s)',
3683
1316
                   'cmath.sqrt':'sqrt(%s)', 
1310
                   'cmath.sqrt':'sqrt(%s)', 
3684
1317
                   'sqrt': 'sqrt(%s)',
1311
                   'sqrt': 'sqrt(%s)',
3686
1318
                   'complexconjugate': 'conj(%s)',
1312
                   'complexconjugate': 'conj(dcmplx(%s))',
3687
1319
                   '/' : '{0}/%s'.format(one),
1313
                   '/' : '{0}/%s'.format(one),
3689
1320
                   'abs': 'abs(%s)' 
1314
                   'abs': 'abs(%s)'
3690
1321
                   }
1315
                   }
3691
1322
            
1316
            
3692
1323
        if fct in self.fct_format:
1317
        if fct in self.fct_format:
3693
@@ -2098,7 +2092,6 @@
3694
2098
class WriterFactory(object):
2092
class WriterFactory(object):
3695
2099
    
2093
    
3696
2100
    def __new__(cls, data, language, outputdir, tags):
2094
    def __new__(cls, data, language, outputdir, tags):
3697
2101
        
3698
2102
        language = language.lower()
2095
        language = language.lower()
3699
2103
        if isinstance(data.expr, aloha_lib.SplitCoefficient):
2096
        if isinstance(data.expr, aloha_lib.SplitCoefficient):
3700
2104
            assert language == 'fortran'
2097
            assert language == 'fortran'
3701
@@ -2106,7 +2099,6 @@
3702
2106
                return ALOHAWriterForFortranLoopQP(data, outputdir)
2099
                return ALOHAWriterForFortranLoopQP(data, outputdir)
3703
2107
            else:
2100
            else:
3704
2108
                return ALOHAWriterForFortranLoop(data, outputdir)
2101
                return ALOHAWriterForFortranLoop(data, outputdir)
3705
2109
        
3706
2110
        if language == 'fortran':
2102
        if language == 'fortran':
3707
2111
            if 'MP' in tags:
2103
            if 'MP' in tags:
3708
2112
                return ALOHAWriterForFortranQP(data, outputdir)
2104
                return ALOHAWriterForFortranQP(data, outputdir)
3709
2113
2105
3710
=== modified file 'aloha/create_aloha.py'
3711
--- aloha/create_aloha.py	2014-08-04 14:56:54 +0000
3712
+++ aloha/create_aloha.py	2014-08-26 07:56:12 +0000
3713
@@ -85,7 +85,6 @@
3714
85
        
85
        
3715
86
    def write(self, output_dir, language='Fortran', mode='self', combine=True,**opt):
86
    def write(self, output_dir, language='Fortran', mode='self', combine=True,**opt):
3716
87
        """ write the content of the object """
87
        """ write the content of the object """
3717
88
3718
89
        writer = aloha_writers.WriterFactory(self, language, output_dir, self.tag)
88
        writer = aloha_writers.WriterFactory(self, language, output_dir, self.tag)
3719
90
        text = writer.write(mode=mode, **opt)
89
        text = writer.write(mode=mode, **opt)
3720
91
        if combine:
90
        if combine:
3721
@@ -94,8 +93,7 @@
3722
94
                    text = tuple([old.__add__(new)  for old, new in zip(text, 
93
                    text = tuple([old.__add__(new)  for old, new in zip(text, 
3723
95
                             writer.write_combined(grouped, mode=mode+'no_include', **opt))])
94
                             writer.write_combined(grouped, mode=mode+'no_include', **opt))])
3724
96
                else:
95
                else:
3727
97
                    text += writer.write_combined(grouped, mode=mode+'no_include', **opt)
96
                    text += writer.write_combined(grouped, mode=mode+'no_include', **opt)        
3726
98
                
3728
99
        if aloha.mp_precision and 'MP' not in self.tag:
97
        if aloha.mp_precision and 'MP' not in self.tag:
3729
100
            self.tag.append('MP')
98
            self.tag.append('MP')
3730
101
            text += self.write(output_dir, language, mode, **opt)
99
            text += self.write(output_dir, language, mode, **opt)
3731
@@ -288,7 +286,7 @@
3732
288
            aloha_lib.KERNEL.use_tag = set(self.kernel_tag) 
286
            aloha_lib.KERNEL.use_tag = set(self.kernel_tag) 
3733
289
        else:
287
        else:
3734
290
            lorentz = copy.copy(self.routine_kernel)
288
            lorentz = copy.copy(self.routine_kernel)
3736
291
            aloha_lib.KERNEL.use_tag = set(self.kernel_tag) 
289
            aloha_lib.KERNEL.use_tag = set(self.kernel_tag)
3737
292
        for (i, spin ) in enumerate(self.spins):   
290
        for (i, spin ) in enumerate(self.spins):   
3738
293
            id = i + 1
291
            id = i + 1
3739
294
            #Check if this is the outgoing particle
292
            #Check if this is the outgoing particle
3740
@@ -478,8 +476,11 @@
3741
478
    
476
    
3742
479
    def compute_loop_coefficient(self, lorentz, outgoing):
477
    def compute_loop_coefficient(self, lorentz, outgoing):
3743
480
        
478
        
3746
481
                    
479
3747
482
        l_in = [int(tag[1:]) for tag in self.tag][0]
480
        l_in = [int(tag[1:]) for tag in self.tag if tag.startswith('L')][0]
3748
481
        if (l_in + 1) // 2 in self.conjg:
3749
482
            #flip the outgoing tag if in conjugate                                                                                                                                         
3750
483
            l_in = l_in + l_in % 2 - (l_in +1) % 2                    
3751
483
        assert l_in != outgoing, 'incoming Open Loop can not be the outcoming one'
484
        assert l_in != outgoing, 'incoming Open Loop can not be the outcoming one'
3752
484
        
485
        
3753
485
        # modify the expression for the momenta
486
        # modify the expression for the momenta
3754
@@ -820,12 +821,10 @@
3755
820
                                    self[(realname, outgoing)].add_combine(m)
821
                                    self[(realname, outgoing)].add_combine(m)
3756
821
                                except Exception,error:
822
                                except Exception,error:
3757
822
                                    self[(realname, self.symmetries[lorentz.name][outgoing])].add_combine(m)          
823
                                    self[(realname, self.symmetries[lorentz.name][outgoing])].add_combine(m)          
3760
823
                    
824
                       
3759
824
                    
3761
825
        if save:
825
        if save:
3762
826
            self.save()
826
            self.save()
3763
827
    
827
    
3764
828
    
3765
829
    def add_Lorentz_object(self, lorentzlist):
828
    def add_Lorentz_object(self, lorentzlist):
3766
830
        """add a series of Lorentz structure created dynamically"""
829
        """add a series of Lorentz structure created dynamically"""
3767
831
        
830
        
3768
@@ -844,12 +843,15 @@
3769
844
        self.look_for_symmetries()
843
        self.look_for_symmetries()
3770
845
        # reorganize the data (in order to use optimization for a given lorentz
844
        # reorganize the data (in order to use optimization for a given lorentz
3771
846
        #structure
845
        #structure
3772
846
        aloha.loop_mode = False
3773
847
	    # self.explicit_combine = False
3774
847
        request = {}
848
        request = {}
3775
848
849
3776
849
        for list_l_name, tag, outgoing in data:
850
        for list_l_name, tag, outgoing in data:
3777
850
            #allow tag to have integer for retro-compatibility
851
            #allow tag to have integer for retro-compatibility
3778
851
            all_tag = tag[:]
852
            all_tag = tag[:]
3779
852
            conjugate = [i for i in tag if isinstance(i, int)]
853
            conjugate = [i for i in tag if isinstance(i, int)]
3780
854
            
3781
853
            tag =  [i for i in tag if isinstance(i, str) and not i.startswith('P')]
855
            tag =  [i for i in tag if isinstance(i, str) and not i.startswith('P')]
3782
854
            tag = tag + ['C%s'%i for i in conjugate]             
856
            tag = tag + ['C%s'%i for i in conjugate]             
3783
855
            tag = tag + [i for i in all_tag if isinstance(i, str) and  i.startswith('P')] 
857
            tag = tag + [i for i in all_tag if isinstance(i, str) and  i.startswith('P')] 
3784
@@ -859,7 +861,7 @@
3785
859
            if loop:
861
            if loop:
3786
860
                aloha.loop_mode = True
862
                aloha.loop_mode = True
3787
861
                self.explicit_combine = True
863
                self.explicit_combine = True
3789
862
864
                       
3790
863
            for l_name in list_l_name:
865
            for l_name in list_l_name:
3791
864
                try:
866
                try:
3792
865
                    request[l_name][conjugate].append((outgoing,tag))
867
                    request[l_name][conjugate].append((outgoing,tag))
3793
@@ -868,7 +870,7 @@
3794
868
                        request[l_name][conjugate] = [(outgoing,tag)]
870
                        request[l_name][conjugate] = [(outgoing,tag)]
3795
869
                    except Exception:
871
                    except Exception:
3796
870
                        request[l_name] = {conjugate: [(outgoing,tag)]}
872
                        request[l_name] = {conjugate: [(outgoing,tag)]}
3798
871
                        
873
                           
3799
872
        # Loop on the structure to build exactly what is request
874
        # Loop on the structure to build exactly what is request
3800
873
        for l_name in request:
875
        for l_name in request:
3801
874
            lorentz = eval('self.model.lorentz.%s' % l_name)
876
            lorentz = eval('self.model.lorentz.%s' % l_name)
3802
@@ -898,7 +900,8 @@
3803
898
                    conjg_builder = builder.define_conjugate_builder(conjg)
900
                    conjg_builder = builder.define_conjugate_builder(conjg)
3804
899
                    # Compute routines
901
                    # Compute routines
3805
900
                    self.compute_aloha(conjg_builder, symmetry=lorentz.name,
902
                    self.compute_aloha(conjg_builder, symmetry=lorentz.name,
3807
901
                                        routines=routines)
903
                                         routines=routines)
3808
904
            
3809
902
        
905
        
3810
903
        # Build mutiple lorentz call
906
        # Build mutiple lorentz call
3811
904
        for list_l_name, tag, outgoing in data:
907
        for list_l_name, tag, outgoing in data:
3812
@@ -940,8 +943,10 @@
3813
940
                        conjg_builder = builder.define_conjugate_builder(conjg)
943
                        conjg_builder = builder.define_conjugate_builder(conjg)
3814
941
                        # Compute routines
944
                        # Compute routines
3815
942
                        self.compute_aloha(conjg_builder, symmetry=lorentz.name,
945
                        self.compute_aloha(conjg_builder, symmetry=lorentz.name,
3818
943
                                        routines=routines)             
946
                                        routines=routines)
3819
944
                        
947
                      
3820
948
  
3821
949
                            
3822
945
    def compute_aloha(self, builder, symmetry=None, routines=None, tag=[]):
950
    def compute_aloha(self, builder, symmetry=None, routines=None, tag=[]):
3823
946
        """ define all the AbstractRoutine linked to a given lorentz structure
951
        """ define all the AbstractRoutine linked to a given lorentz structure
3824
947
        symmetry authorizes to use the symmetry of anoter lorentz structure.
952
        symmetry authorizes to use the symmetry of anoter lorentz structure.
3825
@@ -971,7 +976,7 @@
3826
971
                wavefunction = builder.compute_routine(outgoing, tag)
976
                wavefunction = builder.compute_routine(outgoing, tag)
3827
972
                #Store the information
977
                #Store the information
3828
973
                self.set(realname, outgoing, wavefunction)
978
                self.set(realname, outgoing, wavefunction)
3830
974
            
979
          
3831
975
980
3832
976
    def compute_aloha_without_kernel(self, builder, symmetry=None, routines=None):
981
    def compute_aloha_without_kernel(self, builder, symmetry=None, routines=None):
3833
977
        """define all the AbstractRoutine linked to a given lorentz structure
982
        """define all the AbstractRoutine linked to a given lorentz structure
3834
@@ -992,10 +997,9 @@
3835
992
997
3836
993
    def write(self, output_dir, language):
998
    def write(self, output_dir, language):
3837
994
        """ write the full set of Helicity Routine in output_dir"""
999
        """ write the full set of Helicity Routine in output_dir"""
3838
995
3839
996
        for abstract_routine in self.values():
1000
        for abstract_routine in self.values():
3840
997
            abstract_routine.write(output_dir, language)
1001
            abstract_routine.write(output_dir, language)
3842
998
        
1002
3843
999
        for routine in self.external_routines:
1003
        for routine in self.external_routines:
3844
1000
            self.locate_external(routine, language, output_dir)
1004
            self.locate_external(routine, language, output_dir)
3845
1001
1005
3846
1002
1006
3847
=== modified file 'input/.mg5_configuration_default.txt'
3848
--- input/.mg5_configuration_default.txt	2014-06-30 11:59:30 +0000
3849
+++ input/.mg5_configuration_default.txt	2014-08-26 07:56:12 +0000
3850
@@ -90,7 +90,7 @@
3851
90
# run_mode = 2
90
# run_mode = 2
3852
91
91
3853
92
#! Cluster Type [pbs|sge|condor|lsf|ge|slurm] Use for cluster run only
92
#! Cluster Type [pbs|sge|condor|lsf|ge|slurm] Use for cluster run only
3855
93
#!  And cluster queue
93
#!  And cluster queue (or partition for slurm)
3856
94
# cluster_type = condor
94
# cluster_type = condor
3857
95
# cluster_queue = madgraph
95
# cluster_queue = madgraph
3858
96
96
3859
@@ -151,6 +151,20 @@
3860
151
#! Set what OLP to use for the loop ME generation
151
#! Set what OLP to use for the loop ME generation
3861
152
# OLP = MadLoop
152
# OLP = MadLoop
3862
153
153
3863
154
#! Set the PJFry++ lib libpjfry.a directory
3864
155
#! if auto: try to find it automatically on the system (default)
3865
156
#! if '' or None: not use PJFry++
3866
157
#! if pjfry=/PATH/TO/pjfry/lib: use that specific installation path for PJFry++
3867
158
# pjfry = auto
3868
159
3869
160
#! Set the Golem95 lib libgolem.a directory
3870
161
#! It only supports version higher than 1.3.0
3871
162
#! if auto: try to find it automatically on the system (default)
3872
163
#! if '' or None: not use Golem95
3873
164
#! if golem=/PATH/TO/golem/lib: use that speficif installation path for Golem95
3874
165
# golem = auto
3875
166
3876
167
3877
154
#! Set how MadLoop dependencies (such as CutTools) should be handled
168
#! Set how MadLoop dependencies (such as CutTools) should be handled
3878
155
#!  > external : ML5 places a link to the MG5_aMC-wide libraries
169
#!  > external : ML5 places a link to the MG5_aMC-wide libraries
3879
156
#!  > internal : ML5 copies all dependencies in the output so that it is independent
170
#!  > internal : ML5 copies all dependencies in the output so that it is independent
3880
@@ -163,3 +177,4 @@
3881
163
# syscalc_path = ./SysCalc
177
# syscalc_path = ./SysCalc
3882
164
178
3883
165
179
3884
180
3885
166
181
3886
=== removed file 'input/proc_card_default.dat'
3887
--- input/proc_card_default.dat	2013-12-09 01:31:26 +0000
3888
+++ input/proc_card_default.dat	1970-01-01 00:00:00 +0000
3889
@@ -1,40 +0,0 @@
3890
1
#************************************************************
3891
2
#*                        MadGraph 5                        *
3892
3
#*                                                          *
3893
4
#*                *                       *                 *
3894
5
#*                  *        * *        *                   *
3895
6
#*                    * * * * 5 * * * *                     *
3896
7
#*                  *        * *        *                   *
3897
8
#*                *                       *                 *
3898
9
#*                                                          *
3899
10
#*                                                          *
3900
11
#*    The MadGraph Development Team - Please visit us at    *
3901
12
#*    https://server06.fynu.ucl.ac.be/projects/madgraph     *
3902
13
#*                                                          *
3903
14
#************************************************************
3904
15
#*                                                          *
3905
16
#*               Command File for MadGraph 5                *
3906
17
#*                                                          *
3907
18
#*     run as ./bin/mg5  filename                           *
3908
19
#*                                                          *
3909
20
#************************************************************
3910
21
import model sm
3911
22
# Define multiparticle labels
3912
23
define p = g u c d s u~ c~ d~ s~
3913
24
define j = g u c d s u~ c~ d~ s~
3914
25
define l+ = e+ mu+
3915
26
define l- = e- mu-
3916
27
define vl = ve vm vt
3917
28
define vl~ = ve~ vm~ vt~
3918
29
# Specify process(es) to run
3919
30
generate p p > e- ve~ @1
3920
31
add process p p > e- ve~ j @2
3921
32
add process p p > t t~ @3
3922
33
# Output processes to MadEvent directory
3923
34
output 
3924
35
# This will create a directory PROC_$MODELNAME_$X
3925
36
# If you want to specify the path/name of the directory use
3926
37
# output PATH
3927
38
3928
39
# To generate events, you can go to the created directory and 
3929
40
# run ./bin/generate_events
3930
41
\ No newline at end of file
0
\ No newline at end of file
3931
42
1
3932
=== modified file 'madgraph/VERSION'
3933
--- madgraph/VERSION	2014-07-03 13:37:06 +0000
3934
+++ madgraph/VERSION	2014-08-26 07:56:12 +0000
3935
@@ -1,5 +1,5 @@
3938
1
version = 2.1.2
1
version = 2.2.0
3939
2
date = 2014-07-03
2
date = 2014-07-21
3940
3
3
3941
4
4
3942
5
5
3943
6
6
3944
=== modified file 'madgraph/core/base_objects.py'
3945
--- madgraph/core/base_objects.py	2014-06-29 15:15:00 +0000
3946
+++ madgraph/core/base_objects.py	2014-08-26 07:56:12 +0000
3947
@@ -94,7 +94,6 @@
3948
94
        """Set the value of the property name. First check if value
94
        """Set the value of the property name. First check if value
3949
95
        is a valid value for the considered property. Return True if the
95
        is a valid value for the considered property. Return True if the
3950
96
        value has been correctly set, False otherwise."""
96
        value has been correctly set, False otherwise."""
3951
97
3952
98
        if not __debug__ or force:
97
        if not __debug__ or force:
3953
99
            self[name] = value
98
            self[name] = value
3954
100
            return True
99
            return True
3955
@@ -345,6 +344,16 @@
3956
345
           in argument given the model specified. It is very fast for usual models"""
344
           in argument given the model specified. It is very fast for usual models"""
3957
346
           
345
           
3958
347
        for int in model['interactions'].get_type('base'):
346
        for int in model['interactions'].get_type('base'):
3959
347
            # We discard the interactions with more than one type of orders
3960
348
            # contributing because it then doesn't necessarly mean that this
3961
349
            # particle (self) is charged under the group corresponding to the
3962
350
            # coupling order 'order'. The typical example is in SUSY which 
3963
351
            # features a ' photon-gluon-squark-antisquark ' interaction which
3964
352
            # has coupling orders QED=1, QCD=1 and would induce the photon
3965
353
            # to be considered as a valid particle to circulate in a loop of
3966
354
            # type "QCD".
3967
355
            if len(int.get('orders'))>1:
3968
356
                continue
3969
348
            if order in int.get('orders').keys() and self.get('pdg_code') in \
357
            if order in int.get('orders').keys() and self.get('pdg_code') in \
3970
349
              [part.get('pdg_code') for part in int.get('particles')]:
358
              [part.get('pdg_code') for part in int.get('particles')]:
3971
350
                return True
359
                return True
3972
@@ -385,7 +394,24 @@
3973
385
            return - self['color']
394
            return - self['color']
3974
386
        else:
395
        else:
3975
387
            return self['color']
396
            return self['color']
3977
388
397
        
3978
398
    def get_charge(self):
3979
399
        """Return the charge code with a correct minus sign"""
3980
400
3981
401
        if not self['is_part']:
3982
402
            return - self['charge']
3983
403
        else:
3984
404
            return self['charge']
3985
405
3986
406
    def get_anti_charge(self):
3987
407
        """Return the charge code of the antiparticle with a correct minus sign
3988
408
        """
3989
409
3990
410
        if self['is_part']:
3991
411
            return - self['charge']
3992
412
        else:
3993
413
            return self['charge']
3994
414
        
3995
389
    def get_name(self):
415
    def get_name(self):
3996
390
        """Return the name if particle, antiname if antiparticle"""
416
        """Return the name if particle, antiname if antiparticle"""
3997
391
417
3998
@@ -453,10 +479,28 @@
3999
453
        corresponding particle (first one in the list), with the 
479
        corresponding particle (first one in the list), with the 
4000
454
        is_part flag set accordingly. None otherwise."""
480
        is_part flag set accordingly. None otherwise."""
4001
455
        
481
        
4002
482
        assert isinstance(name, str)
4003
483
        
4004
456
        part = self.find_name(name)
484
        part = self.find_name(name)
4005
457
        if not part:
485
        if not part:
4006
486
            # Then try to look for a particle with that PDG
4007
487
            try:
4008
488
                pdg = int(name)
4009
489
            except ValueError:
4010
490
                return None
4011
491
4012
492
            for p in self:
4013
493
                if p.get_pdg_code()==pdg:
4014
494
                    part = copy.copy(p)
4015
495
                    part.set('is_part', True)
4016
496
                    return part
4017
497
                elif p.get_anti_pdg_code()==pdg:
4018
498
                    part = copy.copy(p)
4019
499
                    part.set('is_part', False)
4020
500
                    return part
4021
501
4022
458
            return None
502
            return None
4024
459
        part = copy.copy(part)     
503
        part = copy.copy(part)
4025
460
          
504
          
4026
461
        if part.get('name') == name:
505
        if part.get('name') == name:
4027
462
            part.set('is_part', True)
506
            part.set('is_part', True)
4028
@@ -1930,6 +1974,13 @@
4029
1930
                res.append(leg.get('id'))
1974
                res.append(leg.get('id'))
4030
1931
1975
4031
1932
        return res
1976
        return res
4032
1977
    
4033
1978
    def sort(self,*args, **opts):
4034
1979
        """Match with FKSLegList"""
4035
1980
        Opts=copy.copy(opts)
4036
1981
        if 'pert' in Opts.keys():
4037
1982
            del Opts['pert']
4038
1983
        return super(LegList,self).sort(*args, **Opts)
4039
1933
1984
4040
1934
1985
4041
1935
#===============================================================================
1986
#===============================================================================
4042
@@ -2159,6 +2210,25 @@
4043
2159
        coupling_orders['WEIGHTED'] = weight
2210
        coupling_orders['WEIGHTED'] = weight
4044
2160
        self.set('orders', coupling_orders)
2211
        self.set('orders', coupling_orders)
4045
2161
2212
4046
2213
    def pass_squared_order_constraints(self, diag_multiplier, squared_orders,
4047
2214
                                                               sq_orders_types):
4048
2215
        """ Returns wether the contributiong consisting in the current diagram 
4049
2216
        multiplied by diag_multiplier passes the *positive* squared_orders 
4050
2217
        specified ( a dictionary ) of types sq_order_types (a dictionary whose 
4051
2218
        values are the relational operator used to define the constraint of the
4052
2219
        order in key)."""
4053
2220
        
4054
2221
        for order, value in squared_orders.items():
4055
2222
            if value<0:
4056
2223
                continue
4057
2224
            combined_order = self.get_order(order) + \
4058
2225
                                                diag_multiplier.get_order(order)
4059
2226
            if ( sq_orders_types[order]=='==' and combined_order != value ) or \
4060
2227
               ( sq_orders_types[order] in ['=', '<='] and combined_order > value) or \
4061
2228
               ( sq_orders_types[order]=='>' and combined_order <= value) :
4062
2229
                return False
4063
2230
        return True
4064
2231
4065
2162
    def get_order(self, order):
2232
    def get_order(self, order):
4066
2163
        """Return the order of this diagram. It returns 0 if it is not present."""
2233
        """Return the order of this diagram. It returns 0 if it is not present."""
4067
2164
2234
4068
@@ -2299,6 +2369,40 @@
4069
2299
2369
4070
2300
        return max_order
2370
        return max_order
4071
2301
2371
4072
2372
    def apply_negative_sq_order(self, ref_diag_list, order, value, order_type):
4073
2373
        """ This function returns a fitlered version of the diagram list self
4074
2374
        which satisfy the negative squared_order constraint 'order' with negative
4075
2375
        value 'value' and of type 'order_type', assuming that the diagram_list
4076
2376
        it must be squared against is 'reg_diag_list'. It also returns the
4077
2377
        new postive target squared order which correspond to this negative order
4078
2378
        constraint. Example: u u~ > d d~ QED^2<=-2 means that one wants to
4079
2379
        pick terms only up to the the next-to-leading order contributiong in QED,
4080
2380
        which is QED=2 in this case, so that target_order=4 is returned."""
4081
2381
        
4082
2382
        # First we must compute all contributions to that order
4083
2383
        target_order = min(ref_diag_list.get_order_values(order))+\
4084
2384
                                  min(self.get_order_values(order))+2*(-value-1)
4085
2385
        
4086
2386
        new_list = self.apply_positive_sq_orders(ref_diag_list, 
4087
2387
                                       {order:target_order}, {order:order_type})
4088
2388
        
4089
2389
        return new_list, target_order
4090
2390
        
4091
2391
    def apply_positive_sq_orders(self, ref_diag_list, sq_orders, sq_order_types):
4092
2392
        """ This function returns a filtered version of self which contain
4093
2393
        only the diagram which satisfy the positive squared order constraints
4094
2394
        sq_orders of type sq_order_types and assuming that the diagrams are
4095
2395
        multiplied with those of the reference diagram list ref_diag_list."""
4096
2396
                
4097
2397
        new_diag_list = DiagramList()
4098
2398
        for tested_diag in self:
4099
2399
            for ref_diag in ref_diag_list:
4100
2400
                if tested_diag.pass_squared_order_constraints(ref_diag,
4101
2401
                                                      sq_orders,sq_order_types):
4102
2402
                    new_diag_list.append(tested_diag)
4103
2403
                    break
4104
2404
        return new_diag_list
4105
2405
4106
2302
    def get_min_order(self,order):
2406
    def get_min_order(self,order):
4107
2303
        """ Return the order of the diagram in the list with the mimimum coupling
2407
        """ Return the order of the diagram in the list with the mimimum coupling
4108
2304
        order for the coupling specified """
2408
        order for the coupling specified """
4109
@@ -2312,6 +2416,19 @@
4110
2312
2416
4111
2313
        return min_order
2417
        return min_order
4112
2314
2418
4113
2419
    def get_order_values(self, order):
4114
2420
        """ Return the list of possible values appearing in the diagrams of this
4115
2421
        list for the order given in argument """
4116
2422
4117
2423
        values=set([])
4118
2424
        for diag in self:
4119
2425
            if order in diag['orders'].keys():
4120
2426
                values.add(diag['orders'][order])
4121
2427
            else:
4122
2428
                values.add(0)  
4123
2429
4124
2430
        return list(values)
4125
2431
4126
2315
#===============================================================================
2432
#===============================================================================
4127
2316
# Process
2433
# Process
4128
2317
#===============================================================================
2434
#===============================================================================
4129
@@ -2353,10 +2470,25 @@
4130
2353
        # gives the upper bound for the total weighted order of the
2470
        # gives the upper bound for the total weighted order of the
4131
2354
        # squared amplitude.
2471
        # squared amplitude.
4132
2355
        self['squared_orders'] = {}
2472
        self['squared_orders'] = {}
4133
2473
        # The squared order (sqorders) constraints above can either be upper 
4134
2474
        # bound (<=) or exact match (==) depending on how they were specified
4135
2475
        # in the user input. This choice is stored in the dictionary below.
4136
2476
        # Notice that the upper bound is the default
4137
2477
        self['sqorders_types'] = {}
4138
2356
        self['has_born'] = True
2478
        self['has_born'] = True
4139
2357
        # The NLO_mode is always None for a tree-level process and can be
2479
        # The NLO_mode is always None for a tree-level process and can be
4140
2358
        # 'all', 'real', 'virt' for a loop process.
2480
        # 'all', 'real', 'virt' for a loop process.
4141
2359
        self['NLO_mode'] = 'tree'
2481
        self['NLO_mode'] = 'tree'
4142
2482
        # The user might want to have the individual matrix element evaluations
4143
2483
        # for specific values of the coupling orders. The list below specifies
4144
2484
        # what are the coupling names which need be individually treated.
4145
2485
        # For example, for the process p p > j j [] QED=2 (QED=2 is 
4146
2486
        # then a squared order constraint), then QED will appear in the 
4147
2487
        # 'split_orders' list so that the subroutine in matrix.f return the
4148
2488
        # evaluation of the matrix element individually for the pure QCD 
4149
2489
        # contribution 'QCD=4 QED=0', the pure interference 'QCD=2 QED=2' and
4150
2490
        # the pure QED contribution of order 'QCD=0 QED=4'.
4151
2491
        self['split_orders'] = []
4152
2360
2492
4153
2361
    def filter(self, name, value):
2493
    def filter(self, name, value):
4154
2362
        """Filter for valid process property values."""
2494
        """Filter for valid process property values."""
4155
@@ -2369,6 +2501,24 @@
4156
2369
        if name in ['orders', 'overall_orders','squared_orders']:
2501
        if name in ['orders', 'overall_orders','squared_orders']:
4157
2370
            Interaction.filter(Interaction(), 'orders', value)
2502
            Interaction.filter(Interaction(), 'orders', value)
4158
2371
2503
4159
2504
        if name == 'sqorders_types':
4160
2505
            if not isinstance(value, dict):
4161
2506
                raise self.PhysicsObjectError, \
4162
2507
                        "%s is not a valid dictionary" % str(value)
4163
2508
            for order in value.keys()+value.values():
4164
2509
                if not isinstance(order, str):
4165
2510
                    raise self.PhysicsObjectError, \
4166
2511
                          "%s is not a valid string" % str(value)
4167
2512
4168
2513
        if name == 'split_orders':
4169
2514
            if not isinstance(value, list):
4170
2515
                raise self.PhysicsObjectError, \
4171
2516
                        "%s is not a valid list" % str(value)
4172
2517
            for order in value:
4173
2518
                if not isinstance(order, str):
4174
2519
                    raise self.PhysicsObjectError, \
4175
2520
                          "%s is not a valid string" % str(value)
4176
2521
4177
2372
        if name == 'model':
2522
        if name == 'model':
4178
2373
            if not isinstance(value, Model):
2523
            if not isinstance(value, Model):
4179
2374
                raise self.PhysicsObjectError, \
2524
                raise self.PhysicsObjectError, \
4180
@@ -2471,12 +2621,29 @@
4181
2471
2621
4182
2472
        return super(Process, self).set(name, value) # call the mother routine
2622
        return super(Process, self).set(name, value) # call the mother routine
4183
2473
2623
4184
2624
    def get_squared_order_type(self, order):
4185
2625
        """ Return what kind of squared order constraint was specified for the
4186
2626
        order 'order'."""
4187
2627
4188
2628
        if order in self['sqorders_types'].keys():
4189
2629
            return self['sqorders_types'][order]
4190
2630
        else:
4191
2631
            # Default behavior '=' is interpreted as upper bound '<='
4192
2632
            return '='
4193
2633
4194
2474
    def get(self, name):
2634
    def get(self, name):
4195
2475
        """Special get for legs_with_decays"""
2635
        """Special get for legs_with_decays"""
4196
2476
        
2636
        
4197
2477
        if name == 'legs_with_decays':
2637
        if name == 'legs_with_decays':
4198
2478
            self.get_legs_with_decays()
2638
            self.get_legs_with_decays()
4199
2479
2639
4200
2640
        if name == 'sqorders_types':
4201
2641
            # We must make sure that there is a type for each sqorder defined
4202
2642
            for order in self['squared_orders'].keys():
4203
2643
                if order not in self['sqorders_types']:
4204
2644
                    # Then assign its type to the default '='
4205
2645
                    self['sqorders_types'][order]='='
4206
2646
4207
2480
        return super(Process, self).get(name) # call the mother routine
2647
        return super(Process, self).get(name) # call the mother routine
4208
2481
2648
4209
2482
    def get_sorted_keys(self):
2649
    def get_sorted_keys(self):
4210
@@ -2486,8 +2653,8 @@
4211
2486
                'model', 'id', 'required_s_channels', 
2653
                'model', 'id', 'required_s_channels', 
4212
2487
                'forbidden_onsh_s_channels', 'forbidden_s_channels',
2654
                'forbidden_onsh_s_channels', 'forbidden_s_channels',
4213
2488
                'forbidden_particles', 'is_decay_chain', 'decay_chains',
2655
                'forbidden_particles', 'is_decay_chain', 'decay_chains',
4216
2489
                'legs_with_decays',
2656
                'legs_with_decays', 'perturbation_couplings', 'has_born', 
4217
2490
                'perturbation_couplings', 'has_born', 'NLO_mode']
2657
                'NLO_mode','split_orders']
4218
2491
2658
4219
2492
    def nice_string(self, indent=0, print_weighted = True):
2659
    def nice_string(self, indent=0, print_weighted = True):
4220
2493
        """Returns a nicely formated string about current process
2660
        """Returns a nicely formated string about current process
4221
@@ -2519,7 +2686,8 @@
4222
2519
        # Add orders
2686
        # Add orders
4223
2520
        if self['orders']:
2687
        if self['orders']:
4224
2521
            mystr = mystr + " ".join([key + '=' + repr(self['orders'][key]) \
2688
            mystr = mystr + " ".join([key + '=' + repr(self['orders'][key]) \
4226
2522
              for key in self['orders'] if print_weighted or key!='WEIGHTED']) + ' '
2689
              for key in self['orders'] if (print_weighted or key!='WEIGHTED') \
4227
2690
              and not key in self['squared_orders'].keys()]) + ' '
4228
2523
2691
4229
2524
        # Add perturbation_couplings
2692
        # Add perturbation_couplings
4230
2525
        if self['perturbation_couplings']:
2693
        if self['perturbation_couplings']:
4231
@@ -2531,9 +2699,11 @@
4232
2531
            mystr = mystr + '] '
2699
            mystr = mystr + '] '
4233
2532
2700
4234
2533
        # Add squared orders
2701
        # Add squared orders
4238
2534
        if self['perturbation_couplings'] and self['squared_orders']:
2702
        if self['squared_orders']:
4239
2535
            mystr = mystr + " ".join([key + '=' + repr(self['squared_orders'][key]) \
2703
            mystr = mystr + " ".join([key + '^2%s%d'%\
4240
2536
              for key in self['squared_orders'] if print_weighted or key!='WEIGHTED']) + ' ' 
2704
                (self.get_squared_order_type(key),self['squared_orders'][key]) \
4241
2705
              for key in self['squared_orders'].keys() \
4242
2706
                                    if print_weighted or key!='WEIGHTED']) + ' '
4243
2537
2707
4244
2538
        # Add forbidden s-channels
2708
        # Add forbidden s-channels
4245
2539
        if self['forbidden_onsh_s_channels']:
2709
        if self['forbidden_onsh_s_channels']:
4246
@@ -2786,6 +2956,20 @@
4247
2786
2956
4248
2787
    # Helper functions
2957
    # Helper functions
4249
2788
2958
4250
2959
    def are_negative_orders_present(self):
4251
2960
        """ Check iteratively that no coupling order constraint include negative
4252
2961
        values."""
4253
2962
4254
2963
        if any(val<0 for val in self.get('orders').values()+\
4255
2964
                                           self.get('squared_orders').values()):
4256
2965
            return True
4257
2966
        
4258
2967
        for procdef in self['decay_chains']:
4259
2968
            if procdef.are_negative_orders_present():
4260
2969
                return True
4261
2970
4262
2971
        return False
4263
2972
4264
2789
    def are_decays_perturbed(self):
2973
    def are_decays_perturbed(self):
4265
2790
        """ Check iteratively that the decayed processes are not perturbed """
2974
        """ Check iteratively that the decayed processes are not perturbed """
4266
2791
        
2975
        
4267
@@ -2794,6 +2978,14 @@
4268
2794
                return True
2978
                return True
4269
2795
        return False
2979
        return False
4270
2796
    
2980
    
4271
2981
    def decays_have_squared_orders(self):
4272
2982
        """ Check iteratively that the decayed processes are not perturbed """
4273
2983
        
4274
2984
        for procdef in self['decay_chains']:
4275
2985
            if procdef['squared_orders']!={} or procdef.decays_have_squared_orders():
4276
2986
                return True
4277
2987
        return False
4278
2988
    
4279
2797
    def get_ninitial(self):
2989
    def get_ninitial(self):
4280
2798
        """Gives number of initial state particles"""
2990
        """Gives number of initial state particles"""
4281
2799
2991
4282
@@ -2945,12 +3137,23 @@
4283
2945
        # Ensure that expansion orders are taken into account
3137
        # Ensure that expansion orders are taken into account
4284
2946
        expansion_orders = self.get('model').get('expansion_order')
3138
        expansion_orders = self.get('model').get('expansion_order')
4285
2947
        orders = self.get('orders')
3139
        orders = self.get('orders')
4286
3140
        sq_orders = self.get('squared_orders')
4287
2948
        
3141
        
4288
2949
        tmp = [(k,v) for (k,v) in expansion_orders.items() if 0 < v < 99]
3142
        tmp = [(k,v) for (k,v) in expansion_orders.items() if 0 < v < 99]
4289
2950
        for (k,v) in tmp:  
3143
        for (k,v) in tmp:  
4290
2951
            if k in orders:
3144
            if k in orders:
4291
2952
                if v < orders[k]:
3145
                if v < orders[k]:
4293
2953
                    logger.warning('''The coupling order (%s=%s) specified is larger than the one allowed 
3146
                    if k in sq_orders.keys() and \
4294
3147
                                             (sq_orders[k]>v or sq_orders[k]<0):
4295
3148
                        logger.warning(
4296
3149
'''The process with the squared coupling order (%s^2%s%s) specified can potentially 
4297
3150
recieve contributions with powers of the coupling %s larger than the maximal 
4298
3151
value allowed by the model builder (%s). Hence, MG5_aMC sets the amplitude order
4299
3152
for that coupling to be this maximal one. '''%(k,self.get('sqorders_types')[k],
4300
3153
                                             self.get('squared_orders')[k],k,v))
4301
3154
                    else:
4302
3155
                        logger.warning(
4303
3156
'''The coupling order (%s=%s) specified is larger than the one allowed 
4304
2954
             by the model builder. The maximal value allowed is %s. 
3157
             by the model builder. The maximal value allowed is %s. 
4305
2955
             We set the %s order to this value''' % (k,orders[k],v,k))
3158
             We set the %s order to this value''' % (k,orders[k],v,k))
4306
2956
                    orders[k] = v
3159
                    orders[k] = v
4307
@@ -3113,7 +3316,7 @@
4308
3113
3316
4309
3114
        return max_order_now, particles, hierarchy
3317
        return max_order_now, particles, hierarchy
4310
3115
3318
4312
3116
    def nice_string(self, indent=0):
3319
    def nice_string(self, indent=0, print_weighted=False):
4313
3117
        """Returns a nicely formated string about current process
3320
        """Returns a nicely formated string about current process
4314
3118
        content"""
3321
        content"""
4315
3119
3322
4316
@@ -3174,6 +3377,12 @@
4317
3174
                mystr = mystr + order + ' '
3377
                mystr = mystr + order + ' '
4318
3175
            mystr = mystr + '] '
3378
            mystr = mystr + '] '
4319
3176
3379
4320
3380
        if self['squared_orders']:
4321
3381
            mystr = mystr + " ".join([key + '^2%s%d'%\
4322
3382
                (self.get_squared_order_type(key),self['squared_orders'][key]) \
4323
3383
              for key in self['squared_orders'].keys() \
4324
3384
                                    if print_weighted or key!='WEIGHTED']) + ' '
4325
3385
4326
3177
        # Remove last space
3386
        # Remove last space
4327
3178
        mystr = mystr[:-1]
3387
        mystr = mystr[:-1]
4328
3179
3388
4329
@@ -3192,6 +3401,30 @@
4330
3192
3401
4331
3193
        return mystr
3402
        return mystr
4332
3194
3403
4333
3404
    def get_process_with_legs(self, LegList):
4334
3405
        """ Return a Process object which has the same properties of this 
4335
3406
            ProcessDefinition but with the specified LegList as legs attribute. 
4336
3407
            """
4337
3408
            
4338
3409
        return Process({\
4339
3410
            'legs': LegList,
4340
3411
            'model':self.get('model'),
4341
3412
            'id': self.get('id'),
4342
3413
            'orders': self.get('orders'),
4343
3414
            'sqorders_types': self.get('sqorders_types'),
4344
3415
            'squared_orders': self.get('squared_orders'),
4345
3416
            'has_born': self.get('has_born'),
4346
3417
            'required_s_channels': self.get('required_s_channels'),
4347
3418
            'forbidden_onsh_s_channels': self.get('forbidden_onsh_s_channels'),            
4348
3419
            'forbidden_s_channels': self.get('forbidden_s_channels'),
4349
3420
            'forbidden_particles': self.get('forbidden_particles'),
4350
3421
            'perturbation_couplings': self.get('perturbation_couplings'),
4351
3422
            'is_decay_chain': self.get('is_decay_chain'),
4352
3423
            'overall_orders': self.get('overall_orders'),
4353
3424
            'split_orders': self.get('split_orders'),
4354
3425
            'NLO_mode': self.get('NLO_mode')
4355
3426
            })
4356
3427
            
4357
3195
    def get_process(self, initial_state_ids, final_state_ids):
3428
    def get_process(self, initial_state_ids, final_state_ids):
4358
3196
        """ Return a Process object which has the same properties of this 
3429
        """ Return a Process object which has the same properties of this 
4359
3197
            ProcessDefinition but with the specified given leg ids. """
3430
            ProcessDefinition but with the specified given leg ids. """
4360
@@ -3207,19 +3440,9 @@
4361
3207
        for i, fs_id in enumerate(final_state_ids):
3440
        for i, fs_id in enumerate(final_state_ids):
4362
3208
            assert fs_id in my_fsids[i]
3441
            assert fs_id in my_fsids[i]
4363
3209
        
3442
        
4366
3210
        return Process({\
3443
        return self.get_process_with_legs(LegList(\
4365
3211
            'legs': LegList(\
4367
3212
               [Leg({'id': id, 'state':False}) for id in initial_state_ids] + \
3444
               [Leg({'id': id, 'state':False}) for id in initial_state_ids] + \
4378
3213
               [Leg({'id': id, 'state':True}) for id in final_state_ids]),
3445
               [Leg({'id': id, 'state':True}) for id in final_state_ids]))
4369
3214
            'model':self.get('model'),
4370
3215
            'id': self.get('id'),
4371
3216
            'orders': self.get('orders'),
4372
3217
            'required_s_channels': self.get('required_s_channels'),
4373
3218
            'forbidden_s_channels': self.get('forbidden_s_channels'),
4374
3219
            'forbidden_particles': self.get('forbidden_particles'),
4375
3220
            'perturbation_couplings': self.get('perturbation_couplings'),
4376
3221
            'is_decay_chain': self.get('is_decay_chain'),
4377
3222
            'overall_orders': self.get('overall_orders')})
4379
3223
3446
4380
3224
    def __eq__(self, other):
3447
    def __eq__(self, other):
4381
3225
        """Overloading the equality operator, so that only comparison
3448
        """Overloading the equality operator, so that only comparison
4382
3226
3449
4383
=== modified file 'madgraph/core/color_algebra.py'
4384
--- madgraph/core/color_algebra.py	2013-11-12 23:52:05 +0000
4385
+++ madgraph/core/color_algebra.py	2014-08-26 07:56:12 +0000
4386
@@ -165,6 +165,36 @@
4387
165
        return None
165
        return None
4388
166
166
4389
167
#===============================================================================
167
#===============================================================================
4390
168
# ColorOne
4391
169
#===============================================================================
4392
170
class ColorOne(ColorObject):
4393
171
    """The one of the color object"""
4394
172
4395
173
    def __init__(self, *args):
4396
174
        """Check for no index"""
4397
175
        
4398
176
        assert len(args) == 0 , "ColorOne objects must have no index!"
4399
177
        
4400
178
        super(ColorOne, self).__init__()
4401
179
4402
180
    def simplify(self):
4403
181
        """"""
4404
182
        assert len(self)==0, "There is argument(s) in color object ColorOne."
4405
183
        col_str = ColorString()
4406
184
        col_str.coeff = fractions.Fraction(1, 1)
4407
185
        return ColorFactor([col_str])
4408
186
4409
187
4410
188
    def pair_simplify(self, col_obj):
4411
189
        """Implement ColorOne product simplification"""
4412
190
4413
191
        if any(isinstance(col_obj, c_type) for c_type in [Tr,T,f,d,ColorOne]):
4414
192
            col_str = ColorString([col_obj])
4415
193
            return ColorFactor([col_str])
4416
194
        return None
4417
195
4418
196
4419
197
#===============================================================================
4420
168
# T
198
# T
4421
169
#===============================================================================
199
#===============================================================================
4422
170
class T(ColorObject):
200
class T(ColorObject):
4423
@@ -705,6 +735,10 @@
4424
705
735
4425
706
        ret_list = [(col_obj.__class__.__name__, tuple(col_obj)) \
736
        ret_list = [(col_obj.__class__.__name__, tuple(col_obj)) \
4426
707
                        for col_obj in self]
737
                        for col_obj in self]
4427
738
4428
739
        if not ret_list and self.coeff:
4429
740
            ret_list=[("ColorOne",tuple([]))]
4430
741
4431
708
        ret_list.sort()
742
        ret_list.sort()
4432
709
        self.immutable = tuple(ret_list)
743
        self.immutable = tuple(ret_list)
4433
710
744
4434
711
745
4435
=== modified file 'madgraph/core/color_amp.py'
4436
--- madgraph/core/color_amp.py	2013-11-12 23:52:05 +0000
4437
+++ madgraph/core/color_amp.py	2014-08-26 07:56:12 +0000
4438
@@ -67,10 +67,12 @@
4439
67
            min_index, res_dict = self.add_vertex(vertex, diagram, model,
67
            min_index, res_dict = self.add_vertex(vertex, diagram, model,
4440
68
                            repl_dict, res_dict, min_index)
68
                            repl_dict, res_dict, min_index)
4441
69
69
4446
70
        # Return an empty list if all entries are empty
70
        # if the process has no QCD particles
4447
71
        if all([cs == color_algebra.ColorString() \
71
        # Return a list filled with ColorOne if all entries are empty ColorString()
4448
72
                        for cs in res_dict.values()]):
72
        empty_colorstring = color_algebra.ColorString()
4449
73
            res_dict = {}
73
        if all(cs == empty_colorstring for cs in res_dict.values()):
4450
74
            res_dict = dict((key, color_algebra.ColorString(
4451
75
                               [color_algebra.ColorOne()])) for key in res_dict)
4452
74
                    
76
                    
4453
75
        return res_dict
77
        return res_dict
4454
76
78
4455
@@ -369,7 +371,6 @@
4456
369
        indices) associated to my_color_string. Take a list of the external leg
371
        indices) associated to my_color_string. Take a list of the external leg
4457
370
        color octet state indices as an input. Returns only the leading N 
372
        color octet state indices as an input. Returns only the leading N 
4458
371
        contribution!"""
373
        contribution!"""
4459
372
4460
373
        # Create a new color factor to allow for simplification
374
        # Create a new color factor to allow for simplification
4461
374
        my_cf = color_algebra.ColorFactor([my_color_string])
375
        my_cf = color_algebra.ColorFactor([my_color_string])
4462
375
376
4463
@@ -453,7 +454,6 @@
4464
453
            # Rebuild a color string from a CB entry
454
            # Rebuild a color string from a CB entry
4465
454
            col_str = color_algebra.ColorString()
455
            col_str = color_algebra.ColorString()
4466
455
            col_str.from_immutable(col_basis_entry)
456
            col_str.from_immutable(col_basis_entry)
4467
456
4468
457
            for (leg_num, leg_repr) in repr_dict.items():
457
            for (leg_num, leg_repr) in repr_dict.items():
4469
458
                # By default, assign a (0,0) color flow
458
                # By default, assign a (0,0) color flow
4470
459
                res_dict[leg_num] = [0, 0]
459
                res_dict[leg_num] = [0, 0]
4471
@@ -548,7 +548,7 @@
4472
548
548
4473
549
        self.col_matrix_fixed_Nc = {}
549
        self.col_matrix_fixed_Nc = {}
4474
550
        self.inverted_col_matrix = {}
550
        self.inverted_col_matrix = {}
4476
551
551
        
4477
552
        self._col_basis1 = col_basis
552
        self._col_basis1 = col_basis
4478
553
        if col_basis2:
553
        if col_basis2:
4479
554
            self._col_basis2 = col_basis2
554
            self._col_basis2 = col_basis2
4480
@@ -574,7 +574,6 @@
4481
574
                    enumerate(sorted(self._col_basis1.keys())):
574
                    enumerate(sorted(self._col_basis1.keys())):
4482
575
            for i2, struct2 in \
575
            for i2, struct2 in \
4483
576
                    enumerate(sorted(self._col_basis2.keys())):
576
                    enumerate(sorted(self._col_basis2.keys())):
4484
577
4485
578
                # Only scan upper right triangle if symmetric
577
                # Only scan upper right triangle if symmetric
4486
579
                if is_symmetric and i2 < i1:
578
                if is_symmetric and i2 < i1:
4487
580
                    continue
579
                    continue
4488
@@ -699,13 +698,18 @@
4489
699
        appearing in struct1. Assumes internal summed indices are negative."""
698
        appearing in struct1. Assumes internal summed indices are negative."""
4490
700
699
4491
701
        # First, determines what is the smallest index appearing in struct1
700
        # First, determines what is the smallest index appearing in struct1
4494
702
        min_index = min(reduce(operator.add,
701
        #list2 = reduce(operator.add,[list(elem[1]) for elem in struct1])
4495
703
                                [list(elem[1]) for elem in struct1])) - 1
702
        list2 = sum((list(elem[1]) for elem in struct1),[])
4496
703
        if not list2: 
4497
704
            min_index = -1
4498
705
        else:
4499
706
           min_index = min(list2) - 1
4500
707
4501
704
        # Second, determines the summed indices in struct2 and create a 
708
        # Second, determines the summed indices in struct2 and create a 
4502
705
        # replacement dictionary
709
        # replacement dictionary
4503
706
        repl_dict = {}
710
        repl_dict = {}
4506
707
        list2 = reduce(operator.add,
711
        #list2 = reduce(operator.add,
4507
708
                       [list(elem[1]) for elem in struct1])
712
        #               [list(elem[1]) for elem in struct1])
4508
709
        for summed_index in list(set([i for i in list2 \
713
        for summed_index in list(set([i for i in list2 \
4509
710
                                      if list2.count(i) == 2])):
714
                                      if list2.count(i) == 2])):
4510
711
            repl_dict[summed_index] = min_index
715
            repl_dict[summed_index] = min_index
4511
@@ -732,5 +736,8 @@
4512
732
    @staticmethod
736
    @staticmethod
4513
733
    def lcmm(*args):
737
    def lcmm(*args):
4514
734
        """Return lcm of args."""
738
        """Return lcm of args."""
4516
735
        return reduce(ColorMatrix.lcm, args)
739
        if args:
4517
740
            return reduce(ColorMatrix.lcm, args)
4518
741
        else:
4519
742
            return 1
4520
736
743
4521
737
744
4522
=== modified file 'madgraph/core/diagram_generation.py'
4523
--- madgraph/core/diagram_generation.py	2014-06-29 15:15:00 +0000
4524
+++ madgraph/core/diagram_generation.py	2014-08-26 07:56:12 +0000
4525
@@ -387,7 +387,6 @@
4526
387
387
4527
388
    def __init__(self, argument=None):
388
    def __init__(self, argument=None):
4528
389
        """Allow initialization with Process"""
389
        """Allow initialization with Process"""
4529
390
4530
391
        if isinstance(argument, base_objects.Process):
390
        if isinstance(argument, base_objects.Process):
4531
392
            super(Amplitude, self).__init__()
391
            super(Amplitude, self).__init__()
4532
393
            self.set('process', argument)
392
            self.set('process', argument)
4533
@@ -507,7 +506,6 @@
4534
507
        DiagramList by the function. This is controlled by the argument
506
        DiagramList by the function. This is controlled by the argument
4535
508
        returndiag.
507
        returndiag.
4536
509
        """
508
        """
4537
510
4538
511
        process = self.get('process')
509
        process = self.get('process')
4539
512
        model = process.get('model')
510
        model = process.get('model')
4540
513
        legs = process.get('legs')
511
        legs = process.get('legs')
4541
@@ -744,13 +742,20 @@
4542
744
                newleg = copy.copy(vert.get('legs').pop(-1))
742
                newleg = copy.copy(vert.get('legs').pop(-1))
4543
745
                newleg.set('onshell', False)
743
                newleg.set('onshell', False)
4544
746
                vert.get('legs').append(newleg)
744
                vert.get('legs').append(newleg)
4545
747
                
4546
748
        # Set diagrams to res
4547
749
        self['diagrams'] = res
4548
750
745
4549
751
        # Set actual coupling orders for each diagram
746
        # Set actual coupling orders for each diagram
4550
752
        for diagram in res:
747
        for diagram in res:
4551
753
            diagram.calculate_orders(model)
748
            diagram.calculate_orders(model)
4552
749
            
4553
750
        # Filter the diagrams according to the squared coupling order
4554
751
        # constraints and possible the negative one. Remember that OrderName=-n
4555
752
        # means that the user wants to include everything up to the N^(n+1)LO
4556
753
        # contribution in that order and at most one order can be restricted
4557
754
        # in this way. We shall do this only if the diagrams are not asked to
4558
755
        # be returned, as it is the case for NLO because it this case the
4559
756
        # interference are not necessarily among the diagrams generated here only.
4560
757
        if not returndiag and len(res)>0:
4561
758
            res = self.apply_squared_order_constraints(res)
4562
754
759
4563
755
        # Replace final id=0 vertex if necessary
760
        # Replace final id=0 vertex if necessary
4564
756
        if not process.get('is_decay_chain'):
761
        if not process.get('is_decay_chain'):
4565
@@ -784,7 +789,10 @@
4566
784
        self.trim_diagrams(diaglist=res)
789
        self.trim_diagrams(diaglist=res)
4567
785
790
4568
786
        # Sort process legs according to leg number
791
        # Sort process legs according to leg number
4570
787
        self.get('process').get('legs').sort()
792
        pertur = 'QCD'
4571
793
        if self.get('process')['perturbation_couplings']:
4572
794
            pertur = sorted(self.get('process')['perturbation_couplings'])[0]
4573
795
        self.get('process').get('legs').sort(pert=pertur)
4574
788
796
4575
789
        # Set diagrams to res if not asked to be returned
797
        # Set diagrams to res if not asked to be returned
4576
790
        if not returndiag:
798
        if not returndiag:
4577
@@ -793,6 +801,47 @@
4578
793
        else:
801
        else:
4579
794
           return not failed_crossing, res
802
           return not failed_crossing, res
4580
795
803
4581
804
    def apply_squared_order_constraints(self, diag_list):
4582
805
        """Applies the user specified squared order constraints on the diagram
4583
806
        list in argument."""
4584
807
4585
808
        res = copy.copy(diag_list)                  
4586
809
4587
810
        # Iterate the filtering since the applying the constraint on one
4588
811
        # type of coupling order can impact what the filtering on a previous
4589
812
        # one (relevant for the '==' type of constraint).
4590
813
        while True:   
4591
814
            new_res = res.apply_positive_sq_orders(res, 
4592
815
                                          self['process'].get('squared_orders'), 
4593
816
                                              self['process']['sqorders_types'])
4594
817
            # Exit condition
4595
818
            if len(res)==len(new_res):
4596
819
                break
4597
820
            elif (len(new_res)>len(res)):
4598
821
                raise MadGraph5Error(
4599
822
                 'Inconsistency in function apply_squared_order_constraints().')
4600
823
            # Actualizing the list of diagram for the next iteration
4601
824
            res = new_res
4602
825
4603
826
        # Now treat the negative squared order constraint (at most one)
4604
827
        neg_orders = [(order, value) for order, value in \
4605
828
                       self['process'].get('squared_orders').items() if value<0]
4606
829
        if len(neg_orders)==1:
4607
830
            neg_order, neg_value = neg_orders[0]
4608
831
            # Now check any negative order constraint
4609
832
            res, target_order = res.apply_negative_sq_order(res, neg_order,\
4610
833
                  neg_value, self['process']['sqorders_types'][neg_order])
4611
834
            # Substitute the negative value to this positive one so that
4612
835
            # the resulting computed constraints appears in the print out
4613
836
            # and at the output stage we no longer have to deal with 
4614
837
            # negative valued target orders
4615
838
            self['process']['squared_orders'][neg_order]=target_order
4616
839
        elif len(neg_orders)>1:
4617
840
            raise InvalidCmd('At most one negative squared order constraint'+\
4618
841
                                   ' can be specified, not %s.'%str(neg_orders))
4619
842
4620
843
        return res
4621
844
4622
796
    def create_diagram(self, vertexlist):
845
    def create_diagram(self, vertexlist):
4623
797
        """ Return a Diagram created from the vertex list. This function can be
846
        """ Return a Diagram created from the vertex list. This function can be
4624
798
            overloaded by daughter classes."""
847
            overloaded by daughter classes."""
4625
@@ -908,7 +957,9 @@
4626
908
        orders subtracted. If coupling_orders is not given, return
957
        orders subtracted. If coupling_orders is not given, return
4627
909
        None (which counts as success).
958
        None (which counts as success).
4628
910
        WEIGHTED is a special order, which corresponds to the sum of
959
        WEIGHTED is a special order, which corresponds to the sum of
4630
911
        order hierarchys for the couplings."""
960
        order hierarchies for the couplings.
4631
961
        We ignore negative constraints as these cannot be taken into
4632
962
        account on the fly but only after generation."""
4633
912
963
4634
913
        if not coupling_orders:
964
        if not coupling_orders:
4635
914
            return None
965
            return None
4636
@@ -922,7 +973,8 @@
4637
922
            for coupling in inter.get('orders').keys():
973
            for coupling in inter.get('orders').keys():
4638
923
                # Note that we don't consider a missing coupling as a
974
                # Note that we don't consider a missing coupling as a
4639
924
                # constraint
975
                # constraint
4641
925
                if coupling in present_couplings:
976
                if coupling in present_couplings and \
4642
977
                                                 present_couplings[coupling]>=0:
4643
926
                    # Reduce the number of couplings that are left
978
                    # Reduce the number of couplings that are left
4644
927
                    present_couplings[coupling] -= \
979
                    present_couplings[coupling] -= \
4645
928
                             inter.get('orders')[coupling]
980
                             inter.get('orders')[coupling]
4646
@@ -930,7 +982,8 @@
4647
930
                        # We have too many couplings of this type
982
                        # We have too many couplings of this type
4648
931
                        return False
983
                        return False
4649
932
            # Now check for WEIGHTED, i.e. the sum of coupling hierarchy values
984
            # Now check for WEIGHTED, i.e. the sum of coupling hierarchy values
4651
933
            if 'WEIGHTED' in present_couplings:
985
            if 'WEIGHTED' in present_couplings and \
4652
986
                                               present_couplings['WEIGHTED']>=0:
4653
934
                weight = sum([model.get('order_hierarchy')[c]*n for \
987
                weight = sum([model.get('order_hierarchy')[c]*n for \
4654
935
                              (c,n) in inter.get('orders').items()])
988
                              (c,n) in inter.get('orders').items()])
4655
936
                present_couplings['WEIGHTED'] -= weight
989
                present_couplings['WEIGHTED'] -= weight
4656
@@ -1124,7 +1177,7 @@
4657
1124
    def trim_diagrams(self, decay_ids=[], diaglist=None):
1177
    def trim_diagrams(self, decay_ids=[], diaglist=None):
4658
1125
        """Reduce the number of legs and vertices used in memory.
1178
        """Reduce the number of legs and vertices used in memory.
4659
1126
        When called by a diagram generation initiated by LoopAmplitude, 
1179
        When called by a diagram generation initiated by LoopAmplitude, 
4661
1127
        this function should no trim the diagrams in the attribute 'diagrams'
1180
        this function should not trim the diagrams in the attribute 'diagrams'
4662
1128
        but rather a given list in the 'diaglist' argument."""
1181
        but rather a given list in the 'diaglist' argument."""
4663
1129
1182
4664
1130
        legs = []
1183
        legs = []
4665
@@ -1164,7 +1217,6 @@
4666
1164
                    diagram.get('vertices')[ivx] = vertices[index]
1217
                    diagram.get('vertices')[ivx] = vertices[index]
4667
1165
                except ValueError:
1218
                except ValueError:
4668
1166
                    vertices.append(vertex)
1219
                    vertices.append(vertex)
4669
1167
        
4670
1168
1220
4671
1169
#===============================================================================
1221
#===============================================================================
4672
1170
# AmplitudeList
1222
# AmplitudeList
4673
@@ -1627,10 +1679,14 @@
4674
1627
                                 process_definition.get('perturbation_couplings'),
1679
                                 process_definition.get('perturbation_couplings'),
4675
1628
                              'squared_orders': \
1680
                              'squared_orders': \
4676
1629
                                 process_definition.get('squared_orders'),
1681
                                 process_definition.get('squared_orders'),
4677
1682
                              'sqorders_types': \
4678
1683
                                 process_definition.get('sqorders_types'),                              
4679
1630
                              'overall_orders': \
1684
                              'overall_orders': \
4680
1631
                                 process_definition.get('overall_orders'),
1685
                                 process_definition.get('overall_orders'),
4681
1632
                              'has_born': \
1686
                              'has_born': \
4683
1633
                                 process_definition.get('has_born')
1687
                                 process_definition.get('has_born'),
4684
1688
                              'split_orders': \
4685
1689
                                 process_definition.get('split_orders')                                
4686
1634
                                 })
1690
                                 })
4687
1635
                fast_proc = \
1691
                fast_proc = \
4688
1636
                          array.array('i',[leg.get('id') for leg in legs])
1692
                          array.array('i',[leg.get('id') for leg in legs])
4689
@@ -1854,6 +1910,12 @@
4690
1854
                                 process_definition.get('required_s_channels'),
1910
                                 process_definition.get('required_s_channels'),
4691
1855
                              'forbidden_onsh_s_channels': \
1911
                              'forbidden_onsh_s_channels': \
4692
1856
                                 process_definition.get('forbidden_onsh_s_channels'),
1912
                                 process_definition.get('forbidden_onsh_s_channels'),
4693
1913
                              'sqorders_types': \
4694
1914
                                 process_definition.get('sqorders_types'),
4695
1915
                              'squared_orders': \
4696
1916
                                 process_definition.get('squared_orders'),
4697
1917
                              'split_orders': \
4698
1918
                                 process_definition.get('split_orders'), 
4699
1857
                              'forbidden_s_channels': \
1919
                              'forbidden_s_channels': \
4700
1858
                                 process_definition.get('forbidden_s_channels'),
1920
                                 process_definition.get('forbidden_s_channels'),
4701
1859
                              'forbidden_particles': \
1921
                              'forbidden_particles': \
4702
@@ -1861,7 +1923,9 @@
4703
1861
                              'is_decay_chain': \
1923
                              'is_decay_chain': \
4704
1862
                                 process_definition.get('is_decay_chain'),
1924
                                 process_definition.get('is_decay_chain'),
4705
1863
                              'overall_orders': \
1925
                              'overall_orders': \
4707
1864
                                 process_definition.get('overall_orders')})
1926
                                 process_definition.get('overall_orders'),
4708
1927
                              'split_orders': \
4709
1928
                                 process_definition.get('split_orders')})
4710
1865
1929
4711
1866
                    # Check for couplings with given expansion orders
1930
                    # Check for couplings with given expansion orders
4712
1867
                    process.check_expansion_orders()
1931
                    process.check_expansion_orders()
4713
1868
1932
4714
=== modified file 'madgraph/core/drawing.py'
4715
--- madgraph/core/drawing.py	2013-11-13 02:21:10 +0000
4716
+++ madgraph/core/drawing.py	2014-08-26 07:56:12 +0000
4717
@@ -92,8 +92,6 @@
4718
92
        assert isinstance(vertex, VertexPoint), 'The begin point should be a ' + \
92
        assert isinstance(vertex, VertexPoint), 'The begin point should be a ' + \
4719
93
                 'Vertex_Point object'
93
                 'Vertex_Point object'
4720
94
94
4721
95
        assert vertex is not self.end
4722
96
4723
97
        self.begin = vertex
95
        self.begin = vertex
4724
98
        vertex.add_line(self)
96
        vertex.add_line(self)
4725
99
        return
97
        return
4726
@@ -104,8 +102,6 @@
4727
104
        assert isinstance(vertex, VertexPoint), 'The end point should be a ' + \
102
        assert isinstance(vertex, VertexPoint), 'The end point should be a ' + \
4728
105
                 'Vertex_Point object'
103
                 'Vertex_Point object'
4729
106
104
4730
107
        assert vertex is not self.begin
4731
108
                 
4732
109
        self.end = vertex
105
        self.end = vertex
4733
110
        vertex.add_line(self)
106
        vertex.add_line(self)
4734
111
        return
107
        return
4735
@@ -1797,6 +1793,8 @@
4736
1797
1793
4737
1798
        # check if we need curved loop particles
1794
        # check if we need curved loop particles
4738
1799
        curved_for_loop = False
1795
        curved_for_loop = False
4739
1796
        circled_for_loop = False
4740
1797
        
4741
1800
        if isinstance(diagram, LoopFeynmanDiagram):
1798
        if isinstance(diagram, LoopFeynmanDiagram):
4742
1801
            # If only 2 particle in the loop require that those lines are
1799
            # If only 2 particle in the loop require that those lines are
4743
1802
            # curved
1800
            # curved
4744
@@ -1804,10 +1802,17 @@
4745
1804
                curved_for_loop = True
1802
                curved_for_loop = True
4746
1805
                self.curved_part_start = (0, 0)
1803
                self.curved_part_start = (0, 0)
4747
1806
        
1804
        
4748
1805
            # for tadpole DOES NOT CRASH BUT STILL NEED FIXING
4749
1806
            elif len([l for l in diagram.lineList if l.loop_line]) == 1:
4750
1807
                circled_for_loop = True
4751
1808
                self.curved_part_start = (0, 0)
4752
1809
4753
1807
        # drawing the particles
1810
        # drawing the particles
4756
1808
        for line in diagram.lineList:    
1811
        for line in diagram.lineList:
4757
1809
            if not curved_for_loop or not line.loop_line:
1812
            if (not curved_for_loop and not circled_for_loop) or not line.loop_line:
4758
1810
                self.draw_line(line)
1813
                self.draw_line(line)
4759
1814
            elif circled_for_loop:
4760
1815
                self.draw_circled_line(line)
4761
1811
            else:
1816
            else:
4762
1812
                self.draw_curved_line(line)
1817
                self.draw_curved_line(line)
4763
1813
                
1818
                
4764
@@ -1856,6 +1861,34 @@
4765
1856
            number = line.number
1861
            number = line.number
4766
1857
            self.associate_number(line, number)
1862
            self.associate_number(line, number)
4767
1858
1863
4768
1864
    # To draw tadpole
4769
1865
    def draw_circled_line(self, line):
4770
1866
        """Draw the line information.
4771
1867
        First, call the method associate the line type [draw_circled_XXXXXX]
4772
1868
        Then finalize line representation by adding his name."""
4773
1869
4774
1870
        # if 4 point (or more interaction at the beginning/end of the loop
4775
1871
        # need to reduce curvature
4776
1872
        if len(line.begin.lines) > 3 or len(line.end.lines) > 3 :
4777
1873
            cercle = False
4778
1874
        else:
4779
1875
            cercle = True
4780
1876
4781
1877
        # Find the type line of the particle [straight, wavy, ...]
4782
1878
        line_type = line.get_info('line')
4783
1879
        # Call the routine associate to this type [self.draw_straight, ...]
4784
1880
        if hasattr(self, 'draw_circled_' + line_type):
4785
1881
            getattr(self, 'draw_circled_' + line_type)(line, cercle)
4786
1882
        else:
4787
1883
            self.draw_circled_straight(line, reduce)
4788
1884
            
4789
1885
        # Finalize the line representation with adding the name of the particle
4790
1886
        name = line.get_name()
4791
1887
        self.associate_name(line, name)
4792
1888
        
4793
1889
        #store begin for helping future curving
4794
1890
        self.curved_part_start = (line.begin.pos_x, line.begin.pos_y*1.2)
4795
1891
4796
1859
    def draw_curved_line(self, line):
1892
    def draw_curved_line(self, line):
4797
1860
        """Draw the line information.
1893
        """Draw the line information.
4798
1861
        First, call the method associate the line type [draw_curved_XXXXXX]
1894
        First, call the method associate the line type [draw_curved_XXXXXX]
4799
1862
1895
4800
=== modified file 'madgraph/core/helas_objects.py'
4801
--- madgraph/core/helas_objects.py	2013-11-29 07:28:53 +0000
4802
+++ madgraph/core/helas_objects.py	2014-08-26 07:56:12 +0000
4803
@@ -89,6 +89,7 @@
4804
89
        else:
89
        else:
4805
90
            sorted_tags = sorted([cls(d, model, ninitial) for d in \
90
            sorted_tags = sorted([cls(d, model, ninitial) for d in \
4806
91
                                      amplitude.get('diagrams')])
91
                                      amplitude.get('diagrams')])
4807
92
4808
92
        # Do not use this for loop diagrams as for now the HelasMultiProcess
93
        # Do not use this for loop diagrams as for now the HelasMultiProcess
4809
93
        # always contain only exactly one loop amplitude.
94
        # always contain only exactly one loop amplitude.
4810
94
        if sorted_tags and not isinstance(amplitude, \
95
        if sorted_tags and not isinstance(amplitude, \
4811
@@ -898,12 +899,11 @@
4812
898
        part = self.get('particle')
899
        part = self.get('particle')
4813
899
        self.set('particle', self.get('antiparticle'))
900
        self.set('particle', self.get('antiparticle'))
4814
900
        self.set('antiparticle', part)
901
        self.set('antiparticle', part)
4816
901
902
    
4817
902
    def is_anticommutating_ghost(self):
903
    def is_anticommutating_ghost(self):
4822
903
        """ Return True if the particle of this wavefunction is a ghost charged
904
        """ Return True if the particle of this wavefunction is a ghost"""
4823
904
        under SU(3)"""
905
        return self.get('particle').get('ghost')
4824
905
        return self.get('particle').get('ghost') and self.get('color')!=1
906
    
4821
906
4825
907
    def is_fermion(self):
907
    def is_fermion(self):
4826
908
        return self.get('spin') % 2 == 0
908
        return self.get('spin') % 2 == 0
4827
909
909
4828
@@ -1006,9 +1006,11 @@
4829
1006
        array_rep.append(self['color_key'])
1006
        array_rep.append(self['color_key'])
4830
1007
        # Also need to specify if it is a loop wf
1007
        # Also need to specify if it is a loop wf
4831
1008
        array_rep.append(int(self['is_loop']))
1008
        array_rep.append(int(self['is_loop']))
4832
1009
        
4833
1009
        # Finally, the mother numbers
1010
        # Finally, the mother numbers
4834
1010
        array_rep.extend([mother['number'] for \
1011
        array_rep.extend([mother['number'] for \
4835
1011
                          mother in self['mothers']])
1012
                          mother in self['mothers']])
4836
1013
        
4837
1012
        return array_rep
1014
        return array_rep
4838
1013
1015
4839
1014
    def get_pdg_code(self):
1016
    def get_pdg_code(self):
4840
@@ -1039,9 +1041,9 @@
4841
1039
            if particles[1].get_pdg_code() != particles[2].get_pdg_code() \
1041
            if particles[1].get_pdg_code() != particles[2].get_pdg_code() \
4842
1040
                   and self.get('pdg_code') == \
1042
                   and self.get('pdg_code') == \
4843
1041
                   particles[1].get_anti_pdg_code()\
1043
                   particles[1].get_anti_pdg_code()\
4845
1042
                   and self.get('coupling')[0] != '-':
1044
                   and not self.get('coupling')[0].startswith('-'):
4846
1043
                # We need a minus sign in front of the coupling
1045
                # We need a minus sign in front of the coupling
4848
1044
                self.set('coupling', ['-' + c for c in self.get('coupling')])
1046
                self.set('coupling', ['-%s'%c for c in self.get('coupling')])
4849
1045
1047
4850
1046
    def set_octet_majorana_coupling_sign(self):
1048
    def set_octet_majorana_coupling_sign(self):
4851
1047
        """For octet Majorana fermions, need an extra minus sign in
1049
        """For octet Majorana fermions, need an extra minus sign in
4852
@@ -1052,12 +1054,9 @@
4853
1052
        if self.get('color') == 8 and \
1054
        if self.get('color') == 8 and \
4854
1053
               self.get_spin_state_number() == -2 and \
1055
               self.get_spin_state_number() == -2 and \
4855
1054
               self.get('self_antipart') and \
1056
               self.get('self_antipart') and \
4862
1055
               [m.get('color') for m in self.get('mothers')] == [8, 8]:
1057
               [m.get('color') for m in self.get('mothers')] == [8, 8] and \
4863
1056
            if hasattr(self, 'octet_majorana_flip'):
1058
               not self.get('coupling')[0].startswith('-'):
4864
1057
                return
1059
            self.set('coupling', ['-%s' % c for c in self.get('coupling')])
4859
1058
            self.octet_majorana_flip = True
4860
1059
            self.set('coupling', ['-%s' % c 
4861
1060
                                              for c in self.get('coupling')])
4865
1061
        
1060
        
4866
1062
    def set_state_and_particle(self, model):
1061
    def set_state_and_particle(self, model):
4867
1063
        """Set incoming/outgoing state according to mother states and
1062
        """Set incoming/outgoing state according to mother states and
4868
@@ -1260,11 +1259,36 @@
4869
1260
                                diagram_wavefunctions.insert(i, new_wf)
1259
                                diagram_wavefunctions.insert(i, new_wf)
4870
1261
                                break
1260
                                break
4871
1262
                        else:
1261
                        else:
4873
1263
                            diagram_wavefunctions.append(new_wf)
1262
                            # For loop processes, care is needed since
4874
1263
                            # some loop wavefunctions in the diag_wfs might have
4875
1264
                            # the new_wf in their mother, so we want to place 
4876
1265
                            # new_wf as early as possible in the list.
4877
1266
                            # We first look if any mother of the wavefunction
4878
1267
                            # we want to add appears in the diagram_wavefunctions
4879
1268
                            # list. If it doesn't, max_mother_index is -1.
4880
1269
                            # If it does, then max_mother_index is the maximum
4881
1270
                            # index in diagram_wavefunctions of those of the 
4882
1271
                            # mothers present in this list.
4883
1272
                            max_mother_index = max([-1]+
4884
1273
                                [diagram_wavefunctions.index(wf) for wf in 
4885
1274
                                        mothers if wf in diagram_wavefunctions])
4886
1275
                            
4887
1276
                            # We want to insert this new_wf as early as 
4888
1277
                            # possible in the diagram_wavefunctions list so that
4889
1278
                            # we are guaranteed that it will be placed *before*
4890
1279
                            # wavefunctions that have new_wf as a mother.
4891
1280
                            # We therefore place it at max_mother_index+1.
4892
1281
                            if max_mother_index<len(diagram_wavefunctions)-1:
4893
1282
                                new_wf.set('number',diagram_wavefunctions[
4894
1283
                                              max_mother_index+1].get('number'))
4895
1284
                            for wf in diagram_wavefunctions[max_mother_index+1:]:
4896
1285
                                wf.set('number',wf.get('number')+1)
4897
1286
                            diagram_wavefunctions.insert(max_mother_index+1,
4898
1287
                                                                         new_wf)
4899
1264
1288
4900
1265
            # Set new mothers
1289
            # Set new mothers
4901
1266
            new_wf.set('mothers', mothers)
1290
            new_wf.set('mothers', mothers)
4903
1267
1291
                    
4904
1268
            # Now flip flow or sign
1292
            # Now flip flow or sign
4905
1269
            if flip_flow:
1293
            if flip_flow:
4906
1270
                # Flip fermion flow
1294
                # Flip fermion flow
4907
@@ -1283,7 +1307,7 @@
4908
1283
                new_wf_number = new_wf.get('number')
1307
                new_wf_number = new_wf.get('number')
4909
1284
                new_wf = wavefunctions[wavefunctions.index(new_wf)]
1308
                new_wf = wavefunctions[wavefunctions.index(new_wf)]
4910
1285
                diagram_wf_numbers = [w.get('number') for w in \
1309
                diagram_wf_numbers = [w.get('number') for w in \
4912
1286
                                      diagram_wavefunctions]
1310
                                                          diagram_wavefunctions]
4913
1287
                index = diagram_wf_numbers.index(new_wf_number)
1311
                index = diagram_wf_numbers.index(new_wf_number)
4914
1288
                diagram_wavefunctions.pop(index)
1312
                diagram_wavefunctions.pop(index)
4915
1289
                # We need to decrease the wf number for later
1313
                # We need to decrease the wf number for later
4916
@@ -1293,13 +1317,27 @@
4917
1293
                        wf.set('number', wf.get('number') - 1)
1317
                        wf.set('number', wf.get('number') - 1)
4918
1294
                # Since we reuse the old wavefunction, reset wf_number
1318
                # Since we reuse the old wavefunction, reset wf_number
4919
1295
                wf_number = wf_number - 1
1319
                wf_number = wf_number - 1
4920
1320
4921
1296
                # Need to replace wavefunction in number_to_wavefunctions
1321
                # Need to replace wavefunction in number_to_wavefunctions
4923
1297
                # (in case this wavefunction is in another of the dicts)
1322
                # (in case this wavefunction is in another of the dicts) 
4924
1298
                for n_to_wf_dict in number_to_wavefunctions:
1323
                for n_to_wf_dict in number_to_wavefunctions:
4925
1299
                    if new_wf in n_to_wf_dict.values():
1324
                    if new_wf in n_to_wf_dict.values():
4926
1300
                        for key in n_to_wf_dict.keys():
1325
                        for key in n_to_wf_dict.keys():
4927
1301
                            if n_to_wf_dict[key] == new_wf:
1326
                            if n_to_wf_dict[key] == new_wf:
4929
1302
                                n_to_wf_dict[key] = new_wf
1327
                                n_to_wf_dict[key] = new_wf          
4930
1328
 
4931
1329
                if self.get('is_loop'):
4932
1330
                    # fix a bug for the g g > go go g [virt=QCD]
4933
1331
                    # when there is a wf which is replaced, we need to propagate
4934
1332
                    # the change in all wavefunction of that diagrams which could
4935
1333
                    # have this replaced wavefunction in their mothers. This
4936
1334
                    # plays the role of the 'number_to_wavefunction' dictionary
4937
1335
                    # used for tree level.
4938
1336
                    for wf in diagram_wavefunctions:
4939
1337
                        for i,mother_wf in enumerate(wf.get('mothers')):
4940
1338
                            if mother_wf.get('number')==new_wf_number:
4941
1339
                                wf.get('mothers')[i]=new_wf
4942
1340
4943
1303
            except ValueError:
1341
            except ValueError:
4944
1304
                pass
1342
                pass
4945
1305
1343
4946
@@ -1464,7 +1502,15 @@
4947
1464
                    
1502
                    
4948
1465
        #fixed argument
1503
        #fixed argument
4949
1466
        for i, coup in enumerate(self.get_with_flow('coupling')):
1504
        for i, coup in enumerate(self.get_with_flow('coupling')):
4951
1467
            output['coup%d'%i] = coup
1505
            # We do not include the - sign in front of the coupling of loop
4952
1506
            # wavefunctions (only the loop ones, the tree ones are treated normally)
4953
1507
            # in the non optimized output because this sign was already applied to
4954
1508
            # the coupling passed in argument when calling the loop amplitude.
4955
1509
            if not OptimizedOutput and self.get('is_loop'):
4956
1510
                output['coup%d'%i] = coup[1:] if coup.startswith('-') else coup  
4957
1511
            else:
4958
1512
                output['coup%d'%i] = coup
4959
1513
              
4960
1468
        output['out'] = self.get('me_id') - flip
1514
        output['out'] = self.get('me_id') - flip
4961
1469
        output['M'] = self.get('mass')
1515
        output['M'] = self.get('mass')
4962
1470
        output['W'] = self.get('width')
1516
        output['W'] = self.get('width')
4963
@@ -1543,10 +1589,9 @@
4964
1543
1589
4965
1544
        # Sort according to spin and flow direction
1590
        # Sort according to spin and flow direction
4966
1545
        res.sort()
1591
        res.sort()
4967
1546
#        if not self['is_loop']:
4968
1547
        res.append(self.get_spin_state_number())
1592
        res.append(self.get_spin_state_number())
4969
1548
        res.append(self.find_outgoing_number())
1593
        res.append(self.find_outgoing_number())
4971
1549
#        else:
1594
4972
1550
        if self['is_loop']:
1595
        if self['is_loop']:
4973
1551
            res.append(self.get_loop_index())
1596
            res.append(self.get_loop_index())
4974
1552
            if not self.get('mothers'):
1597
            if not self.get('mothers'):
4975
@@ -2075,6 +2120,7 @@
4976
2075
                                   wf_number,
2120
                                   wf_number,
4977
2076
                                   force_flip_flow=False,
2121
                                   force_flip_flow=False,
4978
2077
                                   number_to_wavefunctions=[]):
2122
                                   number_to_wavefunctions=[]):
4979
2123
4980
2078
        """Check for clashing fermion flow (N(incoming) !=
2124
        """Check for clashing fermion flow (N(incoming) !=
4981
2079
        N(outgoing)). If found, we need to trace back through the
2125
        N(outgoing)). If found, we need to trace back through the
4982
2080
        mother structure (only looking at fermions), until we find a
2126
        mother structure (only looking at fermions), until we find a
4983
@@ -2267,6 +2313,76 @@
4984
2267
2313
4985
2268
        return conjugates
2314
        return conjugates
4986
2269
2315
4987
2316
    
4988
2317
    def check_wavefunction_numbers_order(self, applyChanges=False, raiseError=True):
4989
2318
        """ This function only serves as an internal consistency check to 
4990
2319
        make sure that when setting the 'wavefunctions' attribute of the
4991
2320
        diagram, their order is consistent, in the sense that all mothers 
4992
2321
        of any given wavefunction appear before that wavefunction.
4993
2322
        This function returns True if there was no change and the original 
4994
2323
        wavefunction list was consistent and False otherwise.
4995
2324
        The option 'applyChanges' controls whether the function should substitute
4996
2325
        the original list (self) with the new corrected one. For now, this function
4997
2326
        is only used for self-consistency checks and the changes are not applied."""
4998
2327
    
4999
2328
        if len(self)<2:
5000
2329
            return True
Reviewer	Review Type	Date Requested	Status
Olivier Mattelaer		2014-08-20	Needs Fixing on 2014-08-21
Review via email: mp+231518@code.launchpad.net