← 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: 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_optimized/gg_wmtbx/mp_coef_construction_1.f
4
4
C     
5
5
C     CONSTANTS
6
6
C     
7
 
      INTEGER NBORNAMPS
8
 
      PARAMETER (NBORNAMPS=8)
9
7
      INTEGER    NEXTERNAL
10
8
      PARAMETER (NEXTERNAL=5)
11
9
      INTEGER    NCOMB
12
10
      PARAMETER (NCOMB=48)
 
11
 
 
12
      INTEGER NBORNAMPS
 
13
      PARAMETER (NBORNAMPS=8)
13
14
      INTEGER    NLOOPS, NLOOPGROUPS, NCTAMPS
14
 
      PARAMETER (NLOOPS=162, NLOOPGROUPS=77, NCTAMPS=252)
 
15
      PARAMETER (NLOOPS=144, NLOOPGROUPS=77, NCTAMPS=252)
 
16
      INTEGER    NLOOPAMPS
 
17
      PARAMETER (NLOOPAMPS=396)
15
18
      INTEGER    NWAVEFUNCS,NLOOPWAVEFUNCS
16
 
      PARAMETER (NWAVEFUNCS=28,NLOOPWAVEFUNCS=300)
 
19
      PARAMETER (NWAVEFUNCS=28,NLOOPWAVEFUNCS=267)
17
20
      INTEGER MAXLWFSIZE
18
21
      PARAMETER (MAXLWFSIZE=4)
19
22
      INTEGER LOOPMAXCOEFS, VERTEXMAXCOEFS
65
68
      COMPLEX*32 PL(0:3,0:NLOOPWAVEFUNCS)
66
69
      COMMON/ML5_0_MP_WL/WL,PL
67
70
 
68
 
      COMPLEX*32 LOOPCOEFS(0:LOOPMAXCOEFS-1,NSQUAREDSO,NLOOPGROUPS)
69
 
      COMMON/ML5_0_MP_LCOEFS/LOOPCOEFS
70
 
 
71
71
      COMPLEX*32 AMPL(3,NCTAMPS)
72
72
      COMMON/ML5_0_MP_AMPL/AMPL
73
73
 
74
 
      COMPLEX*16 LOOPRES(3,NSQUAREDSO,NLOOPGROUPS)
75
 
      LOGICAL S(NSQUAREDSO,NLOOPGROUPS)
76
 
      COMMON/ML5_0_LOOPRES/LOOPRES,S
77
74
C     
78
75
C     ----------
79
76
C     BEGIN CODE
90
87
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,1))
91
88
      CALL MP_FFV1L2_1(PL(0,1),W(1,13),GC_5,ZERO,ZERO,PL(0,2),COEFS)
92
89
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,1),4,COEFS,4,4,WL(1,0,1,2))
93
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,2),2,4,1,1,253,H)
 
90
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,2),2,4,1,1,4,253,H)
94
91
C     Coefficient construction for loop diagram with ID 10
95
92
      CALL MP_FFV1L2_1(PL(0,1),W(1,14),GC_5,ZERO,ZERO,PL(0,3),COEFS)
96
93
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,1),4,COEFS,4,4,WL(1,0,1,3))
97
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,3),2,4,1,1,254,H)
 
94
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,3),2,4,1,1,4,254,H)
98
95
C     Coefficient construction for loop diagram with ID 11
99
96
      CALL MP_FFV1L1_2(PL(0,0),W(1,1),GC_5,ZERO,ZERO,PL(0,4),COEFS)
100
97
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,4))
102
99
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,4),4,COEFS,4,4,WL(1,0,1,5))
103
100
      CALL MP_FFV1L1_2(PL(0,5),W(1,13),GC_5,ZERO,ZERO,PL(0,6),COEFS)
104
101
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,5),4,COEFS,4,4,WL(1,0,1,6))
105
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,6),3,4,2,1,255,H)
 
102
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,6),3,4,2,1,4,255,H)
106
103
C     Coefficient construction for loop diagram with ID 12
107
104
      CALL MP_FFV1L1_2(PL(0,5),W(1,14),GC_5,ZERO,ZERO,PL(0,7),COEFS)
108
105
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,5),4,COEFS,4,4,WL(1,0,1,7))
109
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,7),3,4,2,1,256,H)
 
106
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,7),3,4,2,1,4,256,H)
110
107
C     Coefficient construction for loop diagram with ID 13
111
108
      CALL MP_FFV1L2_1(PL(0,0),W(1,1),GC_5,ZERO,ZERO,PL(0,8),COEFS)
112
109
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,8))
114
111
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,8),4,COEFS,4,4,WL(1,0,1,9))
115
112
      CALL MP_FFV1L2_1(PL(0,9),W(1,13),GC_5,ZERO,ZERO,PL(0,10),COEFS)
116
113
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,9),4,COEFS,4,4,WL(1,0,1,10))
117
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,10),3,4,2,1,257,H)
 
114
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,10),3,4,2,1,4,257,H)
118
115
C     Coefficient construction for loop diagram with ID 14
119
116
      CALL MP_FFV1L2_1(PL(0,9),W(1,14),GC_5,ZERO,ZERO,PL(0,11),COEFS)
120
117
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,9),4,COEFS,4,4,WL(1,0,1,11))
121
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,11),3,4,2,1,258,H)
 
118
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,11),3,4,2,1,4,258,H)
122
119
C     Coefficient construction for loop diagram with ID 15
123
 
      CALL MP_FFV1L2_1(PL(0,0),W(1,6),GC_5,ZERO,ZERO,PL(0,12),COEFS)
124
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,12))
125
 
      CALL MP_FFV1L2_1(PL(0,12),W(1,13),GC_5,ZERO,ZERO,PL(0,13),COEFS)
126
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,12),4,COEFS,4,4,WL(1,0,1
 
120
      CALL MP_FFV1L1P0_3(PL(0,0),W(1,7),GC_5,ZERO,ZERO,PL(0,12),COEFS)
 
121
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,12))
 
122
      CALL MP_FFV1L3_2(PL(0,12),W(1,15),GC_5,MDL_MB,ZERO,PL(0,13)
 
123
     $ ,COEFS)
 
124
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,12),4,COEFS,4,4,WL(1,0,1
127
125
     $ ,13))
128
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,13),2,4,1,1,259,H)
 
126
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,13),1,4,3,1,1,259,H)
129
127
C     Coefficient construction for loop diagram with ID 16
130
 
      CALL MP_FFV1L2_1(PL(0,12),W(1,14),GC_5,ZERO,ZERO,PL(0,14),COEFS)
131
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,12),4,COEFS,4,4,WL(1,0,1
132
 
     $ ,14))
133
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,14),2,4,1,1,260,H)
 
128
      CALL MP_FFV1L2_1(PL(0,0),W(1,6),GC_5,MDL_MB,ZERO,PL(0,14),COEFS)
 
129
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,14))
 
130
      CALL MP_FFV1L2_1(PL(0,14),W(1,13),GC_5,MDL_MB,ZERO,PL(0,15)
 
131
     $ ,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))
 
134
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,15),2,4,4,1,1,260,H)
134
135
C     Coefficient construction for loop diagram with ID 17
135
 
      CALL MP_FFV1L1_2(PL(0,0),W(1,1),GC_5,ZERO,ZERO,PL(0,15),COEFS)
136
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,15))
137
 
      CALL MP_FFV1L1_2(PL(0,15),W(1,2),GC_5,ZERO,ZERO,PL(0,16),COEFS)
138
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,15),4,COEFS,4,4,WL(1,0,1
139
 
     $ ,16))
140
 
      CALL MP_FFV1L1_2(PL(0,16),W(1,13),GC_5,ZERO,ZERO,PL(0,17),COEFS)
141
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,16),4,COEFS,4,4,WL(1,0,1
 
136
      CALL MP_FFV1L3_2(PL(0,0),W(1,5),GC_5,MDL_MB,ZERO,PL(0,16),COEFS)
 
137
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,16))
 
138
      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
142
140
     $ ,17))
143
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,17),3,4,2,1,261,H)
 
141
      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))
 
144
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,18),2,4,5,1,1,261,H)
144
145
C     Coefficient construction for loop diagram with ID 18
145
 
      CALL MP_FFV1L1_2(PL(0,16),W(1,14),GC_5,ZERO,ZERO,PL(0,18),COEFS)
146
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,16),4,COEFS,4,4,WL(1,0,1
147
 
     $ ,18))
148
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,18),3,4,2,1,262,H)
149
 
C     Coefficient construction for loop diagram with ID 19
150
 
      CALL MP_FFV1L2_1(PL(0,0),W(1,1),GC_5,ZERO,ZERO,PL(0,19),COEFS)
151
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,19))
152
 
      CALL MP_FFV1L2_1(PL(0,19),W(1,2),GC_5,ZERO,ZERO,PL(0,20),COEFS)
153
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,19),4,COEFS,4,4,WL(1,0,1
 
146
      CALL MP_FFV1L2P0_3(PL(0,0),W(1,5),GC_5,ZERO,ZERO,PL(0,19),COEFS)
 
147
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,19))
 
148
      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
154
150
     $ ,20))
155
 
      CALL MP_FFV1L2_1(PL(0,20),W(1,13),GC_5,ZERO,ZERO,PL(0,21),COEFS)
156
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,20),4,COEFS,4,4,WL(1,0,1
 
151
      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
157
153
     $ ,21))
158
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,21),3,4,2,1,263,H)
 
154
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,21),2,4,6,1,1,262,H)
 
155
C     Coefficient construction for loop diagram with ID 19
 
156
      CALL MP_FFV1L2_1(PL(0,14),W(1,14),GC_5,MDL_MB,ZERO,PL(0,22)
 
157
     $ ,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))
 
160
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,22),2,4,4,1,1,263,H)
159
161
C     Coefficient construction for loop diagram with ID 20
160
 
      CALL MP_FFV1L2_1(PL(0,20),W(1,14),GC_5,ZERO,ZERO,PL(0,22),COEFS)
161
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,20),4,COEFS,4,4,WL(1,0,1
162
 
     $ ,22))
163
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,22),3,4,2,1,264,H)
164
 
C     Coefficient construction for loop diagram with ID 21
165
 
      CALL MP_FFV1L2_1(PL(0,0),W(1,6),GC_5,ZERO,ZERO,PL(0,23),COEFS)
 
162
      CALL MP_FFV2L1_2(PL(0,0),W(1,3),GC_47,MDL_MT,MDL_WT,PL(0,23)
 
163
     $ ,COEFS)
166
164
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,23))
167
 
      CALL MP_FFV1L2_1(PL(0,23),W(1,13),GC_5,ZERO,ZERO,PL(0,24),COEFS)
168
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,23),4,COEFS,4,4,WL(1,0,1
 
165
      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
169
167
     $ ,24))
170
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,24),2,4,1,1,265,H)
171
 
C     Coefficient construction for loop diagram with ID 22
172
 
      CALL MP_FFV1L2_1(PL(0,23),W(1,14),GC_5,ZERO,ZERO,PL(0,25),COEFS)
173
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,23),4,COEFS,4,4,WL(1,0,1
 
168
      CALL MP_FFV1L3_2(PL(0,24),W(1,15),GC_5,MDL_MB,ZERO,PL(0,25)
 
169
     $ ,COEFS)
 
170
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,24),4,COEFS,4,4,WL(1,0,1
174
171
     $ ,25))
175
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,25),2,4,1,1,266,H)
176
 
C     Coefficient construction for loop diagram with ID 23
177
 
      CALL MP_FFV1L1_2(PL(0,0),W(1,1),GC_5,ZERO,ZERO,PL(0,26),COEFS)
178
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,26))
179
 
      CALL MP_FFV1L1_2(PL(0,26),W(1,2),GC_5,ZERO,ZERO,PL(0,27),COEFS)
180
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,26),4,COEFS,4,4,WL(1,0,1
 
172
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,25),2,4,7,1,1,264,H)
 
173
C     Coefficient construction for loop diagram with ID 21
 
174
      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))
 
177
      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
181
179
     $ ,27))
182
 
      CALL MP_FFV1L1_2(PL(0,27),W(1,13),GC_5,ZERO,ZERO,PL(0,28),COEFS)
183
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,27),4,COEFS,4,4,WL(1,0,1
184
 
     $ ,28))
185
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,28),3,4,2,1,267,H)
186
 
C     Coefficient construction for loop diagram with ID 24
187
 
      CALL MP_FFV1L1_2(PL(0,27),W(1,14),GC_5,ZERO,ZERO,PL(0,29),COEFS)
188
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,27),4,COEFS,4,4,WL(1,0,1
 
180
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,27),3,4,8,1,1,265,H)
 
181
C     Coefficient construction for loop diagram with ID 22
 
182
      CALL MP_FFV2L2_1(PL(0,0),W(1,3),GC_47,MDL_MB,ZERO,PL(0,28),COEFS)
 
183
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,28))
 
184
      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
189
186
     $ ,29))
190
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,29),3,4,2,1,268,H)
191
 
C     Coefficient construction for loop diagram with ID 25
192
 
      CALL MP_FFV1L2_1(PL(0,0),W(1,1),GC_5,ZERO,ZERO,PL(0,30),COEFS)
193
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,30))
194
 
      CALL MP_FFV1L2_1(PL(0,30),W(1,2),GC_5,ZERO,ZERO,PL(0,31),COEFS)
195
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,30),4,COEFS,4,4,WL(1,0,1
 
187
      CALL MP_FFV1L3_1(PL(0,29),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,30)
 
188
     $ ,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))
 
191
      CALL MP_FFV1L2_1(PL(0,30),W(1,6),GC_5,MDL_MT,MDL_WT,PL(0,31)
 
192
     $ ,COEFS)
 
193
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,30),4,COEFS,4,4,WL(1,0,1
196
194
     $ ,31))
197
 
      CALL MP_FFV1L2_1(PL(0,31),W(1,13),GC_5,ZERO,ZERO,PL(0,32),COEFS)
198
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,31),4,COEFS,4,4,WL(1,0,1
 
195
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,31),3,4,9,1,1,266,H)
 
196
C     Coefficient construction for loop diagram with ID 23
 
197
      CALL MP_FFV1L3_1(PL(0,29),W(1,16),GC_5,MDL_MT,MDL_WT,PL(0,32)
 
198
     $ ,COEFS)
 
199
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,29),4,COEFS,4,4,WL(1,0,1
199
200
     $ ,32))
200
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,32),3,4,2,1,269,H)
201
 
C     Coefficient construction for loop diagram with ID 26
202
 
      CALL MP_FFV1L2_1(PL(0,31),W(1,14),GC_5,ZERO,ZERO,PL(0,33),COEFS)
203
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,31),4,COEFS,4,4,WL(1,0,1
 
201
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,32),2,4,10,1,1,267,H)
 
202
C     Coefficient construction for loop diagram with ID 24
 
203
      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
204
205
     $ ,33))
205
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,33),3,4,2,1,270,H)
206
 
C     Coefficient construction for loop diagram with ID 27
207
 
      CALL MP_FFV1L2_1(PL(0,0),W(1,6),GC_5,ZERO,ZERO,PL(0,34),COEFS)
208
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,34))
209
 
      CALL MP_FFV1L2_1(PL(0,34),W(1,13),GC_5,ZERO,ZERO,PL(0,35),COEFS)
210
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,34),4,COEFS,4,4,WL(1,0,1
211
 
     $ ,35))
212
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,35),2,4,1,1,271,H)
213
 
C     Coefficient construction for loop diagram with ID 28
214
 
      CALL MP_FFV1L2_1(PL(0,34),W(1,14),GC_5,ZERO,ZERO,PL(0,36),COEFS)
215
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,34),4,COEFS,4,4,WL(1,0,1
 
206
      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))
 
209
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,34),3,4,11,1,1,268,H)
 
210
C     Coefficient construction for loop diagram with ID 25
 
211
      CALL MP_FFV1L2P0_3(PL(0,0),W(1,10),GC_5,ZERO,ZERO,PL(0,35),COEFS)
 
212
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,35))
 
213
      CALL MP_FFV1L3_1(PL(0,35),W(1,17),GC_5,MDL_MB,ZERO,PL(0,36)
 
214
     $ ,COEFS)
 
215
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,35),4,COEFS,4,4,WL(1,0,1
216
216
     $ ,36))
217
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,36),2,4,1,1,272,H)
218
 
C     Coefficient construction for loop diagram with ID 29
219
 
      CALL MP_FFV1L1_2(PL(0,0),W(1,1),GC_5,ZERO,ZERO,PL(0,37),COEFS)
220
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,37))
221
 
      CALL MP_FFV1L1_2(PL(0,37),W(1,2),GC_5,ZERO,ZERO,PL(0,38),COEFS)
 
217
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,36),1,4,12,1,1,269,H)
 
218
C     Coefficient construction for loop diagram with ID 26
 
219
      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))
 
222
      CALL MP_FFV1L3_2(PL(0,37),W(1,10),GC_5,MDL_MB,ZERO,PL(0,38)
 
223
     $ ,COEFS)
222
224
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,37),4,COEFS,4,4,WL(1,0,1
223
225
     $ ,38))
224
 
      CALL MP_FFV1L1_2(PL(0,38),W(1,13),GC_5,ZERO,ZERO,PL(0,39),COEFS)
225
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,38),4,COEFS,4,4,WL(1,0,1
226
 
     $ ,39))
227
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,39),3,4,2,1,273,H)
228
 
C     Coefficient construction for loop diagram with ID 30
229
 
      CALL MP_FFV1L1_2(PL(0,38),W(1,14),GC_5,ZERO,ZERO,PL(0,40),COEFS)
230
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,38),4,COEFS,4,4,WL(1,0,1
 
226
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,38),2,4,13,1,1,270,H)
 
227
C     Coefficient construction for loop diagram with ID 27
 
228
      CALL MP_FFV1L2_1(PL(0,0),W(1,2),GC_5,MDL_MB,ZERO,PL(0,39),COEFS)
 
229
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,39))
 
230
      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
231
232
     $ ,40))
232
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,40),3,4,2,1,274,H)
233
 
C     Coefficient construction for loop diagram with ID 31
234
 
      CALL MP_FFV1L2_1(PL(0,0),W(1,1),GC_5,ZERO,ZERO,PL(0,41),COEFS)
235
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,41))
236
 
      CALL MP_FFV1L2_1(PL(0,41),W(1,2),GC_5,ZERO,ZERO,PL(0,42),COEFS)
237
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,41),4,COEFS,4,4,WL(1,0,1
238
 
     $ ,42))
239
 
      CALL MP_FFV1L2_1(PL(0,42),W(1,13),GC_5,ZERO,ZERO,PL(0,43),COEFS)
240
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,42),4,COEFS,4,4,WL(1,0,1
 
233
      CALL MP_FFV1L3_1(PL(0,40),W(1,17),GC_5,MDL_MB,ZERO,PL(0,41)
 
234
     $ ,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))
 
237
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,41),2,4,14,1,1,271,H)
 
238
C     Coefficient construction for loop diagram with ID 28
 
239
      CALL MP_FFV1L1_2(PL(0,0),W(1,2),GC_5,MDL_MB,ZERO,PL(0,42),COEFS)
 
240
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,42))
 
241
      CALL MP_FFV2L1_2(PL(0,42),W(1,3),GC_47,MDL_MT,MDL_WT,PL(0,43)
 
242
     $ ,COEFS)
 
243
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,42),4,COEFS,4,4,WL(1,0,1
241
244
     $ ,43))
242
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,43),3,4,2,1,275,H)
243
 
C     Coefficient construction for loop diagram with ID 32
244
 
      CALL MP_FFV1L2_1(PL(0,42),W(1,14),GC_5,ZERO,ZERO,PL(0,44),COEFS)
245
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,42),4,COEFS,4,4,WL(1,0,1
 
245
      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
246
247
     $ ,44))
247
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,44),3,4,2,1,276,H)
248
 
C     Coefficient construction for loop diagram with ID 33
249
 
      CALL MP_FFV1L1P0_3(PL(0,0),W(1,7),GC_5,ZERO,ZERO,PL(0,45),COEFS)
250
 
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,45))
251
 
      CALL MP_FFV1L3_2(PL(0,45),W(1,15),GC_5,MDL_MB,ZERO,PL(0,46)
 
248
      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))
 
251
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,45),3,4,15,1,1,272,H)
 
252
C     Coefficient construction for loop diagram with ID 29
 
