← 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_optimized/gg_wmtbx/mp_coef_construction_1.f

  • Committer: olivier Mattelaer
  • Date: 2016-05-12 11:00:18 UTC
  • mfrom: (262.1.150 2.3.4)
  • Revision ID: olivier.mattelaer@uclouvain.be-20160512110018-sevb79f0wm4g8mpp
pass to 2.4.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/long_ML_SMQCD_optimized/gg_wmtbx/mp_coef_construction_1.f
1
1
      SUBROUTINE ML5_0_MP_COEF_CONSTRUCTION_1(P,NHEL,H,IC)
2
2
C     
 
3
      USE ML5_0_POLYNOMIAL_CONSTANTS
3
4
      IMPLICIT NONE
4
5
C     
5
6
C     CONSTANTS
17
18
      PARAMETER (NLOOPAMPS=396)
18
19
      INTEGER    NWAVEFUNCS,NLOOPWAVEFUNCS
19
20
      PARAMETER (NWAVEFUNCS=28,NLOOPWAVEFUNCS=267)
20
 
      INTEGER MAXLWFSIZE
21
 
      PARAMETER (MAXLWFSIZE=4)
22
 
      INTEGER LOOPMAXCOEFS, VERTEXMAXCOEFS
23
 
      PARAMETER (LOOPMAXCOEFS=70, VERTEXMAXCOEFS=5)
24
21
      REAL*16     ZERO
25
22
      PARAMETER (ZERO=0.0E0_16)
26
23
      COMPLEX*32     IZERO
55
52
     $ ,MP_CT_REQ_SO_DONE,LOOP_REQ_SO_DONE,MP_LOOP_REQ_SO_DONE
56
53
     $ ,CTCALL_REQ_SO_DONE,FILTER_SO
57
54
      COMMON/ML5_0_SO_REQS/UVCT_REQ_SO_DONE,MP_UVCT_REQ_SO_DONE
58
 
     $ ,CT_REQ_SO_DONE,MP_CT_REQ_SO_DONE,LOOP_REQ_SO_DONE,MP_LOOP_REQ_S
59
 
     $ O_DONE,CTCALL_REQ_SO_DONE,FILTER_SO
 
55
     $ ,CT_REQ_SO_DONE,MP_CT_REQ_SO_DONE,LOOP_REQ_SO_DONE
 
56
     $ ,MP_LOOP_REQ_SO_DONE,CTCALL_REQ_SO_DONE,FILTER_SO
60
57
 
61
58
      COMPLEX*32 AMP(NBORNAMPS)
62
59
      COMMON/ML5_0_MP_AMPS/AMP
63
60
      COMPLEX*32 W(20,NWAVEFUNCS)
64
61
      COMMON/ML5_0_MP_W/W
65
62
 
66
 
      COMPLEX*32 WL(MAXLWFSIZE,0:LOOPMAXCOEFS-1,MAXLWFSIZE,0:NLOOPWAVEF
67
 
     $ UNCS)
 
63
      COMPLEX*32 WL(MAXLWFSIZE,0:LOOPMAXCOEFS-1,MAXLWFSIZE
 
64
     $ ,0:NLOOPWAVEFUNCS)
68
65
      COMPLEX*32 PL(0:3,0:NLOOPWAVEFUNCS)
69
66
      COMMON/ML5_0_MP_WL/WL,PL
70
67
 
121
118
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,12))
122
119
      CALL MP_FFV1L3_2(PL(0,12),W(1,15),GC_5,MDL_MB,ZERO,PL(0,13)
123
120
     $ ,COEFS)
124
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,12),4,COEFS,4,4,WL(1,0,1
125
 
     $ ,13))
 
121
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,12),4,COEFS,4,4,WL(1,0,1,13)
 
122
     $ )
126
123
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,13),1,4,3,1,1,259,H)
127
124
C     Coefficient construction for loop diagram with ID 16
128
125
      CALL MP_FFV1L2_1(PL(0,0),W(1,6),GC_5,MDL_MB,ZERO,PL(0,14),COEFS)
129
126
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,14))
130
127
      CALL MP_FFV1L2_1(PL(0,14),W(1,13),GC_5,MDL_MB,ZERO,PL(0,15)
131
128
     $ ,COEFS)
132
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,14),4,COEFS,4,4,WL(1,0,1
133
 
     $ ,15))
 
129
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,14),4,COEFS,4,4,WL(1,0,1,15)
 
130
     $ )
134
131
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,15),2,4,4,1,1,260,H)
135
132
C     Coefficient construction for loop diagram with ID 17
136
133
      CALL MP_FFV1L3_2(PL(0,0),W(1,5),GC_5,MDL_MB,ZERO,PL(0,16),COEFS)
137
134
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,16))
138
135
      CALL MP_FFV1L1_2(PL(0,16),W(1,6),GC_5,MDL_MB,ZERO,PL(0,17),COEFS)
139
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,16),4,COEFS,4,4,WL(1,0,1
140
 
     $ ,17))
 
136
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,16),4,COEFS,4,4,WL(1,0,1,17)
 
137
     $ )
141
138
      CALL MP_FFV1L1P0_3(PL(0,17),W(1,7),GC_5,ZERO,ZERO,PL(0,18),COEFS)
142
 
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,17),4,COEFS,4,4,WL(1,0,1
143
 
     $ ,18))
 
139
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,17),4,COEFS,4,4,WL(1,0,1,18)
 
140
     $ )
144
141
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,18),2,4,5,1,1,261,H)
145
142
C     Coefficient construction for loop diagram with ID 18
146
143
      CALL MP_FFV1L2P0_3(PL(0,0),W(1,5),GC_5,ZERO,ZERO,PL(0,19),COEFS)
147
144
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,19))
148
145
      CALL MP_VVV1L2P0_1(PL(0,19),W(1,6),GC_4,ZERO,ZERO,PL(0,20),COEFS)
149
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,19),4,COEFS,4,4,WL(1,0,1
150
 
     $ ,20))
 
146
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,19),4,COEFS,4,4,WL(1,0,1,20)
 
