← Back to branch summary

~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/long_ML_SMQCD_default/gg_wmtbx/loop_num.f

  • Committer: olivier Mattelaer
  • Date: 2015-03-05 00:14:16 UTC
  • mfrom: (258.1.9 2.3)
  • mto: (258.8.1 2.3)
  • mto: This revision was merged to the branch mainline in revision 259.
  • Revision ID: olivier.mattelaer@uclouvain.be-20150305001416-y9mzeykfzwnl9t0j
partial merge

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/long_ML_SMQCD_default/gg_wmtbx/loop_num.f
12
12
      INTEGER NBORNAMPS
13
13
      PARAMETER (NBORNAMPS=8)
14
14
      INTEGER    NLOOPAMPS
15
 
      PARAMETER (NLOOPAMPS=414)
 
15
      PARAMETER (NLOOPAMPS=396)
16
16
      INTEGER    NWAVEFUNCS
17
17
      PARAMETER (NWAVEFUNCS=28)
18
18
      INTEGER    MAXLCOUPLINGS
34
34
C     GLOBAL VARIABLES
35
35
C     
36
36
      INTEGER WE(NEXTERNAL)
37
 
      INTEGER ID, SYMFACT,AMPLNUM
38
 
      COMMON/ML5_0_LOOP/WE,ID,SYMFACT,AMPLNUM
 
37
      INTEGER ID, SYMFACT, MULTIPLIER, AMPLNUM
 
38
      COMMON/ML5_0_LOOP/WE,ID,SYMFACT,MULTIPLIER,AMPLNUM
39
39
 
40
40
      LOGICAL GOODHEL(NCOMB)
41
41
      LOGICAL GOODAMP(NLOOPAMPS,NCOMB)
73
73
          ENDDO
74
74
        ENDIF
75
75
      ENDDO
76
 
      RES=RES/SYMFACT
 
76
      RES=(RES*MULTIPLIER)/SYMFACT
77
77
 
78
78
      END
79
79
 
94
94
      INTEGER NBORNAMPS
95
95
      PARAMETER (NBORNAMPS=8)
96
96
      INTEGER    NLOOPAMPS
97
 
      PARAMETER (NLOOPAMPS=414)
 
97
      PARAMETER (NLOOPAMPS=396)
98
98
      INTEGER    NCOMB
99
99
      PARAMETER (NCOMB=48)
100
100
C     
117
117
      COMMON/ML5_0_DP_LOOP/LC,ML
118
118
 
119
119
      INTEGER WE(NEXTERNAL)
120
 
      INTEGER ID, SYMFACT,AMPLNUM
121
 
      COMMON/ML5_0_LOOP/WE,ID,SYMFACT,AMPLNUM
 
120
      INTEGER ID, SYMFACT,MULTIPLIER,AMPLNUM
 
121
      COMMON/ML5_0_LOOP/WE,ID,SYMFACT,MULTIPLIER,AMPLNUM
122
122
 
123
123
      COMPLEX*16 AMP(NBORNAMPS,NCOMB)
124
124
      COMMON/ML5_0_AMPS/AMP
159
159
        ENDDO
160
160
        CALL CLOSE_4(BUFF(1),RES)
161
161
      ELSEIF (ID.EQ.4) THEN
162
 
C       Loop diagram number 33 (might be others, just an example)
 
162
C       Loop diagram number 15 (might be others, just an example)
163
163
        DO I=1,4
164
164
          CALL LCUT_AF(Q(0),I,WL(1,2))