253
      CALL MP_FFV1L3_1(PL(0,29),W(1,18),GC_5,MDL_MT,MDL_WT,PL(0,46)
252
254
     $ ,COEFS)
253
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,45),4,COEFS,4,4,WL(1,0,1
 
255
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,29),4,COEFS,4,4,WL(1,0,1
254
256
     $ ,46))
255
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,46),1,4,3,1,277,H)
256
 
C     Coefficient construction for loop diagram with ID 34
257
 
      CALL MP_FFV1L2_1(PL(0,0),W(1,6),GC_5,MDL_MB,ZERO,PL(0,47),COEFS)
 
257
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,46),2,4,10,1,1,273,H)
 
258
C     Coefficient construction for loop diagram with ID 30
 
259
      CALL MP_VVV1L2P0_1(PL(0,0),W(1,2),GC_4,ZERO,ZERO,PL(0,47),COEFS)
258
260
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,47))
259
 
      CALL MP_FFV1L2_1(PL(0,47),W(1,13),GC_5,MDL_MB,ZERO,PL(0,48)
260
 
     $ ,COEFS)
 
261
      CALL MP_FFV1L3_2(PL(0,47),W(1,5),GC_5,MDL_MB,ZERO,PL(0,48),COEFS)
261
262
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,47),4,COEFS,4,4,WL(1,0,1
262
263
     $ ,48))
263
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,48),2,4,4,1,278,H)
264
 
C     Coefficient construction for loop diagram with ID 35
265
 
      CALL MP_FFV1L3_2(PL(0,0),W(1,5),GC_5,MDL_MB,ZERO,PL(0,49),COEFS)
266
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,49))
267
 
      CALL MP_FFV1L1_2(PL(0,49),W(1,6),GC_5,MDL_MB,ZERO,PL(0,50),COEFS)
268
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,49),4,COEFS,4,4,WL(1,0,1
 
264
      CALL MP_FFV2L1_2(PL(0,48),W(1,3),GC_47,MDL_MT,MDL_WT,PL(0,49)
 
265
     $ ,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))
 
268
      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
269
270
     $ ,50))
270
 
      CALL MP_FFV1L1P0_3(PL(0,50),W(1,7),GC_5,ZERO,ZERO,PL(0,51),COEFS)
271
 
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,50),4,COEFS,4,4,WL(1,0,1
272
 
     $ ,51))
273
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,51),2,4,5,1,279,H)
274
 
C     Coefficient construction for loop diagram with ID 36
275
 
      CALL MP_FFV1L2P0_3(PL(0,0),W(1,5),GC_5,ZERO,ZERO,PL(0,52),COEFS)
276
 
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,52))
277
 
      CALL MP_VVV1L2P0_1(PL(0,52),W(1,6),GC_4,ZERO,ZERO,PL(0,53),COEFS)
278
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,52),4,COEFS,4,4,WL(1,0,1
 
271
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,50),3,4,16,1,1,274,H)
 
272
C     Coefficient construction for loop diagram with ID 31
 
273
      CALL MP_FFV1L2_1(PL(0,0),W(1,2),GC_5,MDL_MT,MDL_WT,PL(0,51)
 
274
     $ ,COEFS)
 
275
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,51))
 
276
      CALL MP_FFV2L2_1(PL(0,51),W(1,3),GC_47,MDL_MB,ZERO,PL(0,52)
 
277
     $ ,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))
 
280
      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
279
282
     $ ,53))
280
 
      CALL MP_FFV1L3_1(PL(0,53),W(1,7),GC_5,MDL_MB,ZERO,PL(0,54),COEFS)
281
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,53),4,COEFS,4,4,WL(1,0,1
 
283
      CALL MP_FFV1L3_1(PL(0,53),W(1,9),GC_5,MDL_MT,MDL_WT,PL(0,54)
 
284
     $ ,COEFS)
 
285
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,53),4,COEFS,4,4,WL(1,0,1
282
286
     $ ,54))
283
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,54),2,4,6,1,280,H)
284
 
C     Coefficient construction for loop diagram with ID 37
285
 
      CALL MP_FFV1L2_1(PL(0,47),W(1,14),GC_5,MDL_MB,ZERO,PL(0,55)
 
287
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,54),3,4,17,1,1,275,H)
 
288
C     Coefficient construction for loop diagram with ID 32
 
289
      CALL MP_FFV1L1P0_3(PL(0,48),W(1,17),GC_5,ZERO,ZERO,PL(0,55)
286
290
     $ ,COEFS)
287
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,47),4,COEFS,4,4,WL(1,0,1
 
291
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,48),4,COEFS,4,4,WL(1,0,1
288
292
     $ ,55))
289
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,55),2,4,4,1,281,H)
290
 
C     Coefficient construction for loop diagram with ID 38
291
 
      CALL MP_FFV2L1_2(PL(0,0),W(1,3),GC_47,MDL_MT,MDL_WT,PL(0,56)
 
293
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,55),2,4,18,1,1,276,H)
 
294
C     Coefficient construction for loop diagram with ID 33
 
295
      CALL MP_FFV1L2P0_3(PL(0,0),W(1,11),GC_5,ZERO,ZERO,PL(0,56),COEFS)
 
296
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,56))
 
297
      CALL MP_FFV1L3_1(PL(0,56),W(1,19),GC_5,MDL_MB,ZERO,PL(0,57)
292
298
     $ ,COEFS)
293
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,56))
294
 
      CALL MP_FFV1L1P0_3(PL(0,56),W(1,4),GC_5,ZERO,ZERO,PL(0,57),COEFS)
295
 
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,56),4,COEFS,4,4,WL(1,0,1
 
299
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,56),4,COEFS,4,4,WL(1,0,1
296
300
     $ ,57))
297
 
      CALL MP_FFV1L3_2(PL(0,57),W(1,15),GC_5,MDL_MB,ZERO,PL(0,58)
 
301
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,57),1,4,19,1,1,277,H)
 
302
C     Coefficient construction for loop diagram with ID 34
 
303
      CALL MP_FFV1L1P0_3(PL(0,23),W(1,12),GC_5,ZERO,ZERO,PL(0,58)
298
304
     $ ,COEFS)
299
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,57),4,COEFS,4,4,WL(1,0,1
 
305
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,23),4,COEFS,4,4,WL(1,0,1
300
306
     $ ,58))
301
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,58),2,4,7,1,282,H)
302
 
C     Coefficient construction for loop diagram with ID 39
303
 
      CALL MP_FFV1L3_2(PL(0,57),W(1,5),GC_5,MDL_MB,ZERO,PL(0,59),COEFS)
304
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,57),4,COEFS,4,4,WL(1,0,1
 
307
      CALL MP_FFV1L3_2(PL(0,58),W(1,11),GC_5,MDL_MB,ZERO,PL(0,59)
 
308
     $ ,COEFS)
 
309
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,58),4,COEFS,4,4,WL(1,0,1
305
310
     $ ,59))
306
 
      CALL MP_FFV1L1_2(PL(0,59),W(1,6),GC_5,MDL_MB,ZERO,PL(0,60),COEFS)
307
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,59),4,COEFS,4,4,WL(1,0,1
 
311
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,59),2,4,20,1,1,278,H)
 
312
C     Coefficient construction for loop diagram with ID 35
 
313
      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
308
315
     $ ,60))
309
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,60),3,4,8,1,283,H)
310
 
C     Coefficient construction for loop diagram with ID 40
311
 
      CALL MP_FFV2L2_1(PL(0,0),W(1,3),GC_47,MDL_MB,ZERO,PL(0,61),COEFS)
312
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,61))
313
 
      CALL MP_FFV1L2P0_3(PL(0,61),W(1,5),GC_5,ZERO,ZERO,PL(0,62),COEFS)
314
 
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,61),4,COEFS,4,4,WL(1,0,1
 
316
      CALL MP_FFV1L3_2(PL(0,60),W(1,11),GC_5,MDL_MB,ZERO,PL(0,61)
 
317
     $ ,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))
 
320
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,61),2,4,21,1,1,279,H)
 
321
C     Coefficient construction for loop diagram with ID 36
 
322
      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
315
324
     $ ,62))
316
 
      CALL MP_FFV1L3_1(PL(0,62),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,63)
 
325
      CALL MP_FFV1L3_2(PL(0,62),W(1,11),GC_5,MDL_MB,ZERO,PL(0,63)
317
326
     $ ,COEFS)
318
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,62),4,COEFS,4,4,WL(1,0,1
 
327
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,62),4,COEFS,4,4,WL(1,0,1
319
328
     $ ,63))
320
 
      CALL MP_FFV1L2_1(PL(0,63),W(1,6),GC_5,MDL_MT,MDL_WT,PL(0,64)
 
329
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,63),3,4,22,1,1,280,H)
 
330
C     Coefficient construction for loop diagram with ID 37
 
331
      CALL MP_FFV1L3_2(PL(0,12),W(1,20),GC_5,MDL_MB,ZERO,PL(0,64)
321
332
     $ ,COEFS)
322
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,63),4,COEFS,4,4,WL(1,0,1
 
333
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,12),4,COEFS,4,4,WL(1,0,1
323
334
     $ ,64))
324
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,64),3,4,9,1,284,H)
325
 
C     Coefficient construction for loop diagram with ID 41
326
 
      CALL MP_FFV1L3_1(PL(0,62),W(1,16),GC_5,MDL_MT,MDL_WT,PL(0,65)
 
335
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,64),1,4,3,1,1,281,H)
 
336
C     Coefficient construction for loop diagram with ID 38
 
337
      CALL MP_FFV1L3_1(PL(0,56),W(1,21),GC_5,MDL_MB,ZERO,PL(0,65)
327
338
     $ ,COEFS)
328
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,62),4,COEFS,4,4,WL(1,0,1
 
339
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,56),4,COEFS,4,4,WL(1,0,1
329
340
     $ ,65))
330
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,65),2,4,10,1,285,H)
331
 
C     Coefficient construction for loop diagram with ID 42
332
 
      CALL MP_VVV1L2P0_1(PL(0,57),W(1,6),GC_4,ZERO,ZERO,PL(0,66),COEFS)
333
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,57),4,COEFS,4,4,WL(1,0,1
 
341
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,65),1,4,19,1,1,282,H)
 
342
C     Coefficient construction for loop diagram with ID 39
 
343
      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
334
345
     $ ,66))
335
 
      CALL MP_FFV1L3_2(PL(0,66),W(1,5),GC_5,MDL_MB,ZERO,PL(0,67),COEFS)
336
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,66),4,COEFS,4,4,WL(1,0,1
 
346
      CALL MP_FFV1L2P0_3(PL(0,66),W(1,11),GC_5,ZERO,ZERO,PL(0,67)
 
347
     $ ,COEFS)
 
348
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,66),4,COEFS,4,4,WL(1,0,1
337
349
     $ ,67))
338
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,67),3,4,11,1,286,H)
339
 
C     Coefficient construction for loop diagram with ID 43
340
 
      CALL MP_FFV1L2P0_3(PL(0,0),W(1,10),GC_5,ZERO,ZERO,PL(0,68),COEFS)
341
 
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,68))
342
 
      CALL MP_FFV1L3_1(PL(0,68),W(1,17),GC_5,MDL_MB,ZERO,PL(0,69)
343
 
     $ ,COEFS)
344
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,68),4,COEFS,4,4,WL(1,0,1
 
350
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,67),2,4,23,1,1,283,H)
 
351
C     Coefficient construction for loop diagram with ID 40
 
352
      CALL MP_FFV1L3_2(PL(0,24),W(1,20),GC_5,MDL_MB,ZERO,PL(0,68)
 
353
     $ ,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))
 
356
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,68),2,4,7,1,1,284,H)
 
357
C     Coefficient construction for loop diagram with ID 41
 
358
      CALL MP_FFV1L2P0_3(PL(0,52),W(1,11),GC_5,ZERO,ZERO,PL(0,69)
 
359
     $ ,COEFS)
 
360
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,52),4,COEFS,4,4,WL(1,0,1
345
361
     $ ,69))
346
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,69),1,4,12,1,287,H)
347
 
C     Coefficient construction for loop diagram with ID 44
348
 
      CALL MP_FFV1L1P0_3(PL(0,56),W(1,9),GC_5,ZERO,ZERO,PL(0,70),COEFS)
349
 
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,56),4,COEFS,4,4,WL(1,0,1
 
362
      CALL MP_FFV1L3_1(PL(0,69),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,70)
 
363
     $ ,COEFS)
 
364
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,69),4,COEFS,4,4,WL(1,0,1
350
365
     $ ,70))
351
 
      CALL MP_FFV1L3_2(PL(0,70),W(1,10),GC_5,MDL_MB,ZERO,PL(0,71)
 
366
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,70),3,4,24,1,1,285,H)
 
367
C     Coefficient construction for loop diagram with ID 42
 
368
      CALL MP_FFV1L3_1(PL(0,47),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,71)
352
369
     $ ,COEFS)
353
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,70),4,COEFS,4,4,WL(1,0,1
 
370
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,47),4,COEFS,4,4,WL(1,0,1
354
371
     $ ,71))
355
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,71),2,4,13,1,288,H)
356
 
C     Coefficient construction for loop diagram with ID 45
357
 
      CALL MP_FFV1L2_1(PL(0,0),W(1,2),GC_5,MDL_MB,ZERO,PL(0,72),COEFS)
358
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,72))
359
 
      CALL MP_FFV1L2P0_3(PL(0,72),W(1,5),GC_5,ZERO,ZERO,PL(0,73),COEFS)
360
 
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,72),4,COEFS,4,4,WL(1,0,1
 
372
      CALL MP_FFV2L2_1(PL(0,71),W(1,3),GC_47,MDL_MB,ZERO,PL(0,72)
 
373
     $ ,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))
 
376
      CALL MP_FFV1L2P0_3(PL(0,72),W(1,11),GC_5,ZERO,ZERO,PL(0,73)
 
377
     $ ,COEFS)
 
378
      CALL MP_ML5_0_UPDATE_WL_3_0(WL(1,0,1,72),4,COEFS,4,4,WL(1,0,1
361
379
     $ ,73))
362
 
      CALL MP_FFV1L3_1(PL(0,73),W(1,17),GC_5,MDL_MB,ZERO,PL(0,74)
363
 
     $ ,COEFS)
364
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,73),4,COEFS,4,4,WL(1,0,1
365
 
     $ ,74))
366
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,74),2,4,14,1,289,H)
367
 
C     Coefficient construction for loop diagram with ID 46
368
 
      CALL MP_FFV1L1_2(PL(0,0),W(1,2),GC_5,MDL_MB,ZERO,PL(0,75),COEFS)
369
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,75))
370
 
      CALL MP_FFV2L1_2(PL(0,75),W(1,3),GC_47,MDL_MT,MDL_WT,PL(0,76)
 
380
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,73),3,4,25,1,1,286,H)
 
381
C     Coefficient construction for loop diagram with ID 43
 
382
      CALL MP_FFV1L2_1(PL(0,0),W(1,1),GC_5,MDL_MB,ZERO,PL(0,74),COEFS)
 
383
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,74))
 
384
      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))
 
387
      CALL MP_FFV1L3_1(PL(0,75),W(1,19),GC_5,MDL_MB,ZERO,PL(0,76)
371
388
     $ ,COEFS)
372
389
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,75),4,COEFS,4,4,WL(1,0,1
373
390
     $ ,76))
374
 
      CALL MP_FFV1L1P0_3(PL(0,76),W(1,9),GC_5,ZERO,ZERO,PL(0,77),COEFS)
375
 
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,76),4,COEFS,4,4,WL(1,0,1
376
 
     $ ,77))
377
 
      CALL MP_FFV1L3_2(PL(0,77),W(1,5),GC_5,MDL_MB,ZERO,PL(0,78),COEFS)
378
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,77),4,COEFS,4,4,WL(1,0,1
 
391
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,76),2,4,26,1,1,287,H)
 
392
C     Coefficient construction for loop diagram with ID 44
 
393
      CALL MP_FFV1L1_2(PL(0,0),W(1,1),GC_5,MDL_MB,ZERO,PL(0,77),COEFS)
 
394
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,77))
 
395
      CALL MP_FFV2L1_2(PL(0,77),W(1,3),GC_47,MDL_MT,MDL_WT,PL(0,78)
 
396
     $ ,COEFS)
 
397
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,77),4,COEFS,4,4,WL(1,0,1
379
398
     $ ,78))
380
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,78),3,4,15,1,290,H)
381
 
C     Coefficient construction for loop diagram with ID 47
382
 
      CALL MP_FFV1L3_1(PL(0,62),W(1,18),GC_5,MDL_MT,MDL_WT,PL(0,79)
 
399
      CALL MP_FFV1L1P0_3(PL(0,78),W(1,12),GC_5,ZERO,ZERO,PL(0,79)
383
400
     $ ,COEFS)
384
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,62),4,COEFS,4,4,WL(1,0,1
 
401
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,78),4,COEFS,4,4,WL(1,0,1
385
402
     $ ,79))
386
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,79),2,4,10,1,291,H)
387
 
C     Coefficient construction for loop diagram with ID 48
388
 
      CALL MP_VVV1L2P0_1(PL(0,0),W(1,2),GC_4,ZERO,ZERO,PL(0,80),COEFS)
389
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,80))
390
 
      CALL MP_FFV1L3_2(PL(0,80),W(1,5),GC_5,MDL_MB,ZERO,PL(0,81),COEFS)
391
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,80),4,COEFS,4,4,WL(1,0,1
 
403
      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))
 
406
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,80),3,4,27,1,1,288,H)
 
407
C     Coefficient construction for loop diagram with ID 45
 
408
      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
392
410
     $ ,81))
393
 
      CALL MP_FFV2L1_2(PL(0,81),W(1,3),GC_47,MDL_MT,MDL_WT,PL(0,82)
 
411
      CALL MP_FFV1L3_2(PL(0,81),W(1,10),GC_5,MDL_MB,ZERO,PL(0,82)
394
412
     $ ,COEFS)
395
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,81),4,COEFS,4,4,WL(1,0,1
 
413
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,81),4,COEFS,4,4,WL(1,0,1
396
414
     $ ,82))
397
 
      CALL MP_FFV1L1P0_3(PL(0,82),W(1,9),GC_5,ZERO,ZERO,PL(0,83),COEFS)
398
 
      CALL MP_ML5_0_UPDATE_WL_3_0(WL(1,0,1,82),4,COEFS,4,4,WL(1,0,1
 
415
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,82),2,4,28,1,1,289,H)
 
416
C     Coefficient construction for loop diagram with ID 46
 
417
      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
399
419
     $ ,83))
400
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,83),3,4,16,1,292,H)
401
 
C     Coefficient construction for loop diagram with ID 49
402
 
      CALL MP_FFV1L2_1(PL(0,0),W(1,2),GC_5,MDL_MT,MDL_WT,PL(0,84)
403
 
     $ ,COEFS)
404
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,84))
405
 
      CALL MP_FFV2L2_1(PL(0,84),W(1,3),GC_47,MDL_MB,ZERO,PL(0,85)
406
 
     $ ,COEFS)
407
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,84),4,COEFS,4,4,WL(1,0,1
 
420
      CALL MP_FFV1L3_2(PL(0,83),W(1,10),GC_5,MDL_MB,ZERO,PL(0,84)
 
421
     $ ,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))
 
424
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,84),3,4,29,1,1,290,H)
 
425
C     Coefficient construction for loop diagram with ID 47
 
426
      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
408
428
     $ ,85))
409
 
      CALL MP_FFV1L2P0_3(PL(0,85),W(1,5),GC_5,ZERO,ZERO,PL(0,86),COEFS)
410
 
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,85),4,COEFS,4,4,WL(1,0,1
 
429
      CALL MP_FFV2L1_2(PL(0,85),W(1,3),GC_47,MDL_MT,MDL_WT,PL(0,86)
 
430
     $ ,COEFS)
 
431
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,85),4,COEFS,4,4,WL(1,0,1
411
432
     $ ,86))
412
 
      CALL MP_FFV1L3_1(PL(0,86),W(1,9),GC_5,MDL_MT,MDL_WT,PL(0,87)
413
 
     $ ,COEFS)
414
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,86),4,COEFS,4,4,WL(1,0,1
 
433
      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
415
435
     $ ,87))
416
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,87),3,4,17,1,293,H)
417
 