147
     $ )
151
148
      CALL MP_FFV1L3_1(PL(0,20),W(1,7),GC_5,MDL_MB,ZERO,PL(0,21),COEFS)
152
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,20),4,COEFS,4,4,WL(1,0,1
153
 
     $ ,21))
 
149
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,20),4,COEFS,4,4,WL(1,0,1,21)
 
150
     $ )
154
151
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,21),2,4,6,1,1,262,H)
155
152
C     Coefficient construction for loop diagram with ID 19
156
153
      CALL MP_FFV1L2_1(PL(0,14),W(1,14),GC_5,MDL_MB,ZERO,PL(0,22)
157
154
     $ ,COEFS)
158
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,14),4,COEFS,4,4,WL(1,0,1
159
 
     $ ,22))
 
155
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,14),4,COEFS,4,4,WL(1,0,1,22)
 
156
     $ )
160
157
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,22),2,4,4,1,1,263,H)
161
158
C     Coefficient construction for loop diagram with ID 20
162
159
      CALL MP_FFV2L1_2(PL(0,0),W(1,3),GC_47,MDL_MT,MDL_WT,PL(0,23)
163
160
     $ ,COEFS)
164
161
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,23))
165
162
      CALL MP_FFV1L1P0_3(PL(0,23),W(1,4),GC_5,ZERO,ZERO,PL(0,24),COEFS)
166
 
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,23),4,COEFS,4,4,WL(1,0,1
167
 
     $ ,24))
 
163
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,23),4,COEFS,4,4,WL(1,0,1,24)
 
164
     $ )
168
165
      CALL MP_FFV1L3_2(PL(0,24),W(1,15),GC_5,MDL_MB,ZERO,PL(0,25)
169
166
     $ ,COEFS)
170
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,24),4,COEFS,4,4,WL(1,0,1
171
 
     $ ,25))
 
167
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,24),4,COEFS,4,4,WL(1,0,1,25)
 
168
     $ )
172
169
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,25),2,4,7,1,1,264,H)
173
170
C     Coefficient construction for loop diagram with ID 21
174
171
      CALL MP_FFV1L3_2(PL(0,24),W(1,5),GC_5,MDL_MB,ZERO,PL(0,26),COEFS)
175
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,24),4,COEFS,4,4,WL(1,0,1
176
 
     $ ,26))
 
172
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,24),4,COEFS,4,4,WL(1,0,1,26)
 
173
     $ )
177
174
      CALL MP_FFV1L1_2(PL(0,26),W(1,6),GC_5,MDL_MB,ZERO,PL(0,27),COEFS)
178
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,26),4,COEFS,4,4,WL(1,0,1
179
 
     $ ,27))
 
175
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,26),4,COEFS,4,4,WL(1,0,1,27)
 
176
     $ )
180
177
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,27),3,4,8,1,1,265,H)
181
178
C     Coefficient construction for loop diagram with ID 22
182
179
      CALL MP_FFV2L2_1(PL(0,0),W(1,3),GC_47,MDL_MB,ZERO,PL(0,28),COEFS)
183
180
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,28))
184
181
      CALL MP_FFV1L2P0_3(PL(0,28),W(1,5),GC_5,ZERO,ZERO,PL(0,29),COEFS)
185
 
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,28),4,COEFS,4,4,WL(1,0,1
186
 
     $ ,29))
 
182
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,28),4,COEFS,4,4,WL(1,0,1,29)
 
183
     $ )
187
184
      CALL MP_FFV1L3_1(PL(0,29),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,30)
188
185
     $ ,COEFS)
189
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,29),4,COEFS,4,4,WL(1,0,1
190
 
     $ ,30))
 
186
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,29),4,COEFS,4,4,WL(1,0,1,30)
 
187
     $ )
191
188
      CALL MP_FFV1L2_1(PL(0,30),W(1,6),GC_5,MDL_MT,MDL_WT,PL(0,31)
192
189
     $ ,COEFS)
193
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,30),4,COEFS,4,4,WL(1,0,1
194
 
     $ ,31))
 
190
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,30),4,COEFS,4,4,WL(1,0,1,31)
 
191
     $ )
195
192
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,31),3,4,9,1,1,266,H)
196
193
C     Coefficient construction for loop diagram with ID 23
197
194
      CALL MP_FFV1L3_1(PL(0,29),W(1,16),GC_5,MDL_MT,MDL_WT,PL(0,32)
198
195
     $ ,COEFS)
199
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,29),4,COEFS,4,4,WL(1,0,1
200
 
     $ ,32))
 
196
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,29),4,COEFS,4,4,WL(1,0,1,32)
 
197
     $ )
201
198
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,32),2,4,10,1,1,267,H)
202
199
C     Coefficient construction for loop diagram with ID 24
203
200
      CALL MP_VVV1L2P0_1(PL(0,24),W(1,6),GC_4,ZERO,ZERO,PL(0,33),COEFS)
204
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,24),4,COEFS,4,4,WL(1,0,1
205
 
     $ ,33))
 
201
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,24),4,COEFS,4,4,WL(1,0,1,33)
 
202
     $ )
206
203
      CALL MP_FFV1L3_2(PL(0,33),W(1,5),GC_5,MDL_MB,ZERO,PL(0,34),COEFS)
207
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,33),4,COEFS,4,4,WL(1,0,1
208
 
     $ ,34))
 
204
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,33),4,COEFS,4,4,WL(1,0,1,34)
 
205
     $ )
209
206
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,34),3,4,11,1,1,268,H)
210
207
C     Coefficient construction for loop diagram with ID 25
211
208
      CALL MP_FFV1L2P0_3(PL(0,0),W(1,10),GC_5,ZERO,ZERO,PL(0,35),COEFS)
212
209
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,35))
213
210
      CALL MP_FFV1L3_1(PL(0,35),W(1,17),GC_5,MDL_MB,ZERO,PL(0,36)
214
211
     $ ,COEFS)
215
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,35),4,COEFS,4,4,WL(1,0,1
216
 
     $ ,36))
 
212
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,35),4,COEFS,4,4,WL(1,0,1,36)
 