165
165
          CALL FFV1LP0_3(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
168
168
        ENDDO
169
169
        CALL CLOSE_4(BUFF(1),RES)
170
170
      ELSEIF (ID.EQ.5) THEN
171
 
C       Loop diagram number 35 (might be others, just an example)
 
171
C       Loop diagram number 17 (might be others, just an example)
172
172
        DO I=1,4
173
173
          CALL LCUT_V(Q(0),I,WL(1,2))
174
174
          CALL FFV1L_2(W(1,WE(1),H),WL(1,2),LC(1),ML(3),ZERO,WL(1,3))
178
178
        ENDDO
179
179
        CALL CLOSE_4(BUFF(1),RES)
180
180
      ELSEIF (ID.EQ.6) THEN
181
 
C       Loop diagram number 36 (might be others, just an example)
 
181
C       Loop diagram number 18 (might be others, just an example)
182
182
        DO I=1,4
183
183
          CALL LCUT_F(Q(0),I,WL(1,2))
184
184
          CALL FFV1LP0_3(W(1,WE(1),H),WL(1,2),LC(1),ML(3),ZERO,WL(1,3))
188
188
        ENDDO
189
189
        CALL CLOSE_4(BUFF(1),RES)
190
190
      ELSEIF (ID.EQ.7) THEN
191
 
C       Loop diagram number 38 (might be others, just an example)
 
191
C       Loop diagram number 20 (might be others, just an example)
192
192
        DO I=1,4
193
193
          CALL LCUT_AF(Q(0),I,WL(1,2))
194
194
          CALL FFV2L_2(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
198
198
        ENDDO
199
199
        CALL CLOSE_4(BUFF(1),RES)
200
200
      ELSEIF (ID.EQ.8) THEN
201
 
C       Loop diagram number 39 (might be others, just an example)
 
201
C       Loop diagram number 21 (might be others, just an example)
202
202
        DO I=1,4
203
203
          CALL LCUT_AF(Q(0),I,WL(1,2))
204
204
          CALL FFV2L_2(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
209
209
        ENDDO
210
210
        CALL CLOSE_4(BUFF(1),RES)
211
211
      ELSEIF (ID.EQ.9) THEN
212
 
C       Loop diagram number 40 (might be others, just an example)
 
212
C       Loop diagram number 22 (might be others, just an example)
213
213
        DO I=1,4
214
214
          CALL LCUT_F(Q(0),I,WL(1,2))
215
215
          CALL FFV2L_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
220
220
        ENDDO
221
221
        CALL CLOSE_4(BUFF(1),RES)
222
222
      ELSEIF (ID.EQ.10) THEN
223
 
C       Loop diagram number 41 (might be others, just an example)
 
223
C       Loop diagram number 23 (might be others, just an example)
224
224
        DO I=1,4
225
225
          CALL LCUT_F(Q(0),I,WL(1,2))
226
226
          CALL FFV2L_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
230
230
        ENDDO
231
231
        CALL CLOSE_4(BUFF(1),RES)
232
232
      ELSEIF (ID.EQ.11) THEN
233
 
C       Loop diagram number 42 (might be others, just an example)
 
233
C       Loop diagram number 24 (might be others, just an example)
234
234
        DO I=1,4
235
235
          CALL LCUT_AF(Q(0),I,WL(1,2))
236
236
          CALL FFV2L_2(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
241
241
        ENDDO
242
242
        CALL CLOSE_4(BUFF(1),RES)
243
243
      ELSEIF (ID.EQ.12) THEN
244
 
C       Loop diagram number 43 (might be others, just an example)
 
244
C       Loop diagram number 25 (might be others, just an example)
245
245
        DO I=1,4
246
246
          CALL LCUT_F(Q(0),I,WL(1,2))
247
247
          CALL FFV1LP0_3(W(1,WE(1),H),WL(1,2),LC(1),ML(3),ZERO,WL(1,3))
250
250
        ENDDO
251
251
        CALL CLOSE_4(BUFF(1),RES)
252
252
      ELSEIF (ID.EQ.13) THEN
253
 
C       Loop diagram number 45 (might be others, just an example)
 
253
C       Loop diagram number 27 (might be others, just an example)
254
254
        DO I=1,4
255
255
          CALL LCUT_F(Q(0),I,WL(1,2))
256
256
          CALL FFV1L_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
260
260
        ENDDO
261
261
        CALL CLOSE_4(BUFF(1),RES)
262
262
      ELSEIF (ID.EQ.14) THEN
263
 
C       Loop diagram number 46 (might be others, just an example)
 
263
C       Loop diagram number 28 (might be others, just an example)
264
264
        DO I=1,4
265
265
          CALL LCUT_AF(Q(0),I,WL(1,2))
266
266
          CALL FFV1L_2(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
271
271
        ENDDO
272
272
        CALL CLOSE_4(BUFF(1),RES)
273
273
      ELSEIF (ID.EQ.15) THEN
274
 
C       Loop diagram number 48 (might be others, just an example)
 
274
C       Loop diagram number 30 (might be others, just an example)
275
275
        DO I=1,4
276
276
          CALL LCUT_V(Q(0),I,WL(1,2))
277
277
          CALL VVV1LP0_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
282
282
        ENDDO
283
283
        CALL CLOSE_4(BUFF(1),RES)
284
284
      ELSEIF (ID.EQ.16) THEN
285
 
C       Loop diagram number 49 (might be others, just an example)
 
285
C       Loop diagram number 31 (might be others, just an example)
286
286
        DO I=1,4
287
287
          CALL LCUT_F(Q(0),I,WL(1,2))
288
288
          CALL FFV1L_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
293
293
        ENDDO
294
294
        CALL CLOSE_4(BUFF(1),RES)
295
295
      ELSEIF (ID.EQ.17) THEN
296
 
C       Loop diagram number 50 (might be others, just an example)
 
296
C       Loop diagram number 32 (might be others, just an example)
297
297
        DO I=1,4
298
298
          CALL LCUT_V(Q(0),I,WL(1,2))
299
299
          CALL VVV1LP0_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
303
303
        ENDDO
304
304
        CALL CLOSE_4(BUFF(1),RES)
305
305
      ELSEIF (ID.EQ.18) THEN
306
 
C       Loop diagram number 53 (might be others, just an example)
 
306
C       Loop diagram number 35 (might be others, just an example)
307
307
        DO I=1,4
308
308
          CALL LCUT_AF(Q(0),I,WL(1,2))
309
309
          CALL FFV1L_2(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
313
313
        ENDDO
314
314
        CALL CLOSE_4(BUFF(1),RES)
315
315
      ELSEIF (ID.EQ.19) THEN
316
 
C       Loop diagram number 57 (might be others, just an example)
 
316
C       Loop diagram number 39 (might be others, just an example)
317
317
        DO I=1,4
318
318
          CALL LCUT_V(Q(0),I,WL(1,2))
319
319
          CALL VVV1LP0_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
323
323
        ENDDO
324
324
        CALL CLOSE_4(BUFF(1),RES)
325
325
      ELSEIF (ID.EQ.20) THEN
326
 
C       Loop diagram number 60 (might be others, just an example)
 
326
C       Loop diagram number 42 (might be others, just an example)
327
327
        DO I=1,4
328
328
          CALL LCUT_V(Q(0),I,WL(1,2))
329
329
          CALL VVV1LP0_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
334
334
        ENDDO
335
335
        CALL CLOSE_4(BUFF(1),RES)
336
336
      ELSEIF (ID.EQ.21) THEN
337
 
C       Loop diagram number 65 (might be others, just an example)
 
337
C       Loop diagram number 47 (might be others, just an example)
338
338
        DO I=1,4
339
339
          CALL LCUT_AF(Q(0),I,WL(1,2))
340
340
          CALL FFV1L_2(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
346
346
        ENDDO
347
347
        CALL CLOSE_4(BUFF(1),RES)
348
348
      ELSEIF (ID.EQ.22) THEN
349
 
C       Loop diagram number 67 (might be others, just an example)
 
349
C       Loop diagram number 49 (might be others, just an example)
350
350
        DO I=1,4
351
351
          CALL LCUT_AF(Q(0),I,WL(1,2))
352
352
          CALL FFV1L_2(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
357
357
        ENDDO
358
358
        CALL CLOSE_4(BUFF(1),RES)
359
359
      ELSEIF (ID.EQ.23) THEN
360
 
C       Loop diagram number 70 (might be others, just an example)
 
360
C       Loop diagram number 52 (might be others, just an example)
361
361
        DO I=1,4
362
362
          CALL LCUT_F(Q(0),I,WL(1,2))
363
363
          CALL FFV1L_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
368
368
        ENDDO
369
369
        CALL CLOSE_4(BUFF(1),RES)
370
370
      ELSEIF (ID.EQ.24) THEN
371
 
C       Loop diagram number 72 (might be others, just an example)
 
371
C       Loop diagram number 54 (might be others, just an example)
372
372
        DO I=1,4
373
373
          CALL LCUT_F(Q(0),I,WL(1,2))
374
374
          CALL FFV1L_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
379
379
        ENDDO
380
380
        CALL CLOSE_4(BUFF(1),RES)
381
381
      ELSEIF (ID.EQ.25) THEN
382
 
C       Loop diagram number 74 (might be others, just an example)
 
382
C       Loop diagram number 56 (might be others, just an example)
383
383
        DO I=1,4
384
384
          CALL LCUT_F(Q(0),I,WL(1,2))
385
385
          CALL FFV1L_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
391
391
        ENDDO
392
392
        CALL CLOSE_4(BUFF(1),RES)
393
393
      ELSEIF (ID.EQ.26) THEN
394
 
C       Loop diagram number 75 (might be others, just an example)
 
394
C       Loop diagram number 57 (might be others, just an example)
395
395
        DO I=1,4
396
396
          CALL LCUT_AF(Q(0),I,WL(1,2))
397
397
          CALL FFV1L_2(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
403
403
        ENDDO
404
404
        CALL CLOSE_4(BUFF(1),RES)
405
405
      ELSEIF (ID.EQ.27) THEN
406
 
C       Loop diagram number 76 (might be others, just an example)
 
406
C       Loop diagram number 58 (might be others, just an example)
407
407
        DO I=1,4
408
408
          CALL LCUT_AF(Q(0),I,WL(1,2))
409
409
          CALL FFV1L_2(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
415
415
        ENDDO
416
416
        CALL CLOSE_4(BUFF(1),RES)
417
417
      ELSEIF (ID.EQ.28) THEN
418
 
C       Loop diagram number 88 (might be others, just an example)
 
418
C       Loop diagram number 70 (might be others, just an example)
419
419
        DO I=1,4
420
420
          CALL LCUT_V(Q(0),I,WL(1,2))
421
421
          CALL VVV1LP0_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
426
426
        ENDDO
427
427
        CALL CLOSE_4(BUFF(1),RES)
428
428
      ELSEIF (ID.EQ.29) THEN
429
 
C       Loop diagram number 89 (might be others, just an example)
 
429
C       Loop diagram number 71 (might be others, just an example)
430
430
        DO I=1,4
431
431
          CALL LCUT_F(Q(0),I,WL(1,2))
432
432
          CALL FFV1L_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
438
438
        ENDDO
439
439
        CALL CLOSE_4(BUFF(1),RES)
440
440
      ELSEIF (ID.EQ.30) THEN
441
 
C       Loop diagram number 90 (might be others, just an example)
 
441
C       Loop diagram number 72 (might be others, just an example)
442
442
        DO I=1,4
443
443
          CALL LCUT_V(Q(0),I,WL(1,2))
444
444
          CALL VVV1LP0_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
450
450
        ENDDO
451
451
        CALL CLOSE_4(BUFF(1),RES)
452
452
      ELSEIF (ID.EQ.31) THEN
453
 
C       Loop diagram number 93 (might be others, just an example)
 
453
C       Loop diagram number 75 (might be others, just an example)
454
454
        DO I=1,4
455
455
          CALL LCUT_V(Q(0),I,WL(1,2))
456
456
          CALL VVV1LP0_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
461
461
        ENDDO
462
462
        CALL CLOSE_4(BUFF(1),RES)
463
463
      ELSEIF (ID.EQ.32) THEN
464
 
C       Loop diagram number 94 (might be others, just an example)
 
464
C       Loop diagram number 76 (might be others, just an example)
465
465
        DO I=1,4
466
466
          CALL LCUT_V(Q(0),I,WL(1,2))
467
467
          CALL VVV1LP0_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
472
472
        ENDDO
473
473
        CALL CLOSE_4(BUFF(1),RES)
474
474
      ELSEIF (ID.EQ.33) THEN
475
 
C       Loop diagram number 95 (might be others, just an example)
 
475
C       Loop diagram number 77 (might be others, just an example)
476
476
        DO I=1,4
477
477
          CALL LCUT_F(Q(0),I,WL(1,2))
478
478
          CALL FFV1LP0_3(W(1,WE(1),H),WL(1,2),LC(1),ML(3),ZERO,WL(1,3))
483
483
        ENDDO
484
484
        CALL CLOSE_4(BUFF(1),RES)
485
485
      ELSEIF (ID.EQ.34) THEN
486
 
C       Loop diagram number 95 (might be others, just an example)
 
486
C       Loop diagram number 77 (might be others, just an example)
487
487
        DO I=1,4
488
488
          CALL LCUT_F(Q(0),I,WL(1,2))
489
489
          CALL FFV1LP0_3(W(1,WE(1),H),WL(1,2),LC(1),ML(3),ZERO,WL(1,3))
494
494
        ENDDO
495
495
        CALL CLOSE_4(BUFF(1),RES)
496
496
      ELSEIF (ID.EQ.35) THEN
497
 
C       Loop diagram number 95 (might be others, just an example)
 
497
C       Loop diagram number 77 (might be others, just an example)
498
498
        DO I=1,4
499
499
          CALL LCUT_F(Q(0),I,WL(1,2))
500
500
          CALL FFV1LP0_3(W(1,WE(1),H),WL(1,2),LC(1),ML(3),ZERO,WL(1,3))
505
505
        ENDDO
506
506
        CALL CLOSE_4(BUFF(1),RES)
507
507
      ELSEIF (ID.EQ.36) THEN
508
 
C       Loop diagram number 96 (might be others, just an example)
 
508
C       Loop diagram number 78 (might be others, just an example)
509
509
        DO I=1,4
510
510
          CALL LCUT_F(Q(0),I,WL(1,2))
511
511
          CALL FFV1L_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
517
517
        ENDDO
518
518
        CALL CLOSE_4(BUFF(1),RES)
519
519
      ELSEIF (ID.EQ.37) THEN
520
 
C       Loop diagram number 97 (might be others, just an example)
 
520
C       Loop diagram number 79 (might be others, just an example)
521
521
        DO I=1,4
522
522
          CALL LCUT_AF(Q(0),I,WL(1,2))
523
523
          CALL FFV1L_2(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
529
529
        ENDDO
530
530
        CALL CLOSE_4(BUFF(1),RES)
531
531
      ELSEIF (ID.EQ.38) THEN
532
 
C       Loop diagram number 98 (might be others, just an example)
 
532
C       Loop diagram number 80 (might be others, just an example)
533
533
        DO I=1,4
534
534
          CALL LCUT_V(Q(0),I,WL(1,2))
535
535
          CALL VVV1LP0_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
541
541
        ENDDO
542
542
        CALL CLOSE_4(BUFF(1),RES)
543
543
      ELSEIF (ID.EQ.39) THEN
544
 
C       Loop diagram number 99 (might be others, just an example)
 
544
C       Loop diagram number 81 (might be others, just an example)
545
545
        DO I=1,4
546
546
          CALL LCUT_V(Q(0),I,WL(1,2))
547
547
          CALL VVV1LP0_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
553
553
        ENDDO
554
554
        CALL CLOSE_4(BUFF(1),RES)
555
555
      ELSEIF (ID.EQ.40) THEN
556
 
C       Loop diagram number 100 (might be others, just an example)
 
556
C       Loop diagram number 82 (might be others, just an example)
557
557
        DO I=1,4
558
558
          CALL LCUT_F(Q(0),I,WL(1,2))
559
559
          CALL FFV1L_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
565
565
        ENDDO
566
566
        CALL CLOSE_4(BUFF(1),RES)
567
567
      ELSEIF (ID.EQ.41) THEN
568
 
C       Loop diagram number 101 (might be others, just an example)
 
568
C       Loop diagram number 83 (might be others, just an example)
569
569
        DO I=1,4
570
570
          CALL LCUT_V(Q(0),I,WL(1,2))
571
571
          CALL VVV1LP0_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
577
577
        ENDDO
578
578
        CALL CLOSE_4(BUFF(1),RES)
579
579
      ELSEIF (ID.EQ.42) THEN
580
 
C       Loop diagram number 102 (might be others, just an example)
 
580
C       Loop diagram number 84 (might be others, just an example)
581
581
        DO I=1,4
582
582
          CALL LCUT_AF(Q(0),I,WL(1,2))
583
583
          CALL FFV2L_2(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
589
589
        ENDDO
590
590
        CALL CLOSE_4(BUFF(1),RES)
591
591
      ELSEIF (ID.EQ.43) THEN
592
 
C       Loop diagram number 102 (might be others, just an example)
 
592
C       Loop diagram number 84 (might be others, just an example)
593
593
        DO I=1,4
594
594
          CALL LCUT_AF(Q(0),I,WL(1,2))
595
595
          CALL FFV2L_2(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
601
601
        ENDDO
602
602
        CALL CLOSE_4(BUFF(1),RES)
603
603
      ELSEIF (ID.EQ.44) THEN
604
 
C       Loop diagram number 102 (might be others, just an example)
 
604
C       Loop diagram number 84 (might be others, just an example)
605
605
        DO I=1,4
606
606
          CALL LCUT_AF(Q(0),I,WL(1,2))
607
607
          CALL FFV2L_2(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
613
613
        ENDDO
614
614
        CALL CLOSE_4(BUFF(1),RES)
615
615
      ELSEIF (ID.EQ.45) THEN
616
 
C       Loop diagram number 106 (might be others, just an example)
 
616
C       Loop diagram number 88 (might be others, just an example)
617
617
        DO I=1,4
618
618
          CALL LCUT_V(Q(0),I,WL(1,2))
619
619
          CALL FFV1L_1(W(1,WE(1),H),WL(1,2),LC(1),ML(3),ZERO,WL(1,3))
623
623
        ENDDO
624
624
        CALL CLOSE_4(BUFF(1),RES)
625
625
      ELSEIF (ID.EQ.46) THEN
626
 
C       Loop diagram number 107 (might be others, just an example)
 
626
C       Loop diagram number 89 (might be others, just an example)
627
627
        DO I=1,4
628
628
          CALL LCUT_AF(Q(0),I,WL(1,2))
629
629
          CALL FFV1LP0_3(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
633
633
        ENDDO
634
634
        CALL CLOSE_4(BUFF(1),RES)
635
635
      ELSEIF (ID.EQ.47) THEN
636
 
C       Loop diagram number 124 (might be others, just an example)
 
636
C       Loop diagram number 106 (might be others, just an example)
637
637
        DO I=1,4
638
638
          CALL LCUT_AF(Q(0),I,WL(1,2))
639
639
          CALL FFV1L_2(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
644
644
        ENDDO
645
645
        CALL CLOSE_4(BUFF(1),RES)
646
646
      ELSEIF (ID.EQ.48) THEN
647
 
C       Loop diagram number 131 (might be others, just an example)
 
647
C       Loop diagram number 113 (might be others, just an example)
648
648
        DO I=1,4
649
649
          CALL LCUT_V(Q(0),I,WL(1,2))
650
650
          CALL VVV1LP0_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
655
655
        ENDDO
656
656
        CALL CLOSE_4(BUFF(1),RES)
657
657
      ELSEIF (ID.EQ.49) THEN
658
 
C       Loop diagram number 136 (might be others, just an example)
 
658
C       Loop diagram number 118 (might be others, just an example)
659
659
        DO I=1,4
660
660
          CALL LCUT_AF(Q(0),I,WL(1,2))
661
661
          CALL FFV1LP0_3(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
666
666
        ENDDO
667
667
        CALL CLOSE_4(BUFF(1),RES)
668
668
      ELSEIF (ID.EQ.50) THEN
669
 
C       Loop diagram number 136 (might be others, just an example)
 
669
C       Loop diagram number 118 (might be others, just an example)
670
670
        DO I=1,4
671
671
          CALL LCUT_AF(Q(0),I,WL(1,2))
672
672
          CALL FFV1LP0_3(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
677
677
        ENDDO
678
678
        CALL CLOSE_4(BUFF(1),RES)
679
679
      ELSEIF (ID.EQ.51) THEN
680
 
C       Loop diagram number 136 (might be others, just an example)
 
680
C       Loop diagram number 118 (might be others, just an example)
681
681
        DO I=1,4
682
682
          CALL LCUT_AF(Q(0),I,WL(1,2))
683
683
          CALL FFV1LP0_3(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
688
688
        ENDDO
689
689
        CALL CLOSE_4(BUFF(1),RES)
690
690
      ELSEIF (ID.EQ.52) THEN
691
 
C       Loop diagram number 137 (might be others, just an example)
 
691
C       Loop diagram number 119 (might be others, just an example)
692
692
        DO I=1,4
693
693
          CALL LCUT_V(Q(0),I,WL(1,2))
694
694
          CALL VVV1LP0_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
697
697
        ENDDO
698
698
        CALL CLOSE_4(BUFF(1),RES)
699
699
      ELSEIF (ID.EQ.53) THEN
700
 
C       Loop diagram number 139 (might be others, just an example)
 
700
C       Loop diagram number 121 (might be others, just an example)
701
701
        DO I=1,4
702
702
          CALL LCUT_V(Q(0),I,WL(1,2))
703
703
          CALL VVV1LP0_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
707
707
        ENDDO
708
708
        CALL CLOSE_4(BUFF(1),RES)
709
709
      ELSEIF (ID.EQ.54) THEN
710
 
C       Loop diagram number 141 (might be others, just an example)
 
710
C       Loop diagram number 123 (might be others, just an example)
711
711
        DO I=1,4
712
712
          CALL LCUT_V(Q(0),I,WL(1,2))
713
713
          CALL VVV1LP0_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
717
717
        ENDDO
718
718
        CALL CLOSE_4(BUFF(1),RES)
719
719
      ELSEIF (ID.EQ.55) THEN
720
 
C       Loop diagram number 141 (might be others, just an example)
 
720
C       Loop diagram number 123 (might be others, just an example)
721
721
        DO I=1,4
722
722
          CALL LCUT_V(Q(0),I,WL(1,2))
723
723
          CALL VVV1LP0_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
727
727
        ENDDO
728
728
        CALL CLOSE_4(BUFF(1),RES)
729
729
      ELSEIF (ID.EQ.56) THEN
730
 
C       Loop diagram number 141 (might be others, just an example)
 
730
C       Loop diagram number 123 (might be others, just an example)
731
731
        DO I=1,4
732
732
          CALL LCUT_V(Q(0),I,WL(1,2))
733
733
          CALL VVV1LP0_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
737
737
        ENDDO
738
738
        CALL CLOSE_4(BUFF(1),RES)
739
739
      ELSEIF (ID.EQ.57) THEN
740
 
C       Loop diagram number 145 (might be others, just an example)
 
740
C       Loop diagram number 127 (might be others, just an example)
741
741
        DO I=1,4
742
742
          CALL LCUT_V(Q(0),I,WL(1,2))
743
743
          CALL VVVV1LP0_1(WL(1,2),W(1,WE(1),H),W(1,WE(2),H),LC(1)
747
747
        ENDDO
748
748
        CALL CLOSE_4(BUFF(1),RES)
749
749
      ELSEIF (ID.EQ.58) THEN
750
 
C       Loop diagram number 145 (might be others, just an example)
 
750
C       Loop diagram number 127 (might be others, just an example)
751
751
        DO I=1,4
752
752
          CALL LCUT_V(Q(0),I,WL(1,2))
753
753
          CALL VVVV3LP0_1(WL(1,2),W(1,WE(1),H),W(1,WE(2),H),LC(1)
757
757
        ENDDO
758
758
        CALL CLOSE_4(BUFF(1),RES)
759
759
      ELSEIF (ID.EQ.59) THEN
760
 
C       Loop diagram number 145 (might be others, just an example)
 
760
C       Loop diagram number 127 (might be others, just an example)
761
761
        DO I=1,4
762
762
          CALL LCUT_V(Q(0),I,WL(1,2))
763
763
          CALL VVVV4LP0_1(WL(1,2),W(1,WE(1),H),W(1,WE(2),H),LC(1)
767
767
        ENDDO
768
768
        CALL CLOSE_4(BUFF(1),RES)
769
769
      ELSEIF (ID.EQ.60) THEN
770
 
C       Loop diagram number 147 (might be others, just an example)
 
770
C       Loop diagram number 129 (might be others, just an example)
771
771
        DO I=1,1
772
772
          CALL LCUT_S(Q(0),I,WL(1,2))
773
773
          CALL GHGHGL_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
776
776
        ENDDO
777
777
        CALL CLOSE_1(BUFF(1),RES)
778
778
      ELSEIF (ID.EQ.61) THEN
779
 
C       Loop diagram number 149 (might be others, just an example)
 
779
C       Loop diagram number 131 (might be others, just an example)
780
780
        DO I=1,1
781
781
          CALL LCUT_AS(Q(0),I,WL(1,2))
782
782
          CALL GHGHGL_2(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
786
786
        ENDDO
787
787
        CALL CLOSE_1(BUFF(1),RES)
788
788
      ELSEIF (ID.EQ.62) THEN
789
 
C       Loop diagram number 151 (might be others, just an example)
 
789
C       Loop diagram number 133 (might be others, just an example)
790
790
        DO I=1,1
791
791
          CALL LCUT_S(Q(0),I,WL(1,2))
792
792
          CALL GHGHGL_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1,3))
812
812
      INTEGER NBORNAMPS
813
813
      PARAMETER (NBORNAMPS=8)
814
814
      INTEGER    NLOOPAMPS
815
 
      PARAMETER (NLOOPAMPS=414)
 
815
      PARAMETER (NLOOPAMPS=396)
816
816
      INTEGER    NWAVEFUNCS
817
817
      PARAMETER (NWAVEFUNCS=28)
818
818
      INTEGER    MAXLCOUPLINGS
849
849
      COMMON/ML5_0_CT/LSCALE,CTMODE
850
850
 
851
851
      INTEGER WE(NEXTERNAL)
852
 
      INTEGER ID, SYMFACT,AMPLNUM
853
 
      COMMON/ML5_0_LOOP/WE,ID,SYMFACT,AMPLNUM
 
852
      INTEGER ID, SYMFACT,MULTIPLIER,AMPLNUM
 
853
      COMMON/ML5_0_LOOP/WE,ID,SYMFACT,MULTIPLIER,AMPLNUM
854
854
 
855
855
      LOGICAL GOODHEL(NCOMB)
856
856
      LOGICAL GOODAMP(NLOOPAMPS,NCOMB)
899
899
          ENDDO
900
900
        ENDIF
901
901
      ENDDO
902
 
      QPRES=QPRES/SYMFACT
 
902
      QPRES=(QPRES*MULTIPLIER)/SYMFACT
903
903
 
904
904
      RES=QPRES
905
905
      END
921
921
      INTEGER NBORNAMPS
922
922
      PARAMETER (NBORNAMPS=8)
923
923
      INTEGER    NLOOPAMPS
924
 
      PARAMETER (NLOOPAMPS=414)
 
924
      PARAMETER (NLOOPAMPS=396)
925
925
      INTEGER    NCOMB
926
926
      PARAMETER (NCOMB=48)
927
927
C     
944
944
      COMMON/ML5_0_MP_LOOP/LC,ML
945
945
 
946
946
      INTEGER WE(NEXTERNAL)
947
 
      INTEGER ID, SYMFACT,AMPLNUM
948
 
      COMMON/ML5_0_LOOP/WE,ID,SYMFACT,AMPLNUM
 
947
      INTEGER ID, SYMFACT,MULTIPLIER,AMPLNUM
 
948
      COMMON/ML5_0_LOOP/WE,ID,SYMFACT,MULTIPLIER,AMPLNUM
949
949
 
950
950
      COMPLEX*32 AMP(NBORNAMPS,NCOMB)
951
951
      COMMON/ML5_0_MP_AMPS/AMP
993
993
        ENDDO
994
994
        CALL MP_CLOSE_4(BUFF(1),RES)
995
995
      ELSEIF (ID.EQ.4) THEN
996
 
C       Loop diagram number 33 (might be others, just an example)
 
996
C       Loop diagram number 15 (might be others, just an example)
997
997
        DO I=1,4
998
998
          CALL MP_LCUT_AF(Q(0),I,WL(1,2))
999
999
          CALL MP_FFV1LP0_3(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1004
1004
        ENDDO
1005
1005
        CALL MP_CLOSE_4(BUFF(1),RES)
1006
1006
      ELSEIF (ID.EQ.5) THEN
1007
 
C       Loop diagram number 35 (might be others, just an example)
 
1007
C       Loop diagram number 17 (might be others, just an example)
1008
1008
        DO I=1,4
1009
1009
          CALL MP_LCUT_V(Q(0),I,WL(1,2))
1010
1010
          CALL MP_FFV1L_2(W(1,WE(1),H),WL(1,2),LC(1),ML(3),ZERO,WL(1
1017
1017
        ENDDO
1018
1018
        CALL MP_CLOSE_4(BUFF(1),RES)
1019
1019
      ELSEIF (ID.EQ.6) THEN
1020
 
C       Loop diagram number 36 (might be others, just an example)
 
1020
C       Loop diagram number 18 (might be others, just an example)
1021
1021
        DO I=1,4
1022
1022
          CALL MP_LCUT_F(Q(0),I,WL(1,2))
1023
1023
          CALL MP_FFV1LP0_3(W(1,WE(1),H),WL(1,2),LC(1),ML(3),ZERO,WL(1
1030
1030
        ENDDO
1031
1031
        CALL MP_CLOSE_4(BUFF(1),RES)
1032
1032
      ELSEIF (ID.EQ.7) THEN
1033
 
C       Loop diagram number 38 (might be others, just an example)
 
1033
C       Loop diagram number 20 (might be others, just an example)
1034
1034
        DO I=1,4
1035
1035
          CALL MP_LCUT_AF(Q(0),I,WL(1,2))
1036
1036
          CALL MP_FFV2L_2(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1043
1043
        ENDDO
1044
1044
        CALL MP_CLOSE_4(BUFF(1),RES)
1045
1045
      ELSEIF (ID.EQ.8) THEN
1046
 
C       Loop diagram number 39 (might be others, just an example)
 
1046
C       Loop diagram number 21 (might be others, just an example)
1047
1047
        DO I=1,4
1048
1048
          CALL MP_LCUT_AF(Q(0),I,WL(1,2))
1049
1049
          CALL MP_FFV2L_2(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1058
1058
        ENDDO
1059
1059
        CALL MP_CLOSE_4(BUFF(1),RES)
1060
1060
      ELSEIF (ID.EQ.9) THEN
1061
 
C       Loop diagram number 40 (might be others, just an example)
 
1061
C       Loop diagram number 22 (might be others, just an example)
1062
1062
        DO I=1,4
1063
1063
          CALL MP_LCUT_F(Q(0),I,WL(1,2))
1064
1064
          CALL MP_FFV2L_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1073
1073
        ENDDO
1074
1074
        CALL MP_CLOSE_4(BUFF(1),RES)
1075
1075
      ELSEIF (ID.EQ.10) THEN
1076
 
C       Loop diagram number 41 (might be others, just an example)
 
1076
C       Loop diagram number 23 (might be others, just an example)
1077
1077
        DO I=1,4
1078
1078
          CALL MP_LCUT_F(Q(0),I,WL(1,2))
1079
1079
          CALL MP_FFV2L_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1086
1086
        ENDDO
1087
1087
        CALL MP_CLOSE_4(BUFF(1),RES)
1088
1088
      ELSEIF (ID.EQ.11) THEN
1089
 
C       Loop diagram number 42 (might be others, just an example)
 
1089
C       Loop diagram number 24 (might be others, just an example)
1090
1090
        DO I=1,4
1091
1091
          CALL MP_LCUT_AF(Q(0),I,WL(1,2))
1092
1092
          CALL MP_FFV2L_2(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1101
1101
        ENDDO
1102
1102
        CALL MP_CLOSE_4(BUFF(1),RES)
1103
1103
      ELSEIF (ID.EQ.12) THEN
1104
 
C       Loop diagram number 43 (might be others, just an example)
 
1104
C       Loop diagram number 25 (might be others, just an example)
1105
1105
        DO I=1,4
1106
1106
          CALL MP_LCUT_F(Q(0),I,WL(1,2))
1107
1107
          CALL MP_FFV1LP0_3(W(1,WE(1),H),WL(1,2),LC(1),ML(3),ZERO,WL(1
1112
1112
        ENDDO
1113
1113
        CALL MP_CLOSE_4(BUFF(1),RES)
1114
1114
      ELSEIF (ID.EQ.13) THEN
1115
 
C       Loop diagram number 45 (might be others, just an example)
 
1115
C       Loop diagram number 27 (might be others, just an example)
1116
1116
        DO I=1,4
1117
1117
          CALL MP_LCUT_F(Q(0),I,WL(1,2))
1118
1118
          CALL MP_FFV1L_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1125
1125
        ENDDO
1126
1126
        CALL MP_CLOSE_4(BUFF(1),RES)
1127
1127
      ELSEIF (ID.EQ.14) THEN
1128
 
C       Loop diagram number 46 (might be others, just an example)
 
1128
C       Loop diagram number 28 (might be others, just an example)
1129
1129
        DO I=1,4
1130
1130
          CALL MP_LCUT_AF(Q(0),I,WL(1,2))
1131
1131
          CALL MP_FFV1L_2(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1140
1140
        ENDDO
1141
1141
        CALL MP_CLOSE_4(BUFF(1),RES)
1142
1142
      ELSEIF (ID.EQ.15) THEN
1143
 
C       Loop diagram number 48 (might be others, just an example)
 
1143
C       Loop diagram number 30 (might be others, just an example)
1144
1144
        DO I=1,4
1145
1145
          CALL MP_LCUT_V(Q(0),I,WL(1,2))
1146
1146
          CALL MP_VVV1LP0_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1155
1155
        ENDDO
1156
1156
        CALL MP_CLOSE_4(BUFF(1),RES)
1157
1157
      ELSEIF (ID.EQ.16) THEN
1158
 
C       Loop diagram number 49 (might be others, just an example)
 
1158
C       Loop diagram number 31 (might be others, just an example)
1159
1159
        DO I=1,4
1160
1160
          CALL MP_LCUT_F(Q(0),I,WL(1,2))
1161
1161
          CALL MP_FFV1L_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1170
1170
        ENDDO
1171
1171
        CALL MP_CLOSE_4(BUFF(1),RES)
1172
1172
      ELSEIF (ID.EQ.17) THEN
1173
 
C       Loop diagram number 50 (might be others, just an example)
 
1173
C       Loop diagram number 32 (might be others, just an example)
1174
1174
        DO I=1,4
1175
1175
          CALL MP_LCUT_V(Q(0),I,WL(1,2))
1176
1176
          CALL MP_VVV1LP0_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1183
1183
        ENDDO
1184
1184
        CALL MP_CLOSE_4(BUFF(1),RES)
1185
1185
      ELSEIF (ID.EQ.18) THEN
1186
 
C       Loop diagram number 53 (might be others, just an example)
 
1186
C       Loop diagram number 35 (might be others, just an example)
1187
1187
        DO I=1,4
1188
1188
          CALL MP_LCUT_AF(Q(0),I,WL(1,2))
1189
1189
          CALL MP_FFV1L_2(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1196
1196
        ENDDO
1197
1197
        CALL MP_CLOSE_4(BUFF(1),RES)
1198
1198
      ELSEIF (ID.EQ.19) THEN
1199
 
C       Loop diagram number 57 (might be others, just an example)
 
1199
C       Loop diagram number 39 (might be others, just an example)
1200
1200
        DO I=1,4
1201
1201
          CALL MP_LCUT_V(Q(0),I,WL(1,2))
1202
1202
          CALL MP_VVV1LP0_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1209
1209
        ENDDO
1210
1210
        CALL MP_CLOSE_4(BUFF(1),RES)
1211
1211
      ELSEIF (ID.EQ.20) THEN
1212
 
C       Loop diagram number 60 (might be others, just an example)
 
1212
C       Loop diagram number 42 (might be others, just an example)
1213
1213
        DO I=1,4
1214
1214
          CALL MP_LCUT_V(Q(0),I,WL(1,2))
1215
1215
          CALL MP_VVV1LP0_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1224
1224
        ENDDO
1225
1225
        CALL MP_CLOSE_4(BUFF(1),RES)
1226
1226
      ELSEIF (ID.EQ.21) THEN
1227
 
C       Loop diagram number 65 (might be others, just an example)
 
1227
C       Loop diagram number 47 (might be others, just an example)
1228
1228
        DO I=1,4
1229
1229
          CALL MP_LCUT_AF(Q(0),I,WL(1,2))
1230
1230
          CALL MP_FFV1L_2(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1241
1241
        ENDDO
1242
1242
        CALL MP_CLOSE_4(BUFF(1),RES)
1243
1243
      ELSEIF (ID.EQ.22) THEN
1244
 
C       Loop diagram number 67 (might be others, just an example)
 
1244
C       Loop diagram number 49 (might be others, just an example)
1245
1245
        DO I=1,4
1246
1246
          CALL MP_LCUT_AF(Q(0),I,WL(1,2))
1247
1247
          CALL MP_FFV1L_2(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1256
1256
        ENDDO
1257
1257
        CALL MP_CLOSE_4(BUFF(1),RES)
1258
1258
      ELSEIF (ID.EQ.23) THEN
1259
 
C       Loop diagram number 70 (might be others, just an example)
 
1259
C       Loop diagram number 52 (might be others, just an example)
1260
1260
        DO I=1,4
1261
1261
          CALL MP_LCUT_F(Q(0),I,WL(1,2))
1262
1262
          CALL MP_FFV1L_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1271
1271
        ENDDO
1272
1272
        CALL MP_CLOSE_4(BUFF(1),RES)
1273
1273
      ELSEIF (ID.EQ.24) THEN
1274
 
C       Loop diagram number 72 (might be others, just an example)
 
1274
C       Loop diagram number 54 (might be others, just an example)
1275
1275
        DO I=1,4
1276
1276
          CALL MP_LCUT_F(Q(0),I,WL(1,2))
1277
1277
          CALL MP_FFV1L_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1286
1286
        ENDDO
1287
1287
        CALL MP_CLOSE_4(BUFF(1),RES)
1288
1288
      ELSEIF (ID.EQ.25) THEN
1289
 
C       Loop diagram number 74 (might be others, just an example)
 
1289
C       Loop diagram number 56 (might be others, just an example)
1290
1290
        DO I=1,4
1291
1291
          CALL MP_LCUT_F(Q(0),I,WL(1,2))
1292
1292
          CALL MP_FFV1L_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1303
1303
        ENDDO
1304
1304
        CALL MP_CLOSE_4(BUFF(1),RES)
1305
1305
      ELSEIF (ID.EQ.26) THEN
1306
 
C       Loop diagram number 75 (might be others, just an example)
 
1306
C       Loop diagram number 57 (might be others, just an example)
1307
1307
        DO I=1,4
1308
1308
          CALL MP_LCUT_AF(Q(0),I,WL(1,2))
1309
1309
          CALL MP_FFV1L_2(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1320
1320
        ENDDO
1321
1321
        CALL MP_CLOSE_4(BUFF(1),RES)
1322
1322
      ELSEIF (ID.EQ.27) THEN
1323
 
C       Loop diagram number 76 (might be others, just an example)
 
1323
C       Loop diagram number 58 (might be others, just an example)
1324
1324
        DO I=1,4
1325
1325
          CALL MP_LCUT_AF(Q(0),I,WL(1,2))
1326
1326
          CALL MP_FFV1L_2(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1337
1337
        ENDDO
1338
1338
        CALL MP_CLOSE_4(BUFF(1),RES)
1339
1339
      ELSEIF (ID.EQ.28) THEN
1340
 
C       Loop diagram number 88 (might be others, just an example)
 
1340
C       Loop diagram number 70 (might be others, just an example)
1341
1341
        DO I=1,4
1342
1342
          CALL MP_LCUT_V(Q(0),I,WL(1,2))
1343
1343
          CALL MP_VVV1LP0_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1352
1352
        ENDDO
1353
1353
        CALL MP_CLOSE_4(BUFF(1),RES)
1354
1354
      ELSEIF (ID.EQ.29) THEN
1355
 
C       Loop diagram number 89 (might be others, just an example)
 
1355
C       Loop diagram number 71 (might be others, just an example)
1356
1356
        DO I=1,4
1357
1357
          CALL MP_LCUT_F(Q(0),I,WL(1,2))
1358
1358
          CALL MP_FFV1L_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1369
1369
        ENDDO
1370
1370
        CALL MP_CLOSE_4(BUFF(1),RES)
1371
1371
      ELSEIF (ID.EQ.30) THEN
1372
 
C       Loop diagram number 90 (might be others, just an example)
 
1372
C       Loop diagram number 72 (might be others, just an example)
1373
1373
        DO I=1,4
1374
1374
          CALL MP_LCUT_V(Q(0),I,WL(1,2))
1375
1375
          CALL MP_VVV1LP0_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1386
1386
        ENDDO
1387
1387
        CALL MP_CLOSE_4(BUFF(1),RES)
1388
1388
      ELSEIF (ID.EQ.31) THEN
1389
 
C       Loop diagram number 93 (might be others, just an example)
 
1389
C       Loop diagram number 75 (might be others, just an example)
1390
1390
        DO I=1,4
1391
1391
          CALL MP_LCUT_V(Q(0),I,WL(1,2))
1392
1392
          CALL MP_VVV1LP0_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1401
1401
        ENDDO
1402
1402
        CALL MP_CLOSE_4(BUFF(1),RES)
1403
1403
      ELSEIF (ID.EQ.32) THEN
1404
 
C       Loop diagram number 94 (might be others, just an example)
 
1404
C       Loop diagram number 76 (might be others, just an example)
1405
1405
        DO I=1,4
1406
1406
          CALL MP_LCUT_V(Q(0),I,WL(1,2))
1407
1407
          CALL MP_VVV1LP0_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1416
1416
        ENDDO
1417
1417
        CALL MP_CLOSE_4(BUFF(1),RES)
1418
1418
      ELSEIF (ID.EQ.33) THEN
1419
 
C       Loop diagram number 95 (might be others, just an example)
 
1419
C       Loop diagram number 77 (might be others, just an example)
1420
1420
        DO I=1,4
1421
1421
          CALL MP_LCUT_F(Q(0),I,WL(1,2))
1422
1422
          CALL MP_FFV1LP0_3(W(1,WE(1),H),WL(1,2),LC(1),ML(3),ZERO,WL(1
1429
1429
        ENDDO
1430
1430
        CALL MP_CLOSE_4(BUFF(1),RES)
1431
1431
      ELSEIF (ID.EQ.34) THEN
1432
 
C       Loop diagram number 95 (might be others, just an example)
 
1432
C       Loop diagram number 77 (might be others, just an example)
1433
1433
        DO I=1,4
1434
1434
          CALL MP_LCUT_F(Q(0),I,WL(1,2))
1435
1435
          CALL MP_FFV1LP0_3(W(1,WE(1),H),WL(1,2),LC(1),ML(3),ZERO,WL(1
1442
1442
        ENDDO
1443
1443
        CALL MP_CLOSE_4(BUFF(1),RES)
1444
1444
      ELSEIF (ID.EQ.35) THEN
1445
 
C       Loop diagram number 95 (might be others, just an example)
 
1445
C       Loop diagram number 77 (might be others, just an example)
1446
1446
        DO I=1,4
1447
1447
          CALL MP_LCUT_F(Q(0),I,WL(1,2))
1448
1448
          CALL MP_FFV1LP0_3(W(1,WE(1),H),WL(1,2),LC(1),ML(3),ZERO,WL(1
1455
1455
        ENDDO
1456
1456
        CALL MP_CLOSE_4(BUFF(1),RES)
1457
1457
      ELSEIF (ID.EQ.36) THEN
1458
 
C       Loop diagram number 96 (might be others, just an example)
 
1458
C       Loop diagram number 78 (might be others, just an example)
1459
1459
        DO I=1,4
1460
1460
          CALL MP_LCUT_F(Q(0),I,WL(1,2))
1461
1461
          CALL MP_FFV1L_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1472
1472
        ENDDO
1473
1473
        CALL MP_CLOSE_4(BUFF(1),RES)
1474
1474
      ELSEIF (ID.EQ.37) THEN
1475
 
C       Loop diagram number 97 (might be others, just an example)
 
1475
C       Loop diagram number 79 (might be others, just an example)
1476
1476
        DO I=1,4
1477
1477
          CALL MP_LCUT_AF(Q(0),I,WL(1,2))
1478
1478
          CALL MP_FFV1L_2(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1489
1489
        ENDDO
1490
1490
        CALL MP_CLOSE_4(BUFF(1),RES)
1491
1491
      ELSEIF (ID.EQ.38) THEN
1492
 
C       Loop diagram number 98 (might be others, just an example)
 
1492
C       Loop diagram number 80 (might be others, just an example)
1493
1493
        DO I=1,4
1494
1494
          CALL MP_LCUT_V(Q(0),I,WL(1,2))
1495
1495
          CALL MP_VVV1LP0_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1506
1506
        ENDDO
1507
1507
        CALL MP_CLOSE_4(BUFF(1),RES)
1508
1508
      ELSEIF (ID.EQ.39) THEN
1509
 
C       Loop diagram number 99 (might be others, just an example)
 
1509
C       Loop diagram number 81 (might be others, just an example)
1510
1510
        DO I=1,4
1511
1511
          CALL MP_LCUT_V(Q(0),I,WL(1,2))
1512
1512
          CALL MP_VVV1LP0_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1523
1523
        ENDDO
1524
1524
        CALL MP_CLOSE_4(BUFF(1),RES)
1525
1525
      ELSEIF (ID.EQ.40) THEN
1526
 
C       Loop diagram number 100 (might be others, just an example)
 
1526
C       Loop diagram number 82 (might be others, just an example)
1527
1527
        DO I=1,4
1528
1528
          CALL MP_LCUT_F(Q(0),I,WL(1,2))
1529
1529
          CALL MP_FFV1L_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1540
1540
        ENDDO
1541
1541
        CALL MP_CLOSE_4(BUFF(1),RES)
1542
1542
      ELSEIF (ID.EQ.41) THEN
1543
 
C       Loop diagram number 101 (might be others, just an example)
 
1543
C       Loop diagram number 83 (might be others, just an example)
1544
1544
        DO I=1,4
1545
1545
          CALL MP_LCUT_V(Q(0),I,WL(1,2))
1546
1546
          CALL MP_VVV1LP0_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1557
1557
        ENDDO
1558
1558
        CALL MP_CLOSE_4(BUFF(1),RES)
1559
1559
      ELSEIF (ID.EQ.42) THEN
1560
 
C       Loop diagram number 102 (might be others, just an example)
 
1560
C       Loop diagram number 84 (might be others, just an example)
1561
1561
        DO I=1,4
1562
1562
          CALL MP_LCUT_AF(Q(0),I,WL(1,2))
1563
1563
          CALL MP_FFV2L_2(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1572
1572
        ENDDO
1573
1573
        CALL MP_CLOSE_4(BUFF(1),RES)
1574
1574
      ELSEIF (ID.EQ.43) THEN
1575
 
C       Loop diagram number 102 (might be others, just an example)
 
1575
C       Loop diagram number 84 (might be others, just an example)
1576
1576
        DO I=1,4
1577
1577
          CALL MP_LCUT_AF(Q(0),I,WL(1,2))
1578
1578
          CALL MP_FFV2L_2(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1587
1587
        ENDDO
1588
1588
        CALL MP_CLOSE_4(BUFF(1),RES)
1589
1589
      ELSEIF (ID.EQ.44) THEN
1590
 
C       Loop diagram number 102 (might be others, just an example)
 
1590
C       Loop diagram number 84 (might be others, just an example)
1591
1591
        DO I=1,4
1592
1592
          CALL MP_LCUT_AF(Q(0),I,WL(1,2))
1593
1593
          CALL MP_FFV2L_2(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1602
1602
        ENDDO
1603
1603
        CALL MP_CLOSE_4(BUFF(1),RES)
1604
1604
      ELSEIF (ID.EQ.45) THEN
1605
 
C       Loop diagram number 106 (might be others, just an example)
 
1605
C       Loop diagram number 88 (might be others, just an example)
1606
1606
        DO I=1,4
1607
1607
          CALL MP_LCUT_V(Q(0),I,WL(1,2))
1608
1608
          CALL MP_FFV1L_1(W(1,WE(1),H),WL(1,2),LC(1),ML(3),ZERO,WL(1
1615
1615
        ENDDO
1616
1616
        CALL MP_CLOSE_4(BUFF(1),RES)
1617
1617
      ELSEIF (ID.EQ.46) THEN
1618
 
C       Loop diagram number 107 (might be others, just an example)
 
1618
C       Loop diagram number 89 (might be others, just an example)
1619
1619
        DO I=1,4
1620
1620
          CALL MP_LCUT_AF(Q(0),I,WL(1,2))
1621
1621
          CALL MP_FFV1LP0_3(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1628
1628
        ENDDO
1629
1629
        CALL MP_CLOSE_4(BUFF(1),RES)
1630
1630
      ELSEIF (ID.EQ.47) THEN
1631
 
C       Loop diagram number 124 (might be others, just an example)
 
1631
C       Loop diagram number 106 (might be others, just an example)
1632
1632
        DO I=1,4
1633
1633
          CALL MP_LCUT_AF(Q(0),I,WL(1,2))
1634
1634
          CALL MP_FFV1L_2(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1643
1643
        ENDDO
1644
1644
        CALL MP_CLOSE_4(BUFF(1),RES)
1645
1645
      ELSEIF (ID.EQ.48) THEN
1646
 
C       Loop diagram number 131 (might be others, just an example)
 
1646
C       Loop diagram number 113 (might be others, just an example)
1647
1647
        DO I=1,4
1648
1648
          CALL MP_LCUT_V(Q(0),I,WL(1,2))
1649
1649
          CALL MP_VVV1LP0_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1658
1658
        ENDDO
1659
1659
        CALL MP_CLOSE_4(BUFF(1),RES)
1660
1660
      ELSEIF (ID.EQ.49) THEN
1661
 
C       Loop diagram number 136 (might be others, just an example)
 
1661
C       Loop diagram number 118 (might be others, just an example)
1662
1662
        DO I=1,4
1663
1663
          CALL MP_LCUT_AF(Q(0),I,WL(1,2))
1664
1664
          CALL MP_FFV1LP0_3(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1671
1671
        ENDDO
1672
1672
        CALL MP_CLOSE_4(BUFF(1),RES)
1673
1673
      ELSEIF (ID.EQ.50) THEN
1674
 
C       Loop diagram number 136 (might be others, just an example)
 
1674
C       Loop diagram number 118 (might be others, just an example)
1675
1675
        DO I=1,4
1676
1676
          CALL MP_LCUT_AF(Q(0),I,WL(1,2))
1677
1677
          CALL MP_FFV1LP0_3(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1684
1684
        ENDDO
1685
1685
        CALL MP_CLOSE_4(BUFF(1),RES)
1686
1686
      ELSEIF (ID.EQ.51) THEN
1687
 
C       Loop diagram number 136 (might be others, just an example)
 
1687
C       Loop diagram number 118 (might be others, just an example)
1688
1688
        DO I=1,4
1689
1689
          CALL MP_LCUT_AF(Q(0),I,WL(1,2))
1690
1690
          CALL MP_FFV1LP0_3(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1697
1697
        ENDDO
1698
1698
        CALL MP_CLOSE_4(BUFF(1),RES)
1699
1699
      ELSEIF (ID.EQ.52) THEN
1700
 
C       Loop diagram number 137 (might be others, just an example)
 
1700
C       Loop diagram number 119 (might be others, just an example)
1701
1701
        DO I=1,4
1702
1702
          CALL MP_LCUT_V(Q(0),I,WL(1,2))
1703
1703
          CALL MP_VVV1LP0_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1708
1708
        ENDDO
1709
1709
        CALL MP_CLOSE_4(BUFF(1),RES)
1710
1710
      ELSEIF (ID.EQ.53) THEN
1711
 
C       Loop diagram number 139 (might be others, just an example)
 
1711
C       Loop diagram number 121 (might be others, just an example)
1712
1712
        DO I=1,4
1713
1713
          CALL MP_LCUT_V(Q(0),I,WL(1,2))
1714
1714
          CALL MP_VVV1LP0_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1721
1721
        ENDDO
1722
1722
        CALL MP_CLOSE_4(BUFF(1),RES)
1723
1723
      ELSEIF (ID.EQ.54) THEN
1724
 
C       Loop diagram number 141 (might be others, just an example)
 
1724
C       Loop diagram number 123 (might be others, just an example)
1725
1725
        DO I=1,4
1726
1726
          CALL MP_LCUT_V(Q(0),I,WL(1,2))
1727
1727
          CALL MP_VVV1LP0_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1732
1732
        ENDDO
1733
1733
        CALL MP_CLOSE_4(BUFF(1),RES)
1734
1734
      ELSEIF (ID.EQ.55) THEN
1735
 
C       Loop diagram number 141 (might be others, just an example)
 
1735
C       Loop diagram number 123 (might be others, just an example)
1736
1736
        DO I=1,4
1737
1737
          CALL MP_LCUT_V(Q(0),I,WL(1,2))
1738
1738
          CALL MP_VVV1LP0_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1743
1743
        ENDDO
1744
1744
        CALL MP_CLOSE_4(BUFF(1),RES)
1745
1745
      ELSEIF (ID.EQ.56) THEN
1746
 
C       Loop diagram number 141 (might be others, just an example)
 
1746
C       Loop diagram number 123 (might be others, just an example)
1747
1747
        DO I=1,4
1748
1748
          CALL MP_LCUT_V(Q(0),I,WL(1,2))
1749
1749
          CALL MP_VVV1LP0_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1754
1754
        ENDDO
1755
1755
        CALL MP_CLOSE_4(BUFF(1),RES)
1756
1756
      ELSEIF (ID.EQ.57) THEN
1757
 
C       Loop diagram number 145 (might be others, just an example)
 
1757
C       Loop diagram number 127 (might be others, just an example)
1758
1758
        DO I=1,4
1759
1759
          CALL MP_LCUT_V(Q(0),I,WL(1,2))
1760
1760
          CALL MP_VVVV1LP0_1(WL(1,2),W(1,WE(1),H),W(1,WE(2),H),LC(1)
1765
1765
        ENDDO
1766
1766
        CALL MP_CLOSE_4(BUFF(1),RES)
1767
1767
      ELSEIF (ID.EQ.58) THEN
1768
 
C       Loop diagram number 145 (might be others, just an example)
 
1768
C       Loop diagram number 127 (might be others, just an example)
1769
1769
        DO I=1,4
1770
1770
          CALL MP_LCUT_V(Q(0),I,WL(1,2))
1771
1771
          CALL MP_VVVV3LP0_1(WL(1,2),W(1,WE(1),H),W(1,WE(2),H),LC(1)
1776
1776
        ENDDO
1777
1777
        CALL MP_CLOSE_4(BUFF(1),RES)
1778
1778
      ELSEIF (ID.EQ.59) THEN
1779
 
C       Loop diagram number 145 (might be others, just an example)
 
1779
C       Loop diagram number 127 (might be others, just an example)
1780
1780
        DO I=1,4
1781
1781
          CALL MP_LCUT_V(Q(0),I,WL(1,2))
1782
1782
          CALL MP_VVVV4LP0_1(WL(1,2),W(1,WE(1),H),W(1,WE(2),H),LC(1)
1787
1787
        ENDDO
1788
1788
        CALL MP_CLOSE_4(BUFF(1),RES)
1789
1789
      ELSEIF (ID.EQ.60) THEN
1790
 
C       Loop diagram number 147 (might be others, just an example)
 
1790
C       Loop diagram number 129 (might be others, just an example)
1791
1791
        DO I=1,1
1792
1792
          CALL MP_LCUT_S(Q(0),I,WL(1,2))
1793
1793
          CALL MP_GHGHGL_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1798
1798
        ENDDO
1799
1799
        CALL MP_CLOSE_1(BUFF(1),RES)
1800
1800
      ELSEIF (ID.EQ.61) THEN
1801
 
C       Loop diagram number 149 (might be others, just an example)
 
1801
C       Loop diagram number 131 (might be others, just an example)
1802
1802
        DO I=1,1
1803
1803
          CALL MP_LCUT_AS(Q(0),I,WL(1,2))
1804
1804
          CALL MP_GHGHGL_2(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1
1811
1811
        ENDDO
1812
1812
        CALL MP_CLOSE_1(BUFF(1),RES)
1813
1813
      ELSEIF (ID.EQ.62) THEN
1814
 
C       Loop diagram number 151 (might be others, just an example)
 
1814
C       Loop diagram number 133 (might be others, just an example)
1815
1815
        DO I=1,1
1816
1816
          CALL MP_LCUT_S(Q(0),I,WL(1,2))
1817
1817
          CALL MP_GHGHGL_1(WL(1,2),W(1,WE(1),H),LC(1),ML(3),ZERO,WL(1