C     Coefficient construction for loop diagram with ID 50
418
 
      CALL MP_FFV1L1P0_3(PL(0,81),W(1,17),GC_5,ZERO,ZERO,PL(0,88)
419
 
     $ ,COEFS)
420
 
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,81),4,COEFS,4,4,WL(1,0,1
 
436
      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
421
438
     $ ,88))
422
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,88),2,4,18,1,294,H)
423
 
C     Coefficient construction for loop diagram with ID 51
424
 
      CALL MP_FFV1L2P0_3(PL(0,0),W(1,11),GC_5,ZERO,ZERO,PL(0,89),COEFS)
425
 
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,89))
426
 
      CALL MP_FFV1L3_1(PL(0,89),W(1,19),GC_5,MDL_MB,ZERO,PL(0,90)
 
439
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,88),4,4,30,1,1,291,H)
 
440
C     Coefficient construction for loop diagram with ID 48
 
441
      CALL MP_FFV1L1_2(PL(0,85),W(1,13),GC_5,MDL_MB,ZERO,PL(0,89)
427
442
     $ ,COEFS)
428
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,89),4,COEFS,4,4,WL(1,0,1
 
443
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,85),4,COEFS,4,4,WL(1,0,1
 
444
     $ ,89))
 
445
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,89),3,4,31,1,1,292,H)
 
446
C     Coefficient construction for loop diagram with ID 49
 
447
      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
429
449
     $ ,90))
430
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,90),1,4,19,1,295,H)
431
 
C     Coefficient construction for loop diagram with ID 52
432
 
      CALL MP_FFV1L1P0_3(PL(0,56),W(1,12),GC_5,ZERO,ZERO,PL(0,91)
433
 
     $ ,COEFS)
434
 
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,56),4,COEFS,4,4,WL(1,0,1
 
450
      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
435
452
     $ ,91))
436
 
      CALL MP_FFV1L3_2(PL(0,91),W(1,11),GC_5,MDL_MB,ZERO,PL(0,92)
 
453
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,91),3,4,32,1,1,293,H)
 
454
C     Coefficient construction for loop diagram with ID 50
 
455
      CALL MP_FFV1L1_2(PL(0,85),W(1,14),GC_5,MDL_MB,ZERO,PL(0,92)
437
456
     $ ,COEFS)
438
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,91),4,COEFS,4,4,WL(1,0,1
 
457
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,85),4,COEFS,4,4,WL(1,0,1
439
458
     $ ,92))
440
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,92),2,4,20,1,296,H)
441
 
C     Coefficient construction for loop diagram with ID 53
442
 
      CALL MP_FFV1L1P0_3(PL(0,75),W(1,7),GC_5,ZERO,ZERO,PL(0,93),COEFS)
443
 
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,75),4,COEFS,4,4,WL(1,0,1
 
459
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,92),3,4,31,1,1,294,H)
 
460
C     Coefficient construction for loop diagram with ID 51
 
461
      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
444
463
     $ ,93))
445
 
      CALL MP_FFV1L3_2(PL(0,93),W(1,11),GC_5,MDL_MB,ZERO,PL(0,94)
 
464
      CALL MP_FFV1L2_1(PL(0,93),W(1,13),GC_5,MDL_MB,ZERO,PL(0,94)
446
465
     $ ,COEFS)
447
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,93),4,COEFS,4,4,WL(1,0,1
 
466
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,93),4,COEFS,4,4,WL(1,0,1
448
467
     $ ,94))
449
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,94),2,4,21,1,297,H)
450
 
C     Coefficient construction for loop diagram with ID 54
451
 
      CALL MP_FFV1L1P0_3(PL(0,76),W(1,4),GC_5,ZERO,ZERO,PL(0,95),COEFS)
452
 
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,76),4,COEFS,4,4,WL(1,0,1
 
468
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,94),3,4,31,1,1,295,H)
 
469
C     Coefficient construction for loop diagram with ID 52
 
470
      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
453
472
     $ ,95))
454
 
      CALL MP_FFV1L3_2(PL(0,95),W(1,11),GC_5,MDL_MB,ZERO,PL(0,96)
455
 
     $ ,COEFS)
 
473
      CALL MP_FFV1L3_1(PL(0,95),W(1,7),GC_5,MDL_MB,ZERO,PL(0,96),COEFS)
456
474
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,95),4,COEFS,4,4,WL(1,0,1
457
475
     $ ,96))
458
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,96),3,4,22,1,298,H)
459
 
C     Coefficient construction for loop diagram with ID 55
460
 
      CALL MP_FFV1L3_2(PL(0,45),W(1,20),GC_5,MDL_MB,ZERO,PL(0,97)
 
476
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,96),3,4,33,1,1,296,H)
 
477
C     Coefficient construction for loop diagram with ID 53
 
478
      CALL MP_FFV1L3_1(PL(0,75),W(1,21),GC_5,MDL_MB,ZERO,PL(0,97)
461
479
     $ ,COEFS)
462
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,45),4,COEFS,4,4,WL(1,0,1
 
480
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,75),4,COEFS,4,4,WL(1,0,1
463
481
     $ ,97))
464
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,97),1,4,3,1,299,H)
465
 
C     Coefficient construction for loop diagram with ID 56
466
 
      CALL MP_FFV1L3_1(PL(0,89),W(1,21),GC_5,MDL_MB,ZERO,PL(0,98)
467
 
     $ ,COEFS)
468
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,89),4,COEFS,4,4,WL(1,0,1
 
482
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,97),2,4,26,1,1,297,H)
 
483
C     Coefficient construction for loop diagram with ID 54
 
484
      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
469
486
     $ ,98))
470
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,98),1,4,19,1,300,H)
471
 
C     Coefficient construction for loop diagram with ID 57
472
 
      CALL MP_FFV1L3_1(PL(0,80),W(1,7),GC_5,MDL_MB,ZERO,PL(0,99),COEFS)
473
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,80),4,COEFS,4,4,WL(1,0,1
 
487
      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
474
489
     $ ,99))
475
 
      CALL MP_FFV1L2P0_3(PL(0,99),W(1,11),GC_5,ZERO,ZERO,PL(0,100)
 
490
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,99),3,4,34,1,1,298,H)
 
491
C     Coefficient construction for loop diagram with ID 55
 
492
      CALL MP_FFV1L2_1(PL(0,93),W(1,14),GC_5,MDL_MB,ZERO,PL(0,100)
476
493
     $ ,COEFS)
477
 
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,99),4,COEFS,4,4,WL(1,0,1
 
494
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,93),4,COEFS,4,4,WL(1,0,1
478
495
     $ ,100))
479
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,100),2,4,23,1,301,H)
480
 
C     Coefficient construction for loop diagram with ID 58
481
 
      CALL MP_FFV1L3_2(PL(0,57),W(1,20),GC_5,MDL_MB,ZERO,PL(0,101)
 
496
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,100),3,4,31,1,1,299,H)
 
497
C     Coefficient construction for loop diagram with ID 56
 
498
      CALL MP_FFV1L3_1(PL(0,95),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,101)
482
499
     $ ,COEFS)
483
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,57),4,COEFS,4,4,WL(1,0,1
 
500
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,95),4,COEFS,4,4,WL(1,0,1
484
501
     $ ,101))
485
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,101),2,4,7,1,302,H)
486
 
C     Coefficient construction for loop diagram with ID 59
487
 
      CALL MP_FFV1L2P0_3(PL(0,85),W(1,11),GC_5,ZERO,ZERO,PL(0,102)
 
502
      CALL MP_FFV2L2_1(PL(0,101),W(1,3),GC_47,MDL_MB,ZERO,PL(0,102)
488
503
     $ ,COEFS)
489
 
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,85),4,COEFS,4,4,WL(1,0,1
 
504
      CALL MP_ML5_0_UPDATE_WL_3_1(WL(1,0,1,101),4,COEFS,4,4,WL(1,0,1
490
505
     $ ,102))
491
 
      CALL MP_FFV1L3_1(PL(0,102),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,103)
 
506
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,102),4,4,35,1,1,300,H)
 
507
C     Coefficient construction for loop diagram with ID 57
 
508
      CALL MP_FFV1L1_2(PL(0,78),W(1,2),GC_5,MDL_MT,MDL_WT,PL(0,103)
492
509
     $ ,COEFS)
493
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,102),4,COEFS,4,4,WL(1,0,1
 
510
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,78),4,COEFS,4,4,WL(1,0,1
494
511
     $ ,103))
495
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,103),3,4,24,1,303,H)
496
 
C     Coefficient construction for loop diagram with ID 60
497
 
      CALL MP_FFV1L3_1(PL(0,80),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,104)
 
512
      CALL MP_FFV1L1P0_3(PL(0,103),W(1,4),GC_5,ZERO,ZERO,PL(0,104)
498
513
     $ ,COEFS)
499
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,80),4,COEFS,4,4,WL(1,0,1
 
514
      CALL MP_ML5_0_UPDATE_WL_3_0(WL(1,0,1,103),4,COEFS,4,4,WL(1,0,1
500
515
     $ ,104))
501
 
      CALL MP_FFV2L2_1(PL(0,104),W(1,3),GC_47,MDL_MB,ZERO,PL(0,105)
 
516
      CALL MP_FFV1L3_2(PL(0,104),W(1,5),GC_5,MDL_MB,ZERO,PL(0,105)
502
517
     $ ,COEFS)
503
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,104),4,COEFS,4,4,WL(1,0,1
 
518
      CALL MP_ML5_0_UPDATE_WL_3_1(WL(1,0,1,104),4,COEFS,4,4,WL(1,0,1
504
519
     $ ,105))
505
 
      CALL MP_FFV1L2P0_3(PL(0,105),W(1,11),GC_5,ZERO,ZERO,PL(0,106)
 
520
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,105),4,4,36,1,1,301,H)
 
521
C     Coefficient construction for loop diagram with ID 58
 
522
      CALL MP_VVV1L2P0_1(PL(0,83),W(1,2),GC_4,ZERO,ZERO,PL(0,106)
506
523
     $ ,COEFS)
507
 
      CALL MP_ML5_0_UPDATE_WL_3_0(WL(1,0,1,105),4,COEFS,4,4,WL(1,0,1
 
524
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,83),4,COEFS,4,4,WL(1,0,1
508
525
     $ ,106))
509
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,106),3,4,25,1,304,H)
510
 
C     Coefficient construction for loop diagram with ID 61
511
 
      CALL MP_FFV1L2_1(PL(0,0),W(1,1),GC_5,MDL_MB,ZERO,PL(0,107),COEFS)
512
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
 
526
      CALL MP_FFV1L3_2(PL(0,106),W(1,5),GC_5,MDL_MB,ZERO,PL(0,107)
 
527
     $ ,COEFS)
 
528
      CALL MP_ML5_0_UPDATE_WL_3_1(WL(1,0,1,106),4,COEFS,4,4,WL(1,0,1
513
529
     $ ,107))
514
 
      CALL MP_FFV1L2P0_3(PL(0,107),W(1,5),GC_5,ZERO,ZERO,PL(0,108)
 
530
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,107),4,4,37,1,1,302,H)
 
531
C     Coefficient construction for loop diagram with ID 59
 
532
      CALL MP_FFV1L3_1(PL(0,29),W(1,22),GC_5,MDL_MT,MDL_WT,PL(0,108)
515
533
     $ ,COEFS)
516
 
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,107),4,COEFS,4,4,WL(1,0,1
 
534
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,29),4,COEFS,4,4,WL(1,0,1
517
535
     $ ,108))
518
 
      CALL MP_FFV1L3_1(PL(0,108),W(1,19),GC_5,MDL_MB,ZERO,PL(0,109)
 
536
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,108),2,4,10,1,1,303,H)
 
537
C     Coefficient construction for loop diagram with ID 60
 
538
      CALL MP_FFV1L2_1(PL(0,0),W(1,1),GC_5,MDL_MT,MDL_WT,PL(0,109)
519
539
     $ ,COEFS)
520
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,108),4,COEFS,4,4,WL(1,0,1
 
540
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
521
541
     $ ,109))
522
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,109),2,4,26,1,305,H)
523
 
C     Coefficient construction for loop diagram with ID 62
524
 
      CALL MP_FFV1L1_2(PL(0,0),W(1,1),GC_5,MDL_MB,ZERO,PL(0,110),COEFS)
525
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
 
542
      CALL MP_FFV2L2_1(PL(0,109),W(1,3),GC_47,MDL_MB,ZERO,PL(0,110)
 
543
     $ ,COEFS)
 
544
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,109),4,COEFS,4,4,WL(1,0,1
526
545
     $ ,110))
527
 
      CALL MP_FFV2L1_2(PL(0,110),W(1,3),GC_47,MDL_MT,MDL_WT,PL(0,111)
 
546
      CALL MP_FFV1L2P0_3(PL(0,110),W(1,5),GC_5,ZERO,ZERO,PL(0,111)
528
547
     $ ,COEFS)
529
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,110),4,COEFS,4,4,WL(1,0,1
 
548
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,110),4,COEFS,4,4,WL(1,0,1
530
549
     $ ,111))
531
 
      CALL MP_FFV1L1P0_3(PL(0,111),W(1,12),GC_5,ZERO,ZERO,PL(0,112)
 
550
      CALL MP_FFV1L3_1(PL(0,111),W(1,12),GC_5,MDL_MT,MDL_WT,PL(0,112)
532
551
     $ ,COEFS)
533
 
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,111),4,COEFS,4,4,WL(1,0,1
 
552
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,111),4,COEFS,4,4,WL(1,0,1
534
553
     $ ,112))
535
 
      CALL MP_FFV1L3_2(PL(0,112),W(1,5),GC_5,MDL_MB,ZERO,PL(0,113)
536
 
     $ ,COEFS)
537
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,112),4,COEFS,4,4,WL(1,0,1
 
554
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,112),3,4,38,1,1,304,H)
 
555
C     Coefficient construction for loop diagram with ID 61
 
556
      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
538
558
     $ ,113))
539
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,113),3,4,27,1,306,H)
540
 
C     Coefficient construction for loop diagram with ID 63
541
 
      CALL MP_FFV1L1P0_3(PL(0,110),W(1,7),GC_5,ZERO,ZERO,PL(0,114)
 
559
      CALL MP_FFV1L3_2(PL(0,113),W(1,5),GC_5,MDL_MB,ZERO,PL(0,114)
542
560
     $ ,COEFS)
543
 
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,110),4,COEFS,4,4,WL(1,0,1
 
561
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,113),4,COEFS,4,4,WL(1,0,1
544
562
     $ ,114))
545
 
      CALL MP_FFV1L3_2(PL(0,114),W(1,10),GC_5,MDL_MB,ZERO,PL(0,115)
 
563
      CALL MP_FFV2L1_2(PL(0,114),W(1,3),GC_47,MDL_MT,MDL_WT,PL(0,115)
546
564
     $ ,COEFS)
547
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,114),4,COEFS,4,4,WL(1,0,1
 
565
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,114),4,COEFS,4,4,WL(1,0,1
548
566
     $ ,115))
549
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,115),2,4,28,1,307,H)
550
 
C     Coefficient construction for loop diagram with ID 64
551
 
      CALL MP_FFV1L1P0_3(PL(0,111),W(1,4),GC_5,ZERO,ZERO,PL(0,116)
 
567
      CALL MP_FFV1L1P0_3(PL(0,115),W(1,12),GC_5,ZERO,ZERO,PL(0,116)
552
568
     $ ,COEFS)
553
 
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,111),4,COEFS,4,4,WL(1,0,1
 
569
      CALL MP_ML5_0_UPDATE_WL_3_0(WL(1,0,1,115),4,COEFS,4,4,WL(1,0,1
554
570
     $ ,116))
555
 
      CALL MP_FFV1L3_2(PL(0,116),W(1,10),GC_5,MDL_MB,ZERO,PL(0,117)
 
571
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,116),3,4,39,1,1,305,H)
 
572
C     Coefficient construction for loop diagram with ID 62
 
573
      CALL MP_FFV1L1P0_3(PL(0,114),W(1,19),GC_5,ZERO,ZERO,PL(0,117)
556
574
     $ ,COEFS)
557
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,116),4,COEFS,4,4,WL(1,0,1
 
575
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,114),4,COEFS,4,4,WL(1,0,1
558
576
     $ ,117))
559
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,117),3,4,29,1,308,H)
560
 
C     Coefficient construction for loop diagram with ID 65
561
 
      CALL MP_FFV1L1_2(PL(0,110),W(1,2),GC_5,MDL_MB,ZERO,PL(0,118)
 
577
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,117),2,4,40,1,1,306,H)
 
578
C     Coefficient construction for loop diagram with ID 63
 
579
      CALL MP_FFV1L3_2(PL(0,12),W(1,23),GC_5,MDL_MB,ZERO,PL(0,118)
562
580
     $ ,COEFS)
563
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,110),4,COEFS,4,4,WL(1,0,1
 
581
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,12),4,COEFS,4,4,WL(1,0,1
564
582
     $ ,118))
565
 
      CALL MP_FFV2L1_2(PL(0,118),W(1,3),GC_47,MDL_MT,MDL_WT,PL(0,119)
 
583
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,118),1,4,3,1,1,307,H)
 
584
C     Coefficient construction for loop diagram with ID 64
 
585
      CALL MP_FFV1L3_1(PL(0,35),W(1,24),GC_5,MDL_MB,ZERO,PL(0,119)
566
586
     $ ,COEFS)
567
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,118),4,COEFS,4,4,WL(1,0,1
 
587
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,35),4,COEFS,4,4,WL(1,0,1
568
588
     $ ,119))
569
 
      CALL MP_FFV1L1P0_3(PL(0,119),W(1,4),GC_5,ZERO,ZERO,PL(0,120)
 
589
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,119),1,4,12,1,1,308,H)
 
590
C     Coefficient construction for loop diagram with ID 65
 
591
      CALL MP_FFV1L3_1(PL(0,113),W(1,7),GC_5,MDL_MB,ZERO,PL(0,120)
570
592
     $ ,COEFS)
571
 
      CALL MP_ML5_0_UPDATE_WL_3_0(WL(1,0,1,119),4,COEFS,4,4,WL(1,0,1
 
593
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,113),4,COEFS,4,4,WL(1,0,1
572
594
     $ ,120))
573
 
      CALL MP_FFV1L3_2(PL(0,120),W(1,5),GC_5,MDL_MB,ZERO,PL(0,121)
 
595
      CALL MP_FFV1L2P0_3(PL(0,120),W(1,10),GC_5,ZERO,ZERO,PL(0,121)
574
596
     $ ,COEFS)
575
 
      CALL MP_ML5_0_UPDATE_WL_3_1(WL(1,0,1,120),4,COEFS,4,4,WL(1,0,1
 
597
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,120),4,COEFS,4,4,WL(1,0,1
576
598
     $ ,121))
577
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,121),4,4,30,1,309,H)
 
599
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,121),2,4,41,1,1,309,H)
578
600
C     Coefficient construction for loop diagram with ID 66
579
 
      CALL MP_FFV1L1_2(PL(0,118),W(1,13),GC_5,MDL_MB,ZERO,PL(0,122)
 
601
      CALL MP_FFV1L3_2(PL(0,24),W(1,23),GC_5,MDL_MB,ZERO,PL(0,122)
580
602
     $ ,COEFS)
581
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,118),4,COEFS,4,4,WL(1,0,1
 
603
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,24),4,COEFS,4,4,WL(1,0,1
582
604
     $ ,122))
583
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,122),3,4,31,1,310,H)
 
605
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,122),2,4,7,1,1,310,H)
584
606
C     Coefficient construction for loop diagram with ID 67
585
 
      CALL MP_FFV1L1P0_3(PL(0,118),W(1,7),GC_5,ZERO,ZERO,PL(0,123)
 
607
      CALL MP_FFV1L2P0_3(PL(0,110),W(1,10),GC_5,ZERO,ZERO,PL(0,123)
586
608
     $ ,COEFS)
587
 
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,118),4,COEFS,4,4,WL(1,0,1
 
609
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,110),4,COEFS,4,4,WL(1,0,1
588
610
     $ ,123))
589
 
      CALL MP_FFV1L3_2(PL(0,123),W(1,5),GC_5,MDL_MB,ZERO,PL(0,124)
 
611
      CALL MP_FFV1L3_1(PL(0,123),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,124)
590
612
     $ ,COEFS)
591
613
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,123),4,COEFS,4,4,WL(1,0,1
592
614
     $ ,124))