213
     $ )
217
214
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,36),1,4,12,1,1,269,H)
218
215
C     Coefficient construction for loop diagram with ID 26
219
216
      CALL MP_FFV1L1P0_3(PL(0,23),W(1,9),GC_5,ZERO,ZERO,PL(0,37),COEFS)
220
 
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,23),4,COEFS,4,4,WL(1,0,1
221
 
     $ ,37))
 
217
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,23),4,COEFS,4,4,WL(1,0,1,37)
 
218
     $ )
222
219
      CALL MP_FFV1L3_2(PL(0,37),W(1,10),GC_5,MDL_MB,ZERO,PL(0,38)
223
220
     $ ,COEFS)
224
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,37),4,COEFS,4,4,WL(1,0,1
225
 
     $ ,38))
 
221
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,37),4,COEFS,4,4,WL(1,0,1,38)
 
222
     $ )
226
223
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,38),2,4,13,1,1,270,H)
227
224
C     Coefficient construction for loop diagram with ID 27
228
225
      CALL MP_FFV1L2_1(PL(0,0),W(1,2),GC_5,MDL_MB,ZERO,PL(0,39),COEFS)
229
226
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,39))
230
227
      CALL MP_FFV1L2P0_3(PL(0,39),W(1,5),GC_5,ZERO,ZERO,PL(0,40),COEFS)
231
 
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,39),4,COEFS,4,4,WL(1,0,1
232
 
     $ ,40))
 
228
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,39),4,COEFS,4,4,WL(1,0,1,40)
 
229
     $ )
233
230
      CALL MP_FFV1L3_1(PL(0,40),W(1,17),GC_5,MDL_MB,ZERO,PL(0,41)
234
231
     $ ,COEFS)
235
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,40),4,COEFS,4,4,WL(1,0,1
236
 
     $ ,41))
 
232
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,40),4,COEFS,4,4,WL(1,0,1,41)
 
233
     $ )
237
234
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,41),2,4,14,1,1,271,H)
238
235
C     Coefficient construction for loop diagram with ID 28
239
236
      CALL MP_FFV1L1_2(PL(0,0),W(1,2),GC_5,MDL_MB,ZERO,PL(0,42),COEFS)
240
237
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,42))
241
238
      CALL MP_FFV2L1_2(PL(0,42),W(1,3),GC_47,MDL_MT,MDL_WT,PL(0,43)
242
239
     $ ,COEFS)
243
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,42),4,COEFS,4,4,WL(1,0,1
244
 
     $ ,43))
 
240
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,42),4,COEFS,4,4,WL(1,0,1,43)
 
241
     $ )
245
242
      CALL MP_FFV1L1P0_3(PL(0,43),W(1,9),GC_5,ZERO,ZERO,PL(0,44),COEFS)
246
 
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,43),4,COEFS,4,4,WL(1,0,1
247
 
     $ ,44))
 
243
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,43),4,COEFS,4,4,WL(1,0,1,44)
 
244
     $ )
248
245
      CALL MP_FFV1L3_2(PL(0,44),W(1,5),GC_5,MDL_MB,ZERO,PL(0,45),COEFS)
249
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,44),4,COEFS,4,4,WL(1,0,1
250
 
     $ ,45))
 
246
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,44),4,COEFS,4,4,WL(1,0,1,45)
 
247
     $ )
251
248
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,45),3,4,15,1,1,272,H)
252
249
C     Coefficient construction for loop diagram with ID 29
253
250
      CALL MP_FFV1L3_1(PL(0,29),W(1,18),GC_5,MDL_MT,MDL_WT,PL(0,46)
254
251
     $ ,COEFS)
255
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,29),4,COEFS,4,4,WL(1,0,1
256
 
     $ ,46))
 
252
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,29),4,COEFS,4,4,WL(1,0,1,46)
 
253
     $ )
257
254
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,46),2,4,10,1,1,273,H)
258
255
C     Coefficient construction for loop diagram with ID 30
259
256
      CALL MP_VVV1L2P0_1(PL(0,0),W(1,2),GC_4,ZERO,ZERO,PL(0,47),COEFS)
260
257
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,47))
261
258
      CALL MP_FFV1L3_2(PL(0,47),W(1,5),GC_5,MDL_MB,ZERO,PL(0,48),COEFS)
262
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,47),4,COEFS,4,4,WL(1,0,1
263
 
     $ ,48))
 
259
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,47),4,COEFS,4,4,WL(1,0,1,48)
 
260
     $ )
264
261
      CALL MP_FFV2L1_2(PL(0,48),W(1,3),GC_47,MDL_MT,MDL_WT,PL(0,49)
265
262
     $ ,COEFS)
266
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,48),4,COEFS,4,4,WL(1,0,1
267
 
     $ ,49))
 
263
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,48),4,COEFS,4,4,WL(1,0,1,49)
 
264
     $ )
268
265
      CALL MP_FFV1L1P0_3(PL(0,49),W(1,9),GC_5,ZERO,ZERO,PL(0,50),COEFS)
269
 
      CALL MP_ML5_0_UPDATE_WL_3_0(WL(1,0,1,49),4,COEFS,4,4,WL(1,0,1
270
 
     $ ,50))
 
266
      CALL MP_ML5_0_UPDATE_WL_3_0(WL(1,0,1,49),4,COEFS,4,4,WL(1,0,1,50)
 
267
     $ )
271
268
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,50),3,4,16,1,1,274,H)
272
269
C     Coefficient construction for loop diagram with ID 31
273
270
      CALL MP_FFV1L2_1(PL(0,0),W(1,2),GC_5,MDL_MT,MDL_WT,PL(0,51)
275
272
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,51))
276
273
      CALL MP_FFV2L2_1(PL(0,51),W(1,3),GC_47,MDL_MB,ZERO,PL(0,52)
277
274
     $ ,COEFS)
278
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,51),4,COEFS,4,4,WL(1,0,1
279
 
     $ ,52))
 
275
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,51),4,COEFS,4,4,WL(1,0,1,52)
 
276
     $ )