593
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,124),3,4,32,1,311,H)
 
615
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,124),3,4,42,1,1,311,H)
594
616
C     Coefficient construction for loop diagram with ID 68
595
 
      CALL MP_FFV1L1_2(PL(0,118),W(1,14),GC_5,MDL_MB,ZERO,PL(0,125)
 
617
      CALL MP_FFV1L3_1(PL(0,113),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,125)
596
618
     $ ,COEFS)
597
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,118),4,COEFS,4,4,WL(1,0,1
 
619
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,113),4,COEFS,4,4,WL(1,0,1
598
620
     $ ,125))
599
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,125),3,4,31,1,312,H)
600
 
C     Coefficient construction for loop diagram with ID 69
601
 
      CALL MP_FFV1L2_1(PL(0,107),W(1,2),GC_5,MDL_MB,ZERO,PL(0,126)
 
621
      CALL MP_FFV2L2_1(PL(0,125),W(1,3),GC_47,MDL_MB,ZERO,PL(0,126)
602
622
     $ ,COEFS)
603
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,107),4,COEFS,4,4,WL(1,0,1
 
623
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,125),4,COEFS,4,4,WL(1,0,1
604
624
     $ ,126))
605
 
      CALL MP_FFV1L2_1(PL(0,126),W(1,13),GC_5,MDL_MB,ZERO,PL(0,127)
 
625
      CALL MP_FFV1L2P0_3(PL(0,126),W(1,10),GC_5,ZERO,ZERO,PL(0,127)
606
626
     $ ,COEFS)
607
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,126),4,COEFS,4,4,WL(1,0,1
 
627
      CALL MP_ML5_0_UPDATE_WL_3_0(WL(1,0,1,126),4,COEFS,4,4,WL(1,0,1
608
628
     $ ,127))
609
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,127),3,4,31,1,313,H)
 
629
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,127),3,4,43,1,1,312,H)
 
630
C     Coefficient construction for loop diagram with ID 69
 
631
      CALL MP_FFV1L3_1(PL(0,40),W(1,24),GC_5,MDL_MB,ZERO,PL(0,128)
 
632
     $ ,COEFS)
 
633
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,40),4,COEFS,4,4,WL(1,0,1
 
634
     $ ,128))
 
635
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,128),2,4,14,1,1,313,H)
610
636
C     Coefficient construction for loop diagram with ID 70
611
 
      CALL MP_FFV1L2P0_3(PL(0,126),W(1,5),GC_5,ZERO,ZERO,PL(0,128)
612
 
     $ ,COEFS)
613
 
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,126),4,COEFS,4,4,WL(1,0,1
614
 
     $ ,128))
615
 
      CALL MP_FFV1L3_1(PL(0,128),W(1,7),GC_5,MDL_MB,ZERO,PL(0,129)
616
 
     $ ,COEFS)
617
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,128),4,COEFS,4,4,WL(1,0,1
 
637
      CALL MP_FFV1L1_2(PL(0,114),W(1,2),GC_5,MDL_MB,ZERO,PL(0,129)
 
638
     $ ,COEFS)
 
639
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,114),4,COEFS,4,4,WL(1,0,1
618
640
     $ ,129))
619
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,129),3,4,33,1,314,H)
 
641
      CALL MP_FFV1L1P0_3(PL(0,129),W(1,7),GC_5,ZERO,ZERO,PL(0,130)
 
642
     $ ,COEFS)
 
643
      CALL MP_ML5_0_UPDATE_WL_3_0(WL(1,0,1,129),4,COEFS,4,4,WL(1,0,1
 
644
     $ ,130))
 
645
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,130),3,4,44,1,1,314,H)
620
646
C     Coefficient construction for loop diagram with ID 71
621
 
      CALL MP_FFV1L3_1(PL(0,108),W(1,21),GC_5,MDL_MB,ZERO,PL(0,130)
622
 
     $ ,COEFS)
623
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,108),4,COEFS,4,4,WL(1,0,1
624
 
     $ ,130))
625
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,130),2,4,26,1,315,H)
626
 
C     Coefficient construction for loop diagram with ID 72
627
 
      CALL MP_VVV1L2P0_1(PL(0,108),W(1,2),GC_4,ZERO,ZERO,PL(0,131)
628
 
     $ ,COEFS)
629
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,108),4,COEFS,4,4,WL(1,0,1
 
647
      CALL MP_FFV1L2_1(PL(0,110),W(1,2),GC_5,MDL_MB,ZERO,PL(0,131)
 
648
     $ ,COEFS)
 
649
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,110),4,COEFS,4,4,WL(1,0,1
630
650
     $ ,131))
631
 
      CALL MP_FFV1L3_1(PL(0,131),W(1,7),GC_5,MDL_MB,ZERO,PL(0,132)
 
651
      CALL MP_FFV1L2P0_3(PL(0,131),W(1,5),GC_5,ZERO,ZERO,PL(0,132)
632
652
     $ ,COEFS)
633
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,131),4,COEFS,4,4,WL(1,0,1
 
653
      CALL MP_ML5_0_UPDATE_WL_3_0(WL(1,0,1,131),4,COEFS,4,4,WL(1,0,1
634
654
     $ ,132))
635
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,132),3,4,34,1,316,H)
636
 
C     Coefficient construction for loop diagram with ID 73
637
 
      CALL MP_FFV1L2_1(PL(0,126),W(1,14),GC_5,MDL_MB,ZERO,PL(0,133)
 
655
      CALL MP_FFV1L3_1(PL(0,132),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,133)
638
656
     $ ,COEFS)
639
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,126),4,COEFS,4,4,WL(1,0,1
 
657
      CALL MP_ML5_0_UPDATE_WL_3_1(WL(1,0,1,132),4,COEFS,4,4,WL(1,0,1
640
658
     $ ,133))
641
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,133),3,4,31,1,317,H)
642
 
C     Coefficient construction for loop diagram with ID 74
643
 
      CALL MP_FFV1L3_1(PL(0,128),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,134)
 
659
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,133),4,4,45,1,1,315,H)
 
660
C     Coefficient construction for loop diagram with ID 72
 
661
      CALL MP_FFV1L2_1(PL(0,126),W(1,2),GC_5,MDL_MB,ZERO,PL(0,134)
644
662
     $ ,COEFS)
645
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,128),4,COEFS,4,4,WL(1,0,1
 
663
      CALL MP_ML5_0_UPDATE_WL_3_1(WL(1,0,1,126),4,COEFS,4,4,WL(1,0,1
646
664
     $ ,134))
647
 
      CALL MP_FFV2L2_1(PL(0,134),W(1,3),GC_47,MDL_MB,ZERO,PL(0,135)
 
665
      CALL MP_FFV1L2P0_3(PL(0,134),W(1,5),GC_5,ZERO,ZERO,PL(0,135)
648
666
     $ ,COEFS)
649
 
      CALL MP_ML5_0_UPDATE_WL_3_1(WL(1,0,1,134),4,COEFS,4,4,WL(1,0,1
 
667
      CALL MP_ML5_0_UPDATE_WL_4_0(WL(1,0,1,134),4,COEFS,4,4,WL(1,0,1
650
668
     $ ,135))
651
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,135),4,4,35,1,318,H)
652
 
C     Coefficient construction for loop diagram with ID 75
653
 
      CALL MP_FFV1L1_2(PL(0,111),W(1,2),GC_5,MDL_MT,MDL_WT,PL(0,136)
 
669
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,135),4,4,46,1,1,316,H)
 
670
C     Coefficient construction for loop diagram with ID 73
 
671
      CALL MP_FFV1L1P0_3(PL(0,48),W(1,24),GC_5,ZERO,ZERO,PL(0,136)
654
672
     $ ,COEFS)
655
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,111),4,COEFS,4,4,WL(1,0,1
 
673
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,48),4,COEFS,4,4,WL(1,0,1
656
674
     $ ,136))
657
 
      CALL MP_FFV1L1P0_3(PL(0,136),W(1,4),GC_5,ZERO,ZERO,PL(0,137)
 
675
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,136),2,4,18,1,1,317,H)
 
676
C     Coefficient construction for loop diagram with ID 74
 
677
      CALL MP_FFV1L1P0_3(PL(0,114),W(1,21),GC_5,ZERO,ZERO,PL(0,137)
658
678
     $ ,COEFS)
659
 
      CALL MP_ML5_0_UPDATE_WL_3_0(WL(1,0,1,136),4,COEFS,4,4,WL(1,0,1
 
679
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,114),4,COEFS,4,4,WL(1,0,1
660
680
     $ ,137))
661
 
      CALL MP_FFV1L3_2(PL(0,137),W(1,5),GC_5,MDL_MB,ZERO,PL(0,138)
 
681
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,137),2,4,40,1,1,318,H)
 
682
C     Coefficient construction for loop diagram with ID 75
 
683
      CALL MP_VVV1L2P0_1(PL(0,113),W(1,2),GC_4,ZERO,ZERO,PL(0,138)
662
684
     $ ,COEFS)
663
 
      CALL MP_ML5_0_UPDATE_WL_3_1(WL(1,0,1,137),4,COEFS,4,4,WL(1,0,1
 
685
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,113),4,COEFS,4,4,WL(1,0,1
664
686
     $ ,138))
665
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,138),4,4,36,1,319,H)
666
 
C     Coefficient construction for loop diagram with ID 76
667
 
      CALL MP_VVV1L2P0_1(PL(0,116),W(1,2),GC_4,ZERO,ZERO,PL(0,139)
 
687
      CALL MP_FFV1L3_1(PL(0,138),W(1,7),GC_5,MDL_MB,ZERO,PL(0,139)
668
688
     $ ,COEFS)
669
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,116),4,COEFS,4,4,WL(1,0,1
 
689
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,138),4,COEFS,4,4,WL(1,0,1
670
690
     $ ,139))
671
 
      CALL MP_FFV1L3_2(PL(0,139),W(1,5),GC_5,MDL_MB,ZERO,PL(0,140)
 
691
      CALL MP_FFV1L2P0_3(PL(0,139),W(1,5),GC_5,ZERO,ZERO,PL(0,140)
672
692
     $ ,COEFS)
673
 
      CALL MP_ML5_0_UPDATE_WL_3_1(WL(1,0,1,139),4,COEFS,4,4,WL(1,0,1
 
693
      CALL MP_ML5_0_UPDATE_WL_3_0(WL(1,0,1,139),4,COEFS,4,4,WL(1,0,1
674
694
     $ ,140))
675
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,140),4,4,37,1,320,H)
676
 
C     Coefficient construction for loop diagram with ID 77
677
 
      CALL MP_FFV1L3_1(PL(0,62),W(1,22),GC_5,MDL_MT,MDL_WT,PL(0,141)
 
695
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,140),3,4,47,1,1,319,H)
 
696
C     Coefficient construction for loop diagram with ID 76
 
697
      CALL MP_FFV1L3_2(PL(0,138),W(1,5),GC_5,MDL_MB,ZERO,PL(0,141)
678
698
     $ ,COEFS)
679
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,62),4,COEFS,4,4,WL(1,0,1
 
699
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,138),4,COEFS,4,4,WL(1,0,1
680
700
     $ ,141))
681
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,141),2,4,10,1,321,H)
682
 
C     Coefficient construction for loop diagram with ID 78
683
 
      CALL MP_FFV1L2_1(PL(0,0),W(1,1),GC_5,MDL_MT,MDL_WT,PL(0,142)
 
701
      CALL MP_FFV1L1P0_3(PL(0,141),W(1,7),GC_5,ZERO,ZERO,PL(0,142)
684
702
     $ ,COEFS)
685
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
 
703
      CALL MP_ML5_0_UPDATE_WL_3_0(WL(1,0,1,141),4,COEFS,4,4,WL(1,0,1
686
704
     $ ,142))
687
 
      CALL MP_FFV2L2_1(PL(0,142),W(1,3),GC_47,MDL_MB,ZERO,PL(0,143)
688
 
     $ ,COEFS)
689
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,142),4,COEFS,4,4,WL(1,0,1
 
705
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,142),3,4,48,1,1,320,H)
 
706
C     Coefficient construction for loop diagram with ID 77
 
707
      CALL MP_VVVV1L2P0_1(PL(0,19),W(1,1),W(1,2),GC_6,ZERO,ZERO,PL(0
 
708
     $ ,143),COEFS)
 
709
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,19),4,COEFS,4,4,WL(1,0,1
690
710
     $ ,143))
691
 
      CALL MP_FFV1L2P0_3(PL(0,143),W(1,5),GC_5,ZERO,ZERO,PL(0,144)
692
 
     $ ,COEFS)
693
 
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,143),4,COEFS,4,4,WL(1,0,1
 
711
      CALL MP_VVVV3L2P0_1(PL(0,19),W(1,1),W(1,2),GC_6,ZERO,ZERO,PL(0
 
712
     $ ,144),COEFS)
 
713
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,19),4,COEFS,4,4,WL(1,0,1
694
714
     $ ,144))
695
 
      CALL MP_FFV1L3_1(PL(0,144),W(1,12),GC_5,MDL_MT,MDL_WT,PL(0,145)
696
 
     $ ,COEFS)
697
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,144),4,COEFS,4,4,WL(1,0,1
 
715
      CALL MP_VVVV4L2P0_1(PL(0,19),W(1,1),W(1,2),GC_6,ZERO,ZERO,PL(0
 
716
     $ ,145),COEFS)
 
717
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,19),4,COEFS,4,4,WL(1,0,1
698
718
     $ ,145))
699
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,145),3,4,38,1,322,H)
700
 
C     Coefficient construction for loop diagram with ID 79
701
 
      CALL MP_VVV1L2P0_1(PL(0,0),W(1,1),GC_4,ZERO,ZERO,PL(0,146),COEFS)
702
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
 
719
      CALL MP_FFV1L3_1(PL(0,143),W(1,7),GC_5,MDL_MB,ZERO,PL(0,146)
 
720
     $ ,COEFS)
 
721
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,143),4,COEFS,4,4,WL(1,0,1
703
722
     $ ,146))
704
 
      CALL MP_FFV1L3_2(PL(0,146),W(1,5),GC_5,MDL_MB,ZERO,PL(0,147)
 
723
      CALL MP_FFV1L3_1(PL(0,144),W(1,7),GC_5,MDL_MB,ZERO,PL(0,147)
705
724
     $ ,COEFS)
706
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,146),4,COEFS,4,4,WL(1,0,1
 
725
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,144),4,COEFS,4,4,WL(1,0,1
707
726
     $ ,147))
708
 
      CALL MP_FFV2L1_2(PL(0,147),W(1,3),GC_47,MDL_MT,MDL_WT,PL(0,148)
 
727
      CALL MP_FFV1L3_1(PL(0,145),W(1,7),GC_5,MDL_MB,ZERO,PL(0,148)
709
728
     $ ,COEFS)
710
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,147),4,COEFS,4,4,WL(1,0,1
 
729
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,145),4,COEFS,4,4,WL(1,0,1
711
730
     $ ,148))
712
 
      CALL MP_FFV1L1P0_3(PL(0,148),W(1,12),GC_5,ZERO,ZERO,PL(0,149)
 
731
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,146),1,4,6,1,1,321,H)
 
732
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,147),1,4,6,1,1,322,H)
 
733
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,148),1,4,6,1,1,323,H)
 
734
C     Coefficient construction for loop diagram with ID 78
 
735
      CALL MP_VVV1L2P0_1(PL(0,111),W(1,2),GC_4,ZERO,ZERO,PL(0,149)
713
736
     $ ,COEFS)
714
 
      CALL MP_ML5_0_UPDATE_WL_3_0(WL(1,0,1,148),4,COEFS,4,4,WL(1,0,1
 
737
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,111),4,COEFS,4,4,WL(1,0,1
715
738
     $ ,149))
716
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,149),3,4,39,1,323,H)
717
 
C     Coefficient construction for loop diagram with ID 80
718
 
      CALL MP_FFV1L1P0_3(PL(0,147),W(1,19),GC_5,ZERO,ZERO,PL(0,150)
 
739
      CALL MP_FFV1L3_1(PL(0,149),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,150)
719
740
     $ ,COEFS)
720
 
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,147),4,COEFS,4,4,WL(1,0,1
 
741
      CALL MP_ML5_0_UPDATE_WL_3_1(WL(1,0,1,149),4,COEFS,4,4,WL(1,0,1
721
742
     $ ,150))
722
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,150),2,4,40,1,324,H)
723
 
C     Coefficient construction for loop diagram with ID 81
724
 
      CALL MP_FFV1L3_2(PL(0,45),W(1,23),GC_5,MDL_MB,ZERO,PL(0,151)
 
743
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,150),4,4,49,1,1,324,H)
 
744
C     Coefficient construction for loop diagram with ID 79
 
745
      CALL MP_FFV1L1_2(PL(0,0),W(1,1),GC_5,MDL_MT,MDL_WT,PL(0,151)
725
746
     $ ,COEFS)
726
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,45),4,COEFS,4,4,WL(1,0,1
 
747
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
727
748
     $ ,151))
728
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,151),1,4,3,1,325,H)
729
 
C     Coefficient construction for loop diagram with ID 82
730
 
      CALL MP_FFV1L3_1(PL(0,68),W(1,24),GC_5,MDL_MB,ZERO,PL(0,152)
 
749
      CALL MP_FFV1L1_2(PL(0,151),W(1,2),GC_5,MDL_MT,MDL_WT,PL(0,152)
731
750
     $ ,COEFS)
732
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,68),4,COEFS,4,4,WL(1,0,1
 
751
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,151),4,COEFS,4,4,WL(1,0,1
733
752
     $ ,152))
734
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,152),1,4,12,1,326,H)
735
 
C     Coefficient construction for loop diagram with ID 83
736
 
      CALL MP_FFV1L3_1(PL(0,146),W(1,7),GC_5,MDL_MB,ZERO,PL(0,153)
 
753
      CALL MP_FFV1L1P0_3(PL(0,152),W(1,4),GC_5,ZERO,ZERO,PL(0,153)
737
754
     $ ,COEFS)
738
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,146),4,COEFS,4,4,WL(1,0,1
 
755
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,152),4,COEFS,4,4,WL(1,0,1
739
756
     $ ,153))
740
 
      CALL MP_FFV1L2P0_3(PL(0,153),W(1,10),GC_5,ZERO,ZERO,PL(0,154)
 
757
      CALL MP_FFV1L3_2(PL(0,153),W(1,5),GC_5,MDL_MB,ZERO,PL(0,154)
741
758
     $ ,COEFS)
742
 
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,153),4,COEFS,4,4,WL(1,0,1
 
759
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,153),4,COEFS,4,4,WL(1,0,1
743
760
     $ ,154))
744
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,154),2,4,41,1,327,H)
745
 
C     Coefficient construction for loop diagram with ID 84
746
 
      CALL MP_FFV1L3_2(PL(0,57),W(1,23),GC_5,MDL_MB,ZERO,PL(0,155)
 
761
      CALL MP_FFV2L1_2(PL(0,154),W(1,3),GC_47,MDL_MT,MDL_WT,PL(0,155)
747
762
     $ ,COEFS)
748
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,57),4,COEFS,4,4,WL(1,0,1
 
763
      CALL MP_ML5_0_UPDATE_WL_3_1(WL(1,0,1,154),4,COEFS,4,4,WL(1,0,1
749
764
     $ ,155))
750
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,155),2,4,7,1,328,H)
751
 
C     Coefficient construction for loop diagram with ID 85
752
 
      CALL MP_FFV1L2P0_3(PL(0,143),W(1,10),GC_5,ZERO,ZERO,PL(0,156)
 
765
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,155),4,4,50,1,1,325,H)
 
766
C     Coefficient construction for loop diagram with ID 80
 
767
      CALL MP_FFV1L2_1(PL(0,125),W(1,2),GC_5,MDL_MT,MDL_WT,PL(0,156)
753
768
     $ ,COEFS)
754
 
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,143),4,COEFS,4,4,WL(1,0,1
 
769
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,125),4,COEFS,4,4,WL(1,0,1
755
770
     $ ,156))
756
 
      CALL MP_FFV1L3_1(PL(0,156),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,157)
 
771
      CALL MP_FFV2L2_1(PL(0,156),W(1,3),GC_47,MDL_MB,ZERO,PL(0,157)
757
772
     $ ,COEFS)
758
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,156),4,COEFS,4,4,WL(1,0,1
 
773
      CALL MP_ML5_0_UPDATE_WL_3_1(WL(1,0,1,156),4,COEFS,4,4,WL(1,0,1
759
774
     $ ,157))
760
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,157),3,4,42,1,329,H)
761
 
C     Coefficient construction for loop diagram with ID 86
762
 
      CALL MP_FFV1L3_1(PL(0,146),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,158)
 
775
      CALL MP_FFV1L2P0_3(PL(0,157),W(1,5),GC_5,ZERO,ZERO,PL(0,158)
763
776
     $ ,COEFS)
764
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,146),4,COEFS,4,4,WL(1,0,1
 
777
      CALL MP_ML5_0_UPDATE_WL_4_0(WL(1,0,1,157),4,COEFS,4,4,WL(1,0,1
765
778
     $ ,158))
766
 
      CALL MP_FFV2L2_1(PL(0,158),W(1,3),GC_47,MDL_MB,ZERO,PL(0,159)
 
779
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,158),4,4,51,1,1,326,H)
 
780
C     Coefficient construction for loop diagram with ID 81
 
781
      CALL MP_FFV1L3_1(PL(0,138),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,159)
767
782
     $ ,COEFS)
768
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,158),4,COEFS,4,4,WL(1,0,1
 
783
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,138),4,COEFS,4,4,WL(1,0,1
769
784
     $ ,159))
770
 
      CALL MP_FFV1L2P0_3(PL(0,159),W(1,10),GC_5,ZERO,ZERO,PL(0,160)
 
785
      CALL MP_FFV2L2_1(PL(0,159),W(1,3),GC_47,MDL_MB,ZERO,PL(0,160)
771
786
     $ ,COEFS)
772
 
      CALL MP_ML5_0_UPDATE_WL_3_0(WL(1,0,1,159),4,COEFS,4,4,WL(1,0,1
 
787
      CALL MP_ML5_0_UPDATE_WL_3_1(WL(1,0,1,159),4,COEFS,4,4,WL(1,0,1
773
788
     $ ,160))
774
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,160),3,4,43,1,330,H)
775
 
C     Coefficient construction for loop diagram with ID 87
776
 
      CALL MP_FFV1L3_1(PL(0,73),W(1,24),GC_5,MDL_MB,ZERO,PL(0,161)
 
789
      CALL MP_FFV1L2P0_3(PL(0,160),W(1,5),GC_5,ZERO,ZERO,PL(0,161)
777
790
     $ ,COEFS)
778
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,73),4,COEFS,4,4,WL(1,0,1
 
791
      CALL MP_ML5_0_UPDATE_WL_4_0(WL(1,0,1,160),4,COEFS,4,4,WL(1,0,1
779
792
     $ ,161))
780
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,161),2,4,14,1,331,H)
781
 
C     Coefficient construction for loop diagram with ID 88
782
 
      CALL MP_FFV1L1_2(PL(0,147),W(1,2),GC_5,MDL_MB,ZERO,PL(0,162)
 
793
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,161),4,4,52,1,1,327,H)
 
794
C     Coefficient construction for loop diagram with ID 82
 
795
      CALL MP_FFV1L2_1(PL(0,109),W(1,2),GC_5,MDL_MT,MDL_WT,PL(0,162)
783
796
     $ ,COEFS)
784
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,147),4,COEFS,4,4,WL(1,0,1
 
797
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,109),4,COEFS,4,4,WL(1,0,1
785
798
     $ ,162))
786
 
      CALL MP_FFV1L1P0_3(PL(0,162),W(1,7),GC_5,ZERO,ZERO,PL(0,163)
 
799
      CALL MP_FFV2L2_1(PL(0,162),W(1,3),GC_47,MDL_MB,ZERO,PL(0,163)
787
800
     $ ,COEFS)
788
 
      CALL MP_ML5_0_UPDATE_WL_3_0(WL(1,0,1,162),4,COEFS,4,4,WL(1,0,1
 
801
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,162),4,COEFS,4,4,WL(1,0,1
789
802
     $ ,163))
790
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,163),3,4,44,1,332,H)
791
 
C     Coefficient construction for loop diagram with ID 89
792
 
      CALL MP_FFV1L2_1(PL(0,143),W(1,2),GC_5,MDL_MB,ZERO,PL(0,164)
 
803
      CALL MP_FFV1L2P0_3(PL(0,163),W(1,5),GC_5,ZERO,ZERO,PL(0,164)
793
804
     $ ,COEFS)
794
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,143),4,COEFS,4,4,WL(1,0,1
 
805
      CALL MP_ML5_0_UPDATE_WL_3_0(WL(1,0,1,163),4,COEFS,4,4,WL(1,0,1
795
806
     $ ,164))
796
 
      CALL MP_FFV1L2P0_3(PL(0,164),W(1,5),GC_5,ZERO,ZERO,PL(0,165)
 
807
      CALL MP_FFV1L3_1(PL(0,164),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,165)
797
808
     $ ,COEFS)
798
 
      CALL MP_ML5_0_UPDATE_WL_3_0(WL(1,0,1,164),4,COEFS,4,4,WL(1,0,1
 
809
      CALL MP_ML5_0_UPDATE_WL_3_1(WL(1,0,1,164),4,COEFS,4,4,WL(1,0,1
799
810
     $ ,165))
800
 
      CALL MP_FFV1L3_1(PL(0,165),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,166)
 
811
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,165),4,4,53,1,1,328,H)
 
812
C     Coefficient construction for loop diagram with ID 83
 
813
      CALL MP_FFV2L1_2(PL(0,141),W(1,3),GC_47,MDL_MT,MDL_WT,PL(0,166)
801
814
     $ ,COEFS)
802
 
      CALL MP_ML5_0_UPDATE_WL_3_1(WL(1,0,1,165),4,COEFS,4,4,WL(1,0,1
 
815
      CALL MP_ML5_0_UPDATE_WL_3_1(WL(1,0,1,141),4,COEFS,4,4,WL(1,0,1
803
816
     $ ,166))
804
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,166),4,4,45,1,333,H)
805
 
C     Coefficient construction for loop diagram with ID 90
806
 
      CALL MP_FFV1L2_1(PL(0,159),W(1,2),GC_5,MDL_MB,ZERO,PL(0,167)
 
817
      CALL MP_FFV1L1P0_3(PL(0,166),W(1,4),GC_5,ZERO,ZERO,PL(0,167)
807
818
     $ ,COEFS)
808
 
      CALL MP_ML5_0_UPDATE_WL_3_1(WL(1,0,1,159),4,COEFS,4,4,WL(1,0,1
 
819
      CALL MP_ML5_0_UPDATE_WL_4_0(WL(1,0,1,166),4,COEFS,4,4,WL(1,0,1
809
820
     $ ,167))
810
 
      CALL MP_FFV1L2P0_3(PL(0,167),W(1,5),GC_5,ZERO,ZERO,PL(0,168)
811
 
     $ ,COEFS)
812
 
      CALL MP_ML5_0_UPDATE_WL_4_0(WL(1,0,1,167),4,COEFS,4,4,WL(1,0,1
 
821
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,167),4,4,54,1,1,329,H)
 
822
C     Coefficient construction for loop diagram with ID 84
 
823
      CALL MP_VVVV1L2P0_1(PL(0,24),W(1,1),W(1,2),GC_6,ZERO,ZERO,PL(0
 
824
     $ ,168),COEFS)
 
825
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,24),4,COEFS,4,4,WL(1,0,1
813
826
     $ ,168))
814
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,168),4,4,46,1,334,H)
815
 
C     Coefficient construction for loop diagram with ID 91
816
 
      CALL MP_FFV1L1P0_3(PL(0,81),W(1,24),GC_5,ZERO,ZERO,PL(0,169)
817
 
     $ ,COEFS)
818
 
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,81),4,COEFS,4,4,WL(1,0,1
 
827
      CALL MP_VVVV3L2P0_1(PL(0,24),W(1,1),W(1,2),GC_6,ZERO,ZERO,PL(0
 
828
     $ ,169),COEFS)
 
829
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,24),4,COEFS,4,4,WL(1,0,1
819
830
     $ ,169))
820
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,169),2,4,18,1,335,H)
821
 
C     Coefficient construction for loop diagram with ID 92
822
 
      CALL MP_FFV1L1P0_3(PL(0,147),W(1,21),GC_5,ZERO,ZERO,PL(0,170)
823
 
     $ ,COEFS)
824
 
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,147),4,COEFS,4,4,WL(1,0,1
 
831
      CALL MP_VVVV4L2P0_1(PL(0,24),W(1,1),W(1,2),GC_6,ZERO,ZERO,PL(0
 
832
     $ ,170),COEFS)
 
833
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,24),4,COEFS,4,4,WL(1,0,1
825
834
     $ ,170))
826
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,170),2,4,40,1,336,H)
827
 
C     Coefficient construction for loop diagram with ID 93
828
 
      CALL MP_VVV1L2P0_1(PL(0,146),W(1,2),GC_4,ZERO,ZERO,PL(0,171)
 
835
      CALL MP_FFV1L3_2(PL(0,168),W(1,5),GC_5,MDL_MB,ZERO,PL(0,171)
829
836
     $ ,COEFS)
830
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,146),4,COEFS,4,4,WL(1,0,1
 
837
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,168),4,COEFS,4,4,WL(1,0,1
831
838
     $ ,171))
832
 
      CALL MP_FFV1L3_1(PL(0,171),W(1,7),GC_5,MDL_MB,ZERO,PL(0,172)
 
839
      CALL MP_FFV1L3_2(PL(0,169),W(1,5),GC_5,MDL_MB,ZERO,PL(0,172)
833
840
     $ ,COEFS)
834
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,171),4,COEFS,4,4,WL(1,0,1
 
841
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,169),4,COEFS,4,4,WL(1,0,1
835
842
     $ ,172))
836
 
      CALL MP_FFV1L2P0_3(PL(0,172),W(1,5),GC_5,ZERO,ZERO,PL(0,173)
 
843
      CALL MP_FFV1L3_2(PL(0,170),W(1,5),GC_5,MDL_MB,ZERO,PL(0,173)
837
844
     $ ,COEFS)
838
 
      CALL MP_ML5_0_UPDATE_WL_3_0(WL(1,0,1,172),4,COEFS,4,4,WL(1,0,1
 
845
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,170),4,COEFS,4,4,WL(1,0,1
839
846
     $ ,173))
840
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,173),3,4,47,1,337,H)
841
 
C     Coefficient construction for loop diagram with ID 94
842
 
      CALL MP_FFV1L3_2(PL(0,171),W(1,5),GC_5,MDL_MB,ZERO,PL(0,174)
 
847
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,171),2,4,11,1,1,330,H)
 
848
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,172),2,4,11,1,1,331,H)
 
849
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,173),2,4,11,1,1,332,H)
 
850
C     Coefficient construction for loop diagram with ID 85
 
851
      CALL MP_FFV1L2_1(PL(0,0),W(1,6),GC_5,MDL_MT,MDL_WT,PL(0,174)
843
852
     $ ,COEFS)
844
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,171),4,COEFS,4,4,WL(1,0,1
 
853
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
845
854
     $ ,174))
846
 
      CALL MP_FFV1L1P0_3(PL(0,174),W(1,7),GC_5,ZERO,ZERO,PL(0,175)
 
855
      CALL MP_FFV1L2_1(PL(0,174),W(1,13),GC_5,MDL_MT,MDL_WT,PL(0,175)
847
856
     $ ,COEFS)
848
 
      CALL MP_ML5_0_UPDATE_WL_3_0(WL(1,0,1,174),4,COEFS,4,4,WL(1,0,1
 
857
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,174),4,COEFS,4,4,WL(1,0,1
849
858
     $ ,175))
850
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,175),3,4,48,1,338,H)
851
 
C     Coefficient construction for loop diagram with ID 95
852
 
      CALL MP_VVVV1L2P0_1(PL(0,52),W(1,1),W(1,2),GC_6,ZERO,ZERO,PL(0
853
 
     $ ,176),COEFS)
854
 
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,52),4,COEFS,4,4,WL(1,0,1
 
859
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,175),2,4,55,1,1,333,H)
 
860
C     Coefficient construction for loop diagram with ID 86
 
861
      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
855
863
     $ ,176))
856
 
      CALL MP_VVVV3L2P0_1(PL(0,52),W(1,1),W(1,2),GC_6,ZERO,ZERO,PL(0
857
 
     $ ,177),COEFS)
858
 
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,52),4,COEFS,4,4,WL(1,0,1
 
864
      CALL MP_FFV1L3_1(PL(0,176),W(1,16),GC_5,MDL_MT,MDL_WT,PL(0,177)
 
865
     $ ,COEFS)
 
866
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,176),4,COEFS,4,4,WL(1,0,1
859
867
     $ ,177))
860
 
      CALL MP_VVVV4L2P0_1(PL(0,52),W(1,1),W(1,2),GC_6,ZERO,ZERO,PL(0
861
 
     $ ,178),COEFS)
862
 
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,52),4,COEFS,4,4,WL(1,0,1
 
868
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,177),1,4,56,1,1,334,H)
 
869
C     Coefficient construction for loop diagram with ID 87
 
870
      CALL MP_FFV1L2_1(PL(0,174),W(1,14),GC_5,MDL_MT,MDL_WT,PL(0,178)
 
871
     $ ,COEFS)
 
872
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,174),4,COEFS,4,4,WL(1,0,1
863
873
     $ ,178))
864
 
      CALL MP_FFV1L3_1(PL(0,176),W(1,7),GC_5,MDL_MB,ZERO,PL(0,179)
 
874
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,178),2,4,55,1,1,335,H)
 
875
C     Coefficient construction for loop diagram with ID 88
 
876
      CALL MP_FFV1L3_1(PL(0,0),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,179)
865
877
     $ ,COEFS)
866
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,176),4,COEFS,4,4,WL(1,0,1
 
878
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
867
879
     $ ,179))
868
 
      CALL MP_FFV1L3_1(PL(0,177),W(1,7),GC_5,MDL_MB,ZERO,PL(0,180)
 
880
      CALL MP_FFV1L2_1(PL(0,179),W(1,6),GC_5,MDL_MT,MDL_WT,PL(0,180)
869
881
     $ ,COEFS)
870
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,177),4,COEFS,4,4,WL(1,0,1
 
882
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,179),4,COEFS,4,4,WL(1,0,1
871
883
     $ ,180))
872
 
      CALL MP_FFV1L3_1(PL(0,178),W(1,7),GC_5,MDL_MB,ZERO,PL(0,181)
 
884
      CALL MP_FFV1L2P0_3(PL(0,180),W(1,8),GC_5,ZERO,ZERO,PL(0,181)
873
885
     $ ,COEFS)
874
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,178),4,COEFS,4,4,WL(1,0,1
 
886
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,180),4,COEFS,4,4,WL(1,0,1
875
887
     $ ,181))
876
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,179),1,4,6,1,339,H)
877
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,180),1,4,6,1,340,H)
878
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,181),1,4,6,1,341,H)
879
 
C     Coefficient construction for loop diagram with ID 96
880
 
      CALL MP_VVV1L2P0_1(PL(0,144),W(1,2),GC_4,ZERO,ZERO,PL(0,182)
881
 
     $ ,COEFS)
882
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,144),4,COEFS,4,4,WL(1,0,1
 
888
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,181),2,4,57,1,1,336,H)
 
889
C     Coefficient construction for loop diagram with ID 89
 
890
      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
883
892
     $ ,182))
884
 
      CALL MP_FFV1L3_1(PL(0,182),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,183)
 
893
      CALL MP_VVV1L2P0_1(PL(0,182),W(1,6),GC_4,ZERO,ZERO,PL(0,183)
885
894
     $ ,COEFS)
886
 
      CALL MP_ML5_0_UPDATE_WL_3_1(WL(1,0,1,182),4,COEFS,4,4,WL(1,0,1
 
895
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,182),4,COEFS,4,4,WL(1,0,1
887
896
     $ ,183))
888
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,183),4,4,49,1,342,H)
889
 
C     Coefficient construction for loop diagram with ID 97
890
 
      CALL MP_FFV1L1_2(PL(0,0),W(1,1),GC_5,MDL_MT,MDL_WT,PL(0,184)
 
897
      CALL MP_FFV1L3_2(PL(0,183),W(1,8),GC_5,MDL_MT,MDL_WT,PL(0,184)
891
898
     $ ,COEFS)
892
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
 
899
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,183),4,COEFS,4,4,WL(1,0,1
893
900
     $ ,184))
894
 
      CALL MP_FFV1L1_2(PL(0,184),W(1,2),GC_5,MDL_MT,MDL_WT,PL(0,185)
895
 
     $ ,COEFS)
896
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,184),4,COEFS,4,4,WL(1,0,1
 
901
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,184),2,4,58,1,1,337,H)
 
902
C     Coefficient construction for loop diagram with ID 90
 
903
      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
897
905
     $ ,185))
898
 
      CALL MP_FFV1L1P0_3(PL(0,185),W(1,4),GC_5,ZERO,ZERO,PL(0,186)
 
906
      CALL MP_FFV1L3_2(PL(0,185),W(1,25),GC_5,MDL_MT,MDL_WT,PL(0,186)
899
907
     $ ,COEFS)
900
 
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,185),4,COEFS,4,4,WL(1,0,1
 
908
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,185),4,COEFS,4,4,WL(1,0,1
901
909
     $ ,186))
902
 
      CALL MP_FFV1L3_2(PL(0,186),W(1,5),GC_5,MDL_MB,ZERO,PL(0,187)
 
910
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,186),1,4,59,1,1,338,H)
 
911
C     Coefficient construction for loop diagram with ID 91
 
912
      CALL MP_FFV1L1_2(PL(0,0),W(1,2),GC_5,MDL_MT,MDL_WT,PL(0,187)
903
913
     $ ,COEFS)
904
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,186),4,COEFS,4,4,WL(1,0,1
 
914
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
905
915
     $ ,187))
906
 
      CALL MP_FFV2L1_2(PL(0,187),W(1,3),GC_47,MDL_MT,MDL_WT,PL(0,188)
 
916
      CALL MP_FFV1L1P0_3(PL(0,187),W(1,9),GC_5,ZERO,ZERO,PL(0,188)
907
917
     $ ,COEFS)
908
 
      CALL MP_ML5_0_UPDATE_WL_3_1(WL(1,0,1,187),4,COEFS,4,4,WL(1,0,1
 
918
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,187),4,COEFS,4,4,WL(1,0,1
909
919
     $ ,188))
910
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,188),4,4,50,1,343,H)
911
 
C     Coefficient construction for loop diagram with ID 98
912
 
      CALL MP_FFV1L2_1(PL(0,158),W(1,2),GC_5,MDL_MT,MDL_WT,PL(0,189)
 
920
      CALL MP_FFV1L3_2(PL(0,188),W(1,8),GC_5,MDL_MT,MDL_WT,PL(0,189)
913
921
     $ ,COEFS)
914
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,158),4,COEFS,4,4,WL(1,0,1
 
922
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,188),4,COEFS,4,4,WL(1,0,1
915
923
     $ ,189))
916
 
      CALL MP_FFV2L2_1(PL(0,189),W(1,3),GC_47,MDL_MB,ZERO,PL(0,190)
 
924
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,189),2,4,60,1,1,339,H)
 
925
C     Coefficient construction for loop diagram with ID 92
 
926
      CALL MP_FFV1L3_1(PL(0,176),W(1,18),GC_5,MDL_MT,MDL_WT,PL(0,190)
917
927
     $ ,COEFS)
918
 
      CALL MP_ML5_0_UPDATE_WL_3_1(WL(1,0,1,189),4,COEFS,4,4,WL(1,0,1
 
928
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,176),4,COEFS,4,4,WL(1,0,1
919
929
     $ ,190))
920
 
      CALL MP_FFV1L2P0_3(PL(0,190),W(1,5),GC_5,ZERO,ZERO,PL(0,191)
 
930
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,190),1,4,56,1,1,340,H)
 
931
C     Coefficient construction for loop diagram with ID 93
 
932
      CALL MP_FFV1L3_2(PL(0,185),W(1,26),GC_5,MDL_MT,MDL_WT,PL(0,191)
921
933
     $ ,COEFS)
922
 
      CALL MP_ML5_0_UPDATE_WL_4_0(WL(1,0,1,190),4,COEFS,4,4,WL(1,0,1
 
934
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,185),4,COEFS,4,4,WL(1,0,1
923
935
     $ ,191))