280
277
      CALL MP_FFV1L2P0_3(PL(0,52),W(1,5),GC_5,ZERO,ZERO,PL(0,53),COEFS)
281
 
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,52),4,COEFS,4,4,WL(1,0,1
282
 
     $ ,53))
 
278
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,52),4,COEFS,4,4,WL(1,0,1,53)
 
279
     $ )
283
280
      CALL MP_FFV1L3_1(PL(0,53),W(1,9),GC_5,MDL_MT,MDL_WT,PL(0,54)
284
281
     $ ,COEFS)
285
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,53),4,COEFS,4,4,WL(1,0,1
286
 
     $ ,54))
 
282
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,53),4,COEFS,4,4,WL(1,0,1,54)
 
283
     $ )
287
284
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,54),3,4,17,1,1,275,H)
288
285
C     Coefficient construction for loop diagram with ID 32
289
286
      CALL MP_FFV1L1P0_3(PL(0,48),W(1,17),GC_5,ZERO,ZERO,PL(0,55)
290
287
     $ ,COEFS)
291
 
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,48),4,COEFS,4,4,WL(1,0,1
292
 
     $ ,55))
 
288
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,48),4,COEFS,4,4,WL(1,0,1,55)
 
289
     $ )
293
290
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,55),2,4,18,1,1,276,H)
294
291
C     Coefficient construction for loop diagram with ID 33
295
292
      CALL MP_FFV1L2P0_3(PL(0,0),W(1,11),GC_5,ZERO,ZERO,PL(0,56),COEFS)
296
293
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,56))
297
294
      CALL MP_FFV1L3_1(PL(0,56),W(1,19),GC_5,MDL_MB,ZERO,PL(0,57)
298
295
     $ ,COEFS)
299
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,56),4,COEFS,4,4,WL(1,0,1
300
 
     $ ,57))
 
296
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,56),4,COEFS,4,4,WL(1,0,1,57)
 
297
     $ )
301
298
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,57),1,4,19,1,1,277,H)
302
299
C     Coefficient construction for loop diagram with ID 34
303
300
      CALL MP_FFV1L1P0_3(PL(0,23),W(1,12),GC_5,ZERO,ZERO,PL(0,58)
304
301
     $ ,COEFS)
305
 
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,23),4,COEFS,4,4,WL(1,0,1
306
 
     $ ,58))
 
302
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,23),4,COEFS,4,4,WL(1,0,1,58)
 
303
     $ )
307
304
      CALL MP_FFV1L3_2(PL(0,58),W(1,11),GC_5,MDL_MB,ZERO,PL(0,59)
308
305
     $ ,COEFS)
309
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,58),4,COEFS,4,4,WL(1,0,1
310
 
     $ ,59))
 
306
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,58),4,COEFS,4,4,WL(1,0,1,59)
 
307
     $ )
311
308
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,59),2,4,20,1,1,278,H)
312
309
C     Coefficient construction for loop diagram with ID 35
313
310
      CALL MP_FFV1L1P0_3(PL(0,42),W(1,7),GC_5,ZERO,ZERO,PL(0,60),COEFS)
314
 
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,42),4,COEFS,4,4,WL(1,0,1
315
 
     $ ,60))
 
311
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,42),4,COEFS,4,4,WL(1,0,1,60)
 
312
     $ )
316
313
      CALL MP_FFV1L3_2(PL(0,60),W(1,11),GC_5,MDL_MB,ZERO,PL(0,61)
317
314
     $ ,COEFS)
318
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,60),4,COEFS,4,4,WL(1,0,1
319
 
     $ ,61))
 
315
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,60),4,COEFS,4,4,WL(1,0,1,61)
 
316
     $ )
320
317
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,61),2,4,21,1,1,279,H)
321
318
C     Coefficient construction for loop diagram with ID 36
322
319
      CALL MP_FFV1L1P0_3(PL(0,43),W(1,4),GC_5,ZERO,ZERO,PL(0,62),COEFS)
323
 
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,43),4,COEFS,4,4,WL(1,0,1
324
 
     $ ,62))
 
320
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,43),4,COEFS,4,4,WL(1,0,1,62)
 
321
     $ )
325
322
      CALL MP_FFV1L3_2(PL(0,62),W(1,11),GC_5,MDL_MB,ZERO,PL(0,63)
326
323
     $ ,COEFS)
327
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,62),4,COEFS,4,4,WL(1,0,1
328
 
     $ ,63))
 
324
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,62),4,COEFS,4,4,WL(1,0,1,63)
 
325
     $ )
329
326
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,63),3,4,22,1,1,280,H)
330
327
C     Coefficient construction for loop diagram with ID 37
331
328
      CALL MP_FFV1L3_2(PL(0,12),W(1,20),GC_5,MDL_MB,ZERO,PL(0,64)
332
329
     $ ,COEFS)
333
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,12),4,COEFS,4,4,WL(1,0,1
334
 
     $ ,64))
 
330
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,12),4,COEFS,4,4,WL(1,0,1,64)
 
331
     $ )
335
332
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,64),1,4,3,1,1,281,H)
336
333
C     Coefficient construction for loop diagram with ID 38
337
334
      CALL MP_FFV1L3_1(PL(0,56),W(1,21),GC_5,MDL_MB,ZERO,PL(0,65)
338
335
     $ ,COEFS)
339
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,56),4,COEFS,4,4,WL(1,0,1
340
 
     $ ,65))
 
336
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,56),4,COEFS,4,4,WL(1,0,1,65)
 
337
     $ )
341
338
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,65),1,4,19,1,1,282,H)
342
339
C     Coefficient construction for loop diagram with ID 39
343
340
      CALL MP_FFV1L3_1(PL(0,47),W(1,7),GC_5,MDL_MB,ZERO,PL(0,66),COEFS)
344
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,47),4,COEFS,4,4,WL(1,0,1
345
 
     $ ,66))
 
341
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,47),4,COEFS,4,4,WL(1,0,1,66)
 
342
     $ )