924
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,191),4,4,51,1,344,H)
925
 
C     Coefficient construction for loop diagram with ID 99
926
 
      CALL MP_FFV1L3_1(PL(0,171),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,192)
 
936
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,191),1,4,59,1,1,341,H)
 
937
C     Coefficient construction for loop diagram with ID 94
 
938
      CALL MP_FFV1L3_1(PL(0,47),W(1,9),GC_5,MDL_MT,MDL_WT,PL(0,192)
927
939
     $ ,COEFS)
928
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,171),4,COEFS,4,4,WL(1,0,1
 
940
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,47),4,COEFS,4,4,WL(1,0,1
929
941
     $ ,192))
930
 
      CALL MP_FFV2L2_1(PL(0,192),W(1,3),GC_47,MDL_MB,ZERO,PL(0,193)
 
942
      CALL MP_FFV1L2P0_3(PL(0,192),W(1,8),GC_5,ZERO,ZERO,PL(0,193)
931
943
     $ ,COEFS)
932
 
      CALL MP_ML5_0_UPDATE_WL_3_1(WL(1,0,1,192),4,COEFS,4,4,WL(1,0,1
 
944
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,192),4,COEFS,4,4,WL(1,0,1
933
945
     $ ,193))
934
 
      CALL MP_FFV1L2P0_3(PL(0,193),W(1,5),GC_5,ZERO,ZERO,PL(0,194)
 
946
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,193),2,4,61,1,1,342,H)
 
947
C     Coefficient construction for loop diagram with ID 95
 
948
      CALL MP_FFV1L1P0_3(PL(0,0),W(1,12),GC_5,ZERO,ZERO,PL(0,194)
935
949
     $ ,COEFS)
936
 
      CALL MP_ML5_0_UPDATE_WL_4_0(WL(1,0,1,193),4,COEFS,4,4,WL(1,0,1
 
950
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
937
951
     $ ,194))
938
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,194),4,4,52,1,345,H)
939
 
C     Coefficient construction for loop diagram with ID 100
940
 
      CALL MP_FFV1L2_1(PL(0,142),W(1,2),GC_5,MDL_MT,MDL_WT,PL(0,195)
 
952
      CALL MP_FFV1L3_2(PL(0,194),W(1,27),GC_5,MDL_MT,MDL_WT,PL(0,195)
941
953
     $ ,COEFS)
942
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,142),4,COEFS,4,4,WL(1,0,1
 
954
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,194),4,COEFS,4,4,WL(1,0,1
943
955
     $ ,195))
944
 
      CALL MP_FFV2L2_1(PL(0,195),W(1,3),GC_47,MDL_MB,ZERO,PL(0,196)
 
956
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,195),1,4,62,1,1,343,H)
 
957
C     Coefficient construction for loop diagram with ID 96
 
958
      CALL MP_FFV1L1P0_3(PL(0,187),W(1,4),GC_5,ZERO,ZERO,PL(0,196)
945
959
     $ ,COEFS)
946
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,195),4,COEFS,4,4,WL(1,0,1
 
960
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,187),4,COEFS,4,4,WL(1,0,1
947
961
     $ ,196))
948
 
      CALL MP_FFV1L2P0_3(PL(0,196),W(1,5),GC_5,ZERO,ZERO,PL(0,197)
 
962
      CALL MP_FFV1L3_2(PL(0,196),W(1,27),GC_5,MDL_MT,MDL_WT,PL(0,197)
949
963
     $ ,COEFS)
950
 
      CALL MP_ML5_0_UPDATE_WL_3_0(WL(1,0,1,196),4,COEFS,4,4,WL(1,0,1
 
964
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,196),4,COEFS,4,4,WL(1,0,1
951
965
     $ ,197))
952
 
      CALL MP_FFV1L3_1(PL(0,197),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,198)
 
966
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,197),2,4,63,1,1,344,H)
 
967
C     Coefficient construction for loop diagram with ID 97
 
968
      CALL MP_FFV1L2P0_3(PL(0,71),W(1,27),GC_5,ZERO,ZERO,PL(0,198)
953
969
     $ ,COEFS)
954
 
      CALL MP_ML5_0_UPDATE_WL_3_1(WL(1,0,1,197),4,COEFS,4,4,WL(1,0,1
 
970
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,71),4,COEFS,4,4,WL(1,0,1
955
971
     $ ,198))
956
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,198),4,4,53,1,346,H)
957
 
C     Coefficient construction for loop diagram with ID 101
958
 
      CALL MP_FFV2L1_2(PL(0,174),W(1,3),GC_47,MDL_MT,MDL_WT,PL(0,199)
 
972
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,198),2,4,64,1,1,345,H)
 
973
C     Coefficient construction for loop diagram with ID 98
 
974
      CALL MP_FFV1L1P0_3(PL(0,151),W(1,12),GC_5,ZERO,ZERO,PL(0,199)
959
975
     $ ,COEFS)
960
 
      CALL MP_ML5_0_UPDATE_WL_3_1(WL(1,0,1,174),4,COEFS,4,4,WL(1,0,1
 
976
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,151),4,COEFS,4,4,WL(1,0,1
961
977
     $ ,199))
962
 
      CALL MP_FFV1L1P0_3(PL(0,199),W(1,4),GC_5,ZERO,ZERO,PL(0,200)
 
978
      CALL MP_FFV1L3_2(PL(0,199),W(1,8),GC_5,MDL_MT,MDL_WT,PL(0,200)
963
979
     $ ,COEFS)
964
 
      CALL MP_ML5_0_UPDATE_WL_4_0(WL(1,0,1,199),4,COEFS,4,4,WL(1,0,1
 
980
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,199),4,COEFS,4,4,WL(1,0,1
965
981
     $ ,200))
966
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,200),4,4,54,1,347,H)
967
 
C     Coefficient construction for loop diagram with ID 102
968
 
      CALL MP_VVVV1L2P0_1(PL(0,57),W(1,1),W(1,2),GC_6,ZERO,ZERO,PL(0
969
 
     $ ,201),COEFS)
970
 
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,57),4,COEFS,4,4,WL(1,0,1
 
982
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,200),2,4,65,1,1,346,H)
 
983
C     Coefficient construction for loop diagram with ID 99
 
984
      CALL MP_FFV1L1P0_3(PL(0,151),W(1,4),GC_5,ZERO,ZERO,PL(0,201)
 
985
     $ ,COEFS)
 
986
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,151),4,COEFS,4,4,WL(1,0,1
971
987
     $ ,201))
972
 
      CALL MP_VVVV3L2P0_1(PL(0,57),W(1,1),W(1,2),GC_6,ZERO,ZERO,PL(0
973
 
     $ ,202),COEFS)
974
 
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,57),4,COEFS,4,4,WL(1,0,1
 
988
      CALL MP_FFV1L3_2(PL(0,201),W(1,25),GC_5,MDL_MT,MDL_WT,PL(0,202)
 
989
     $ ,COEFS)
 
990
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,201),4,COEFS,4,4,WL(1,0,1
975
991
     $ ,202))
976
 
      CALL MP_VVVV4L2P0_1(PL(0,57),W(1,1),W(1,2),GC_6,ZERO,ZERO,PL(0
977
 
     $ ,203),COEFS)
978
 
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,57),4,COEFS,4,4,WL(1,0,1
 
992
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,202),2,4,66,1,1,347,H)
 
993
C     Coefficient construction for loop diagram with ID 100
 
994
      CALL MP_FFV1L1_2(PL(0,152),W(1,13),GC_5,MDL_MT,MDL_WT,PL(0,203)
 
995
     $ ,COEFS)
 
996
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,152),4,COEFS,4,4,WL(1,0,1
979
997
     $ ,203))
980
 
      CALL MP_FFV1L3_2(PL(0,201),W(1,5),GC_5,MDL_MB,ZERO,PL(0,204)
 
998
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,203),3,4,67,1,1,348,H)
 
999
C     Coefficient construction for loop diagram with ID 101
 
1000
      CALL MP_FFV1L1_2(PL(0,152),W(1,14),GC_5,MDL_MT,MDL_WT,PL(0,204)
981
1001
     $ ,COEFS)
982
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,201),4,COEFS,4,4,WL(1,0,1
 
1002
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,152),4,COEFS,4,4,WL(1,0,1
983
1003
     $ ,204))
984
 
      CALL MP_FFV1L3_2(PL(0,202),W(1,5),GC_5,MDL_MB,ZERO,PL(0,205)
 
1004
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,204),3,4,67,1,1,349,H)
 
1005
C     Coefficient construction for loop diagram with ID 102
 
1006
      CALL MP_FFV1L3_2(PL(0,153),W(1,8),GC_5,MDL_MT,MDL_WT,PL(0,205)
985
1007
     $ ,COEFS)
986
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,202),4,COEFS,4,4,WL(1,0,1
 
1008
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,153),4,COEFS,4,4,WL(1,0,1
987
1009
     $ ,205))
988
 
      CALL MP_FFV1L3_2(PL(0,203),W(1,5),GC_5,MDL_MB,ZERO,PL(0,206)
 
1010
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,205),3,4,68,1,1,350,H)
 
1011
C     Coefficient construction for loop diagram with ID 103
 
1012
      CALL MP_FFV1L2_1(PL(0,162),W(1,13),GC_5,MDL_MT,MDL_WT,PL(0,206)
989
1013
     $ ,COEFS)
990
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,203),4,COEFS,4,4,WL(1,0,1
 
1014
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,162),4,COEFS,4,4,WL(1,0,1
991
1015
     $ ,206))
992
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,204),2,4,11,1,348,H)
993
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,205),2,4,11,1,349,H)
994
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,206),2,4,11,1,350,H)
995
 
C     Coefficient construction for loop diagram with ID 103
996
 
      CALL MP_FFV1L2_1(PL(0,0),W(1,6),GC_5,MDL_MT,MDL_WT,PL(0,207)
 
1016
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,206),3,4,67,1,1,351,H)
 
1017
C     Coefficient construction for loop diagram with ID 104
 
1018
      CALL MP_FFV1L2_1(PL(0,162),W(1,14),GC_5,MDL_MT,MDL_WT,PL(0,207)
997
1019
     $ ,COEFS)
998
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
 
1020
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,162),4,COEFS,4,4,WL(1,0,1
999
1021
     $ ,207))
1000
 
      CALL MP_FFV1L2_1(PL(0,207),W(1,13),GC_5,MDL_MT,MDL_WT,PL(0,208)
 
1022
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,207),3,4,67,1,1,352,H)
 
1023
C     Coefficient construction for loop diagram with ID 105
 
1024
      CALL MP_FFV1L2P0_3(PL(0,162),W(1,8),GC_5,ZERO,ZERO,PL(0,208)
1001
1025
     $ ,COEFS)
1002
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,207),4,COEFS,4,4,WL(1,0,1
 
1026
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,162),4,COEFS,4,4,WL(1,0,1
1003
1027
     $ ,208))
1004
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,208),2,4,55,1,351,H)
1005
 
C     Coefficient construction for loop diagram with ID 104
1006
 
      CALL MP_FFV1L2P0_3(PL(0,0),W(1,8),GC_5,ZERO,ZERO,PL(0,209),COEFS)
1007
 
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
 
1028
      CALL MP_FFV1L3_1(PL(0,208),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,209)
 
1029
     $ ,COEFS)
 
1030
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,208),4,COEFS,4,4,WL(1,0,1
1008
1031
     $ ,209))
1009
 
      CALL MP_FFV1L3_1(PL(0,209),W(1,16),GC_5,MDL_MT,MDL_WT,PL(0,210)
 
1032
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,209),3,4,69,1,1,353,H)
 
1033
C     Coefficient construction for loop diagram with ID 106
 
1034
      CALL MP_VVV1L2P0_1(PL(0,201),W(1,2),GC_4,ZERO,ZERO,PL(0,210)
1010
1035
     $ ,COEFS)
1011
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,209),4,COEFS,4,4,WL(1,0,1
 
1036
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,201),4,COEFS,4,4,WL(1,0,1
1012
1037
     $ ,210))
1013
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,210),1,4,56,1,352,H)
1014
 
C     Coefficient construction for loop diagram with ID 105
1015
 
      CALL MP_FFV1L2_1(PL(0,207),W(1,14),GC_5,MDL_MT,MDL_WT,PL(0,211)
 
1038
      CALL MP_FFV1L3_2(PL(0,210),W(1,8),GC_5,MDL_MT,MDL_WT,PL(0,211)
1016
1039
     $ ,COEFS)
1017
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,207),4,COEFS,4,4,WL(1,0,1
 
1040
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,210),4,COEFS,4,4,WL(1,0,1
1018
1041
     $ ,211))
1019
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,211),2,4,55,1,353,H)
1020
 
C     Coefficient construction for loop diagram with ID 106
1021
 
      CALL MP_FFV1L3_1(PL(0,0),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,212)
 
1042
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,211),3,4,70,1,1,354,H)
 
1043
C     Coefficient construction for loop diagram with ID 107
 
1044
      CALL MP_FFV1L3_2(PL(0,201),W(1,26),GC_5,MDL_MT,MDL_WT,PL(0,212)
1022
1045
     $ ,COEFS)
1023
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
 
1046
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,201),4,COEFS,4,4,WL(1,0,1
1024
1047
     $ ,212))
1025
 
      CALL MP_FFV1L2_1(PL(0,212),W(1,6),GC_5,MDL_MT,MDL_WT,PL(0,213)
 
1048
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,212),2,4,66,1,1,355,H)
 
1049
C     Coefficient construction for loop diagram with ID 108
 
1050
      CALL MP_FFV1L3_1(PL(0,176),W(1,22),GC_5,MDL_MT,MDL_WT,PL(0,213)
1026
1051
     $ ,COEFS)
1027
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,212),4,COEFS,4,4,WL(1,0,1
 
1052
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,176),4,COEFS,4,4,WL(1,0,1
1028
1053
     $ ,213))
1029
 
      CALL MP_FFV1L2P0_3(PL(0,213),W(1,8),GC_5,ZERO,ZERO,PL(0,214)
 
1054
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,213),1,4,56,1,1,356,H)
 
1055
C     Coefficient construction for loop diagram with ID 109
 
1056
      CALL MP_FFV1L3_2(PL(0,194),W(1,28),GC_5,MDL_MT,MDL_WT,PL(0,214)
1030
1057
     $ ,COEFS)
1031
 
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,213),4,COEFS,4,4,WL(1,0,1
 
1058
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,194),4,COEFS,4,4,WL(1,0,1
1032
1059
     $ ,214))
1033
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,214),2,4,57,1,354,H)
1034
 
C     Coefficient construction for loop diagram with ID 107
1035
 
      CALL MP_FFV1L1P0_3(PL(0,0),W(1,4),GC_5,ZERO,ZERO,PL(0,215),COEFS)
1036
 
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
 
1060
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,214),1,4,62,1,1,357,H)
 
1061
C     Coefficient construction for loop diagram with ID 110
 
1062
      CALL MP_FFV1L3_1(PL(0,113),W(1,12),GC_5,MDL_MT,MDL_WT,PL(0,215)
 
1063
     $ ,COEFS)
 
1064
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,113),4,COEFS,4,4,WL(1,0,1
1037
1065
     $ ,215))
1038
 
      CALL MP_VVV1L2P0_1(PL(0,215),W(1,6),GC_4,ZERO,ZERO,PL(0,216)
 
1066
      CALL MP_FFV1L2P0_3(PL(0,215),W(1,8),GC_5,ZERO,ZERO,PL(0,216)
1039
1067
     $ ,COEFS)
1040
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,215),4,COEFS,4,4,WL(1,0,1
 
1068
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,215),4,COEFS,4,4,WL(1,0,1
1041
1069
     $ ,216))
1042
 
      CALL MP_FFV1L3_2(PL(0,216),W(1,8),GC_5,MDL_MT,MDL_WT,PL(0,217)
 
1070
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,216),2,4,71,1,1,358,H)
 
1071
C     Coefficient construction for loop diagram with ID 111
 
1072
      CALL MP_FFV1L2P0_3(PL(0,125),W(1,25),GC_5,ZERO,ZERO,PL(0,217)
1043
1073
     $ ,COEFS)
1044
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,216),4,COEFS,4,4,WL(1,0,1
 
1074
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,125),4,COEFS,4,4,WL(1,0,1
1045
1075
     $ ,217))
1046
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,217),2,4,58,1,355,H)
1047
 
C     Coefficient construction for loop diagram with ID 108
1048
 
      CALL MP_FFV1L1P0_3(PL(0,0),W(1,9),GC_5,ZERO,ZERO,PL(0,218),COEFS)
1049
 
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
 
1076
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,217),2,4,72,1,1,359,H)
 
1077
C     Coefficient construction for loop diagram with ID 112
 
1078
      CALL MP_FFV1L3_2(PL(0,196),W(1,28),GC_5,MDL_MT,MDL_WT,PL(0,218)
 
1079
     $ ,COEFS)
 
1080
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,196),4,COEFS,4,4,WL(1,0,1
1050
1081
     $ ,218))
1051
 
      CALL MP_FFV1L3_2(PL(0,218),W(1,25),GC_5,MDL_MT,MDL_WT,PL(0,219)
 
1082
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,218),2,4,63,1,1,360,H)
 
1083
C     Coefficient construction for loop diagram with ID 113
 
1084
      CALL MP_FFV1L2P0_3(PL(0,156),W(1,8),GC_5,ZERO,ZERO,PL(0,219)
1052
1085
     $ ,COEFS)
1053
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,218),4,COEFS,4,4,WL(1,0,1
 
1086
      CALL MP_ML5_0_UPDATE_WL_3_0(WL(1,0,1,156),4,COEFS,4,4,WL(1,0,1
1054
1087
     $ ,219))
1055
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,219),1,4,59,1,356,H)
1056
 
C     Coefficient construction for loop diagram with ID 109
1057
 
      CALL MP_FFV1L1_2(PL(0,0),W(1,2),GC_5,MDL_MT,MDL_WT,PL(0,220)
 
1088
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,219),3,4,73,1,1,361,H)
 
1089
C     Coefficient construction for loop diagram with ID 114
 
1090
      CALL MP_FFV1L2P0_3(PL(0,71),W(1,28),GC_5,ZERO,ZERO,PL(0,220)
1058
1091
     $ ,COEFS)
1059
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
 
1092
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,71),4,COEFS,4,4,WL(1,0,1
1060
1093
     $ ,220))
1061
 
      CALL MP_FFV1L1P0_3(PL(0,220),W(1,9),GC_5,ZERO,ZERO,PL(0,221)
 
1094
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,220),2,4,64,1,1,362,H)
 
1095
C     Coefficient construction for loop diagram with ID 115
 
1096
      CALL MP_FFV1L2P0_3(PL(0,125),W(1,26),GC_5,ZERO,ZERO,PL(0,221)
1062
1097
     $ ,COEFS)
1063
 
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,220),4,COEFS,4,4,WL(1,0,1
 
1098
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,125),4,COEFS,4,4,WL(1,0,1
1064
1099
     $ ,221))
1065
 
      CALL MP_FFV1L3_2(PL(0,221),W(1,8),GC_5,MDL_MT,MDL_WT,PL(0,222)
 
1100
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,221),2,4,72,1,1,363,H)
 
1101
C     Coefficient construction for loop diagram with ID 116
 
1102
      CALL MP_FFV1L3_2(PL(0,138),W(1,8),GC_5,MDL_MT,MDL_WT,PL(0,222)
1066
1103
     $ ,COEFS)
1067
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,221),4,COEFS,4,4,WL(1,0,1
 
1104
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,138),4,COEFS,4,4,WL(1,0,1
1068
1105
     $ ,222))
1069
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,222),2,4,60,1,357,H)
1070
 
C     Coefficient construction for loop diagram with ID 110
1071
 
      CALL MP_FFV1L3_1(PL(0,209),W(1,18),GC_5,MDL_MT,MDL_WT,PL(0,223)
 
1106
      CALL MP_FFV1L1P0_3(PL(0,222),W(1,4),GC_5,ZERO,ZERO,PL(0,223)
1072
1107
     $ ,COEFS)
1073
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,209),4,COEFS,4,4,WL(1,0,1
 
1108
      CALL MP_ML5_0_UPDATE_WL_3_0(WL(1,0,1,222),4,COEFS,4,4,WL(1,0,1
1074
1109
     $ ,223))
1075
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,223),1,4,56,1,358,H)
1076
 