346
343
      CALL MP_FFV1L2P0_3(PL(0,66),W(1,11),GC_5,ZERO,ZERO,PL(0,67)
347
344
     $ ,COEFS)
348
 
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,66),4,COEFS,4,4,WL(1,0,1
349
 
     $ ,67))
 
345
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,66),4,COEFS,4,4,WL(1,0,1,67)
 
346
     $ )
350
347
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,67),2,4,23,1,1,283,H)
351
348
C     Coefficient construction for loop diagram with ID 40
352
349
      CALL MP_FFV1L3_2(PL(0,24),W(1,20),GC_5,MDL_MB,ZERO,PL(0,68)
353
350
     $ ,COEFS)
354
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,24),4,COEFS,4,4,WL(1,0,1
355
 
     $ ,68))
 
351
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,24),4,COEFS,4,4,WL(1,0,1,68)
 
352
     $ )
356
353
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,68),2,4,7,1,1,284,H)
357
354
C     Coefficient construction for loop diagram with ID 41
358
355
      CALL MP_FFV1L2P0_3(PL(0,52),W(1,11),GC_5,ZERO,ZERO,PL(0,69)
359
356
     $ ,COEFS)
360
 
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,52),4,COEFS,4,4,WL(1,0,1
361
 
     $ ,69))
 
357
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,52),4,COEFS,4,4,WL(1,0,1,69)
 
358
     $ )
362
359
      CALL MP_FFV1L3_1(PL(0,69),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,70)
363
360
     $ ,COEFS)
364
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,69),4,COEFS,4,4,WL(1,0,1
365
 
     $ ,70))
 
361
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,69),4,COEFS,4,4,WL(1,0,1,70)
 
362
     $ )
366
363
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,70),3,4,24,1,1,285,H)
367
364
C     Coefficient construction for loop diagram with ID 42
368
365
      CALL MP_FFV1L3_1(PL(0,47),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,71)
369
366
     $ ,COEFS)
370
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,47),4,COEFS,4,4,WL(1,0,1
371
 
     $ ,71))
 
367
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,47),4,COEFS,4,4,WL(1,0,1,71)
 
368
     $ )
372
369
      CALL MP_FFV2L2_1(PL(0,71),W(1,3),GC_47,MDL_MB,ZERO,PL(0,72)
373
370
     $ ,COEFS)
374
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,71),4,COEFS,4,4,WL(1,0,1
375
 
     $ ,72))
 
371
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,71),4,COEFS,4,4,WL(1,0,1,72)
 
372
     $ )
376
373
      CALL MP_FFV1L2P0_3(PL(0,72),W(1,11),GC_5,ZERO,ZERO,PL(0,73)
377
374
     $ ,COEFS)
378
 
      CALL MP_ML5_0_UPDATE_WL_3_0(WL(1,0,1,72),4,COEFS,4,4,WL(1,0,1
379
 
     $ ,73))
 
375
      CALL MP_ML5_0_UPDATE_WL_3_0(WL(1,0,1,72),4,COEFS,4,4,WL(1,0,1,73)
 
376
     $ )
380
377
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,73),3,4,25,1,1,286,H)
381
378
C     Coefficient construction for loop diagram with ID 43
382
379
      CALL MP_FFV1L2_1(PL(0,0),W(1,1),GC_5,MDL_MB,ZERO,PL(0,74),COEFS)
383
380
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,74))
384
381
      CALL MP_FFV1L2P0_3(PL(0,74),W(1,5),GC_5,ZERO,ZERO,PL(0,75),COEFS)
385
 
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,74),4,COEFS,4,4,WL(1,0,1
386
 
     $ ,75))
 
382
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,74),4,COEFS,4,4,WL(1,0,1,75)
 
383
     $ )
387
384
      CALL MP_FFV1L3_1(PL(0,75),W(1,19),GC_5,MDL_MB,ZERO,PL(0,76)
388
385
     $ ,COEFS)
389
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,75),4,COEFS,4,4,WL(1,0,1
390
 
     $ ,76))
 
386
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,75),4,COEFS,4,4,WL(1,0,1,76)
 
387
     $ )
391
388
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,76),2,4,26,1,1,287,H)
392
389
C     Coefficient construction for loop diagram with ID 44
393
390
      CALL MP_FFV1L1_2(PL(0,0),W(1,1),GC_5,MDL_MB,ZERO,PL(0,77),COEFS)
394
391
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,77))
395
392
      CALL MP_FFV2L1_2(PL(0,77),W(1,3),GC_47,MDL_MT,MDL_WT,PL(0,78)
396
393
     $ ,COEFS)
397
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,77),4,COEFS,4,4,WL(1,0,1
398
 
     $ ,78))
 
394
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,77),4,COEFS,4,4,WL(1,0,1,78)
 
395
     $ )
399
396
      CALL MP_FFV1L1P0_3(PL(0,78),W(1,12),GC_5,ZERO,ZERO,PL(0,79)
400
397
     $ ,COEFS)
401
 
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,78),4,COEFS,4,4,WL(1,0,1
402
 
     $ ,79))
 
398
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,78),4,COEFS,4,4,WL(1,0,1,79)
 
399
     $ )
403
400
      CALL MP_FFV1L3_2(PL(0,79),W(1,5),GC_5,MDL_MB,ZERO,PL(0,80),COEFS)
404
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,79),4,COEFS,4,4,WL(1,0,1
405
 
     $ ,80))
 
401
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,79),4,COEFS,4,4,WL(1,0,1,80)
 
402
     $ )
406
403
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,80),3,4,27,1,1,288,H)
407
404
C     Coefficient construction for loop diagram with ID 45
408
405
      CALL MP_FFV1L1P0_3(PL(0,77),W(1,7),GC_5,ZERO,ZERO,PL(0,81),COEFS)
409
 
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,77),4,COEFS,4,4,WL(1,0,1
410
 
     $ ,81))
 
406
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,77),4,COEFS,4,4,WL(1,0,1,81)
 
407
     $ )
411
408
      CALL MP_FFV1L3_2(PL(0,81),W(1,10),GC_5,MDL_MB,ZERO,PL(0,82)
412
409
     $ ,COEFS)