C     Coefficient construction for loop diagram with ID 111
1077
 
      CALL MP_FFV1L3_2(PL(0,218),W(1,26),GC_5,MDL_MT,MDL_WT,PL(0,224)
 
1110
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,223),3,4,74,1,1,364,H)
 
1111
C     Coefficient construction for loop diagram with ID 117
 
1112
      CALL MP_FFV1L2P0_3(PL(0,159),W(1,8),GC_5,ZERO,ZERO,PL(0,224)
1078
1113
     $ ,COEFS)
1079
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,218),4,COEFS,4,4,WL(1,0,1
 
1114
      CALL MP_ML5_0_UPDATE_WL_3_0(WL(1,0,1,159),4,COEFS,4,4,WL(1,0,1
1080
1115
     $ ,224))
1081
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,224),1,4,59,1,359,H)
1082
 
C     Coefficient construction for loop diagram with ID 112
1083
 
      CALL MP_FFV1L3_1(PL(0,80),W(1,9),GC_5,MDL_MT,MDL_WT,PL(0,225)
1084
 
     $ ,COEFS)
1085
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,80),4,COEFS,4,4,WL(1,0,1
 
1116
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,224),3,4,75,1,1,365,H)
 
1117
C     Coefficient construction for loop diagram with ID 118
 
1118
      CALL MP_VVVV1L2P0_1(PL(0,182),W(1,1),W(1,2),GC_6,ZERO,ZERO,PL(0
 
1119
     $ ,225),COEFS)
 
1120
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,182),4,COEFS,4,4,WL(1,0,1
1086
1121
     $ ,225))
1087
 
      CALL MP_FFV1L2P0_3(PL(0,225),W(1,8),GC_5,ZERO,ZERO,PL(0,226)
1088
 
     $ ,COEFS)
1089
 
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,225),4,COEFS,4,4,WL(1,0,1
 
1122
      CALL MP_VVVV3L2P0_1(PL(0,182),W(1,1),W(1,2),GC_6,ZERO,ZERO,PL(0
 
1123
     $ ,226),COEFS)
 
1124
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,182),4,COEFS,4,4,WL(1,0,1
1090
1125
     $ ,226))
1091
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,226),2,4,61,1,360,H)
1092
 
C     Coefficient construction for loop diagram with ID 113
1093
 
      CALL MP_FFV1L1P0_3(PL(0,0),W(1,12),GC_5,ZERO,ZERO,PL(0,227)
1094
 
     $ ,COEFS)
1095
 
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
 
1126
      CALL MP_VVVV4L2P0_1(PL(0,182),W(1,1),W(1,2),GC_6,ZERO,ZERO,PL(0
 
1127
     $ ,227),COEFS)
 
1128
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,182),4,COEFS,4,4,WL(1,0,1
1096
1129
     $ ,227))
1097
 
      CALL MP_FFV1L3_2(PL(0,227),W(1,27),GC_5,MDL_MT,MDL_WT,PL(0,228)
 
1130
      CALL MP_FFV1L3_2(PL(0,225),W(1,8),GC_5,MDL_MT,MDL_WT,PL(0,228)
1098
1131
     $ ,COEFS)
1099
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,227),4,COEFS,4,4,WL(1,0,1
 
1132
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,225),4,COEFS,4,4,WL(1,0,1
1100
1133
     $ ,228))
1101
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,228),1,4,62,1,361,H)
1102
 
C     Coefficient construction for loop diagram with ID 114
1103
 
      CALL MP_FFV1L1P0_3(PL(0,220),W(1,4),GC_5,ZERO,ZERO,PL(0,229)
 
1134
      CALL MP_FFV1L3_2(PL(0,226),W(1,8),GC_5,MDL_MT,MDL_WT,PL(0,229)
1104
1135
     $ ,COEFS)
1105
 
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,220),4,COEFS,4,4,WL(1,0,1
 
1136
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,226),4,COEFS,4,4,WL(1,0,1
1106
1137
     $ ,229))
1107
 
      CALL MP_FFV1L3_2(PL(0,229),W(1,27),GC_5,MDL_MT,MDL_WT,PL(0,230)
 
1138
      CALL MP_FFV1L3_2(PL(0,227),W(1,8),GC_5,MDL_MT,MDL_WT,PL(0,230)
1108
1139
     $ ,COEFS)
1109
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,229),4,COEFS,4,4,WL(1,0,1
 
1140
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,227),4,COEFS,4,4,WL(1,0,1
1110
1141
     $ ,230))
1111
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,230),2,4,63,1,362,H)
1112
 
C     Coefficient construction for loop diagram with ID 115
1113
 
      CALL MP_FFV1L2P0_3(PL(0,104),W(1,27),GC_5,ZERO,ZERO,PL(0,231)
1114
 
     $ ,COEFS)
1115
 
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,104),4,COEFS,4,4,WL(1,0,1
 
1142
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,228),1,4,58,1,1,366,H)
 
1143
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,229),1,4,58,1,1,367,H)
 
1144
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,230),1,4,58,1,1,368,H)
 
1145
C     Coefficient construction for loop diagram with ID 119
 
1146
      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
1116
1148
     $ ,231))
1117
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,231),2,4,64,1,363,H)
1118
 
C     Coefficient construction for loop diagram with ID 116
1119
 
      CALL MP_FFV1L1P0_3(PL(0,184),W(1,12),GC_5,ZERO,ZERO,PL(0,232)
 
1149
      CALL MP_VVV1L2P0_1(PL(0,231),W(1,13),GC_4,ZERO,ZERO,PL(0,232)
1120
1150
     $ ,COEFS)
1121
 
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,184),4,COEFS,4,4,WL(1,0,1
 
1151
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,231),4,COEFS,4,4,WL(1,0,1
1122
1152
     $ ,232))
1123
 
      CALL MP_FFV1L3_2(PL(0,232),W(1,8),GC_5,MDL_MT,MDL_WT,PL(0,233)
 
1153
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,232),2,4,1,2,1,369,H)
 
1154
C     Coefficient construction for loop diagram with ID 120
 
1155
      CALL MP_VVV1L2P0_1(PL(0,231),W(1,14),GC_4,ZERO,ZERO,PL(0,233)
1124
1156
     $ ,COEFS)
1125
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,232),4,COEFS,4,4,WL(1,0,1
 
1157
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,231),4,COEFS,4,4,WL(1,0,1
1126
1158
     $ ,233))
1127
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,233),2,4,65,1,364,H)
1128
 
C     Coefficient construction for loop diagram with ID 117
1129
 
      CALL MP_FFV1L1P0_3(PL(0,184),W(1,4),GC_5,ZERO,ZERO,PL(0,234)
 
1159
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,233),2,4,1,2,1,370,H)
 
1160
C     Coefficient construction for loop diagram with ID 121
 
1161
      CALL MP_VVV1L2P0_1(PL(0,138),W(1,13),GC_4,ZERO,ZERO,PL(0,234)
1130
1162
     $ ,COEFS)
1131
 
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,184),4,COEFS,4,4,WL(1,0,1
 
1163
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,138),4,COEFS,4,4,WL(1,0,1
1132
1164
     $ ,234))
1133
 
      CALL MP_FFV1L3_2(PL(0,234),W(1,25),GC_5,MDL_MT,MDL_WT,PL(0,235)
 
1165
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,234),3,4,2,1,1,371,H)
 
1166
C     Coefficient construction for loop diagram with ID 122
 
1167
      CALL MP_VVV1L2P0_1(PL(0,138),W(1,14),GC_4,ZERO,ZERO,PL(0,235)
1134
1168
     $ ,COEFS)
1135
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,234),4,COEFS,4,4,WL(1,0,1
 
1169
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,138),4,COEFS,4,4,WL(1,0,1
1136
1170
     $ ,235))
1137
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,235),2,4,66,1,365,H)
1138
 
C     Coefficient construction for loop diagram with ID 118
1139
 
      CALL MP_FFV1L1_2(PL(0,185),W(1,13),GC_5,MDL_MT,MDL_WT,PL(0,236)
1140
 
     $ ,COEFS)
1141
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,185),4,COEFS,4,4,WL(1,0,1
 
1171
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,235),3,4,2,1,1,372,H)
 
1172
C     Coefficient construction for loop diagram with ID 123
 
1173
      CALL MP_VVVV1L2P0_1(PL(0,113),W(1,13),W(1,2),GC_6,ZERO,ZERO,PL(0
 
1174
     $ ,236),COEFS)
 
1175
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,113),4,COEFS,4,4,WL(1,0,1
1142
1176
     $ ,236))
1143
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,236),3,4,67,1,366,H)
1144
 
C     Coefficient construction for loop diagram with ID 119
1145
 
      CALL MP_FFV1L1_2(PL(0,185),W(1,14),GC_5,MDL_MT,MDL_WT,PL(0,237)
1146
 
     $ ,COEFS)
1147
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,185),4,COEFS,4,4,WL(1,0,1
 
1177
      CALL MP_VVVV3L2P0_1(PL(0,113),W(1,13),W(1,2),GC_6,ZERO,ZERO,PL(0
 
1178
     $ ,237),COEFS)
 
1179
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,113),4,COEFS,4,4,WL(1,0,1
1148
1180
     $ ,237))
1149
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,237),3,4,67,1,367,H)
1150
 
C     Coefficient construction for loop diagram with ID 120
1151
 
      CALL MP_FFV1L3_2(PL(0,186),W(1,8),GC_5,MDL_MT,MDL_WT,PL(0,238)
1152
 
     $ ,COEFS)
1153
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,186),4,COEFS,4,4,WL(1,0,1
 
1181
      CALL MP_VVVV4L2P0_1(PL(0,113),W(1,13),W(1,2),GC_6,ZERO,ZERO,PL(0
 
1182
     $ ,238),COEFS)
 
1183
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,113),4,COEFS,4,4,WL(1,0,1
1154
1184
     $ ,238))
1155
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,238),3,4,68,1,368,H)
1156
 
C     Coefficient construction for loop diagram with ID 121
1157
 
      CALL MP_FFV1L2_1(PL(0,195),W(1,13),GC_5,MDL_MT,MDL_WT,PL(0,239)
1158
 
     $ ,COEFS)
1159
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,195),4,COEFS,4,4,WL(1,0,1
 
1185
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,236),1,4,76,2,1,373,H)
 
1186
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,237),1,4,76,2,1,374,H)
 
1187
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,238),1,4,76,2,1,375,H)
 
1188
C     Coefficient construction for loop diagram with ID 124
 
1189
      CALL MP_VVVV1L2P0_1(PL(0,113),W(1,14),W(1,2),GC_6,ZERO,ZERO,PL(0
 
1190
     $ ,239),COEFS)
 
1191
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,113),4,COEFS,4,4,WL(1,0,1
1160
1192
     $ ,239))
1161
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,239),3,4,67,1,369,H)
1162
 
C     Coefficient construction for loop diagram with ID 122
1163
 
      CALL MP_FFV1L2_1(PL(0,195),W(1,14),GC_5,MDL_MT,MDL_WT,PL(0,240)
1164
 
     $ ,COEFS)
1165
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,195),4,COEFS,4,4,WL(1,0,1
 
1193
      CALL MP_VVVV3L2P0_1(PL(0,113),W(1,14),W(1,2),GC_6,ZERO,ZERO,PL(0
 
1194
     $ ,240),COEFS)
 
1195
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,113),4,COEFS,4,4,WL(1,0,1
1166
1196
     $ ,240))
1167
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,240),3,4,67,1,370,H)
1168
 
C     Coefficient construction for loop diagram with ID 123
1169
 
      CALL MP_FFV1L2P0_3(PL(0,195),W(1,8),GC_5,ZERO,ZERO,PL(0,241)
1170
 
     $ ,COEFS)
1171
 
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,195),4,COEFS,4,4,WL(1,0,1
 
1197
      CALL MP_VVVV4L2P0_1(PL(0,113),W(1,14),W(1,2),GC_6,ZERO,ZERO,PL(0
 
1198
     $ ,241),COEFS)
 
1199
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,113),4,COEFS,4,4,WL(1,0,1
1172
1200
     $ ,241))
1173
 
      CALL MP_FFV1L3_1(PL(0,241),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,242)
1174
 
     $ ,COEFS)
1175
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,241),4,COEFS,4,4,WL(1,0,1
 
1201
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,239),1,4,76,2,1,376,H)
 
1202
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,240),1,4,76,2,1,377,H)
 
1203
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,241),1,4,76,2,1,378,H)
 
1204
C     Coefficient construction for loop diagram with ID 125
 
1205
      CALL MP_VVVV1L2P0_1(PL(0,47),W(1,13),W(1,1),GC_6,ZERO,ZERO,PL(0
 
1206
     $ ,242),COEFS)
 
1207
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,47),4,COEFS,4,4,WL(1,0,1
1176
1208
     $ ,242))
1177
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,242),3,4,69,1,371,H)
1178
 
C     Coefficient construction for loop diagram with ID 124
1179
 
      CALL MP_VVV1L2P0_1(PL(0,234),W(1,2),GC_4,ZERO,ZERO,PL(0,243)
1180
 
     $ ,COEFS)
1181
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,234),4,COEFS,4,4,WL(1,0,1
 
1209
      CALL MP_VVVV3L2P0_1(PL(0,47),W(1,13),W(1,1),GC_6,ZERO,ZERO,PL(0
 
1210
     $ ,243),COEFS)
 
1211
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,47),4,COEFS,4,4,WL(1,0,1
1182
1212
     $ ,243))
1183
 
      CALL MP_FFV1L3_2(PL(0,243),W(1,8),GC_5,MDL_MT,MDL_WT,PL(0,244)
1184
 
     $ ,COEFS)
1185
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,243),4,COEFS,4,4,WL(1,0,1
 
1213
      CALL MP_VVVV4L2P0_1(PL(0,47),W(1,13),W(1,1),GC_6,ZERO,ZERO,PL(0
 
1214
     $ ,244),COEFS)
 
1215
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,47),4,COEFS,4,4,WL(1,0,1
1186
1216
     $ ,244))
1187
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,244),3,4,70,1,372,H)
1188
 
C     Coefficient construction for loop diagram with ID 125
1189
 
      CALL MP_FFV1L3_2(PL(0,234),W(1,26),GC_5,MDL_MT,MDL_WT,PL(0,245)
1190
 
     $ ,COEFS)
1191
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,234),4,COEFS,4,4,WL(1,0,1
 
1217
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,242),1,4,77,2,1,379,H)
 
1218
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,243),1,4,77,2,1,380,H)
 
1219
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,244),1,4,77,2,1,381,H)
 
1220
C     Coefficient construction for loop diagram with ID 126
 
1221
      CALL MP_VVVV1L2P0_1(PL(0,47),W(1,14),W(1,1),GC_6,ZERO,ZERO,PL(0
 
1222
     $ ,245),COEFS)
 
1223
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,47),4,COEFS,4,4,WL(1,0,1
1192
1224
     $ ,245))
1193
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,245),2,4,66,1,373,H)
1194
 
C     Coefficient construction for loop diagram with ID 126
1195
 
      CALL MP_FFV1L3_1(PL(0,209),W(1,22),GC_5,MDL_MT,MDL_WT,PL(0,246)
1196
 
     $ ,COEFS)
1197
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,209),4,COEFS,4,4,WL(1,0,1
 
1225
      CALL MP_VVVV3L2P0_1(PL(0,47),W(1,14),W(1,1),GC_6,ZERO,ZERO,PL(0
 
1226
     $ ,246),COEFS)
 
1227
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,47),4,COEFS,4,4,WL(1,0,1
1198
1228
     $ ,246))
1199
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,246),1,4,56,1,374,H)
 
1229
      CALL MP_VVVV4L2P0_1(PL(0,47),W(1,14),W(1,1),GC_6,ZERO,ZERO,PL(0
 
1230
     $ ,247),COEFS)
 
1231
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,47),4,COEFS,4,4,WL(1,0,1
 
1232
     $ ,247))
 
1233
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,245),1,4,77,2,1,382,H)
 
1234
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,246),1,4,77,2,1,383,H)
 
1235
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,247),1,4,77,2,1,384,H)
1200
1236
C     Coefficient construction for loop diagram with ID 127
1201
 
      CALL MP_FFV1L3_2(PL(0,227),W(1,28),GC_5,MDL_MT,MDL_WT,PL(0,247)
1202
 
     $ ,COEFS)
1203
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,227),4,COEFS,4,4,WL(1,0,1
1204
 
     $ ,247))
1205
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,247),1,4,62,1,375,H)
1206
 
C     Coefficient construction for loop diagram with ID 128
1207
 
      CALL MP_FFV1L3_1(PL(0,146),W(1,12),GC_5,MDL_MT,MDL_WT,PL(0,248)
1208
 
     $ ,COEFS)
1209
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,146),4,COEFS,4,4,WL(1,0,1
 
1237
      CALL MP_VVVV1L2P0_1(PL(0,0),W(1,1),W(1,2),GC_6,ZERO,ZERO,PL(0
 
1238
     $ ,248),COEFS)
 
1239
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
1210
1240
     $ ,248))
1211
 
      CALL MP_FFV1L2P0_3(PL(0,248),W(1,8),GC_5,ZERO,ZERO,PL(0,249)
1212
 
     $ ,COEFS)
1213
 
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,248),4,COEFS,4,4,WL(1,0,1
 
1241
      CALL MP_VVVV3L2P0_1(PL(0,0),W(1,1),W(1,2),GC_6,ZERO,ZERO,PL(0
 
1242
     $ ,249),COEFS)
 
1243
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
1214
1244
     $ ,249))
1215
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,249),2,4,71,1,376,H)
1216
 
C     Coefficient construction for loop diagram with ID 129
1217
 
      CALL MP_FFV1L2P0_3(PL(0,158),W(1,25),GC_5,ZERO,ZERO,PL(0,250)
1218
 
     $ ,COEFS)
1219
 
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,158),4,COEFS,4,4,WL(1,0,1
 
1245
      CALL MP_VVVV4L2P0_1(PL(0,0),W(1,1),W(1,2),GC_6,ZERO,ZERO,PL(0
 
1246
     $ ,250),COEFS)
 
1247
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
1220
1248
     $ ,250))
1221
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,250),2,4,72,1,377,H)
1222
 
C     Coefficient construction for loop diagram with ID 130
1223
 
      CALL MP_FFV1L3_2(PL(0,229),W(1,28),GC_5,MDL_MT,MDL_WT,PL(0,251)
 
1249
      CALL MP_VVV1L2P0_1(PL(0,248),W(1,13),GC_4,ZERO,ZERO,PL(0,251)
1224
1250
     $ ,COEFS)
1225
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,229),4,COEFS,4,4,WL(1,0,1
 
1251
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,248),4,COEFS,4,4,WL(1,0,1
1226
1252
     $ ,251))
1227
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,251),2,4,63,1,378,H)
1228
 
C     Coefficient construction for loop diagram with ID 131
1229
 
      CALL MP_FFV1L2P0_3(PL(0,189),W(1,8),GC_5,ZERO,ZERO,PL(0,252)
 
1253
      CALL MP_VVV1L2P0_1(PL(0,249),W(1,13),GC_4,ZERO,ZERO,PL(0,252)
1230
1254
     $ ,COEFS)
1231
 
      CALL MP_ML5_0_UPDATE_WL_3_0(WL(1,0,1,189),4,COEFS,4,4,WL(1,0,1
 
1255
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,249),4,COEFS,4,4,WL(1,0,1
1232
1256
     $ ,252))
1233
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,252),3,4,73,1,379,H)
1234
 
C     Coefficient construction for loop diagram with ID 132
1235
 
      CALL MP_FFV1L2P0_3(PL(0,104),W(1,28),GC_5,ZERO,ZERO,PL(0,253)
 
1257
      CALL MP_VVV1L2P0_1(PL(0,250),W(1,13),GC_4,ZERO,ZERO,PL(0,253)
1236
1258
     $ ,COEFS)
1237
 
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,104),4,COEFS,4,4,WL(1,0,1
 
1259
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,250),4,COEFS,4,4,WL(1,0,1
1238
1260
     $ ,253))
1239
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,253),2,4,64,1,380,H)
1240
 