413
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,81),4,COEFS,4,4,WL(1,0,1
414
 
     $ ,82))
 
410
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,81),4,COEFS,4,4,WL(1,0,1,82)
 
411
     $ )
415
412
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,82),2,4,28,1,1,289,H)
416
413
C     Coefficient construction for loop diagram with ID 46
417
414
      CALL MP_FFV1L1P0_3(PL(0,78),W(1,4),GC_5,ZERO,ZERO,PL(0,83),COEFS)
418
 
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,78),4,COEFS,4,4,WL(1,0,1
419
 
     $ ,83))
 
415
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,78),4,COEFS,4,4,WL(1,0,1,83)
 
416
     $ )
420
417
      CALL MP_FFV1L3_2(PL(0,83),W(1,10),GC_5,MDL_MB,ZERO,PL(0,84)
421
418
     $ ,COEFS)
422
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,83),4,COEFS,4,4,WL(1,0,1
423
 
     $ ,84))
 
419
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,83),4,COEFS,4,4,WL(1,0,1,84)
 
420
     $ )
424
421
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,84),3,4,29,1,1,290,H)
425
422
C     Coefficient construction for loop diagram with ID 47
426
423
      CALL MP_FFV1L1_2(PL(0,77),W(1,2),GC_5,MDL_MB,ZERO,PL(0,85),COEFS)
427
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,77),4,COEFS,4,4,WL(1,0,1
428
 
     $ ,85))
 
424
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,77),4,COEFS,4,4,WL(1,0,1,85)
 
425
     $ )
429
426
      CALL MP_FFV2L1_2(PL(0,85),W(1,3),GC_47,MDL_MT,MDL_WT,PL(0,86)
430
427
     $ ,COEFS)
431
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,85),4,COEFS,4,4,WL(1,0,1
432
 
     $ ,86))
 
428
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,85),4,COEFS,4,4,WL(1,0,1,86)
 
429
     $ )
433
430
      CALL MP_FFV1L1P0_3(PL(0,86),W(1,4),GC_5,ZERO,ZERO,PL(0,87),COEFS)
434
 
      CALL MP_ML5_0_UPDATE_WL_3_0(WL(1,0,1,86),4,COEFS,4,4,WL(1,0,1
435
 
     $ ,87))
 
431
      CALL MP_ML5_0_UPDATE_WL_3_0(WL(1,0,1,86),4,COEFS,4,4,WL(1,0,1,87)
 
432
     $ )
436
433
      CALL MP_FFV1L3_2(PL(0,87),W(1,5),GC_5,MDL_MB,ZERO,PL(0,88),COEFS)
437
 
      CALL MP_ML5_0_UPDATE_WL_3_1(WL(1,0,1,87),4,COEFS,4,4,WL(1,0,1
438
 
     $ ,88))
 
434
      CALL MP_ML5_0_UPDATE_WL_3_1(WL(1,0,1,87),4,COEFS,4,4,WL(1,0,1,88)
 
435
     $ )
439
436
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,88),4,4,30,1,1,291,H)
440
437
C     Coefficient construction for loop diagram with ID 48
441
438
      CALL MP_FFV1L1_2(PL(0,85),W(1,13),GC_5,MDL_MB,ZERO,PL(0,89)
442
439
     $ ,COEFS)
443
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,85),4,COEFS,4,4,WL(1,0,1
444
 
     $ ,89))
 
440
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,85),4,COEFS,4,4,WL(1,0,1,89)
 
441
     $ )
445
442
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,89),3,4,31,1,1,292,H)
446
443
C     Coefficient construction for loop diagram with ID 49
447
444
      CALL MP_FFV1L1P0_3(PL(0,85),W(1,7),GC_5,ZERO,ZERO,PL(0,90),COEFS)
448
 
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,85),4,COEFS,4,4,WL(1,0,1
449
 
     $ ,90))
 
445
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,85),4,COEFS,4,4,WL(1,0,1,90)
 
446
     $ )
450
447
      CALL MP_FFV1L3_2(PL(0,90),W(1,5),GC_5,MDL_MB,ZERO,PL(0,91),COEFS)
451
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,90),4,COEFS,4,4,WL(1,0,1
452
 
     $ ,91))
 
448
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,90),4,COEFS,4,4,WL(1,0,1,91)
 
449
     $ )
453
450
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,91),3,4,32,1,1,293,H)
454
451
C     Coefficient construction for loop diagram with ID 50
455
452
      CALL MP_FFV1L1_2(PL(0,85),W(1,14),GC_5,MDL_MB,ZERO,PL(0,92)
456
453
     $ ,COEFS)
457
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,85),4,COEFS,4,4,WL(1,0,1
458
 
     $ ,92))
 
454
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,85),4,COEFS,4,4,WL(1,0,1,92)
 
455
     $ )
459
456
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,92),3,4,31,1,1,294,H)
460
457
C     Coefficient construction for loop diagram with ID 51
461
458
      CALL MP_FFV1L2_1(PL(0,74),W(1,2),GC_5,MDL_MB,ZERO,PL(0,93),COEFS)
462
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,74),4,COEFS,4,4,WL(1,0,1
463
 
     $ ,93))
 
459
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,74),4,COEFS,4,4,WL(1,0,1,93)
 
460
     $ )
464
461
      CALL MP_FFV1L2_1(PL(0,93),W(1,13),GC_5,MDL_MB,ZERO,PL(0,94)
465
462
     $ ,COEFS)
466
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,93),4,COEFS,4,4,WL(1,0,1
467
 
     $ ,94))
 
463
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,93),4,COEFS,4,4,WL(1,0,1,94)
 
464
     $ )
468
465
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,94),3,4,31,1,1,295,H)
469
466
C     Coefficient construction for loop diagram with ID 52
470
467
      CALL MP_FFV1L2P0_3(PL(0,93),W(1,5),GC_5,ZERO,ZERO,PL(0,95),COEFS)
471
 
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,93),4,COEFS,4,4,WL(1,0,1
472
 
     $ ,95))
 
468
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,93),4,COEFS,4,4,WL(1,0,1,95)
 
469
     $ )
473
470
      CALL MP_FFV1L3_1(PL(0,95),W(1,7),GC_5,MDL_MB,ZERO,PL(0,96),COEFS)
474
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,95),4,COEFS,4,4,WL(1,0,1
475
 
     $ ,96))
 
471
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,95),4,COEFS,4,4,WL(1,0,1,96)
 
472
     $ )
476
473
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,96),3,4,33,1,1,296,H)
477
474
C     Coefficient construction for loop diagram with ID 53
478
475
      CALL MP_FFV1L3_1(PL(0,75),W(1,21),GC_5,MDL_MB,ZERO,PL(0,97)
479
476
     $ ,COEFS)
480
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,75),4,COEFS,4,4,WL(1,0,1
481
 
     $ ,97))
 
477
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,75),4,COEFS,4,4,WL(1,0,1,97)
 
478
     $ )
482
479
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,97),2,4,26,1,1,297,H)
483
480
C     Coefficient construction for loop diagram with ID 54
484
481
      CALL MP_VVV1L2P0_1(PL(0,75),W(1,2),GC_4,ZERO,ZERO,PL(0,98),COEFS)
485
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,75),4,COEFS,4,4,WL(1,0,1
486
 
     $ ,98))
 
482
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,75),4,COEFS,4,4,WL(1,0,1,98)
 
483
     $ )
487
484
      CALL MP_FFV1L3_1(PL(0,98),W(1,7),GC_5,MDL_MB,ZERO,PL(0,99),COEFS)
488
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,98),4,COEFS,4,4,WL(1,0,1
489
 
     $ ,99))
 
485
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,98),4,COEFS,4,4,WL(1,0,1,99)
 
486
     $ )
490
487
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,99),3,4,34,1,1,298,H)
491
488
C     Coefficient construction for loop diagram with ID 55
492
489
      CALL MP_FFV1L2_1(PL(0,93),W(1,14),GC_5,MDL_MB,ZERO,PL(0,100)
537
534
C     Coefficient construction for loop diagram with ID 60
538
535
      CALL MP_FFV1L2_1(PL(0,0),W(1,1),GC_5,MDL_MT,MDL_WT,PL(0,109)
539
536
     $ ,COEFS)
540
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
541
 
     $ ,109))
 
537
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,109)
 
538
     $ )
542
539
      CALL MP_FFV2L2_1(PL(0,109),W(1,3),GC_47,MDL_MB,ZERO,PL(0,110)
543
540
     $ ,COEFS)
544
541
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,109),4,COEFS,4,4,WL(1,0,1
554
551
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,112),3,4,38,1,1,304,H)
555
552
C     Coefficient construction for loop diagram with ID 61
556
553
      CALL MP_VVV1L2P0_1(PL(0,0),W(1,1),GC_4,ZERO,ZERO,PL(0,113),COEFS)
557
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
558
 
     $ ,113))
 
554
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,113)
 
555
     $ )
559
556
      CALL MP_FFV1L3_2(PL(0,113),W(1,5),GC_5,MDL_MB,ZERO,PL(0,114)
560
557
     $ ,COEFS)
561
558
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,113),4,COEFS,4,4,WL(1,0,1
744
741
C     Coefficient construction for loop diagram with ID 79
745
742
      CALL MP_FFV1L1_2(PL(0,0),W(1,1),GC_5,MDL_MT,MDL_WT,PL(0,151)
746
743
     $ ,COEFS)
747
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
748
 
     $ ,151))
 
744
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,151)
 
745
     $ )
749
746
      CALL MP_FFV1L1_2(PL(0,151),W(1,2),GC_5,MDL_MT,MDL_WT,PL(0,152)
750
747
     $ ,COEFS)
751
748
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,151),4,COEFS,4,4,WL(1,0,1
850
847
C     Coefficient construction for loop diagram with ID 85
851
848
      CALL MP_FFV1L2_1(PL(0,0),W(1,6),GC_5,MDL_MT,MDL_WT,PL(0,174)
852
849
     $ ,COEFS)
853
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
854
 
     $ ,174))
 
850
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,174)
 
851
     $ )
855
852
      CALL MP_FFV1L2_1(PL(0,174),W(1,13),GC_5,MDL_MT,MDL_WT,PL(0,175)
856
853
     $ ,COEFS)
857
854
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,174),4,COEFS,4,4,WL(1,0,1
859
856
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,175),2,4,55,1,1,333,H)
860
857
C     Coefficient construction for loop diagram with ID 86
861
858
      CALL MP_FFV1L2P0_3(PL(0,0),W(1,8),GC_5,ZERO,ZERO,PL(0,176),COEFS)
862
 
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
863
 
     $ ,176))
 
859
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,176)
 
860
     $ )
864
861
      CALL MP_FFV1L3_1(PL(0,176),W(1,16),GC_5,MDL_MT,MDL_WT,PL(0,177)
865
862
     $ ,COEFS)
866
863
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,176),4,COEFS,4,4,WL(1,0,1
875
872
C     Coefficient construction for loop diagram with ID 88
876
873
      CALL MP_FFV1L3_1(PL(0,0),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,179)
877
874
     $ ,COEFS)
878
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
879
 
     $ ,179))
 
875
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,179)
 
876
     $ )
880
877
      CALL MP_FFV1L2_1(PL(0,179),W(1,6),GC_5,MDL_MT,MDL_WT,PL(0,180)
881
878
     $ ,COEFS)
882
879
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,179),4,COEFS,4,4,WL(1,0,1
888
885
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,181),2,4,57,1,1,336,H)
889
886
C     Coefficient construction for loop diagram with ID 89
890
887
      CALL MP_FFV1L1P0_3(PL(0,0),W(1,4),GC_5,ZERO,ZERO,PL(0,182),COEFS)
891
 
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
892
 
     $ ,182))
 
888
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,182)
 
889
     $ )
893
890
      CALL MP_VVV1L2P0_1(PL(0,182),W(1,6),GC_4,ZERO,ZERO,PL(0,183)
894
891
     $ ,COEFS)