C     Coefficient construction for loop diagram with ID 133
1241
 
      CALL MP_FFV1L2P0_3(PL(0,158),W(1,26),GC_5,ZERO,ZERO,PL(0,254)
 
1261
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,251),1,4,1,2,1,385,H)
 
1262
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,252),1,4,1,2,1,386,H)
 
1263
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,253),1,4,1,2,1,387,H)
 
1264
C     Coefficient construction for loop diagram with ID 128
 
1265
      CALL MP_VVV1L2P0_1(PL(0,248),W(1,14),GC_4,ZERO,ZERO,PL(0,254)
1242
1266
     $ ,COEFS)
1243
 
      CALL MP_ML5_0_UPDATE_WL_2_0(WL(1,0,1,158),4,COEFS,4,4,WL(1,0,1
 
1267
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,248),4,COEFS,4,4,WL(1,0,1
1244
1268
     $ ,254))
1245
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,254),2,4,72,1,381,H)
1246
 
C     Coefficient construction for loop diagram with ID 134
1247
 
      CALL MP_FFV1L3_2(PL(0,171),W(1,8),GC_5,MDL_MT,MDL_WT,PL(0,255)
 
1269
      CALL MP_VVV1L2P0_1(PL(0,249),W(1,14),GC_4,ZERO,ZERO,PL(0,255)
1248
1270
     $ ,COEFS)
1249
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,171),4,COEFS,4,4,WL(1,0,1
 
1271
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,249),4,COEFS,4,4,WL(1,0,1
1250
1272
     $ ,255))
1251
 
      CALL MP_FFV1L1P0_3(PL(0,255),W(1,4),GC_5,ZERO,ZERO,PL(0,256)
 
1273
      CALL MP_VVV1L2P0_1(PL(0,250),W(1,14),GC_4,ZERO,ZERO,PL(0,256)
1252
1274
     $ ,COEFS)
1253
 
      CALL MP_ML5_0_UPDATE_WL_3_0(WL(1,0,1,255),4,COEFS,4,4,WL(1,0,1
 
1275
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,250),4,COEFS,4,4,WL(1,0,1
1254
1276
     $ ,256))
1255
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,256),3,4,74,1,382,H)
1256
 
C     Coefficient construction for loop diagram with ID 135
1257
 
      CALL MP_FFV1L2P0_3(PL(0,192),W(1,8),GC_5,ZERO,ZERO,PL(0,257)
1258
 
     $ ,COEFS)
1259
 
      CALL MP_ML5_0_UPDATE_WL_3_0(WL(1,0,1,192),4,COEFS,4,4,WL(1,0,1
 
1277
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,254),1,4,1,2,1,388,H)
 
1278
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,255),1,4,1,2,1,389,H)
 
1279
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,256),1,4,1,2,1,390,H)
 
1280
C     Coefficient construction for loop diagram with ID 129
 
1281
      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
1260
1283
     $ ,257))
1261
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,257),3,4,75,1,383,H)
1262
 
C     Coefficient construction for loop diagram with ID 136
1263
 
      CALL MP_VVVV1L2P0_1(PL(0,215),W(1,1),W(1,2),GC_6,ZERO,ZERO,PL(0
1264
 
     $ ,258),COEFS)
1265
 
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,215),4,COEFS,4,4,WL(1,0,1
 
1284
      CALL MP_GHGHGL2_1(PL(0,257),W(1,13),GC_4,ZERO,ZERO,PL(0,258)
 
1285
     $ ,COEFS)
 
1286
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,257),1,COEFS,1,1,WL(1,0,1
1266
1287
     $ ,258))
1267
 
      CALL MP_VVVV3L2P0_1(PL(0,215),W(1,1),W(1,2),GC_6,ZERO,ZERO,PL(0
1268
 
     $ ,259),COEFS)
1269
 
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,215),4,COEFS,4,4,WL(1,0,1
 
1288
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,258),2,1,1,1,1,391,H)
 
1289
C     Coefficient construction for loop diagram with ID 130
 
1290
      CALL MP_GHGHGL2_1(PL(0,257),W(1,14),GC_4,ZERO,ZERO,PL(0,259)
 
1291
     $ ,COEFS)
 
1292
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,257),1,COEFS,1,1,WL(1,0,1
1270
1293
     $ ,259))
1271
 
      CALL MP_VVVV4L2P0_1(PL(0,215),W(1,1),W(1,2),GC_6,ZERO,ZERO,PL(0
1272
 
     $ ,260),COEFS)
1273
 
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,215),4,COEFS,4,4,WL(1,0,1
 
1294
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,259),2,1,1,1,1,392,H)
 
1295
C     Coefficient construction for loop diagram with ID 131
 
1296
      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
1274
1298
     $ ,260))
1275
 
      CALL MP_FFV1L3_2(PL(0,258),W(1,8),GC_5,MDL_MT,MDL_WT,PL(0,261)
 
1299
      CALL MP_GHGHGL1_2(PL(0,260),W(1,2),GC_4,ZERO,ZERO,PL(0,261)
1276
1300
     $ ,COEFS)
1277
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,258),4,COEFS,4,4,WL(1,0,1
 
1301
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,260),1,COEFS,1,1,WL(1,0,1
1278
1302
     $ ,261))
1279
 
      CALL MP_FFV1L3_2(PL(0,259),W(1,8),GC_5,MDL_MT,MDL_WT,PL(0,262)
 
1303
      CALL MP_GHGHGL1_2(PL(0,261),W(1,13),GC_4,ZERO,ZERO,PL(0,262)
1280
1304
     $ ,COEFS)
1281
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,259),4,COEFS,4,4,WL(1,0,1
 
1305
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,261),1,COEFS,1,1,WL(1,0,1
1282
1306
     $ ,262))
1283
 
      CALL MP_FFV1L3_2(PL(0,260),W(1,8),GC_5,MDL_MT,MDL_WT,PL(0,263)
 
1307
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,262),3,1,2,1,1,393,H)
 
1308
C     Coefficient construction for loop diagram with ID 132
 
1309
      CALL MP_GHGHGL1_2(PL(0,261),W(1,14),GC_4,ZERO,ZERO,PL(0,263)
1284
1310
     $ ,COEFS)
1285
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,260),4,COEFS,4,4,WL(1,0,1
 
1311
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,261),1,COEFS,1,1,WL(1,0,1
1286
1312
     $ ,263))
1287
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,261),1,4,58,1,384,H)
1288
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,262),1,4,58,1,385,H)
1289
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,263),1,4,58,1,386,H)
1290
 
C     Coefficient construction for loop diagram with ID 137
1291
 
      CALL MP_VVV1L2P0_1(PL(0,0),W(1,6),GC_4,ZERO,ZERO,PL(0,264),COEFS)
1292
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
 
1313
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,263),3,1,2,1,1,394,H)
 
1314
C     Coefficient construction for loop diagram with ID 133
 
1315
      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
1293
1317
     $ ,264))
1294
 
      CALL MP_VVV1L2P0_1(PL(0,264),W(1,13),GC_4,ZERO,ZERO,PL(0,265)
 
1318
      CALL MP_GHGHGL2_1(PL(0,264),W(1,2),GC_4,ZERO,ZERO,PL(0,265)
1295
1319
     $ ,COEFS)
1296
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,264),4,COEFS,4,4,WL(1,0,1
 
1320
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,264),1,COEFS,1,1,WL(1,0,1
1297
1321
     $ ,265))
1298
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,265),2,4,1,2,387,H)
1299
 
C     Coefficient construction for loop diagram with ID 138
1300
 
      CALL MP_VVV1L2P0_1(PL(0,264),W(1,14),GC_4,ZERO,ZERO,PL(0,266)
 
1322
      CALL MP_GHGHGL2_1(PL(0,265),W(1,13),GC_4,ZERO,ZERO,PL(0,266)
1301
1323
     $ ,COEFS)
1302
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,264),4,COEFS,4,4,WL(1,0,1
 
1324
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,265),1,COEFS,1,1,WL(1,0,1
1303
1325
     $ ,266))
1304
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,266),2,4,1,2,388,H)
1305
 
C     Coefficient construction for loop diagram with ID 139
1306
 
      CALL MP_VVV1L2P0_1(PL(0,171),W(1,13),GC_4,ZERO,ZERO,PL(0,267)
 
1326
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,266),3,1,2,1,1,395,H)
 
1327
C     Coefficient construction for loop diagram with ID 134
 
1328
      CALL MP_GHGHGL2_1(PL(0,265),W(1,14),GC_4,ZERO,ZERO,PL(0,267)
1307
1329
     $ ,COEFS)
1308
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,171),4,COEFS,4,4,WL(1,0,1
 
1330
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,265),1,COEFS,1,1,WL(1,0,1
1309
1331
     $ ,267))
1310
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,267),3,4,2,1,389,H)
1311
 
C     Coefficient construction for loop diagram with ID 140
1312
 
      CALL MP_VVV1L2P0_1(PL(0,171),W(1,14),GC_4,ZERO,ZERO,PL(0,268)
1313
 
     $ ,COEFS)
1314
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,171),4,COEFS,4,4,WL(1,0,1
1315
 
     $ ,268))
1316
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,268),3,4,2,1,390,H)
1317
 
C     Coefficient construction for loop diagram with ID 141
1318
 
      CALL MP_VVVV1L2P0_1(PL(0,146),W(1,13),W(1,2),GC_6,ZERO,ZERO,PL(0
1319
 
     $ ,269),COEFS)
1320
 
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,146),4,COEFS,4,4,WL(1,0,1
1321
 
     $ ,269))
1322
 
      CALL MP_VVVV3L2P0_1(PL(0,146),W(1,13),W(1,2),GC_6,ZERO,ZERO,PL(0
1323
 
     $ ,270),COEFS)
1324
 
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,146),4,COEFS,4,4,WL(1,0,1
1325
 
     $ ,270))
1326
 
      CALL MP_VVVV4L2P0_1(PL(0,146),W(1,13),W(1,2),GC_6,ZERO,ZERO,PL(0
1327
 
     $ ,271),COEFS)
1328
 
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,146),4,COEFS,4,4,WL(1,0,1
1329
 
     $ ,271))
1330
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,269),1,4,76,2,391,H)
1331
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,270),1,4,76,2,392,H)
1332
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,271),1,4,76,2,393,H)
1333
 
C     Coefficient construction for loop diagram with ID 142
1334
 
      CALL MP_VVVV1L2P0_1(PL(0,146),W(1,14),W(1,2),GC_6,ZERO,ZERO,PL(0
1335
 
     $ ,272),COEFS)
1336
 
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,146),4,COEFS,4,4,WL(1,0,1
1337
 
     $ ,272))
1338
 
      CALL MP_VVVV3L2P0_1(PL(0,146),W(1,14),W(1,2),GC_6,ZERO,ZERO,PL(0
1339
 
     $ ,273),COEFS)
1340
 
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,146),4,COEFS,4,4,WL(1,0,1
1341
 
     $ ,273))
1342
 
      CALL MP_VVVV4L2P0_1(PL(0,146),W(1,14),W(1,2),GC_6,ZERO,ZERO,PL(0
1343
 
     $ ,274),COEFS)
1344
 
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,146),4,COEFS,4,4,WL(1,0,1
1345
 
     $ ,274))
1346
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,272),1,4,76,2,394,H)
1347
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,273),1,4,76,2,395,H)
1348
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,274),1,4,76,2,396,H)
1349
 
C     Coefficient construction for loop diagram with ID 143
1350
 
      CALL MP_VVVV1L2P0_1(PL(0,80),W(1,13),W(1,1),GC_6,ZERO,ZERO,PL(0
1351
 
     $ ,275),COEFS)
1352
 
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,80),4,COEFS,4,4,WL(1,0,1
1353
 
     $ ,275))
1354
 
      CALL MP_VVVV3L2P0_1(PL(0,80),W(1,13),W(1,1),GC_6,ZERO,ZERO,PL(0
1355
 
     $ ,276),COEFS)
1356
 
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,80),4,COEFS,4,4,WL(1,0,1
1357
 
     $ ,276))
1358
 
      CALL MP_VVVV4L2P0_1(PL(0,80),W(1,13),W(1,1),GC_6,ZERO,ZERO,PL(0
1359
 
     $ ,277),COEFS)
1360
 
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,80),4,COEFS,4,4,WL(1,0,1
1361
 
     $ ,277))
1362
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,275),1,4,77,2,397,H)
1363
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,276),1,4,77,2,398,H)
1364
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,277),1,4,77,2,399,H)
1365
 
C     Coefficient construction for loop diagram with ID 144
1366
 
      CALL MP_VVVV1L2P0_1(PL(0,80),W(1,14),W(1,1),GC_6,ZERO,ZERO,PL(0
1367
 
     $ ,278),COEFS)
1368
 
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,80),4,COEFS,4,4,WL(1,0,1
1369
 
     $ ,278))
1370
 
      CALL MP_VVVV3L2P0_1(PL(0,80),W(1,14),W(1,1),GC_6,ZERO,ZERO,PL(0
1371
 
     $ ,279),COEFS)
1372
 
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,80),4,COEFS,4,4,WL(1,0,1
1373
 
     $ ,279))
1374
 
      CALL MP_VVVV4L2P0_1(PL(0,80),W(1,14),W(1,1),GC_6,ZERO,ZERO,PL(0
1375
 
     $ ,280),COEFS)
1376
 
      CALL MP_ML5_0_UPDATE_WL_1_0(WL(1,0,1,80),4,COEFS,4,4,WL(1,0,1
1377
 
     $ ,280))
1378
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,278),1,4,77,2,400,H)
1379
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,279),1,4,77,2,401,H)
1380
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,280),1,4,77,2,402,H)
1381
 
C     Coefficient construction for loop diagram with ID 145
1382
 
      CALL MP_VVVV1L2P0_1(PL(0,0),W(1,1),W(1,2),GC_6,ZERO,ZERO,PL(0
1383
 
     $ ,281),COEFS)
1384
 
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
1385
 
     $ ,281))
1386
 
      CALL MP_VVVV3L2P0_1(PL(0,0),W(1,1),W(1,2),GC_6,ZERO,ZERO,PL(0
1387
 
     $ ,282),COEFS)
1388
 
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
1389
 
     $ ,282))
1390
 
      CALL MP_VVVV4L2P0_1(PL(0,0),W(1,1),W(1,2),GC_6,ZERO,ZERO,PL(0
1391
 
     $ ,283),COEFS)
1392
 
      CALL MP_ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
1393
 
     $ ,283))
1394
 
      CALL MP_VVV1L2P0_1(PL(0,281),W(1,13),GC_4,ZERO,ZERO,PL(0,284)
1395
 
     $ ,COEFS)
1396
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,281),4,COEFS,4,4,WL(1,0,1
1397
 
     $ ,284))
1398
 
      CALL MP_VVV1L2P0_1(PL(0,282),W(1,13),GC_4,ZERO,ZERO,PL(0,285)
1399
 
     $ ,COEFS)
1400
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,282),4,COEFS,4,4,WL(1,0,1
1401
 
     $ ,285))
1402
 
      CALL MP_VVV1L2P0_1(PL(0,283),W(1,13),GC_4,ZERO,ZERO,PL(0,286)
1403
 
     $ ,COEFS)
1404
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,283),4,COEFS,4,4,WL(1,0,1
1405
 
     $ ,286))
1406
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,284),1,4,1,2,403,H)
1407
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,285),1,4,1,2,404,H)
1408
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,286),1,4,1,2,405,H)
1409
 
C     Coefficient construction for loop diagram with ID 146
1410
 
      CALL MP_VVV1L2P0_1(PL(0,281),W(1,14),GC_4,ZERO,ZERO,PL(0,287)
1411
 
     $ ,COEFS)
1412
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,281),4,COEFS,4,4,WL(1,0,1
1413
 
     $ ,287))
1414
 
      CALL MP_VVV1L2P0_1(PL(0,282),W(1,14),GC_4,ZERO,ZERO,PL(0,288)
1415
 
     $ ,COEFS)
1416
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,282),4,COEFS,4,4,WL(1,0,1
1417
 
     $ ,288))
1418
 
      CALL MP_VVV1L2P0_1(PL(0,283),W(1,14),GC_4,ZERO,ZERO,PL(0,289)
1419
 
     $ ,COEFS)
1420
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,283),4,COEFS,4,4,WL(1,0,1
1421
 
     $ ,289))
1422
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,287),1,4,1,2,406,H)
1423
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,288),1,4,1,2,407,H)
1424
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,289),1,4,1,2,408,H)
1425
 
C     Coefficient construction for loop diagram with ID 147
1426
 
      CALL MP_GHGHGL2_1(PL(0,0),W(1,6),GC_4,ZERO,ZERO,PL(0,290),COEFS)
1427
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),1,COEFS,1,1,WL(1,0,1
1428
 
     $ ,290))
1429
 
      CALL MP_GHGHGL2_1(PL(0,290),W(1,13),GC_4,ZERO,ZERO,PL(0,291)
1430
 
     $ ,COEFS)
1431
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,290),1,COEFS,1,1,WL(1,0,1
1432
 
     $ ,291))
1433
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,291),2,1,1,1,409,H)
1434
 
C     Coefficient construction for loop diagram with ID 148
1435
 
      CALL MP_GHGHGL2_1(PL(0,290),W(1,14),GC_4,ZERO,ZERO,PL(0,292)
1436
 
     $ ,COEFS)
1437
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,290),1,COEFS,1,1,WL(1,0,1
1438
 
     $ ,292))
1439
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,292),2,1,1,1,410,H)
1440
 
C     Coefficient construction for loop diagram with ID 149
1441
 
      CALL MP_GHGHGL1_2(PL(0,0),W(1,1),GC_4,ZERO,ZERO,PL(0,293),COEFS)
1442
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),1,COEFS,1,1,WL(1,0,1
1443
 
     $ ,293))
1444
 
      CALL MP_GHGHGL1_2(PL(0,293),W(1,2),GC_4,ZERO,ZERO,PL(0,294)
1445
 
     $ ,COEFS)
1446
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,293),1,COEFS,1,1,WL(1,0,1
1447
 
     $ ,294))
1448
 
      CALL MP_GHGHGL1_2(PL(0,294),W(1,13),GC_4,ZERO,ZERO,PL(0,295)
1449
 
     $ ,COEFS)
1450
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,294),1,COEFS,1,1,WL(1,0,1
1451
 
     $ ,295))
1452
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,295),3,1,2,1,411,H)
1453
 
C     Coefficient construction for loop diagram with ID 150
1454
 
      CALL MP_GHGHGL1_2(PL(0,294),W(1,14),GC_4,ZERO,ZERO,PL(0,296)
1455
 
     $ ,COEFS)
1456
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,294),1,COEFS,1,1,WL(1,0,1
1457
 
     $ ,296))
1458
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,296),3,1,2,1,412,H)
1459
 
C     Coefficient construction for loop diagram with ID 151
1460
 
      CALL MP_GHGHGL2_1(PL(0,0),W(1,1),GC_4,ZERO,ZERO,PL(0,297),COEFS)
1461
 
      CALL MP_ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),1,COEFS,1,1,WL(1,0,1
1462
 
     $ ,297))
1463
 
      CALL MP_GHGHGL2_1(PL(0,297),W(1,2),GC_4,ZERO,ZERO,PL(0,298)
1464
 
     $ ,COEFS)
1465
 
      CALL MP_ML5_0_UPDATE_WL_1_1(WL(1,0,1,297),1,COEFS,1,1,WL(1,0,1
1466
 
     $ ,298))
1467
 
      CALL MP_GHGHGL2_1(PL(0,298),W(1,13),GC_4,ZERO,ZERO,PL(0,299)
1468
 
     $ ,COEFS)
1469
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,298),1,COEFS,1,1,WL(1,0,1
1470
 
     $ ,299))
1471
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,299),3,1,2,1,413,H)
1472
 
C     Coefficient construction for loop diagram with ID 152
1473
 
      CALL MP_GHGHGL2_1(PL(0,298),W(1,14),GC_4,ZERO,ZERO,PL(0,300)
1474
 
     $ ,COEFS)
1475
 
      CALL MP_ML5_0_UPDATE_WL_2_1(WL(1,0,1,298),1,COEFS,1,1,WL(1,0,1
1476
 
     $ ,300))
1477
 
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,300),3,1,2,1,414,H)
 
1332
      CALL MP_ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,267),3,1,2,1,1,396,H)
1478
1333
 
1479
1334
      GOTO 1001
1480
1335
 4000 CONTINUE