895
892
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,182),4,COEFS,4,4,WL(1,0,1
901
898
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,184),2,4,58,1,1,337,H)
902
899
C     Coefficient construction for loop diagram with ID 90
903
900
      CALL MP_FFV1L1P0_3(PL(0,0),W(1,9),GC_5,ZERO,ZERO,PL(0,185),COEFS)
904
 
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
905
 
     $ ,185))
 
901
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,185)
 
902
     $ )
906
903
      CALL MP_FFV1L3_2(PL(0,185),W(1,25),GC_5,MDL_MT,MDL_WT,PL(0,186)
907
904
     $ ,COEFS)
908
905
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,185),4,COEFS,4,4,WL(1,0,1
911
908
C     Coefficient construction for loop diagram with ID 91
912
909
      CALL MP_FFV1L1_2(PL(0,0),W(1,2),GC_5,MDL_MT,MDL_WT,PL(0,187)
913
910
     $ ,COEFS)
914
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
915
 
     $ ,187))
 
911
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,187)
 
912
     $ )
916
913
      CALL MP_FFV1L1P0_3(PL(0,187),W(1,9),GC_5,ZERO,ZERO,PL(0,188)
917
914
     $ ,COEFS)
918
915
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,187),4,COEFS,4,4,WL(1,0,1
947
944
C     Coefficient construction for loop diagram with ID 95
948
945
      CALL MP_FFV1L1P0_3(PL(0,0),W(1,12),GC_5,ZERO,ZERO,PL(0,194)
949
946
     $ ,COEFS)
950
 
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
951
 
     $ ,194))
 
947
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,194)
 
948
     $ )
952
949
      CALL MP_FFV1L3_2(PL(0,194),W(1,27),GC_5,MDL_MT,MDL_WT,PL(0,195)
953
950
     $ ,COEFS)
954
951
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,194),4,COEFS,4,4,WL(1,0,1
1144
1141
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,230),1,4,58,1,1,368,H)
1145
1142
C     Coefficient construction for loop diagram with ID 119
1146
1143
      CALL MP_VVV1L2P0_1(PL(0,0),W(1,6),GC_4,ZERO,ZERO,PL(0,231),COEFS)
1147
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
1148
 
     $ ,231))
 
1144
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,231)
 
1145
     $ )
1149
1146
      CALL MP_VVV1L2P0_1(PL(0,231),W(1,13),GC_4,ZERO,ZERO,PL(0,232)
1150
1147
     $ ,COEFS)
1151
1148
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,231),4,COEFS,4,4,WL(1,0,1
1236
1233
C     Coefficient construction for loop diagram with ID 127
1237
1234
      CALL MP_VVVV1L2P0_1(PL(0,0),W(1,1),W(1,2),GC_6,ZERO,ZERO,PL(0
1238
1235
     $ ,248),COEFS)
1239
 
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
1240
 
     $ ,248))
 
1236
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,248)
 
1237
     $ )
1241
1238
      CALL MP_VVVV3L2P0_1(PL(0,0),W(1,1),W(1,2),GC_6,ZERO,ZERO,PL(0
1242
1239
     $ ,249),COEFS)
1243
 
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
1244
 
     $ ,249))
 
1240
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,249)
 
1241
     $ )
1245
1242
      CALL MP_VVVV4L2P0_1(PL(0,0),W(1,1),W(1,2),GC_6,ZERO,ZERO,PL(0
1246
1243
     $ ,250),COEFS)
1247
 
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
1248
 
     $ ,250))
 
1244
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,250)
 
1245
     $ )
1249
1246
      CALL MP_VVV1L2P0_1(PL(0,248),W(1,13),GC_4,ZERO,ZERO,PL(0,251)
1250
1247
     $ ,COEFS)
1251
1248
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,248),4,COEFS,4,4,WL(1,0,1
1279
1276
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,256),1,4,1,2,1,390,H)
1280
1277
C     Coefficient construction for loop diagram with ID 129
1281
1278
      CALL MP_GHGHGL2_1(PL(0,0),W(1,6),GC_4,ZERO,ZERO,PL(0,257),COEFS)
1282
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),1,COEFS,1,1,WL(1,0,1
1283
 
     $ ,257))
 
1279
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),1,COEFS,1,1,WL(1,0,1,257)
 
1280
     $ )
1284
1281
      CALL MP_GHGHGL2_1(PL(0,257),W(1,13),GC_4,ZERO,ZERO,PL(0,258)
1285
1282
     $ ,COEFS)
1286
1283
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,257),1,COEFS,1,1,WL(1,0,1
1294
1291
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,259),2,1,1,1,1,392,H)
1295
1292
C     Coefficient construction for loop diagram with ID 131
1296
1293
      CALL MP_GHGHGL1_2(PL(0,0),W(1,1),GC_4,ZERO,ZERO,PL(0,260),COEFS)
1297
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),1,COEFS,1,1,WL(1,0,1
1298
 
     $ ,260))
 
1294
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),1,COEFS,1,1,WL(1,0,1,260)
 
1295
     $ )
1299
1296
      CALL MP_GHGHGL1_2(PL(0,260),W(1,2),GC_4,ZERO,ZERO,PL(0,261)
1300
1297
     $ ,COEFS)
1301
1298
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,260),1,COEFS,1,1,WL(1,0,1
1313
1310
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,263),3,1,2,1,1,394,H)
1314
1311
C     Coefficient construction for loop diagram with ID 133
1315
1312
      CALL MP_GHGHGL2_1(PL(0,0),W(1,1),GC_4,ZERO,ZERO,PL(0,264),COEFS)
1316
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),1,COEFS,1,1,WL(1,0,1
1317
 
     $ ,264))
 
1313
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),1,COEFS,1,1,WL(1,0,1,264)
 
1314
     $ )
1318
1315
      CALL MP_GHGHGL2_1(PL(0,264),W(1,2),GC_4,ZERO,ZERO,PL(0,265)
1319
1316
     $ ,COEFS)
1320
1317
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,264),1,COEFS,1,1,WL(1,0,1