← Back to branch summary

~maddevelopers/mg5amcnlo/new_clustering

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/long_ML_SMQCD_optimized/gg_wmtbx/coef_construction_1.f

  • Committer: Rikkert Frederix
  • Date: 2021-09-09 15:51:40 UTC
  • mfrom: (78.75.502 3.2.1)
  • Revision ID: frederix@physik.uzh.ch-20210909155140-rg6umfq68h6h47cf
merge with 3.2.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/long_ML_SMQCD_optimized/gg_wmtbx/coef_construction_1.f
96
96
      ENDIF
97
97
 
98
98
C     Coefficient construction for loop diagram with ID 9
99
 
      CALL FFV1L2_1(PL(0,0),W(1,6),GC_5,ZERO,ZERO,PL(0,1),COEFS)
100
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,1))
101
 
      CALL FFV1L2_1(PL(0,1),W(1,13),GC_5,ZERO,ZERO,PL(0,2),COEFS)
102
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,1),4,COEFS,4,4,WL(1,0,1,2))
103
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,2),2,4,1,1,4,253,H)
 
99
      CALL FFV1L1P0_3(PL(0,0),W(1,7),GC_5,ZERO,ZERO,PL(0,1),COEFS)
 
100
      CALL ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,1))
 
101
      CALL FFV1L3_2(PL(0,1),W(1,13),GC_5,MDL_MB,ZERO,PL(0,2),COEFS)
 
102
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,1),4,COEFS,4,4,WL(1,0,1,2))
 
103
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,2),1,4,1,1,1,253,H)
104
104
C     Coefficient construction for loop diagram with ID 10
105
 
      CALL FFV1L2_1(PL(0,1),W(1,14),GC_5,ZERO,ZERO,PL(0,3),COEFS)
106
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,1),4,COEFS,4,4,WL(1,0,1,3))
107
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,3),2,4,1,1,4,254,H)
 
105
      CALL VVV1L2P0_1(PL(0,0),W(1,6),GC_4,ZERO,ZERO,PL(0,3),COEFS)
 
106
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,3))
 
107
      CALL VVV1L2P0_1(PL(0,3),W(1,14),GC_4,ZERO,ZERO,PL(0,4),COEFS)
 
108
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,3),4,COEFS,4,4,WL(1,0,1,4))
 
109
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,4),2,4,2,2,1,254,H)
108
110
C     Coefficient construction for loop diagram with ID 11
109
 
      CALL FFV1L1_2(PL(0,0),W(1,1),GC_5,ZERO,ZERO,PL(0,4),COEFS)
110
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,4))
111
 
      CALL FFV1L1_2(PL(0,4),W(1,2),GC_5,ZERO,ZERO,PL(0,5),COEFS)
112
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,4),4,COEFS,4,4,WL(1,0,1,5))
113
 
      CALL FFV1L1_2(PL(0,5),W(1,13),GC_5,ZERO,ZERO,PL(0,6),COEFS)
114
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,5),4,COEFS,4,4,WL(1,0,1,6))
115
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,6),3,4,2,1,4,255,H)
 
111
      CALL FFV1L2P0_3(PL(0,0),W(1,5),GC_5,ZERO,ZERO,PL(0,5),COEFS)
 
112
      CALL ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,5))
 
113
      CALL VVV1L2P0_1(PL(0,5),W(1,6),GC_4,ZERO,ZERO,PL(0,6),COEFS)
 
114
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,5),4,COEFS,4,4,WL(1,0,1,6))
 
115
      CALL FFV1L3_1(PL(0,6),W(1,7),GC_5,MDL_MB,ZERO,PL(0,7),COEFS)
 
116
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,6),4,COEFS,4,4,WL(1,0,1,7))
 
117
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,7),2,4,3,1,1,255,H)
116
118
C     Coefficient construction for loop diagram with ID 12
117
 
      CALL FFV1L1_2(PL(0,5),W(1,14),GC_5,ZERO,ZERO,PL(0,7),COEFS)
118
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,5),4,COEFS,4,4,WL(1,0,1,7))
119
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,7),3,4,2,1,4,256,H)
120
 
C     Coefficient construction for loop diagram with ID 13
121
 
      CALL FFV1L2_1(PL(0,0),W(1,1),GC_5,ZERO,ZERO,PL(0,8),COEFS)
 
119
      CALL FFV1L3_2(PL(0,0),W(1,5),GC_5,MDL_MB,ZERO,PL(0,8),COEFS)
122
120
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,8))
123
 
      CALL FFV1L2_1(PL(0,8),W(1,2),GC_5,ZERO,ZERO,PL(0,9),COEFS)
 
121
      CALL FFV1L1_2(PL(0,8),W(1,6),GC_5,MDL_MB,ZERO,PL(0,9),COEFS)
124
122
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,8),4,COEFS,4,4,WL(1,0,1,9))
125
 
      CALL FFV1L2_1(PL(0,9),W(1,13),GC_5,ZERO,ZERO,PL(0,10),COEFS)
126
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,9),4,COEFS,4,4,WL(1,0,1,10))
127
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,10),3,4,2,1,4,257,H)
 
123
      CALL FFV1L1P0_3(PL(0,9),W(1,7),GC_5,ZERO,ZERO,PL(0,10),COEFS)
 
124
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,9),4,COEFS,4,4,WL(1,0,1,10))
 
125
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,10),2,4,4,1,1,256,H)
 
126
C     Coefficient construction for loop diagram with ID 13
 
127
      CALL FFV1L2P0_3(PL(0,0),W(1,8),GC_5,ZERO,ZERO,PL(0,11),COEFS)
 
128
      CALL ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,11))
 
129
      CALL FFV1L3_1(PL(0,11),W(1,15),GC_5,MDL_MT,MDL_WT,PL(0,12),COEFS)
 
130
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,11),4,COEFS,4,4,WL(1,0,1,12))
 
131
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,12),1,4,5,1,1,257,H)
128
132
C     Coefficient construction for loop diagram with ID 14
129
 
      CALL FFV1L2_1(PL(0,9),W(1,14),GC_5,ZERO,ZERO,PL(0,11),COEFS)
130
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,9),4,COEFS,4,4,WL(1,0,1,11))
131
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,11),3,4,2,1,4,258,H)
 
133
      CALL VVV1L2P0_1(PL(0,3),W(1,16),GC_4,ZERO,ZERO,PL(0,13),COEFS)
 
134
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,3),4,COEFS,4,4,WL(1,0,1,13))
 
135
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,13),2,4,2,2,1,258,H)
132
136
C     Coefficient construction for loop diagram with ID 15
133
 
      CALL FFV1L1P0_3(PL(0,0),W(1,7),GC_5,ZERO,ZERO,PL(0,12),COEFS)
134
 
      CALL ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,12))
135
 
      CALL FFV1L3_2(PL(0,12),W(1,15),GC_5,MDL_MB,ZERO,PL(0,13),COEFS)
136
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,12),4,COEFS,4,4,WL(1,0,1,13))
137
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,13),1,4,3,1,1,259,H)
 
137
      CALL FFV1L1P0_3(PL(0,0),W(1,4),GC_5,ZERO,ZERO,PL(0,14),COEFS)
 
138
      CALL ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,14))
 
139
      CALL VVV1L2P0_1(PL(0,14),W(1,6),GC_4,ZERO,ZERO,PL(0,15),COEFS)
 
140
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,14),4,COEFS,4,4,WL(1,0,1,15))
 
141
      CALL FFV1L3_2(PL(0,15),W(1,8),GC_5,MDL_MT,MDL_WT,PL(0,16),COEFS)
 
142
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,15),4,COEFS,4,4,WL(1,0,1,16))
 
143
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,16),2,4,6,1,1,259,H)
138
144
C     Coefficient construction for loop diagram with ID 16
139
 
      CALL FFV1L2_1(PL(0,0),W(1,6),GC_5,MDL_MB,ZERO,PL(0,14),COEFS)
140
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,14))
141
 
      CALL FFV1L2_1(PL(0,14),W(1,13),GC_5,MDL_MB,ZERO,PL(0,15),COEFS)
142
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,14),4,COEFS,4,4,WL(1,0,1,15))
143
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,15),2,4,4,1,1,260,H)
 
145
      CALL FFV1L3_1(PL(0,0),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,17),COEFS)
 
146
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,17))
 
147
      CALL FFV1L2_1(PL(0,17),W(1,6),GC_5,MDL_MT,MDL_WT,PL(0,18),COEFS)
 
148
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,17),4,COEFS,4,4,WL(1,0,1,18))
 
149
      CALL FFV1L2P0_3(PL(0,18),W(1,8),GC_5,ZERO,ZERO,PL(0,19),COEFS)
 
150
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,18),4,COEFS,4,4,WL(1,0,1,19))
 
151
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,19),2,4,7,1,1,260,H)
144
152
C     Coefficient construction for loop diagram with ID 17
145
 
      CALL FFV1L3_2(PL(0,0),W(1,5),GC_5,MDL_MB,ZERO,PL(0,16),COEFS)
146
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,16))
147
 
      CALL FFV1L1_2(PL(0,16),W(1,6),GC_5,MDL_MB,ZERO,PL(0,17),COEFS)
148
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,16),4,COEFS,4,4,WL(1,0,1,17))
149
 
      CALL FFV1L1P0_3(PL(0,17),W(1,7),GC_5,ZERO,ZERO,PL(0,18),COEFS)
150
 
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,17),4,COEFS,4,4,WL(1,0,1,18))
151
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,18),2,4,5,1,1,261,H)
 
153
      CALL FFV2L1_2(PL(0,0),W(1,3),GC_11,MDL_MT,MDL_WT,PL(0,20),COEFS)
 
154
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,20))
 
155
      CALL FFV1L1P0_3(PL(0,20),W(1,4),GC_5,ZERO,ZERO,PL(0,21),COEFS)
 
156
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,20),4,COEFS,4,4,WL(1,0,1,21))
 
157
      CALL FFV1L3_2(PL(0,21),W(1,13),GC_5,MDL_MB,ZERO,PL(0,22),COEFS)
 
158
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,21),4,COEFS,4,4,WL(1,0,1,22))
 
159
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,22),2,4,8,1,1,261,H)
152
160
C     Coefficient construction for loop diagram with ID 18
153
 
      CALL FFV1L2P0_3(PL(0,0),W(1,5),GC_5,ZERO,ZERO,PL(0,19),COEFS)
154
 
      CALL ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,19))
155
 
      CALL VVV1L2P0_1(PL(0,19),W(1,6),GC_4,ZERO,ZERO,PL(0,20),COEFS)
156
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,19),4,COEFS,4,4,WL(1,0,1,20))
157
 
      CALL FFV1L3_1(PL(0,20),W(1,7),GC_5,MDL_MB,ZERO,PL(0,21),COEFS)
158
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,20),4,COEFS,4,4,WL(1,0,1,21))
159
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,21),2,4,6,1,1,262,H)
 
161
      CALL VVV1L2P0_1(PL(0,21),W(1,6),GC_4,ZERO,ZERO,PL(0,23),COEFS)
 
162
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,21),4,COEFS,4,4,WL(1,0,1,23))
 
163
      CALL FFV1L3_2(PL(0,23),W(1,5),GC_5,MDL_MB,ZERO,PL(0,24),COEFS)
 
164
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,23),4,COEFS,4,4,WL(1,0,1,24))
 
165
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,24),3,4,9,1,1,262,H)
160
166
C     Coefficient construction for loop diagram with ID 19
161
 
      CALL FFV1L2_1(PL(0,14),W(1,14),GC_5,MDL_MB,ZERO,PL(0,22),COEFS)
162
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,14),4,COEFS,4,4,WL(1,0,1,22))
163
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,22),2,4,4,1,1,263,H)
 
167
      CALL FFV2L2_1(PL(0,0),W(1,3),GC_11,MDL_MB,ZERO,PL(0,25),COEFS)
 
168
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,25))
 
169
      CALL FFV1L2P0_3(PL(0,25),W(1,5),GC_5,ZERO,ZERO,PL(0,26),COEFS)
 
170
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,25),4,COEFS,4,4,WL(1,0,1,26))
 
171
      CALL FFV1L3_1(PL(0,26),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,27),COEFS)
 
172
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,26),4,COEFS,4,4,WL(1,0,1,27))
 
173
      CALL FFV1L2_1(PL(0,27),W(1,6),GC_5,MDL_MT,MDL_WT,PL(0,28),COEFS)
 
174
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,27),4,COEFS,4,4,WL(1,0,1,28))
 
175
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,28),3,4,10,1,1,263,H)
164
176
C     Coefficient construction for loop diagram with ID 20
165
 
      CALL FFV2L1_2(PL(0,0),W(1,3),GC_47,MDL_MT,MDL_WT,PL(0,23),COEFS)
166
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,23))
167
 
      CALL FFV1L1P0_3(PL(0,23),W(1,4),GC_5,ZERO,ZERO,PL(0,24),COEFS)
168
 
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,23),4,COEFS,4,4,WL(1,0,1,24))
169
 
      CALL FFV1L3_2(PL(0,24),W(1,15),GC_5,MDL_MB,ZERO,PL(0,25),COEFS)
170
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,24),4,COEFS,4,4,WL(1,0,1,25))
171
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,25),2,4,7,1,1,264,H)
 
177
      CALL FFV1L3_2(PL(0,21),W(1,5),GC_5,MDL_MB,ZERO,PL(0,29),COEFS)
 
178
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,21),4,COEFS,4,4,WL(1,0,1,29))
 
179
      CALL FFV1L1_2(PL(0,29),W(1,6),GC_5,MDL_MB,ZERO,PL(0,30),COEFS)
 
180
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,29),4,COEFS,4,4,WL(1,0,1,30))
 
181
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,30),3,4,11,1,1,264,H)
172
182
C     Coefficient construction for loop diagram with ID 21
173
 
      CALL FFV1L3_2(PL(0,24),W(1,5),GC_5,MDL_MB,ZERO,PL(0,26),COEFS)
174
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,24),4,COEFS,4,4,WL(1,0,1,26))
175
 
      CALL FFV1L1_2(PL(0,26),W(1,6),GC_5,MDL_MB,ZERO,PL(0,27),COEFS)
176
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,26),4,COEFS,4,4,WL(1,0,1,27))
177
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,27),3,4,8,1,1,265,H)
 
183
      CALL FFV1L3_1(PL(0,26),W(1,15),GC_5,MDL_MT,MDL_WT,PL(0,31),COEFS)
 
184
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,26),4,COEFS,4,4,WL(1,0,1,31))
 
185
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,31),2,4,12,1,1,265,H)
178
186
C     Coefficient construction for loop diagram with ID 22
179
 
      CALL FFV2L2_1(PL(0,0),W(1,3),GC_47,MDL_MB,ZERO,PL(0,28),COEFS)
180
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,28))
181
 
      CALL FFV1L2P0_3(PL(0,28),W(1,5),GC_5,ZERO,ZERO,PL(0,29),COEFS)
182
 
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,28),4,COEFS,4,4,WL(1,0,1,29))
183
 
      CALL FFV1L3_1(PL(0,29),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,30),COEFS)
184
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,29),4,COEFS,4,4,WL(1,0,1,30))
185
 
      CALL FFV1L2_1(PL(0,30),W(1,6),GC_5,MDL_MT,MDL_WT,PL(0,31),COEFS)
186
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,30),4,COEFS,4,4,WL(1,0,1,31))
187
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,31),3,4,9,1,1,266,H)
 
187
      CALL FFV1L2P0_3(PL(0,0),W(1,10),GC_5,ZERO,ZERO,PL(0,32),COEFS)
 
188
      CALL ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,32))
 
189
      CALL FFV1L3_1(PL(0,32),W(1,17),GC_5,MDL_MB,ZERO,PL(0,33),COEFS)
 
190
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,32),4,COEFS,4,4,WL(1,0,1,33))
 
191
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,33),1,4,13,1,1,266,H)
188
192
C     Coefficient construction for loop diagram with ID 23
189
 
      CALL FFV1L3_1(PL(0,29),W(1,16),GC_5,MDL_MT,MDL_WT,PL(0,32),COEFS)
190
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,29),4,COEFS,4,4,WL(1,0,1,32))
191
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,32),2,4,10,1,1,267,H)
 
193
      CALL FFV1L1P0_3(PL(0,0),W(1,9),GC_5,ZERO,ZERO,PL(0,34),COEFS)
 
194
      CALL ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,34))
 
195
      CALL FFV1L3_2(PL(0,34),W(1,18),GC_5,MDL_MT,MDL_WT,PL(0,35),COEFS)
 
196
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,34),4,COEFS,4,4,WL(1,0,1,35))
 
197
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,35),1,4,14,1,1,267,H)
192
198
C     Coefficient construction for loop diagram with ID 24
193
 
      CALL VVV1L2P0_1(PL(0,24),W(1,6),GC_4,ZERO,ZERO,PL(0,33),COEFS)
194
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,24),4,COEFS,4,4,WL(1,0,1,33))
195
 
      CALL FFV1L3_2(PL(0,33),W(1,5),GC_5,MDL_MB,ZERO,PL(0,34),COEFS)
196
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,33),4,COEFS,4,4,WL(1,0,1,34))
197
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,34),3,4,11,1,1,268,H)
 
199
      CALL FFV1L1P0_3(PL(0,20),W(1,9),GC_5,ZERO,ZERO,PL(0,36),COEFS)
 
200
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,20),4,COEFS,4,4,WL(1,0,1,36))
 
201
      CALL FFV1L3_2(PL(0,36),W(1,10),GC_5,MDL_MB,ZERO,PL(0,37),COEFS)
 
202
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,36),4,COEFS,4,4,WL(1,0,1,37))
 
203
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,37),2,4,15,1,1,268,H)
198
204
C     Coefficient construction for loop diagram with ID 25
199
 
      CALL FFV1L2P0_3(PL(0,0),W(1,10),GC_5,ZERO,ZERO,PL(0,35),COEFS)
200
 
      CALL ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,35))
201
 
      CALL FFV1L3_1(PL(0,35),W(1,17),GC_5,MDL_MB,ZERO,PL(0,36),COEFS)
202
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,35),4,COEFS,4,4,WL(1,0,1,36))
203
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,36),1,4,12,1,1,269,H)
 
205
      CALL VVV1L2P0_1(PL(0,0),W(1,2),GC_4,ZERO,ZERO,PL(0,38),COEFS)
 
206
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,38))
 
207
      CALL FFV1L3_2(PL(0,38),W(1,5),GC_5,MDL_MB,ZERO,PL(0,39),COEFS)
 
208
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,38),4,COEFS,4,4,WL(1,0,1,39))
 
209
      CALL FFV1L1P0_3(PL(0,39),W(1,17),GC_5,ZERO,ZERO,PL(0,40),COEFS)
 
210
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,39),4,COEFS,4,4,WL(1,0,1,40))
 
211
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,40),2,4,16,1,1,269,H)
204
212
C     Coefficient construction for loop diagram with ID 26
205
 
      CALL FFV1L1P0_3(PL(0,23),W(1,9),GC_5,ZERO,ZERO,PL(0,37),COEFS)
206
 
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,23),4,COEFS,4,4,WL(1,0,1,37))
207
 
      CALL FFV1L3_2(PL(0,37),W(1,10),GC_5,MDL_MB,ZERO,PL(0,38),COEFS)
208
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,37),4,COEFS,4,4,WL(1,0,1,38))
209
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,38),2,4,13,1,1,270,H)
 
213
      CALL FFV2L1_2(PL(0,39),W(1,3),GC_11,MDL_MT,MDL_WT,PL(0,41),COEFS)
 
214
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,39),4,COEFS,4,4,WL(1,0,1,41))
 
215
      CALL FFV1L1P0_3(PL(0,41),W(1,9),GC_5,ZERO,ZERO,PL(0,42),COEFS)
 
216
      CALL ML5_0_UPDATE_WL_3_0(WL(1,0,1,41),4,COEFS,4,4,WL(1,0,1,42))
 
217
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,42),3,4,17,1,1,270,H)
210
218
C     Coefficient construction for loop diagram with ID 27
211
 
      CALL FFV1L2_1(PL(0,0),W(1,2),GC_5,MDL_MB,ZERO,PL(0,39),COEFS)
212
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,39))
213
 
      CALL FFV1L2P0_3(PL(0,39),W(1,5),GC_5,ZERO,ZERO,PL(0,40),COEFS)
214
 
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,39),4,COEFS,4,4,WL(1,0,1,40))
215
 
      CALL FFV1L3_1(PL(0,40),W(1,17),GC_5,MDL_MB,ZERO,PL(0,41),COEFS)
216
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,40),4,COEFS,4,4,WL(1,0,1,41))
217
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,41),2,4,14,1,1,271,H)
 
219
      CALL FFV1L3_1(PL(0,38),W(1,9),GC_5,MDL_MT,MDL_WT,PL(0,43),COEFS)
 
220
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,38),4,COEFS,4,4,WL(1,0,1,43))
 
221
      CALL FFV1L2P0_3(PL(0,43),W(1,8),GC_5,ZERO,ZERO,PL(0,44),COEFS)
 
222
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,43),4,COEFS,4,4,WL(1,0,1,44))
 
223
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,44),2,4,18,1,1,271,H)
218
224
C     Coefficient construction for loop diagram with ID 28
219
 
      CALL FFV1L1_2(PL(0,0),W(1,2),GC_5,MDL_MB,ZERO,PL(0,42),COEFS)
220
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,42))
221
 
      CALL FFV2L1_2(PL(0,42),W(1,3),GC_47,MDL_MT,MDL_WT,PL(0,43),COEFS)
222
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,42),4,COEFS,4,4,WL(1,0,1,43))
223
 
      CALL FFV1L1P0_3(PL(0,43),W(1,9),GC_5,ZERO,ZERO,PL(0,44),COEFS)
224
 
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,43),4,COEFS,4,4,WL(1,0,1,44))
225
 
      CALL FFV1L3_2(PL(0,44),W(1,5),GC_5,MDL_MB,ZERO,PL(0,45),COEFS)
226
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,44),4,COEFS,4,4,WL(1,0,1,45))
227
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,45),3,4,15,1,1,272,H)
 
225
      CALL FFV1L3_1(PL(0,11),W(1,19),GC_5,MDL_MT,MDL_WT,PL(0,45),COEFS)
 
226
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,11),4,COEFS,4,4,WL(1,0,1,45))
 
227
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,45),1,4,5,1,1,272,H)
228
228
C     Coefficient construction for loop diagram with ID 29
229
 
      CALL FFV1L3_1(PL(0,29),W(1,18),GC_5,MDL_MT,MDL_WT,PL(0,46),COEFS)
230
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,29),4,COEFS,4,4,WL(1,0,1,46))
231
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,46),2,4,10,1,1,273,H)
 
229
      CALL FFV1L3_2(PL(0,34),W(1,20),GC_5,MDL_MT,MDL_WT,PL(0,46),COEFS)
 
230
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,34),4,COEFS,4,4,WL(1,0,1,46))
 
231
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,46),1,4,14,1,1,273,H)
232
232
C     Coefficient construction for loop diagram with ID 30
233
 
      CALL VVV1L2P0_1(PL(0,0),W(1,2),GC_4,ZERO,ZERO,PL(0,47),COEFS)
 
233
      CALL FFV1L1_2(PL(0,0),W(1,2),GC_5,MDL_MT,MDL_WT,PL(0,47),COEFS)
234
234
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,47))
235
 
      CALL FFV1L3_2(PL(0,47),W(1,5),GC_5,MDL_MB,ZERO,PL(0,48),COEFS)
236
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,47),4,COEFS,4,4,WL(1,0,1,48))
237
 
      CALL FFV2L1_2(PL(0,48),W(1,3),GC_47,MDL_MT,MDL_WT,PL(0,49),COEFS)
238
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,48),4,COEFS,4,4,WL(1,0,1,49))
239
 
      CALL FFV1L1P0_3(PL(0,49),W(1,9),GC_5,ZERO,ZERO,PL(0,50),COEFS)
240
 
      CALL ML5_0_UPDATE_WL_3_0(WL(1,0,1,49),4,COEFS,4,4,WL(1,0,1,50))
241
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,50),3,4,16,1,1,274,H)
 
235
      CALL FFV1L1P0_3(PL(0,47),W(1,9),GC_5,ZERO,ZERO,PL(0,48),COEFS)
 
236
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,47),4,COEFS,4,4,WL(1,0,1,48))
 
237
      CALL FFV1L3_2(PL(0,48),W(1,8),GC_5,MDL_MT,MDL_WT,PL(0,49),COEFS)
 
238
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,48),4,COEFS,4,4,WL(1,0,1,49))
 
239
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,49),2,4,19,1,1,274,H)
242
240
C     Coefficient construction for loop diagram with ID 31
243
 
      CALL FFV1L2_1(PL(0,0),W(1,2),GC_5,MDL_MT,MDL_WT,PL(0,51),COEFS)
 
241
      CALL FFV1L3_1(PL(0,26),W(1,19),GC_5,MDL_MT,MDL_WT,PL(0,50),COEFS)
 
242
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,26),4,COEFS,4,4,WL(1,0,1,50))
 
243
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,50),2,4,12,1,1,275,H)
 
244
C     Coefficient construction for loop diagram with ID 32
 
245
      CALL FFV1L2_1(PL(0,0),W(1,2),GC_5,MDL_MB,ZERO,PL(0,51),COEFS)
244
246
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,51))
245
 
      CALL FFV2L2_1(PL(0,51),W(1,3),GC_47,MDL_MB,ZERO,PL(0,52),COEFS)
246
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,51),4,COEFS,4,4,WL(1,0,1,52))
247
 
      CALL FFV1L2P0_3(PL(0,52),W(1,5),GC_5,ZERO,ZERO,PL(0,53),COEFS)
248
 
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,52),4,COEFS,4,4,WL(1,0,1,53))
249
 
      CALL FFV1L3_1(PL(0,53),W(1,9),GC_5,MDL_MT,MDL_WT,PL(0,54),COEFS)
250
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,53),4,COEFS,4,4,WL(1,0,1,54))
251
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,54),3,4,17,1,1,275,H)
252
 
C     Coefficient construction for loop diagram with ID 32
253
 
      CALL FFV1L1P0_3(PL(0,48),W(1,17),GC_5,ZERO,ZERO,PL(0,55),COEFS)
254
 
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,48),4,COEFS,4,4,WL(1,0,1,55))
255
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,55),2,4,18,1,1,276,H)
 
247
      CALL FFV1L2P0_3(PL(0,51),W(1,5),GC_5,ZERO,ZERO,PL(0,52),COEFS)
 
248
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,51),4,COEFS,4,4,WL(1,0,1,52))
 
249
      CALL FFV1L3_1(PL(0,52),W(1,17),GC_5,MDL_MB,ZERO,PL(0,53),COEFS)
 
250
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,52),4,COEFS,4,4,WL(1,0,1,53))
 
251
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,53),2,4,20,1,1,276,H)
256
252
C     Coefficient construction for loop diagram with ID 33
257
 
      CALL FFV1L2P0_3(PL(0,0),W(1,11),GC_5,ZERO,ZERO,PL(0,56),COEFS)
258
 
      CALL ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,56))
259
 
      CALL FFV1L3_1(PL(0,56),W(1,19),GC_5,MDL_MB,ZERO,PL(0,57),COEFS)
260
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,56),4,COEFS,4,4,WL(1,0,1,57))
261
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,57),1,4,19,1,1,277,H)
 
253
      CALL FFV1L1_2(PL(0,0),W(1,2),GC_5,MDL_MB,ZERO,PL(0,54),COEFS)
 
254
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,54))
 
255
      CALL FFV2L1_2(PL(0,54),W(1,3),GC_11,MDL_MT,MDL_WT,PL(0,55),COEFS)
 
256
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,54),4,COEFS,4,4,WL(1,0,1,55))
 
257
      CALL FFV1L1P0_3(PL(0,55),W(1,9),GC_5,ZERO,ZERO,PL(0,56),COEFS)
 
258
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,55),4,COEFS,4,4,WL(1,0,1,56))
 
259
      CALL FFV1L3_2(PL(0,56),W(1,5),GC_5,MDL_MB,ZERO,PL(0,57),COEFS)
 
260
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,56),4,COEFS,4,4,WL(1,0,1,57))
 
261
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,57),3,4,21,1,1,277,H)
262
262
C     Coefficient construction for loop diagram with ID 34
263
 
      CALL FFV1L1P0_3(PL(0,23),W(1,12),GC_5,ZERO,ZERO,PL(0,58),COEFS)
264
 
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,23),4,COEFS,4,4,WL(1,0,1,58))
265
 
      CALL FFV1L3_2(PL(0,58),W(1,11),GC_5,MDL_MB,ZERO,PL(0,59),COEFS)
 
263
      CALL FFV1L2_1(PL(0,0),W(1,2),GC_5,MDL_MT,MDL_WT,PL(0,58),COEFS)
 
264
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,58))
 
265
      CALL FFV2L2_1(PL(0,58),W(1,3),GC_11,MDL_MB,ZERO,PL(0,59),COEFS)
266
266
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,58),4,COEFS,4,4,WL(1,0,1,59))
267
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,59),2,4,20,1,1,278,H)
 
267
      CALL FFV1L2P0_3(PL(0,59),W(1,5),GC_5,ZERO,ZERO,PL(0,60),COEFS)
 
268
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,59),4,COEFS,4,4,WL(1,0,1,60))
 
269
      CALL FFV1L3_1(PL(0,60),W(1,9),GC_5,MDL_MT,MDL_WT,PL(0,61),COEFS)
 
270
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,60),4,COEFS,4,4,WL(1,0,1,61))
 
271
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,61),3,4,22,1,1,278,H)
268
272
C     Coefficient construction for loop diagram with ID 35
269
 
      CALL FFV1L1P0_3(PL(0,42),W(1,7),GC_5,ZERO,ZERO,PL(0,60),COEFS)
270
 
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,42),4,COEFS,4,4,WL(1,0,1,60))
271
 
      CALL FFV1L3_2(PL(0,60),W(1,11),GC_5,MDL_MB,ZERO,PL(0,61),COEFS)
272
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,60),4,COEFS,4,4,WL(1,0,1,61))
273
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,61),2,4,21,1,1,279,H)
 
273
      CALL FFV1L1P0_3(PL(0,0),W(1,12),GC_5,ZERO,ZERO,PL(0,62),COEFS)
 
274
      CALL ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,62))
 
275
      CALL FFV1L3_2(PL(0,62),W(1,21),GC_5,MDL_MT,MDL_WT,PL(0,63),COEFS)
 
276
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,62),4,COEFS,4,4,WL(1,0,1,63))
 
277
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,63),1,4,23,1,1,279,H)
274
278
C     Coefficient construction for loop diagram with ID 36
275
 
      CALL FFV1L1P0_3(PL(0,43),W(1,4),GC_5,ZERO,ZERO,PL(0,62),COEFS)
276
 
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,43),4,COEFS,4,4,WL(1,0,1,62))
277
 
      CALL FFV1L3_2(PL(0,62),W(1,11),GC_5,MDL_MB,ZERO,PL(0,63),COEFS)
278
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,62),4,COEFS,4,4,WL(1,0,1,63))
279
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,63),3,4,22,1,1,280,H)
 
279
      CALL FFV1L2P0_3(PL(0,0),W(1,11),GC_5,ZERO,ZERO,PL(0,64),COEFS)
 
280
      CALL ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,64))
 
281
      CALL FFV1L3_1(PL(0,64),W(1,22),GC_5,MDL_MB,ZERO,PL(0,65),COEFS)
 
282
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,64),4,COEFS,4,4,WL(1,0,1,65))
 
283
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,65),1,4,24,1,1,280,H)
280
284
C     Coefficient construction for loop diagram with ID 37
281
 
      CALL FFV1L3_2(PL(0,12),W(1,20),GC_5,MDL_MB,ZERO,PL(0,64),COEFS)
282
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,12),4,COEFS,4,4,WL(1,0,1,64))
283
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,64),1,4,3,1,1,281,H)
 
285
      CALL FFV1L1P0_3(PL(0,20),W(1,12),GC_5,ZERO,ZERO,PL(0,66),COEFS)
 
286
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,20),4,COEFS,4,4,WL(1,0,1,66))
 
287
      CALL FFV1L3_2(PL(0,66),W(1,11),GC_5,MDL_MB,ZERO,PL(0,67),COEFS)
 
288
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,66),4,COEFS,4,4,WL(1,0,1,67))
 
289
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,67),2,4,25,1,1,281,H)
284
290
C     Coefficient construction for loop diagram with ID 38
285
 
      CALL FFV1L3_1(PL(0,56),W(1,21),GC_5,MDL_MB,ZERO,PL(0,65),COEFS)
286
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,56),4,COEFS,4,4,WL(1,0,1,65))
287
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,65),1,4,19,1,1,282,H)
 
291
      CALL FFV1L3_1(PL(0,38),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,68),COEFS)
 
292
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,38),4,COEFS,4,4,WL(1,0,1,68))
 
293
      CALL FFV1L2P0_3(PL(0,68),W(1,21),GC_5,ZERO,ZERO,PL(0,69),COEFS)
 
294
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,68),4,COEFS,4,4,WL(1,0,1,69))
 
295
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,69),2,4,26,1,1,282,H)
288
296
C     Coefficient construction for loop diagram with ID 39
289
 
      CALL FFV1L3_1(PL(0,47),W(1,7),GC_5,MDL_MB,ZERO,PL(0,66),COEFS)
290
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,47),4,COEFS,4,4,WL(1,0,1,66))
291
 
      CALL FFV1L2P0_3(PL(0,66),W(1,11),GC_5,ZERO,ZERO,PL(0,67),COEFS)
292
 
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,66),4,COEFS,4,4,WL(1,0,1,67))
293
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,67),2,4,23,1,1,283,H)
 
297
      CALL FFV2L2_1(PL(0,68),W(1,3),GC_11,MDL_MB,ZERO,PL(0,70),COEFS)
 
298
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,68),4,COEFS,4,4,WL(1,0,1,70))
 
299
      CALL FFV1L2P0_3(PL(0,70),W(1,11),GC_5,ZERO,ZERO,PL(0,71),COEFS)
 
300
      CALL ML5_0_UPDATE_WL_3_0(WL(1,0,1,70),4,COEFS,4,4,WL(1,0,1,71))
 
301
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,71),3,4,27,1,1,283,H)
294
302
C     Coefficient construction for loop diagram with ID 40
295
 
      CALL FFV1L3_2(PL(0,24),W(1,20),GC_5,MDL_MB,ZERO,PL(0,68),COEFS)
296
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,24),4,COEFS,4,4,WL(1,0,1,68))
297
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,68),2,4,7,1,1,284,H)
 
303
      CALL FFV1L3_1(PL(0,38),W(1,7),GC_5,MDL_MB,ZERO,PL(0,72),COEFS)
 
304
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,38),4,COEFS,4,4,WL(1,0,1,72))
 
305
      CALL FFV1L2P0_3(PL(0,72),W(1,11),GC_5,ZERO,ZERO,PL(0,73),COEFS)
 
306
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,72),4,COEFS,4,4,WL(1,0,1,73))
 
307
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,73),2,4,28,1,1,284,H)
298
308
C     Coefficient construction for loop diagram with ID 41
299
 
      CALL FFV1L2P0_3(PL(0,52),W(1,11),GC_5,ZERO,ZERO,PL(0,69),COEFS)
300
 
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,52),4,COEFS,4,4,WL(1,0,1,69))
301
 
      CALL FFV1L3_1(PL(0,69),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,70),COEFS)
302
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,69),4,COEFS,4,4,WL(1,0,1,70))
303
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,70),3,4,24,1,1,285,H)
 
309
      CALL FFV1L3_2(PL(0,1),W(1,23),GC_5,MDL_MB,ZERO,PL(0,74),COEFS)
 
310
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,1),4,COEFS,4,4,WL(1,0,1,74))
 
311
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,74),1,4,1,1,1,285,H)
304
312
C     Coefficient construction for loop diagram with ID 42
305
 
      CALL FFV1L3_1(PL(0,47),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,71),COEFS)
306
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,47),4,COEFS,4,4,WL(1,0,1,71))
307
 
      CALL FFV2L2_1(PL(0,71),W(1,3),GC_47,MDL_MB,ZERO,PL(0,72),COEFS)
308
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,71),4,COEFS,4,4,WL(1,0,1,72))
309
 
      CALL FFV1L2P0_3(PL(0,72),W(1,11),GC_5,ZERO,ZERO,PL(0,73),COEFS)
310
 
      CALL ML5_0_UPDATE_WL_3_0(WL(1,0,1,72),4,COEFS,4,4,WL(1,0,1,73))
311
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,73),3,4,25,1,1,286,H)
 
313
      CALL FFV1L3_1(PL(0,64),W(1,24),GC_5,MDL_MB,ZERO,PL(0,75),COEFS)
 
314
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,64),4,COEFS,4,4,WL(1,0,1,75))
 
315
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,75),1,4,24,1,1,286,H)
312
316
C     Coefficient construction for loop diagram with ID 43
313
 
      CALL FFV1L2_1(PL(0,0),W(1,1),GC_5,MDL_MB,ZERO,PL(0,74),COEFS)
314
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,74))
315
 
      CALL FFV1L2P0_3(PL(0,74),W(1,5),GC_5,ZERO,ZERO,PL(0,75),COEFS)
316
 
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,74),4,COEFS,4,4,WL(1,0,1,75))
317
 
      CALL FFV1L3_1(PL(0,75),W(1,19),GC_5,MDL_MB,ZERO,PL(0,76),COEFS)
318
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,75),4,COEFS,4,4,WL(1,0,1,76))
319
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,76),2,4,26,1,1,287,H)
 
317
      CALL FFV1L1P0_3(PL(0,54),W(1,7),GC_5,ZERO,ZERO,PL(0,76),COEFS)
 
318
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,54),4,COEFS,4,4,WL(1,0,1,76))
 
319
      CALL FFV1L3_2(PL(0,76),W(1,11),GC_5,MDL_MB,ZERO,PL(0,77),COEFS)
 
320
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,76),4,COEFS,4,4,WL(1,0,1,77))
 
321
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,77),2,4,29,1,1,287,H)
320
322
C     Coefficient construction for loop diagram with ID 44
321
 
      CALL FFV1L1_2(PL(0,0),W(1,1),GC_5,MDL_MB,ZERO,PL(0,77),COEFS)
322
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,77))
323
 
      CALL FFV2L1_2(PL(0,77),W(1,3),GC_47,MDL_MT,MDL_WT,PL(0,78),COEFS)
324
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,77),4,COEFS,4,4,WL(1,0,1,78))
325
 
      CALL FFV1L1P0_3(PL(0,78),W(1,12),GC_5,ZERO,ZERO,PL(0,79),COEFS)
326
 
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,78),4,COEFS,4,4,WL(1,0,1,79))
327
 
      CALL FFV1L3_2(PL(0,79),W(1,5),GC_5,MDL_MB,ZERO,PL(0,80),COEFS)
328
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,79),4,COEFS,4,4,WL(1,0,1,80))
329
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,80),3,4,27,1,1,288,H)
 
323
      CALL FFV1L3_2(PL(0,21),W(1,23),GC_5,MDL_MB,ZERO,PL(0,78),COEFS)
 
324
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,21),4,COEFS,4,4,WL(1,0,1,78))
 
325
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,78),2,4,8,1,1,288,H)
330
326
C     Coefficient construction for loop diagram with ID 45
331
 
      CALL FFV1L1P0_3(PL(0,77),W(1,7),GC_5,ZERO,ZERO,PL(0,81),COEFS)
332
 
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,77),4,COEFS,4,4,WL(1,0,1,81))
333
 
      CALL FFV1L3_2(PL(0,81),W(1,10),GC_5,MDL_MB,ZERO,PL(0,82),COEFS)
334
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,81),4,COEFS,4,4,WL(1,0,1,82))
335
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,82),2,4,28,1,1,289,H)
 
327
      CALL FFV1L1P0_3(PL(0,47),W(1,4),GC_5,ZERO,ZERO,PL(0,79),COEFS)
 
328
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,47),4,COEFS,4,4,WL(1,0,1,79))
 
329
      CALL FFV1L3_2(PL(0,79),W(1,21),GC_5,MDL_MT,MDL_WT,PL(0,80),COEFS)
 
330
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,79),4,COEFS,4,4,WL(1,0,1,80))
 
331
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,80),2,4,30,1,1,289,H)
336
332
C     Coefficient construction for loop diagram with ID 46
337
 
      CALL FFV1L1P0_3(PL(0,78),W(1,4),GC_5,ZERO,ZERO,PL(0,83),COEFS)
338
 
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,78),4,COEFS,4,4,WL(1,0,1,83))
339
 
      CALL FFV1L3_2(PL(0,83),W(1,10),GC_5,MDL_MB,ZERO,PL(0,84),COEFS)
 
333
      CALL FFV1L2P0_3(PL(0,59),W(1,11),GC_5,ZERO,ZERO,PL(0,81),COEFS)
 
334
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,59),4,COEFS,4,4,WL(1,0,1,81))
 
335
      CALL FFV1L3_1(PL(0,81),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,82),COEFS)
 
336
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,81),4,COEFS,4,4,WL(1,0,1,82))
 
337
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,82),3,4,31,1,1,290,H)
 
338
C     Coefficient construction for loop diagram with ID 47
 
339
      CALL FFV1L1P0_3(PL(0,55),W(1,4),GC_5,ZERO,ZERO,PL(0,83),COEFS)
 
340
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,55),4,COEFS,4,4,WL(1,0,1,83))
 
341
      CALL FFV1L3_2(PL(0,83),W(1,11),GC_5,MDL_MB,ZERO,PL(0,84),COEFS)
340
342
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,83),4,COEFS,4,4,WL(1,0,1,84))
341
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,84),3,4,29,1,1,290,H)
342
 
C     Coefficient construction for loop diagram with ID 47
343
 
      CALL FFV1L1_2(PL(0,77),W(1,2),GC_5,MDL_MB,ZERO,PL(0,85),COEFS)
344
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,77),4,COEFS,4,4,WL(1,0,1,85))
345
 
      CALL FFV2L1_2(PL(0,85),W(1,3),GC_47,MDL_MT,MDL_WT,PL(0,86),COEFS)
346
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,85),4,COEFS,4,4,WL(1,0,1,86))
347
 
      CALL FFV1L1P0_3(PL(0,86),W(1,4),GC_5,ZERO,ZERO,PL(0,87),COEFS)
348
 
      CALL ML5_0_UPDATE_WL_3_0(WL(1,0,1,86),4,COEFS,4,4,WL(1,0,1,87))
349
 
      CALL FFV1L3_2(PL(0,87),W(1,5),GC_5,MDL_MB,ZERO,PL(0,88),COEFS)
350
 
      CALL ML5_0_UPDATE_WL_3_1(WL(1,0,1,87),4,COEFS,4,4,WL(1,0,1,88))
351
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,88),4,4,30,1,1,291,H)
 
343
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,84),3,4,32,1,1,291,H)
352
344
C     Coefficient construction for loop diagram with ID 48
353
 
      CALL FFV1L1_2(PL(0,85),W(1,13),GC_5,MDL_MB,ZERO,PL(0,89),COEFS)
354
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,85),4,COEFS,4,4,WL(1,0,1,89))
355
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,89),3,4,31,1,1,292,H)
 
345
      CALL VVV1L2P0_1(PL(0,0),W(1,1),GC_4,ZERO,ZERO,PL(0,85),COEFS)
 
346
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,85))
 
347
      CALL FFV1L3_2(PL(0,85),W(1,5),GC_5,MDL_MB,ZERO,PL(0,86),COEFS)
 
348
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,85),4,COEFS,4,4,WL(1,0,1,86))
 
349
      CALL FFV1L1P0_3(PL(0,86),W(1,22),GC_5,ZERO,ZERO,PL(0,87),COEFS)
 
350
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,86),4,COEFS,4,4,WL(1,0,1,87))
 
351
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,87),2,4,33,1,1,292,H)
356
352
C     Coefficient construction for loop diagram with ID 49
357
 
      CALL FFV1L1P0_3(PL(0,85),W(1,7),GC_5,ZERO,ZERO,PL(0,90),COEFS)
358
 
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,85),4,COEFS,4,4,WL(1,0,1,90))
359
 
      CALL FFV1L3_2(PL(0,90),W(1,5),GC_5,MDL_MB,ZERO,PL(0,91),COEFS)
360
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,90),4,COEFS,4,4,WL(1,0,1,91))
361
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,91),3,4,32,1,1,293,H)
 
353
      CALL FFV2L1_2(PL(0,86),W(1,3),GC_11,MDL_MT,MDL_WT,PL(0,88),COEFS)
 
354
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,86),4,COEFS,4,4,WL(1,0,1,88))
 
355
      CALL FFV1L1P0_3(PL(0,88),W(1,12),GC_5,ZERO,ZERO,PL(0,89),COEFS)
 
356
      CALL ML5_0_UPDATE_WL_3_0(WL(1,0,1,88),4,COEFS,4,4,WL(1,0,1,89))
 
357
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,89),3,4,34,1,1,293,H)
362
358
C     Coefficient construction for loop diagram with ID 50
363
 
      CALL FFV1L1_2(PL(0,85),W(1,14),GC_5,MDL_MB,ZERO,PL(0,92),COEFS)
364
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,85),4,COEFS,4,4,WL(1,0,1,92))
365
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,92),3,4,31,1,1,294,H)
 
359
      CALL FFV1L3_1(PL(0,85),W(1,12),GC_5,MDL_MT,MDL_WT,PL(0,90),COEFS)
 
360
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,85),4,COEFS,4,4,WL(1,0,1,90))
 
361
      CALL FFV1L2P0_3(PL(0,90),W(1,8),GC_5,ZERO,ZERO,PL(0,91),COEFS)
 
362
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,90),4,COEFS,4,4,WL(1,0,1,91))
 
363
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,91),2,4,35,1,1,294,H)
366
364
C     Coefficient construction for loop diagram with ID 51
367
 
      CALL FFV1L2_1(PL(0,74),W(1,2),GC_5,MDL_MB,ZERO,PL(0,93),COEFS)
368
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,74),4,COEFS,4,4,WL(1,0,1,93))
369
 
      CALL FFV1L2_1(PL(0,93),W(1,13),GC_5,MDL_MB,ZERO,PL(0,94),COEFS)
370
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,93),4,COEFS,4,4,WL(1,0,1,94))
371
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,94),3,4,31,1,1,295,H)
 
365
      CALL FFV1L3_1(PL(0,85),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,92),COEFS)
 
366
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,85),4,COEFS,4,4,WL(1,0,1,92))
 
367
      CALL FFV1L2P0_3(PL(0,92),W(1,18),GC_5,ZERO,ZERO,PL(0,93),COEFS)
 
368
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,92),4,COEFS,4,4,WL(1,0,1,93))
 
369
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,93),2,4,36,1,1,295,H)
372
370
C     Coefficient construction for loop diagram with ID 52
373
 
      CALL FFV1L2P0_3(PL(0,93),W(1,5),GC_5,ZERO,ZERO,PL(0,95),COEFS)
374
 
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,93),4,COEFS,4,4,WL(1,0,1,95))
375
 
      CALL FFV1L3_1(PL(0,95),W(1,7),GC_5,MDL_MB,ZERO,PL(0,96),COEFS)
376
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,95),4,COEFS,4,4,WL(1,0,1,96))
377
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,96),3,4,33,1,1,296,H)
 
371
      CALL FFV2L2_1(PL(0,92),W(1,3),GC_11,MDL_MB,ZERO,PL(0,94),COEFS)
 
372
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,92),4,COEFS,4,4,WL(1,0,1,94))
 
373
      CALL FFV1L2P0_3(PL(0,94),W(1,10),GC_5,ZERO,ZERO,PL(0,95),COEFS)
 
374
      CALL ML5_0_UPDATE_WL_3_0(WL(1,0,1,94),4,COEFS,4,4,WL(1,0,1,95))
 
375
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,95),3,4,37,1,1,296,H)
378
376
C     Coefficient construction for loop diagram with ID 53
379
 
      CALL FFV1L3_1(PL(0,75),W(1,21),GC_5,MDL_MB,ZERO,PL(0,97),COEFS)
380
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,75),4,COEFS,4,4,WL(1,0,1,97))
381
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,97),2,4,26,1,1,297,H)
 
377
      CALL FFV1L3_1(PL(0,85),W(1,7),GC_5,MDL_MB,ZERO,PL(0,96),COEFS)
 
378
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,85),4,COEFS,4,4,WL(1,0,1,96))
 
379
      CALL FFV1L2P0_3(PL(0,96),W(1,10),GC_5,ZERO,ZERO,PL(0,97),COEFS)
 
380
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,96),4,COEFS,4,4,WL(1,0,1,97))
 
381
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,97),2,4,38,1,1,297,H)
382
382
C     Coefficient construction for loop diagram with ID 54
383
 
      CALL VVV1L2P0_1(PL(0,75),W(1,2),GC_4,ZERO,ZERO,PL(0,98),COEFS)
384
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,75),4,COEFS,4,4,WL(1,0,1,98))
385
 
      CALL FFV1L3_1(PL(0,98),W(1,7),GC_5,MDL_MB,ZERO,PL(0,99),COEFS)
 
383
      CALL VVV1L2P0_1(PL(0,85),W(1,2),GC_4,ZERO,ZERO,PL(0,98),COEFS)
 
384
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,85),4,COEFS,4,4,WL(1,0,1,98))
 
385
      CALL FFV1L3_2(PL(0,98),W(1,5),GC_5,MDL_MB,ZERO,PL(0,99),COEFS)
386
386
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,98),4,COEFS,4,4,WL(1,0,1,99))
387
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,99),3,4,34,1,1,298,H)
 
387
      CALL FFV2L1_2(PL(0,99),W(1,3),GC_11,MDL_MT,MDL_WT,PL(0,100)
 
388
     $ ,COEFS)
 
389
      CALL ML5_0_UPDATE_WL_3_1(WL(1,0,1,99),4,COEFS,4,4,WL(1,0,1,100))
 
390
      CALL FFV1L1P0_3(PL(0,100),W(1,4),GC_5,ZERO,ZERO,PL(0,101),COEFS)
 
391
      CALL ML5_0_UPDATE_WL_4_0(WL(1,0,1,100),4,COEFS,4,4,WL(1,0,1,101))
 
392
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,101),4,4,39,1,1,298,H)
388
393
C     Coefficient construction for loop diagram with ID 55
389
 
      CALL FFV1L2_1(PL(0,93),W(1,14),GC_5,MDL_MB,ZERO,PL(0,100),COEFS)
390
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,93),4,COEFS,4,4,WL(1,0,1,100))
391
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,100),3,4,31,1,1,299,H)
 
394
      CALL FFV1L3_1(PL(0,98),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,102),COEFS)
 
395
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,98),4,COEFS,4,4,WL(1,0,1,102))
 
396
      CALL FFV2L2_1(PL(0,102),W(1,3),GC_11,MDL_MB,ZERO,PL(0,103),COEFS)
 
397
      CALL ML5_0_UPDATE_WL_3_1(WL(1,0,1,102),4,COEFS,4,4,WL(1,0,1,103))
 
398
      CALL FFV1L2P0_3(PL(0,103),W(1,5),GC_5,ZERO,ZERO,PL(0,104),COEFS)
 
399
      CALL ML5_0_UPDATE_WL_4_0(WL(1,0,1,103),4,COEFS,4,4,WL(1,0,1,104))
 
400
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,104),4,4,40,1,1,299,H)
392
401
C     Coefficient construction for loop diagram with ID 56
393
 
      CALL FFV1L3_1(PL(0,95),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,101),COEFS)
394
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,95),4,COEFS,4,4,WL(1,0,1,101))
395
 
      CALL FFV2L2_1(PL(0,101),W(1,3),GC_47,MDL_MB,ZERO,PL(0,102),COEFS)
396
 
      CALL ML5_0_UPDATE_WL_3_1(WL(1,0,1,101),4,COEFS,4,4,WL(1,0,1,102))
397
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,102),4,4,35,1,1,300,H)
 
402
      CALL VVV1L2P0_1(PL(0,98),W(1,14),GC_4,ZERO,ZERO,PL(0,105),COEFS)
 
403
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,98),4,COEFS,4,4,WL(1,0,1,105))
 
404
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,105),3,4,41,1,1,300,H)
398
405
C     Coefficient construction for loop diagram with ID 57
399
 
      CALL FFV1L1_2(PL(0,78),W(1,2),GC_5,MDL_MT,MDL_WT,PL(0,103),COEFS)
400
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,78),4,COEFS,4,4,WL(1,0,1,103))
401
 
      CALL FFV1L1P0_3(PL(0,103),W(1,4),GC_5,ZERO,ZERO,PL(0,104),COEFS)
402
 
      CALL ML5_0_UPDATE_WL_3_0(WL(1,0,1,103),4,COEFS,4,4,WL(1,0,1,104))
403
 
      CALL FFV1L3_2(PL(0,104),W(1,5),GC_5,MDL_MB,ZERO,PL(0,105),COEFS)
404
 
      CALL ML5_0_UPDATE_WL_3_1(WL(1,0,1,104),4,COEFS,4,4,WL(1,0,1,105))
405
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,105),4,4,36,1,1,301,H)
 
406
      CALL FFV1L1P0_3(PL(0,99),W(1,7),GC_5,ZERO,ZERO,PL(0,106),COEFS)
 
407
      CALL ML5_0_UPDATE_WL_3_0(WL(1,0,1,99),4,COEFS,4,4,WL(1,0,1,106))
 
408
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,106),3,4,42,1,1,301,H)
406
409
C     Coefficient construction for loop diagram with ID 58
407
 
      CALL VVV1L2P0_1(PL(0,83),W(1,2),GC_4,ZERO,ZERO,PL(0,106),COEFS)
408
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,83),4,COEFS,4,4,WL(1,0,1,106))
409
 
      CALL FFV1L3_2(PL(0,106),W(1,5),GC_5,MDL_MB,ZERO,PL(0,107),COEFS)
410
 
      CALL ML5_0_UPDATE_WL_3_1(WL(1,0,1,106),4,COEFS,4,4,WL(1,0,1,107))
411
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,107),4,4,37,1,1,302,H)
 
410
      CALL FFV1L3_1(PL(0,98),W(1,7),GC_5,MDL_MB,ZERO,PL(0,107),COEFS)
 
411
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,98),4,COEFS,4,4,WL(1,0,1,107))
 
412
      CALL FFV1L2P0_3(PL(0,107),W(1,5),GC_5,ZERO,ZERO,PL(0,108),COEFS)
 
413
      CALL ML5_0_UPDATE_WL_3_0(WL(1,0,1,107),4,COEFS,4,4,WL(1,0,1,108))
 
414
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,108),3,4,43,1,1,302,H)
412
415
C     Coefficient construction for loop diagram with ID 59
413
 
      CALL FFV1L3_1(PL(0,29),W(1,22),GC_5,MDL_MT,MDL_WT,PL(0,108)
414
 
     $ ,COEFS)
415
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,29),4,COEFS,4,4,WL(1,0,1,108))
416
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,108),2,4,10,1,1,303,H)
 
416
      CALL VVV1L2P0_1(PL(0,98),W(1,16),GC_4,ZERO,ZERO,PL(0,109),COEFS)
 
417
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,98),4,COEFS,4,4,WL(1,0,1,109))
 
418
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,109),3,4,41,1,1,303,H)
417
419
C     Coefficient construction for loop diagram with ID 60
418
 
      CALL FFV1L2_1(PL(0,0),W(1,1),GC_5,MDL_MT,MDL_WT,PL(0,109),COEFS)
419
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,109))
420
 
      CALL FFV2L2_1(PL(0,109),W(1,3),GC_47,MDL_MB,ZERO,PL(0,110),COEFS)
421
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,109),4,COEFS,4,4,WL(1,0,1,110))
422
 
      CALL FFV1L2P0_3(PL(0,110),W(1,5),GC_5,ZERO,ZERO,PL(0,111),COEFS)
423
 
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,110),4,COEFS,4,4,WL(1,0,1,111))
424
 
      CALL FFV1L3_1(PL(0,111),W(1,12),GC_5,MDL_MT,MDL_WT,PL(0,112)
425
 
     $ ,COEFS)
426
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,111),4,COEFS,4,4,WL(1,0,1,112))
427
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,112),3,4,38,1,1,304,H)
 
420
      CALL FFV1L2P0_3(PL(0,102),W(1,8),GC_5,ZERO,ZERO,PL(0,110),COEFS)
 
421
      CALL ML5_0_UPDATE_WL_3_0(WL(1,0,1,102),4,COEFS,4,4,WL(1,0,1,110))
 
422
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,110),3,4,44,1,1,304,H)
428
423
C     Coefficient construction for loop diagram with ID 61
429
 
      CALL VVV1L2P0_1(PL(0,0),W(1,1),GC_4,ZERO,ZERO,PL(0,113),COEFS)
430
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,113))
431
 
      CALL FFV1L3_2(PL(0,113),W(1,5),GC_5,MDL_MB,ZERO,PL(0,114),COEFS)
432
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,113),4,COEFS,4,4,WL(1,0,1,114))
433
 
      CALL FFV2L1_2(PL(0,114),W(1,3),GC_47,MDL_MT,MDL_WT,PL(0,115)
434
 
     $ ,COEFS)
435
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,114),4,COEFS,4,4,WL(1,0,1,115))
436
 
      CALL FFV1L1P0_3(PL(0,115),W(1,12),GC_5,ZERO,ZERO,PL(0,116),COEFS)
437
 
      CALL ML5_0_UPDATE_WL_3_0(WL(1,0,1,115),4,COEFS,4,4,WL(1,0,1,116))
438
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,116),3,4,39,1,1,305,H)
 
424
      CALL FFV1L3_2(PL(0,98),W(1,8),GC_5,MDL_MT,MDL_WT,PL(0,111),COEFS)
 
425
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,98),4,COEFS,4,4,WL(1,0,1,111))
 
426
      CALL FFV1L1P0_3(PL(0,111),W(1,4),GC_5,ZERO,ZERO,PL(0,112),COEFS)
 
427
      CALL ML5_0_UPDATE_WL_3_0(WL(1,0,1,111),4,COEFS,4,4,WL(1,0,1,112))
 
428
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,112),3,4,45,1,1,305,H)
439
429
C     Coefficient construction for loop diagram with ID 62
440
 
      CALL FFV1L1P0_3(PL(0,114),W(1,19),GC_5,ZERO,ZERO,PL(0,117),COEFS)
441
 
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,114),4,COEFS,4,4,WL(1,0,1,117))
442
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,117),2,4,40,1,1,306,H)
 
430
      CALL FFV1L1P0_3(PL(0,86),W(1,24),GC_5,ZERO,ZERO,PL(0,113),COEFS)
 
431
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,86),4,COEFS,4,4,WL(1,0,1,113))
 
432
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,113),2,4,33,1,1,306,H)
443
433
C     Coefficient construction for loop diagram with ID 63
444
 
      CALL FFV1L3_2(PL(0,12),W(1,23),GC_5,MDL_MB,ZERO,PL(0,118),COEFS)
445
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,12),4,COEFS,4,4,WL(1,0,1,118))
446
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,118),1,4,3,1,1,307,H)
 
434
      CALL FFV1L1_2(PL(0,86),W(1,2),GC_5,MDL_MB,ZERO,PL(0,114),COEFS)
 
435
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,86),4,COEFS,4,4,WL(1,0,1,114))
 
436
      CALL FFV1L1P0_3(PL(0,114),W(1,7),GC_5,ZERO,ZERO,PL(0,115),COEFS)
 
437
      CALL ML5_0_UPDATE_WL_3_0(WL(1,0,1,114),4,COEFS,4,4,WL(1,0,1,115))
 
438
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,115),3,4,46,1,1,307,H)
447
439
C     Coefficient construction for loop diagram with ID 64
448
 
      CALL FFV1L3_1(PL(0,35),W(1,24),GC_5,MDL_MB,ZERO,PL(0,119),COEFS)
449
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,35),4,COEFS,4,4,WL(1,0,1,119))
450
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,119),1,4,12,1,1,308,H)
 
440
      CALL VVVV1L2P0_1(PL(0,85),W(1,14),W(1,2),GC_6,ZERO,ZERO,PL(0,116)
 
441
     $ ,COEFS)
 
442
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,85),4,COEFS,4,4,WL(1,0,1,116))
 
443
      CALL VVVV3L2P0_1(PL(0,85),W(1,14),W(1,2),GC_6,ZERO,ZERO,PL(0,117)
 
444
     $ ,COEFS)
 
445
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,85),4,COEFS,4,4,WL(1,0,1,117))
 
446
      CALL VVVV4L2P0_1(PL(0,85),W(1,14),W(1,2),GC_6,ZERO,ZERO,PL(0,118)
 
447
     $ ,COEFS)
 
448
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,85),4,COEFS,4,4,WL(1,0,1,118))
 
449
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,116),1,4,47,2,1,308,H)
 
450
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,117),1,4,47,2,1,309,H)
 
451
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,118),1,4,47,2,1,310,H)
451
452
C     Coefficient construction for loop diagram with ID 65
452
 
      CALL FFV1L3_1(PL(0,113),W(1,7),GC_5,MDL_MB,ZERO,PL(0,120),COEFS)
453
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,113),4,COEFS,4,4,WL(1,0,1,120))
454
 
      CALL FFV1L2P0_3(PL(0,120),W(1,10),GC_5,ZERO,ZERO,PL(0,121),COEFS)
455
 
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,120),4,COEFS,4,4,WL(1,0,1,121))
456
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,121),2,4,41,1,1,309,H)
 
453
      CALL FFV1L2P0_3(PL(0,92),W(1,20),GC_5,ZERO,ZERO,PL(0,119),COEFS)
 
454
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,92),4,COEFS,4,4,WL(1,0,1,119))
 
455
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,119),2,4,36,1,1,311,H)
457
456
C     Coefficient construction for loop diagram with ID 66
458
 
      CALL FFV1L3_2(PL(0,24),W(1,23),GC_5,MDL_MB,ZERO,PL(0,122),COEFS)
459
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,24),4,COEFS,4,4,WL(1,0,1,122))
460
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,122),2,4,7,1,1,310,H)
 
457
      CALL FFV1L2_1(PL(0,92),W(1,2),GC_5,MDL_MT,MDL_WT,PL(0,120),COEFS)
 
458
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,92),4,COEFS,4,4,WL(1,0,1,120))
 
459
      CALL FFV1L2P0_3(PL(0,120),W(1,8),GC_5,ZERO,ZERO,PL(0,121),COEFS)
 
460
      CALL ML5_0_UPDATE_WL_3_0(WL(1,0,1,120),4,COEFS,4,4,WL(1,0,1,121))
 
461
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,121),3,4,48,1,1,312,H)
461
462
C     Coefficient construction for loop diagram with ID 67
462
 
      CALL FFV1L2P0_3(PL(0,110),W(1,10),GC_5,ZERO,ZERO,PL(0,123),COEFS)
463
 
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,110),4,COEFS,4,4,WL(1,0,1,123))
464
 
      CALL FFV1L3_1(PL(0,123),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,124)
465
 
     $ ,COEFS)
466
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,123),4,COEFS,4,4,WL(1,0,1,124))
467
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,124),3,4,42,1,1,311,H)
 
463
      CALL VVVV1L2P0_1(PL(0,85),W(1,16),W(1,2),GC_6,ZERO,ZERO,PL(0,122)
 
464
     $ ,COEFS)
 
465
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,85),4,COEFS,4,4,WL(1,0,1,122))
 
466
      CALL VVVV3L2P0_1(PL(0,85),W(1,16),W(1,2),GC_6,ZERO,ZERO,PL(0,123)
 
467
     $ ,COEFS)
 
468
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,85),4,COEFS,4,4,WL(1,0,1,123))
 
469
      CALL VVVV4L2P0_1(PL(0,85),W(1,16),W(1,2),GC_6,ZERO,ZERO,PL(0,124)
 
470
     $ ,COEFS)
 
471
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,85),4,COEFS,4,4,WL(1,0,1,124))
 
472
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,122),1,4,47,2,1,313,H)
 
473
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,123),1,4,47,2,1,314,H)
 
474
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,124),1,4,47,2,1,315,H)
468
475
C     Coefficient construction for loop diagram with ID 68
469
 
      CALL FFV1L3_1(PL(0,113),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,125)
470
 
     $ ,COEFS)
471
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,113),4,COEFS,4,4,WL(1,0,1,125))
472
 
      CALL FFV2L2_1(PL(0,125),W(1,3),GC_47,MDL_MB,ZERO,PL(0,126),COEFS)
473
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,125),4,COEFS,4,4,WL(1,0,1,126))
474
 
      CALL FFV1L2P0_3(PL(0,126),W(1,10),GC_5,ZERO,ZERO,PL(0,127),COEFS)
475
 
      CALL ML5_0_UPDATE_WL_3_0(WL(1,0,1,126),4,COEFS,4,4,WL(1,0,1,127))
476
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,127),3,4,43,1,1,312,H)
 
476
      CALL FFV2L2_1(PL(0,120),W(1,3),GC_11,MDL_MB,ZERO,PL(0,125),COEFS)
 
477
      CALL ML5_0_UPDATE_WL_3_1(WL(1,0,1,120),4,COEFS,4,4,WL(1,0,1,125))
 
478
      CALL FFV1L2P0_3(PL(0,125),W(1,5),GC_5,ZERO,ZERO,PL(0,126),COEFS)
 
479
      CALL ML5_0_UPDATE_WL_4_0(WL(1,0,1,125),4,COEFS,4,4,WL(1,0,1,126))
 
480
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,126),4,4,49,1,1,316,H)
477
481
C     Coefficient construction for loop diagram with ID 69
478
 
      CALL FFV1L3_1(PL(0,40),W(1,24),GC_5,MDL_MB,ZERO,PL(0,128),COEFS)
479
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,40),4,COEFS,4,4,WL(1,0,1,128))
480
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,128),2,4,14,1,1,313,H)
 
482
      CALL FFV1L2_1(PL(0,94),W(1,2),GC_5,MDL_MB,ZERO,PL(0,127),COEFS)
 
483
      CALL ML5_0_UPDATE_WL_3_1(WL(1,0,1,94),4,COEFS,4,4,WL(1,0,1,127))
 
484
      CALL FFV1L2P0_3(PL(0,127),W(1,5),GC_5,ZERO,ZERO,PL(0,128),COEFS)
 
485
      CALL ML5_0_UPDATE_WL_4_0(WL(1,0,1,127),4,COEFS,4,4,WL(1,0,1,128))
 
486
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,128),4,4,50,1,1,317,H)
481
487
C     Coefficient construction for loop diagram with ID 70
482
 
      CALL FFV1L1_2(PL(0,114),W(1,2),GC_5,MDL_MB,ZERO,PL(0,129),COEFS)
483
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,114),4,COEFS,4,4,WL(1,0,1,129))
484
 
      CALL FFV1L1P0_3(PL(0,129),W(1,7),GC_5,ZERO,ZERO,PL(0,130),COEFS)
485
 
      CALL ML5_0_UPDATE_WL_3_0(WL(1,0,1,129),4,COEFS,4,4,WL(1,0,1,130))
486
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,130),3,4,44,1,1,314,H)
 
488
      CALL FFV1L3_1(PL(0,11),W(1,25),GC_5,MDL_MT,MDL_WT,PL(0,129)
 
489
     $ ,COEFS)
 
490
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,11),4,COEFS,4,4,WL(1,0,1,129))
 
491
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,129),1,4,5,1,1,318,H)
487
492
C     Coefficient construction for loop diagram with ID 71
488
 
      CALL FFV1L2_1(PL(0,110),W(1,2),GC_5,MDL_MB,ZERO,PL(0,131),COEFS)
489
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,110),4,COEFS,4,4,WL(1,0,1,131))
490
 
      CALL FFV1L2P0_3(PL(0,131),W(1,5),GC_5,ZERO,ZERO,PL(0,132),COEFS)
491
 
      CALL ML5_0_UPDATE_WL_3_0(WL(1,0,1,131),4,COEFS,4,4,WL(1,0,1,132))
492
 
      CALL FFV1L3_1(PL(0,132),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,133)
 
493
      CALL FFV1L3_2(PL(0,62),W(1,26),GC_5,MDL_MT,MDL_WT,PL(0,130)
493
494
     $ ,COEFS)
494
 
      CALL ML5_0_UPDATE_WL_3_1(WL(1,0,1,132),4,COEFS,4,4,WL(1,0,1,133))
495
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,133),4,4,45,1,1,315,H)
 
495
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,62),4,COEFS,4,4,WL(1,0,1,130))
 
496
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,130),1,4,23,1,1,319,H)
496
497
C     Coefficient construction for loop diagram with ID 72
497
 
      CALL FFV1L2_1(PL(0,126),W(1,2),GC_5,MDL_MB,ZERO,PL(0,134),COEFS)
498
 
      CALL ML5_0_UPDATE_WL_3_1(WL(1,0,1,126),4,COEFS,4,4,WL(1,0,1,134))
499
 
      CALL FFV1L2P0_3(PL(0,134),W(1,5),GC_5,ZERO,ZERO,PL(0,135),COEFS)
500
 
      CALL ML5_0_UPDATE_WL_4_0(WL(1,0,1,134),4,COEFS,4,4,WL(1,0,1,135))
501
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,135),4,4,46,1,1,316,H)
 
498
      CALL FFV1L1_2(PL(0,0),W(1,1),GC_5,MDL_MT,MDL_WT,PL(0,131),COEFS)
 
499
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,131))
 
500
      CALL FFV1L1P0_3(PL(0,131),W(1,12),GC_5,ZERO,ZERO,PL(0,132),COEFS)
 
501
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,131),4,COEFS,4,4,WL(1,0,1,132))
 
502
      CALL FFV1L3_2(PL(0,132),W(1,8),GC_5,MDL_MT,MDL_WT,PL(0,133)
 
503
     $ ,COEFS)
 
504
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,132),4,COEFS,4,4,WL(1,0,1,133))
 
505
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,133),2,4,51,1,1,320,H)
502
506
C     Coefficient construction for loop diagram with ID 73
503
 
      CALL FFV1L1P0_3(PL(0,48),W(1,24),GC_5,ZERO,ZERO,PL(0,136),COEFS)
504
 
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,48),4,COEFS,4,4,WL(1,0,1,136))
505
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,136),2,4,18,1,1,317,H)
 
507
      CALL FFV1L3_1(PL(0,26),W(1,25),GC_5,MDL_MT,MDL_WT,PL(0,134)
 
508
     $ ,COEFS)
 
509
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,26),4,COEFS,4,4,WL(1,0,1,134))
 
510
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,134),2,4,12,1,1,321,H)
506
511
C     Coefficient construction for loop diagram with ID 74
507
 
      CALL FFV1L1P0_3(PL(0,114),W(1,21),GC_5,ZERO,ZERO,PL(0,137),COEFS)
508
 
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,114),4,COEFS,4,4,WL(1,0,1,137))
509
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,137),2,4,40,1,1,318,H)
 
512
      CALL FFV1L2_1(PL(0,0),W(1,1),GC_5,MDL_MB,ZERO,PL(0,135),COEFS)
 
513
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,135))
 
514
      CALL FFV1L2P0_3(PL(0,135),W(1,5),GC_5,ZERO,ZERO,PL(0,136),COEFS)
 
515
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,135),4,COEFS,4,4,WL(1,0,1,136))
 
516
      CALL FFV1L3_1(PL(0,136),W(1,22),GC_5,MDL_MB,ZERO,PL(0,137),COEFS)
 
517
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,136),4,COEFS,4,4,WL(1,0,1,137))
 
518
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,137),2,4,52,1,1,322,H)
510
519
C     Coefficient construction for loop diagram with ID 75
511
 
      CALL VVV1L2P0_1(PL(0,113),W(1,2),GC_4,ZERO,ZERO,PL(0,138),COEFS)
512
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,113),4,COEFS,4,4,WL(1,0,1,138))
513
 
      CALL FFV1L3_1(PL(0,138),W(1,7),GC_5,MDL_MB,ZERO,PL(0,139),COEFS)
514
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,138),4,COEFS,4,4,WL(1,0,1,139))
515
 
      CALL FFV1L2P0_3(PL(0,139),W(1,5),GC_5,ZERO,ZERO,PL(0,140),COEFS)
516
 
      CALL ML5_0_UPDATE_WL_3_0(WL(1,0,1,139),4,COEFS,4,4,WL(1,0,1,140))
517
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,140),3,4,47,1,1,319,H)
 
520
      CALL FFV1L1_2(PL(0,0),W(1,1),GC_5,MDL_MB,ZERO,PL(0,138),COEFS)
 
521
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,138))
 
522
      CALL FFV2L1_2(PL(0,138),W(1,3),GC_11,MDL_MT,MDL_WT,PL(0,139)
 
523
     $ ,COEFS)
 
524
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,138),4,COEFS,4,4,WL(1,0,1,139))
 
525
      CALL FFV1L1P0_3(PL(0,139),W(1,12),GC_5,ZERO,ZERO,PL(0,140),COEFS)
 
526
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,139),4,COEFS,4,4,WL(1,0,1,140))
 
527
      CALL FFV1L3_2(PL(0,140),W(1,5),GC_5,MDL_MB,ZERO,PL(0,141),COEFS)
 
528
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,140),4,COEFS,4,4,WL(1,0,1,141))
 
529
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,141),3,4,53,1,1,323,H)
518
530
C     Coefficient construction for loop diagram with ID 76
519
 
      CALL FFV1L3_2(PL(0,138),W(1,5),GC_5,MDL_MB,ZERO,PL(0,141),COEFS)
520
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,138),4,COEFS,4,4,WL(1,0,1,141))
521
 
      CALL FFV1L1P0_3(PL(0,141),W(1,7),GC_5,ZERO,ZERO,PL(0,142),COEFS)
522
 
      CALL ML5_0_UPDATE_WL_3_0(WL(1,0,1,141),4,COEFS,4,4,WL(1,0,1,142))
523
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,142),3,4,48,1,1,320,H)
 
531
      CALL FFV1L2_1(PL(0,0),W(1,1),GC_5,MDL_MT,MDL_WT,PL(0,142),COEFS)
 
532
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,142))
 
533
      CALL FFV2L2_1(PL(0,142),W(1,3),GC_11,MDL_MB,ZERO,PL(0,143),COEFS)
 
534
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,142),4,COEFS,4,4,WL(1,0,1,143))
 
535
      CALL FFV1L2P0_3(PL(0,143),W(1,5),GC_5,ZERO,ZERO,PL(0,144),COEFS)
 
536
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,143),4,COEFS,4,4,WL(1,0,1,144))
 
537
      CALL FFV1L3_1(PL(0,144),W(1,12),GC_5,MDL_MT,MDL_WT,PL(0,145)
 
538
     $ ,COEFS)
 
539
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,144),4,COEFS,4,4,WL(1,0,1,145))
 
540
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,145),3,4,54,1,1,324,H)
524
541
C     Coefficient construction for loop diagram with ID 77
525
 
      CALL VVVV1L2P0_1(PL(0,19),W(1,1),W(1,2),GC_6,ZERO,ZERO,PL(0,143)
526
 
     $ ,COEFS)
527
 
      CALL ML5_0_UPDATE_WL_0_0(WL(1,0,1,19),4,COEFS,4,4,WL(1,0,1,143))
528
 
      CALL VVVV3L2P0_1(PL(0,19),W(1,1),W(1,2),GC_6,ZERO,ZERO,PL(0,144)
529
 
     $ ,COEFS)
530
 
      CALL ML5_0_UPDATE_WL_0_0(WL(1,0,1,19),4,COEFS,4,4,WL(1,0,1,144))
531
 
      CALL VVVV4L2P0_1(PL(0,19),W(1,1),W(1,2),GC_6,ZERO,ZERO,PL(0,145)
532
 
     $ ,COEFS)
533
 
      CALL ML5_0_UPDATE_WL_0_0(WL(1,0,1,19),4,COEFS,4,4,WL(1,0,1,145))
534
 
      CALL FFV1L3_1(PL(0,143),W(1,7),GC_5,MDL_MB,ZERO,PL(0,146),COEFS)
535
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,143),4,COEFS,4,4,WL(1,0,1,146))
536
 
      CALL FFV1L3_1(PL(0,144),W(1,7),GC_5,MDL_MB,ZERO,PL(0,147),COEFS)
537
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,144),4,COEFS,4,4,WL(1,0,1,147))
538
 
      CALL FFV1L3_1(PL(0,145),W(1,7),GC_5,MDL_MB,ZERO,PL(0,148),COEFS)
539
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,145),4,COEFS,4,4,WL(1,0,1,148))
540
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,146),1,4,6,1,1,321,H)
541
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,147),1,4,6,1,1,322,H)
542
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,148),1,4,6,1,1,323,H)
 
542
      CALL FFV1L3_2(PL(0,1),W(1,27),GC_5,MDL_MB,ZERO,PL(0,146),COEFS)
 
543
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,1),4,COEFS,4,4,WL(1,0,1,146))
 
544
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,146),1,4,1,1,1,325,H)
543
545
C     Coefficient construction for loop diagram with ID 78
544
 
      CALL VVV1L2P0_1(PL(0,111),W(1,2),GC_4,ZERO,ZERO,PL(0,149),COEFS)
545
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,111),4,COEFS,4,4,WL(1,0,1,149))
546
 
      CALL FFV1L3_1(PL(0,149),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,150)
547
 
     $ ,COEFS)
548
 
      CALL ML5_0_UPDATE_WL_3_1(WL(1,0,1,149),4,COEFS,4,4,WL(1,0,1,150))
549
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,150),4,4,49,1,1,324,H)
 
546
      CALL FFV1L3_1(PL(0,32),W(1,28),GC_5,MDL_MB,ZERO,PL(0,147),COEFS)
 
547
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,32),4,COEFS,4,4,WL(1,0,1,147))
 
548
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,147),1,4,13,1,1,326,H)
550
549
C     Coefficient construction for loop diagram with ID 79
551
 
      CALL FFV1L1_2(PL(0,0),W(1,1),GC_5,MDL_MT,MDL_WT,PL(0,151),COEFS)
552
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,151))
553
 
      CALL FFV1L1_2(PL(0,151),W(1,2),GC_5,MDL_MT,MDL_WT,PL(0,152)
554
 
     $ ,COEFS)
555
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,151),4,COEFS,4,4,WL(1,0,1,152))
556
 
      CALL FFV1L1P0_3(PL(0,152),W(1,4),GC_5,ZERO,ZERO,PL(0,153),COEFS)
557
 
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,152),4,COEFS,4,4,WL(1,0,1,153))
558
 
      CALL FFV1L3_2(PL(0,153),W(1,5),GC_5,MDL_MB,ZERO,PL(0,154),COEFS)
559
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,153),4,COEFS,4,4,WL(1,0,1,154))
560
 
      CALL FFV2L1_2(PL(0,154),W(1,3),GC_47,MDL_MT,MDL_WT,PL(0,155)
561
 
     $ ,COEFS)
562
 
      CALL ML5_0_UPDATE_WL_3_1(WL(1,0,1,154),4,COEFS,4,4,WL(1,0,1,155))
563
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,155),4,4,50,1,1,325,H)
 
550
      CALL FFV1L1P0_3(PL(0,138),W(1,7),GC_5,ZERO,ZERO,PL(0,148),COEFS)
 
551
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,138),4,COEFS,4,4,WL(1,0,1,148))
 
552
      CALL FFV1L3_2(PL(0,148),W(1,10),GC_5,MDL_MB,ZERO,PL(0,149),COEFS)
 
553
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,148),4,COEFS,4,4,WL(1,0,1,149))
 
554
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,149),2,4,55,1,1,327,H)
564
555
C     Coefficient construction for loop diagram with ID 80
565
 
      CALL FFV1L2_1(PL(0,125),W(1,2),GC_5,MDL_MT,MDL_WT,PL(0,156)
566
 
     $ ,COEFS)
567
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,125),4,COEFS,4,4,WL(1,0,1,156))
568
 
      CALL FFV2L2_1(PL(0,156),W(1,3),GC_47,MDL_MB,ZERO,PL(0,157),COEFS)
569
 
      CALL ML5_0_UPDATE_WL_3_1(WL(1,0,1,156),4,COEFS,4,4,WL(1,0,1,157))
570
 
      CALL FFV1L2P0_3(PL(0,157),W(1,5),GC_5,ZERO,ZERO,PL(0,158),COEFS)
571
 
      CALL ML5_0_UPDATE_WL_4_0(WL(1,0,1,157),4,COEFS,4,4,WL(1,0,1,158))
572
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,158),4,4,51,1,1,326,H)
 
556
      CALL FFV1L3_2(PL(0,21),W(1,27),GC_5,MDL_MB,ZERO,PL(0,150),COEFS)
 
557
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,21),4,COEFS,4,4,WL(1,0,1,150))
 
558
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,150),2,4,8,1,1,328,H)
573
559
C     Coefficient construction for loop diagram with ID 81
574
 
      CALL FFV1L3_1(PL(0,138),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,159)
 
560
      CALL FFV1L1P0_3(PL(0,131),W(1,4),GC_5,ZERO,ZERO,PL(0,151),COEFS)
 
561
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,131),4,COEFS,4,4,WL(1,0,1,151))
 
562
      CALL FFV1L3_2(PL(0,151),W(1,18),GC_5,MDL_MT,MDL_WT,PL(0,152)
575
563
     $ ,COEFS)
576
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,138),4,COEFS,4,4,WL(1,0,1,159))
577
 
      CALL FFV2L2_1(PL(0,159),W(1,3),GC_47,MDL_MB,ZERO,PL(0,160),COEFS)
578
 
      CALL ML5_0_UPDATE_WL_3_1(WL(1,0,1,159),4,COEFS,4,4,WL(1,0,1,160))
579
 
      CALL FFV1L2P0_3(PL(0,160),W(1,5),GC_5,ZERO,ZERO,PL(0,161),COEFS)
580
 
      CALL ML5_0_UPDATE_WL_4_0(WL(1,0,1,160),4,COEFS,4,4,WL(1,0,1,161))
581
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,161),4,4,52,1,1,327,H)
 
564
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,151),4,COEFS,4,4,WL(1,0,1,152))
 
565
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,152),2,4,56,1,1,329,H)
582
566
C     Coefficient construction for loop diagram with ID 82
583
 
      CALL FFV1L2_1(PL(0,109),W(1,2),GC_5,MDL_MT,MDL_WT,PL(0,162)
584
 
     $ ,COEFS)
585
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,109),4,COEFS,4,4,WL(1,0,1,162))
586
 
      CALL FFV2L2_1(PL(0,162),W(1,3),GC_47,MDL_MB,ZERO,PL(0,163),COEFS)
587
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,162),4,COEFS,4,4,WL(1,0,1,163))
588
 
      CALL FFV1L2P0_3(PL(0,163),W(1,5),GC_5,ZERO,ZERO,PL(0,164),COEFS)
589
 
      CALL ML5_0_UPDATE_WL_3_0(WL(1,0,1,163),4,COEFS,4,4,WL(1,0,1,164))
590
 
      CALL FFV1L3_1(PL(0,164),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,165)
591
 
     $ ,COEFS)
592
 
      CALL ML5_0_UPDATE_WL_3_1(WL(1,0,1,164),4,COEFS,4,4,WL(1,0,1,165))
593
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,165),4,4,53,1,1,328,H)
 
567
      CALL FFV1L2P0_3(PL(0,143),W(1,10),GC_5,ZERO,ZERO,PL(0,153),COEFS)
 
568
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,143),4,COEFS,4,4,WL(1,0,1,153))
 
569
      CALL FFV1L3_1(PL(0,153),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,154)
 
570
     $ ,COEFS)
 
571
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,153),4,COEFS,4,4,WL(1,0,1,154))
 
572
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,154),3,4,57,1,1,330,H)
594
573
C     Coefficient construction for loop diagram with ID 83
595
 
      CALL FFV2L1_2(PL(0,141),W(1,3),GC_47,MDL_MT,MDL_WT,PL(0,166)
596
 
     $ ,COEFS)
597
 
      CALL ML5_0_UPDATE_WL_3_1(WL(1,0,1,141),4,COEFS,4,4,WL(1,0,1,166))
598
 
      CALL FFV1L1P0_3(PL(0,166),W(1,4),GC_5,ZERO,ZERO,PL(0,167),COEFS)
599
 
      CALL ML5_0_UPDATE_WL_4_0(WL(1,0,1,166),4,COEFS,4,4,WL(1,0,1,167))
600
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,167),4,4,54,1,1,329,H)
 
574
      CALL FFV1L1P0_3(PL(0,139),W(1,4),GC_5,ZERO,ZERO,PL(0,155),COEFS)
 
575
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,139),4,COEFS,4,4,WL(1,0,1,155))
 
576
      CALL FFV1L3_2(PL(0,155),W(1,10),GC_5,MDL_MB,ZERO,PL(0,156),COEFS)
 
577
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,155),4,COEFS,4,4,WL(1,0,1,156))
 
578
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,156),3,4,58,1,1,331,H)
601
579
C     Coefficient construction for loop diagram with ID 84
602
 
      CALL VVVV1L2P0_1(PL(0,24),W(1,1),W(1,2),GC_6,ZERO,ZERO,PL(0,168)
603
 
     $ ,COEFS)
604
 
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,24),4,COEFS,4,4,WL(1,0,1,168))
605
 
      CALL VVVV3L2P0_1(PL(0,24),W(1,1),W(1,2),GC_6,ZERO,ZERO,PL(0,169)
606
 
     $ ,COEFS)
607
 
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,24),4,COEFS,4,4,WL(1,0,1,169))
608
 
      CALL VVVV4L2P0_1(PL(0,24),W(1,1),W(1,2),GC_6,ZERO,ZERO,PL(0,170)
609
 
     $ ,COEFS)
610
 
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,24),4,COEFS,4,4,WL(1,0,1,170))
611
 
      CALL FFV1L3_2(PL(0,168),W(1,5),GC_5,MDL_MB,ZERO,PL(0,171),COEFS)
612
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,168),4,COEFS,4,4,WL(1,0,1,171))
613
 
      CALL FFV1L3_2(PL(0,169),W(1,5),GC_5,MDL_MB,ZERO,PL(0,172),COEFS)
614
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,169),4,COEFS,4,4,WL(1,0,1,172))
615
 
      CALL FFV1L3_2(PL(0,170),W(1,5),GC_5,MDL_MB,ZERO,PL(0,173),COEFS)
616
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,170),4,COEFS,4,4,WL(1,0,1,173))
617
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,171),2,4,11,1,1,330,H)
618
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,172),2,4,11,1,1,331,H)
619
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,173),2,4,11,1,1,332,H)
 
580
      CALL FFV1L1P0_3(PL(0,39),W(1,28),GC_5,ZERO,ZERO,PL(0,157),COEFS)
 
581
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,39),4,COEFS,4,4,WL(1,0,1,157))
 
582
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,157),2,4,16,1,1,332,H)
620
583
C     Coefficient construction for loop diagram with ID 85
621
 
      CALL FFV1L2_1(PL(0,0),W(1,6),GC_5,MDL_MT,MDL_WT,PL(0,174),COEFS)
622
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,174))
623
 
      CALL FFV1L2_1(PL(0,174),W(1,13),GC_5,MDL_MT,MDL_WT,PL(0,175)
624
 
     $ ,COEFS)
625
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,174),4,COEFS,4,4,WL(1,0,1,175))
626
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,175),2,4,55,1,1,333,H)
 
584
      CALL VVV1L2P0_1(PL(0,136),W(1,2),GC_4,ZERO,ZERO,PL(0,158),COEFS)
 
585
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,136),4,COEFS,4,4,WL(1,0,1,158))
 
586
      CALL FFV1L3_1(PL(0,158),W(1,7),GC_5,MDL_MB,ZERO,PL(0,159),COEFS)
 
587
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,158),4,COEFS,4,4,WL(1,0,1,159))
 
588
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,159),3,4,59,1,1,333,H)
627
589
C     Coefficient construction for loop diagram with ID 86
628
 
      CALL FFV1L2P0_3(PL(0,0),W(1,8),GC_5,ZERO,ZERO,PL(0,176),COEFS)
629
 
      CALL ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,176))
630
 
      CALL FFV1L3_1(PL(0,176),W(1,16),GC_5,MDL_MT,MDL_WT,PL(0,177)
631
 
     $ ,COEFS)
632
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,176),4,COEFS,4,4,WL(1,0,1,177))
633
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,177),1,4,56,1,1,334,H)
 
590
      CALL VVVV1L2P0_1(PL(0,38),W(1,14),W(1,1),GC_6,ZERO,ZERO,PL(0,160)
 
591
     $ ,COEFS)
 
592
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,38),4,COEFS,4,4,WL(1,0,1,160))
 
593
      CALL VVVV3L2P0_1(PL(0,38),W(1,14),W(1,1),GC_6,ZERO,ZERO,PL(0,161)
 
594
     $ ,COEFS)
 
595
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,38),4,COEFS,4,4,WL(1,0,1,161))
 
596
      CALL VVVV4L2P0_1(PL(0,38),W(1,14),W(1,1),GC_6,ZERO,ZERO,PL(0,162)
 
597
     $ ,COEFS)
 
598
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,38),4,COEFS,4,4,WL(1,0,1,162))
 
599
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,160),1,4,60,2,1,334,H)
 
600
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,161),1,4,60,2,1,335,H)
 
601
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,162),1,4,60,2,1,336,H)
634
602
C     Coefficient construction for loop diagram with ID 87
635
 
      CALL FFV1L2_1(PL(0,174),W(1,14),GC_5,MDL_MT,MDL_WT,PL(0,178)
636
 
     $ ,COEFS)
637
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,174),4,COEFS,4,4,WL(1,0,1,178))
638
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,178),2,4,55,1,1,335,H)
 
603
      CALL FFV1L2P0_3(PL(0,68),W(1,26),GC_5,ZERO,ZERO,PL(0,163),COEFS)
 
604
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,68),4,COEFS,4,4,WL(1,0,1,163))
 
605
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,163),2,4,26,1,1,337,H)
639
606
C     Coefficient construction for loop diagram with ID 88
640
 
      CALL FFV1L3_1(PL(0,0),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,179),COEFS)
641
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,179))
642
 
      CALL FFV1L2_1(PL(0,179),W(1,6),GC_5,MDL_MT,MDL_WT,PL(0,180)
 
607
      CALL VVV1L2P0_1(PL(0,151),W(1,2),GC_4,ZERO,ZERO,PL(0,164),COEFS)
 
608
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,151),4,COEFS,4,4,WL(1,0,1,164))
 
609
      CALL FFV1L3_2(PL(0,164),W(1,8),GC_5,MDL_MT,MDL_WT,PL(0,165)
643
610
     $ ,COEFS)
644
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,179),4,COEFS,4,4,WL(1,0,1,180))
645
 
      CALL FFV1L2P0_3(PL(0,180),W(1,8),GC_5,ZERO,ZERO,PL(0,181),COEFS)
646
 
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,180),4,COEFS,4,4,WL(1,0,1,181))
647
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,181),2,4,57,1,1,336,H)
 
611
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,164),4,COEFS,4,4,WL(1,0,1,165))
 
612
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,165),3,4,61,1,1,338,H)
648
613
C     Coefficient construction for loop diagram with ID 89
649
 
      CALL FFV1L1P0_3(PL(0,0),W(1,4),GC_5,ZERO,ZERO,PL(0,182),COEFS)
650
 
      CALL ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,182))
651
 
      CALL VVV1L2P0_1(PL(0,182),W(1,6),GC_4,ZERO,ZERO,PL(0,183),COEFS)
652
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,182),4,COEFS,4,4,WL(1,0,1,183))
653
 
      CALL FFV1L3_2(PL(0,183),W(1,8),GC_5,MDL_MT,MDL_WT,PL(0,184)
654
 
     $ ,COEFS)
655
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,183),4,COEFS,4,4,WL(1,0,1,184))
656
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,184),2,4,58,1,1,337,H)
 
614
      CALL VVVV1L2P0_1(PL(0,38),W(1,16),W(1,1),GC_6,ZERO,ZERO,PL(0,166)
 
615
     $ ,COEFS)
 
616
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,38),4,COEFS,4,4,WL(1,0,1,166))
 
617
      CALL VVVV3L2P0_1(PL(0,38),W(1,16),W(1,1),GC_6,ZERO,ZERO,PL(0,167)
 
618
     $ ,COEFS)
 
619
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,38),4,COEFS,4,4,WL(1,0,1,167))
 
620
      CALL VVVV4L2P0_1(PL(0,38),W(1,16),W(1,1),GC_6,ZERO,ZERO,PL(0,168)
 
621
     $ ,COEFS)
 
622
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,38),4,COEFS,4,4,WL(1,0,1,168))
 
623
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,166),1,4,60,2,1,339,H)
 
624
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,167),1,4,60,2,1,340,H)
 
625
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,168),1,4,60,2,1,341,H)
657
626
C     Coefficient construction for loop diagram with ID 90
658
 
      CALL FFV1L1P0_3(PL(0,0),W(1,9),GC_5,ZERO,ZERO,PL(0,185),COEFS)
659
 
      CALL ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,185))
660
 
      CALL FFV1L3_2(PL(0,185),W(1,25),GC_5,MDL_MT,MDL_WT,PL(0,186)
 
627
      CALL VVV1L2P0_1(PL(0,144),W(1,2),GC_4,ZERO,ZERO,PL(0,169),COEFS)
 
628
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,144),4,COEFS,4,4,WL(1,0,1,169))
 
629
      CALL FFV1L3_1(PL(0,169),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,170)
661
630
     $ ,COEFS)
662
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,185),4,COEFS,4,4,WL(1,0,1,186))
663
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,186),1,4,59,1,1,338,H)
 
631
      CALL ML5_0_UPDATE_WL_3_1(WL(1,0,1,169),4,COEFS,4,4,WL(1,0,1,170))
 
632
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,170),4,4,62,1,1,342,H)
664
633
C     Coefficient construction for loop diagram with ID 91
665
 
      CALL FFV1L1_2(PL(0,0),W(1,2),GC_5,MDL_MT,MDL_WT,PL(0,187),COEFS)
666
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,187))
667
 
      CALL FFV1L1P0_3(PL(0,187),W(1,9),GC_5,ZERO,ZERO,PL(0,188),COEFS)
668
 
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,187),4,COEFS,4,4,WL(1,0,1,188))
669
 
      CALL FFV1L3_2(PL(0,188),W(1,8),GC_5,MDL_MT,MDL_WT,PL(0,189)
670
 
     $ ,COEFS)
671
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,188),4,COEFS,4,4,WL(1,0,1,189))
672
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,189),2,4,60,1,1,339,H)
 
634
      CALL VVV1L2P0_1(PL(0,155),W(1,2),GC_4,ZERO,ZERO,PL(0,171),COEFS)
 
635
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,155),4,COEFS,4,4,WL(1,0,1,171))
 
636
      CALL FFV1L3_2(PL(0,171),W(1,5),GC_5,MDL_MB,ZERO,PL(0,172),COEFS)
 
637
      CALL ML5_0_UPDATE_WL_3_1(WL(1,0,1,171),4,COEFS,4,4,WL(1,0,1,172))
 
638
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,172),4,4,63,1,1,343,H)
673
639
C     Coefficient construction for loop diagram with ID 92
674
 
      CALL FFV1L3_1(PL(0,176),W(1,18),GC_5,MDL_MT,MDL_WT,PL(0,190)
675
 
     $ ,COEFS)
676
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,176),4,COEFS,4,4,WL(1,0,1,190))
677
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,190),1,4,56,1,1,340,H)
 
640
      CALL FFV1L3_1(PL(0,52),W(1,28),GC_5,MDL_MB,ZERO,PL(0,173),COEFS)
 
641
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,52),4,COEFS,4,4,WL(1,0,1,173))
 
642
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,173),2,4,20,1,1,344,H)
678
643
C     Coefficient construction for loop diagram with ID 93
679
 
      CALL FFV1L3_2(PL(0,185),W(1,26),GC_5,MDL_MT,MDL_WT,PL(0,191)
680
 
     $ ,COEFS)
681
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,185),4,COEFS,4,4,WL(1,0,1,191))
682
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,191),1,4,59,1,1,341,H)
 
644
      CALL FFV1L3_1(PL(0,136),W(1,24),GC_5,MDL_MB,ZERO,PL(0,174),COEFS)
 
645
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,136),4,COEFS,4,4,WL(1,0,1,174))
 
646
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,174),2,4,52,1,1,345,H)
683
647
C     Coefficient construction for loop diagram with ID 94
684
 
      CALL FFV1L3_1(PL(0,47),W(1,9),GC_5,MDL_MT,MDL_WT,PL(0,192),COEFS)
685
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,47),4,COEFS,4,4,WL(1,0,1,192))
686
 
      CALL FFV1L2P0_3(PL(0,192),W(1,8),GC_5,ZERO,ZERO,PL(0,193),COEFS)
687
 
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,192),4,COEFS,4,4,WL(1,0,1,193))
688
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,193),2,4,61,1,1,342,H)
 
648
      CALL FFV1L1_2(PL(0,138),W(1,2),GC_5,MDL_MB,ZERO,PL(0,175),COEFS)
 
649
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,138),4,COEFS,4,4,WL(1,0,1,175))
 
650
      CALL FFV1L1P0_3(PL(0,175),W(1,7),GC_5,ZERO,ZERO,PL(0,176),COEFS)
 
651
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,175),4,COEFS,4,4,WL(1,0,1,176))
 
652
      CALL FFV1L3_2(PL(0,176),W(1,5),GC_5,MDL_MB,ZERO,PL(0,177),COEFS)
 
653
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,176),4,COEFS,4,4,WL(1,0,1,177))
 
654
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,177),3,4,64,1,1,346,H)
689
655
C     Coefficient construction for loop diagram with ID 95
690
 
      CALL FFV1L1P0_3(PL(0,0),W(1,12),GC_5,ZERO,ZERO,PL(0,194),COEFS)
691
 
      CALL ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,194))
692
 
      CALL FFV1L3_2(PL(0,194),W(1,27),GC_5,MDL_MT,MDL_WT,PL(0,195)
693
 
     $ ,COEFS)
694
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,194),4,COEFS,4,4,WL(1,0,1,195))
695
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,195),1,4,62,1,1,343,H)
 
656
      CALL FFV1L2_1(PL(0,135),W(1,2),GC_5,MDL_MB,ZERO,PL(0,178),COEFS)
 
657
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,135),4,COEFS,4,4,WL(1,0,1,178))
 
658
      CALL FFV1L2P0_3(PL(0,178),W(1,5),GC_5,ZERO,ZERO,PL(0,179),COEFS)
 
659
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,178),4,COEFS,4,4,WL(1,0,1,179))
 
660
      CALL FFV1L3_1(PL(0,179),W(1,7),GC_5,MDL_MB,ZERO,PL(0,180),COEFS)
 
661
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,179),4,COEFS,4,4,WL(1,0,1,180))
 
662
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,180),3,4,65,1,1,347,H)
696
663
C     Coefficient construction for loop diagram with ID 96
697
 
      CALL FFV1L1P0_3(PL(0,187),W(1,4),GC_5,ZERO,ZERO,PL(0,196),COEFS)
698
 
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,187),4,COEFS,4,4,WL(1,0,1,196))
699
 
      CALL FFV1L3_2(PL(0,196),W(1,27),GC_5,MDL_MT,MDL_WT,PL(0,197)
 
664
      CALL FFV1L3_2(PL(0,79),W(1,26),GC_5,MDL_MT,MDL_WT,PL(0,181)
700
665
     $ ,COEFS)
701
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,196),4,COEFS,4,4,WL(1,0,1,197))
702
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,197),2,4,63,1,1,344,H)
 
666
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,79),4,COEFS,4,4,WL(1,0,1,181))
 
667
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,181),2,4,30,1,1,348,H)
703
668
C     Coefficient construction for loop diagram with ID 97
704
 
      CALL FFV1L2P0_3(PL(0,71),W(1,27),GC_5,ZERO,ZERO,PL(0,198),COEFS)
705
 
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,71),4,COEFS,4,4,WL(1,0,1,198))
706
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,198),2,4,64,1,1,345,H)
 
669
      CALL FFV1L3_2(PL(0,151),W(1,20),GC_5,MDL_MT,MDL_WT,PL(0,182)
 
670
     $ ,COEFS)
 
671
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,151),4,COEFS,4,4,WL(1,0,1,182))
 
672
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,182),2,4,56,1,1,349,H)
707
673
C     Coefficient construction for loop diagram with ID 98
708
 
      CALL FFV1L1P0_3(PL(0,151),W(1,12),GC_5,ZERO,ZERO,PL(0,199),COEFS)
709
 
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,151),4,COEFS,4,4,WL(1,0,1,199))
710
 
      CALL FFV1L3_2(PL(0,199),W(1,8),GC_5,MDL_MT,MDL_WT,PL(0,200)
711
 
     $ ,COEFS)
712
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,199),4,COEFS,4,4,WL(1,0,1,200))
713
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,200),2,4,65,1,1,346,H)
 
674
      CALL FFV1L2_1(PL(0,142),W(1,2),GC_5,MDL_MT,MDL_WT,PL(0,183)
 
675
     $ ,COEFS)
 
676
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,142),4,COEFS,4,4,WL(1,0,1,183))
 
677
      CALL FFV1L2P0_3(PL(0,183),W(1,8),GC_5,ZERO,ZERO,PL(0,184),COEFS)
 
678
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,183),4,COEFS,4,4,WL(1,0,1,184))
 
679
      CALL FFV1L3_1(PL(0,184),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,185)
 
680
     $ ,COEFS)
 
681
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,184),4,COEFS,4,4,WL(1,0,1,185))
 
682
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,185),3,4,66,1,1,350,H)
714
683
C     Coefficient construction for loop diagram with ID 99
715
 
      CALL FFV1L1P0_3(PL(0,151),W(1,4),GC_5,ZERO,ZERO,PL(0,201),COEFS)
716
 
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,151),4,COEFS,4,4,WL(1,0,1,201))
717
 
      CALL FFV1L3_2(PL(0,201),W(1,25),GC_5,MDL_MT,MDL_WT,PL(0,202)
718
 
     $ ,COEFS)
719
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,201),4,COEFS,4,4,WL(1,0,1,202))
720
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,202),2,4,66,1,1,347,H)
 
684
      CALL FFV1L1_2(PL(0,131),W(1,2),GC_5,MDL_MT,MDL_WT,PL(0,186)
 
685
     $ ,COEFS)
 
686
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,131),4,COEFS,4,4,WL(1,0,1,186))
 
687
      CALL FFV1L1P0_3(PL(0,186),W(1,4),GC_5,ZERO,ZERO,PL(0,187),COEFS)
 
688
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,186),4,COEFS,4,4,WL(1,0,1,187))
 
689
      CALL FFV1L3_2(PL(0,187),W(1,8),GC_5,MDL_MT,MDL_WT,PL(0,188)
 
690
     $ ,COEFS)
 
691
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,187),4,COEFS,4,4,WL(1,0,1,188))
 
692
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,188),3,4,67,1,1,351,H)
721
693
C     Coefficient construction for loop diagram with ID 100
722
 
      CALL FFV1L1_2(PL(0,152),W(1,13),GC_5,MDL_MT,MDL_WT,PL(0,203)
 
694
      CALL FFV1L2_1(PL(0,143),W(1,2),GC_5,MDL_MB,ZERO,PL(0,189),COEFS)
 
695
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,143),4,COEFS,4,4,WL(1,0,1,189))
 
696
      CALL FFV1L2P0_3(PL(0,189),W(1,5),GC_5,ZERO,ZERO,PL(0,190),COEFS)
 
697
      CALL ML5_0_UPDATE_WL_3_0(WL(1,0,1,189),4,COEFS,4,4,WL(1,0,1,190))
 
698
      CALL FFV1L3_1(PL(0,190),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,191)
723
699
     $ ,COEFS)
724
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,152),4,COEFS,4,4,WL(1,0,1,203))
725
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,203),3,4,67,1,1,348,H)
 
700
      CALL ML5_0_UPDATE_WL_3_1(WL(1,0,1,190),4,COEFS,4,4,WL(1,0,1,191))
 
701
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,191),4,4,68,1,1,352,H)
726
702
C     Coefficient construction for loop diagram with ID 101
727
 
      CALL FFV1L1_2(PL(0,152),W(1,14),GC_5,MDL_MT,MDL_WT,PL(0,204)
 
703
      CALL FFV2L2_1(PL(0,183),W(1,3),GC_11,MDL_MB,ZERO,PL(0,192),COEFS)
 
704
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,183),4,COEFS,4,4,WL(1,0,1,192))
 
705
      CALL FFV1L2P0_3(PL(0,192),W(1,5),GC_5,ZERO,ZERO,PL(0,193),COEFS)
 
706
      CALL ML5_0_UPDATE_WL_3_0(WL(1,0,1,192),4,COEFS,4,4,WL(1,0,1,193))
 
707
      CALL FFV1L3_1(PL(0,193),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,194)
728
708
     $ ,COEFS)
729
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,152),4,COEFS,4,4,WL(1,0,1,204))
730
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,204),3,4,67,1,1,349,H)
 
709
      CALL ML5_0_UPDATE_WL_3_1(WL(1,0,1,193),4,COEFS,4,4,WL(1,0,1,194))
 
710
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,194),4,4,69,1,1,353,H)
731
711
C     Coefficient construction for loop diagram with ID 102
732
 
      CALL FFV1L3_2(PL(0,153),W(1,8),GC_5,MDL_MT,MDL_WT,PL(0,205)
 
712
      CALL FFV1L1_2(PL(0,139),W(1,2),GC_5,MDL_MT,MDL_WT,PL(0,195)
733
713
     $ ,COEFS)
734
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,153),4,COEFS,4,4,WL(1,0,1,205))
735
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,205),3,4,68,1,1,350,H)
 
714
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,139),4,COEFS,4,4,WL(1,0,1,195))
 
715
      CALL FFV1L1P0_3(PL(0,195),W(1,4),GC_5,ZERO,ZERO,PL(0,196),COEFS)
 
716
      CALL ML5_0_UPDATE_WL_3_0(WL(1,0,1,195),4,COEFS,4,4,WL(1,0,1,196))
 
717
      CALL FFV1L3_2(PL(0,196),W(1,5),GC_5,MDL_MB,ZERO,PL(0,197),COEFS)
 
718
      CALL ML5_0_UPDATE_WL_3_1(WL(1,0,1,196),4,COEFS,4,4,WL(1,0,1,197))
 
719
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,197),4,4,70,1,1,354,H)
736
720
C     Coefficient construction for loop diagram with ID 103
737
 
      CALL FFV1L2_1(PL(0,162),W(1,13),GC_5,MDL_MT,MDL_WT,PL(0,206)
 
721
      CALL FFV2L1_2(PL(0,175),W(1,3),GC_11,MDL_MT,MDL_WT,PL(0,198)
738
722
     $ ,COEFS)
739
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,162),4,COEFS,4,4,WL(1,0,1,206))
740
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,206),3,4,67,1,1,351,H)
 
723
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,175),4,COEFS,4,4,WL(1,0,1,198))
 
724
      CALL FFV1L1P0_3(PL(0,198),W(1,4),GC_5,ZERO,ZERO,PL(0,199),COEFS)
 
725
      CALL ML5_0_UPDATE_WL_3_0(WL(1,0,1,198),4,COEFS,4,4,WL(1,0,1,199))
 
726
      CALL FFV1L3_2(PL(0,199),W(1,5),GC_5,MDL_MB,ZERO,PL(0,200),COEFS)
 
727
      CALL ML5_0_UPDATE_WL_3_1(WL(1,0,1,199),4,COEFS,4,4,WL(1,0,1,200))
 
728
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,200),4,4,71,1,1,355,H)
741
729
C     Coefficient construction for loop diagram with ID 104
742
 
      CALL FFV1L2_1(PL(0,162),W(1,14),GC_5,MDL_MT,MDL_WT,PL(0,207)
 
730
      CALL FFV1L3_2(PL(0,187),W(1,5),GC_5,MDL_MB,ZERO,PL(0,201),COEFS)
 
731
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,187),4,COEFS,4,4,WL(1,0,1,201))
 
732
      CALL FFV2L1_2(PL(0,201),W(1,3),GC_11,MDL_MT,MDL_WT,PL(0,202)
743
733
     $ ,COEFS)
744
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,162),4,COEFS,4,4,WL(1,0,1,207))
745
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,207),3,4,67,1,1,352,H)
 
734
      CALL ML5_0_UPDATE_WL_3_1(WL(1,0,1,201),4,COEFS,4,4,WL(1,0,1,202))
 
735
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,202),4,4,72,1,1,356,H)
746
736
C     Coefficient construction for loop diagram with ID 105
747
 
      CALL FFV1L2P0_3(PL(0,162),W(1,8),GC_5,ZERO,ZERO,PL(0,208),COEFS)
748
 
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,162),4,COEFS,4,4,WL(1,0,1,208))
749
 
      CALL FFV1L3_1(PL(0,208),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,209)
 
737
      CALL FFV1L3_1(PL(0,179),W(1,4),GC_5,MDL_MT,MDL_WT,PL(0,203)
750
738
     $ ,COEFS)
751
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,208),4,COEFS,4,4,WL(1,0,1,209))
752
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,209),3,4,69,1,1,353,H)
 
739
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,179),4,COEFS,4,4,WL(1,0,1,203))
 
740
      CALL FFV2L2_1(PL(0,203),W(1,3),GC_11,MDL_MB,ZERO,PL(0,204),COEFS)
 
741
      CALL ML5_0_UPDATE_WL_3_1(WL(1,0,1,203),4,COEFS,4,4,WL(1,0,1,204))
 
742
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,204),4,4,73,1,1,357,H)
753
743
C     Coefficient construction for loop diagram with ID 106
754
 
      CALL VVV1L2P0_1(PL(0,201),W(1,2),GC_4,ZERO,ZERO,PL(0,210),COEFS)
755
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,201),4,COEFS,4,4,WL(1,0,1,210))
756
 
      CALL FFV1L3_2(PL(0,210),W(1,8),GC_5,MDL_MT,MDL_WT,PL(0,211)
757
 
     $ ,COEFS)
758
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,210),4,COEFS,4,4,WL(1,0,1,211))
759
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,211),3,4,70,1,1,354,H)
 
744
      CALL VVVV1L2P0_1(PL(0,5),W(1,2),W(1,1),GC_6,ZERO,ZERO,PL(0,205)
 
745
     $ ,COEFS)
 
746
      CALL ML5_0_UPDATE_WL_0_0(WL(1,0,1,5),4,COEFS,4,4,WL(1,0,1,205))
 
747
      CALL VVVV3L2P0_1(PL(0,5),W(1,2),W(1,1),GC_6,ZERO,ZERO,PL(0,206)
 
748
     $ ,COEFS)
 
749
      CALL ML5_0_UPDATE_WL_0_0(WL(1,0,1,5),4,COEFS,4,4,WL(1,0,1,206))
 
750
      CALL VVVV4L2P0_1(PL(0,5),W(1,2),W(1,1),GC_6,ZERO,ZERO,PL(0,207)
 
751
     $ ,COEFS)
 
752
      CALL ML5_0_UPDATE_WL_0_0(WL(1,0,1,5),4,COEFS,4,4,WL(1,0,1,207))
 
753
      CALL FFV1L3_1(PL(0,205),W(1,7),GC_5,MDL_MB,ZERO,PL(0,208),COEFS)
 
754
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,205),4,COEFS,4,4,WL(1,0,1,208))
 
755
      CALL FFV1L3_1(PL(0,206),W(1,7),GC_5,MDL_MB,ZERO,PL(0,209),COEFS)
 
756
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,206),4,COEFS,4,4,WL(1,0,1,209))
 
757
      CALL FFV1L3_1(PL(0,207),W(1,7),GC_5,MDL_MB,ZERO,PL(0,210),COEFS)
 
758
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,207),4,COEFS,4,4,WL(1,0,1,210))
 
759
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,208),1,4,3,1,1,358,H)
 
760
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,209),1,4,3,1,1,359,H)
 
761
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,210),1,4,3,1,1,360,H)
760
762
C     Coefficient construction for loop diagram with ID 107
761
 
      CALL FFV1L3_2(PL(0,201),W(1,26),GC_5,MDL_MT,MDL_WT,PL(0,212)
762
 
     $ ,COEFS)
763
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,201),4,COEFS,4,4,WL(1,0,1,212))
764
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,212),2,4,66,1,1,355,H)
 
763
      CALL VVVV1L2P0_1(PL(0,0),W(1,2),W(1,1),GC_6,ZERO,ZERO,PL(0,211)
 
764
     $ ,COEFS)
 
765
      CALL ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,211))
 
766
      CALL VVVV3L2P0_1(PL(0,0),W(1,2),W(1,1),GC_6,ZERO,ZERO,PL(0,212)
 
767
     $ ,COEFS)
 
768
      CALL ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,212))
 
769
      CALL VVVV4L2P0_1(PL(0,0),W(1,2),W(1,1),GC_6,ZERO,ZERO,PL(0,213)
 
770
     $ ,COEFS)
 
771
      CALL ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,213))
 
772
      CALL VVV1L2P0_1(PL(0,211),W(1,14),GC_4,ZERO,ZERO,PL(0,214),COEFS)
 
773
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,211),4,COEFS,4,4,WL(1,0,1,214))
 
774
      CALL VVV1L2P0_1(PL(0,212),W(1,14),GC_4,ZERO,ZERO,PL(0,215),COEFS)
 
775
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,212),4,COEFS,4,4,WL(1,0,1,215))
 
776
      CALL VVV1L2P0_1(PL(0,213),W(1,14),GC_4,ZERO,ZERO,PL(0,216),COEFS)
 
777
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,213),4,COEFS,4,4,WL(1,0,1,216))
 
778
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,214),1,4,2,2,1,361,H)
 
779
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,215),1,4,2,2,1,362,H)
 
780
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,216),1,4,2,2,1,363,H)
765
781
C     Coefficient construction for loop diagram with ID 108
766
 
      CALL FFV1L3_1(PL(0,176),W(1,22),GC_5,MDL_MT,MDL_WT,PL(0,213)
767
 
     $ ,COEFS)
768
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,176),4,COEFS,4,4,WL(1,0,1,213))
769
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,213),1,4,56,1,1,356,H)
 
782
      CALL VVVV1L2P0_1(PL(0,14),W(1,2),W(1,1),GC_6,ZERO,ZERO,PL(0,217)
 
783
     $ ,COEFS)
 
784
      CALL ML5_0_UPDATE_WL_0_0(WL(1,0,1,14),4,COEFS,4,4,WL(1,0,1,217))
 
785
      CALL VVVV3L2P0_1(PL(0,14),W(1,2),W(1,1),GC_6,ZERO,ZERO,PL(0,218)
 
786
     $ ,COEFS)
 
787
      CALL ML5_0_UPDATE_WL_0_0(WL(1,0,1,14),4,COEFS,4,4,WL(1,0,1,218))
 
788
      CALL VVVV4L2P0_1(PL(0,14),W(1,2),W(1,1),GC_6,ZERO,ZERO,PL(0,219)
 
789
     $ ,COEFS)
 
790
      CALL ML5_0_UPDATE_WL_0_0(WL(1,0,1,14),4,COEFS,4,4,WL(1,0,1,219))
 
791
      CALL FFV1L3_2(PL(0,217),W(1,8),GC_5,MDL_MT,MDL_WT,PL(0,220)
 
792
     $ ,COEFS)
 
793
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,217),4,COEFS,4,4,WL(1,0,1,220))
 
794
      CALL FFV1L3_2(PL(0,218),W(1,8),GC_5,MDL_MT,MDL_WT,PL(0,221)
 
795
     $ ,COEFS)
 
796
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,218),4,COEFS,4,4,WL(1,0,1,221))
 
797
      CALL FFV1L3_2(PL(0,219),W(1,8),GC_5,MDL_MT,MDL_WT,PL(0,222)
 
798
     $ ,COEFS)
 
799
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,219),4,COEFS,4,4,WL(1,0,1,222))
 
800
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,220),1,4,6,1,1,364,H)
 
801
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,221),1,4,6,1,1,365,H)
 
802
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,222),1,4,6,1,1,366,H)
770
803
C     Coefficient construction for loop diagram with ID 109
771
 
      CALL FFV1L3_2(PL(0,194),W(1,28),GC_5,MDL_MT,MDL_WT,PL(0,214)
772
 
     $ ,COEFS)
773
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,194),4,COEFS,4,4,WL(1,0,1,214))
774
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,214),1,4,62,1,1,357,H)
 
804
      CALL VVV1L2P0_1(PL(0,211),W(1,16),GC_4,ZERO,ZERO,PL(0,223),COEFS)
 
805
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,211),4,COEFS,4,4,WL(1,0,1,223))
 
806
      CALL VVV1L2P0_1(PL(0,212),W(1,16),GC_4,ZERO,ZERO,PL(0,224),COEFS)
 
807
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,212),4,COEFS,4,4,WL(1,0,1,224))
 
808
      CALL VVV1L2P0_1(PL(0,213),W(1,16),GC_4,ZERO,ZERO,PL(0,225),COEFS)
 
809
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,213),4,COEFS,4,4,WL(1,0,1,225))
 
810
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,223),1,4,2,2,1,367,H)
 
811
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,224),1,4,2,2,1,368,H)
 
812
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,225),1,4,2,2,1,369,H)
775
813
C     Coefficient construction for loop diagram with ID 110
776
 
      CALL FFV1L3_1(PL(0,113),W(1,12),GC_5,MDL_MT,MDL_WT,PL(0,215)
777
 
     $ ,COEFS)
778
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,113),4,COEFS,4,4,WL(1,0,1,215))
779
 
      CALL FFV1L2P0_3(PL(0,215),W(1,8),GC_5,ZERO,ZERO,PL(0,216),COEFS)
780
 
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,215),4,COEFS,4,4,WL(1,0,1,216))
781
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,216),2,4,71,1,1,358,H)
 
814
      CALL VVVV1L2P0_1(PL(0,21),W(1,2),W(1,1),GC_6,ZERO,ZERO,PL(0,226)
 
815
     $ ,COEFS)
 
816
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,21),4,COEFS,4,4,WL(1,0,1,226))
 
817
      CALL VVVV3L2P0_1(PL(0,21),W(1,2),W(1,1),GC_6,ZERO,ZERO,PL(0,227)
 
818
     $ ,COEFS)
 
819
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,21),4,COEFS,4,4,WL(1,0,1,227))
 
820
      CALL VVVV4L2P0_1(PL(0,21),W(1,2),W(1,1),GC_6,ZERO,ZERO,PL(0,228)
 
821
     $ ,COEFS)
 
822
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,21),4,COEFS,4,4,WL(1,0,1,228))
 
823
      CALL FFV1L3_2(PL(0,226),W(1,5),GC_5,MDL_MB,ZERO,PL(0,229),COEFS)
 
824
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,226),4,COEFS,4,4,WL(1,0,1,229))
 
825
      CALL FFV1L3_2(PL(0,227),W(1,5),GC_5,MDL_MB,ZERO,PL(0,230),COEFS)
 
826
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,227),4,COEFS,4,4,WL(1,0,1,230))
 
827
      CALL FFV1L3_2(PL(0,228),W(1,5),GC_5,MDL_MB,ZERO,PL(0,231),COEFS)
 
828
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,228),4,COEFS,4,4,WL(1,0,1,231))
 
829
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,229),2,4,9,1,1,370,H)
 
830
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,230),2,4,9,1,1,371,H)
 
831
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,231),2,4,9,1,1,372,H)
782
832
C     Coefficient construction for loop diagram with ID 111
783
 
      CALL FFV1L2P0_3(PL(0,125),W(1,25),GC_5,ZERO,ZERO,PL(0,217),COEFS)
784
 
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,125),4,COEFS,4,4,WL(1,0,1,217))
785
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,217),2,4,72,1,1,359,H)
 
833
      CALL GHGHGL2_1(PL(0,0),W(1,6),GC_4,ZERO,ZERO,PL(0,232),COEFS)
 
834
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),1,COEFS,1,1,WL(1,0,1,232))
 
835
      CALL GHGHGL2_1(PL(0,232),W(1,14),GC_4,ZERO,ZERO,PL(0,233),COEFS)
 
836
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,232),1,COEFS,1,1,WL(1,0,1,233))
 
837
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,233),2,1,2,1,1,373,H)
786
838
C     Coefficient construction for loop diagram with ID 112
787
 
      CALL FFV1L3_2(PL(0,196),W(1,28),GC_5,MDL_MT,MDL_WT,PL(0,218)
788
 
     $ ,COEFS)
789
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,196),4,COEFS,4,4,WL(1,0,1,218))
790
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,218),2,4,63,1,1,360,H)
 
839
      CALL GHGHGL2_1(PL(0,232),W(1,16),GC_4,ZERO,ZERO,PL(0,234),COEFS)
 
840
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,232),1,COEFS,1,1,WL(1,0,1,234))
 
841
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,234),2,1,2,1,1,374,H)
791
842
C     Coefficient construction for loop diagram with ID 113
792
 
      CALL FFV1L2P0_3(PL(0,156),W(1,8),GC_5,ZERO,ZERO,PL(0,219),COEFS)
793
 
      CALL ML5_0_UPDATE_WL_3_0(WL(1,0,1,156),4,COEFS,4,4,WL(1,0,1,219))
794
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,219),3,4,73,1,1,361,H)
 
843
      CALL GHGHGL1_2(PL(0,0),W(1,1),GC_4,ZERO,ZERO,PL(0,235),COEFS)
 
844
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),1,COEFS,1,1,WL(1,0,1,235))
 
845
      CALL GHGHGL1_2(PL(0,235),W(1,2),GC_4,ZERO,ZERO,PL(0,236),COEFS)
 
846
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,235),1,COEFS,1,1,WL(1,0,1,236))
 
847
      CALL GHGHGL1_2(PL(0,236),W(1,14),GC_4,ZERO,ZERO,PL(0,237),COEFS)
 
848
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,236),1,COEFS,1,1,WL(1,0,1,237))
 
849
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,237),3,1,41,1,1,375,H)
795
850
C     Coefficient construction for loop diagram with ID 114
796
 
      CALL FFV1L2P0_3(PL(0,71),W(1,28),GC_5,ZERO,ZERO,PL(0,220),COEFS)
797
 
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,71),4,COEFS,4,4,WL(1,0,1,220))
798
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,220),2,4,64,1,1,362,H)
 
851
      CALL GHGHGL1_2(PL(0,236),W(1,16),GC_4,ZERO,ZERO,PL(0,238),COEFS)
 
852
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,236),1,COEFS,1,1,WL(1,0,1,238))
 
853
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,238),3,1,41,1,1,376,H)
799
854
C     Coefficient construction for loop diagram with ID 115
800
 
      CALL FFV1L2P0_3(PL(0,125),W(1,26),GC_5,ZERO,ZERO,PL(0,221),COEFS)
801
 
      CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,125),4,COEFS,4,4,WL(1,0,1,221))
802
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,221),2,4,72,1,1,363,H)
 
855
      CALL GHGHGL2_1(PL(0,0),W(1,1),GC_4,ZERO,ZERO,PL(0,239),COEFS)
 
856
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),1,COEFS,1,1,WL(1,0,1,239))
 
857
      CALL GHGHGL2_1(PL(0,239),W(1,2),GC_4,ZERO,ZERO,PL(0,240),COEFS)
 
858
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,239),1,COEFS,1,1,WL(1,0,1,240))
 
859
      CALL GHGHGL2_1(PL(0,240),W(1,14),GC_4,ZERO,ZERO,PL(0,241),COEFS)
 
860
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,240),1,COEFS,1,1,WL(1,0,1,241))
 
861
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,241),3,1,41,1,1,377,H)
803
862
C     Coefficient construction for loop diagram with ID 116
804
 
      CALL FFV1L3_2(PL(0,138),W(1,8),GC_5,MDL_MT,MDL_WT,PL(0,222)
805
 
     $ ,COEFS)
806
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,138),4,COEFS,4,4,WL(1,0,1,222))
807
 
      CALL FFV1L1P0_3(PL(0,222),W(1,4),GC_5,ZERO,ZERO,PL(0,223),COEFS)
808
 
      CALL ML5_0_UPDATE_WL_3_0(WL(1,0,1,222),4,COEFS,4,4,WL(1,0,1,223))
809
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,223),3,4,74,1,1,364,H)
 
863
      CALL GHGHGL2_1(PL(0,240),W(1,16),GC_4,ZERO,ZERO,PL(0,242),COEFS)
 
864
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,240),1,COEFS,1,1,WL(1,0,1,242))
 
865
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,242),3,1,41,1,1,378,H)
810
866
C     Coefficient construction for loop diagram with ID 117
811
 
      CALL FFV1L2P0_3(PL(0,159),W(1,8),GC_5,ZERO,ZERO,PL(0,224),COEFS)
812
 
      CALL ML5_0_UPDATE_WL_3_0(WL(1,0,1,159),4,COEFS,4,4,WL(1,0,1,224))
813
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,224),3,4,75,1,1,365,H)
 
867
      CALL FFV1L2_1(PL(0,0),W(1,6),GC_5,ZERO,ZERO,PL(0,243),COEFS)
 
868
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,243))
 
869
      CALL FFV1L2_1(PL(0,243),W(1,14),GC_5,ZERO,ZERO,PL(0,244),COEFS)
 
870
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,243),4,COEFS,4,4,WL(1,0,1,244))
 
871
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,244),2,4,2,1,4,379,H)
814
872
C     Coefficient construction for loop diagram with ID 118
815
 
      CALL VVVV1L2P0_1(PL(0,182),W(1,1),W(1,2),GC_6,ZERO,ZERO,PL(0,225)
816
 
     $ ,COEFS)
817
 
      CALL ML5_0_UPDATE_WL_0_0(WL(1,0,1,182),4,COEFS,4,4,WL(1,0,1,225))
818
 
      CALL VVVV3L2P0_1(PL(0,182),W(1,1),W(1,2),GC_6,ZERO,ZERO,PL(0,226)
819
 
     $ ,COEFS)
820
 
      CALL ML5_0_UPDATE_WL_0_0(WL(1,0,1,182),4,COEFS,4,4,WL(1,0,1,226))
821
 
      CALL VVVV4L2P0_1(PL(0,182),W(1,1),W(1,2),GC_6,ZERO,ZERO,PL(0,227)
822
 
     $ ,COEFS)
823
 
      CALL ML5_0_UPDATE_WL_0_0(WL(1,0,1,182),4,COEFS,4,4,WL(1,0,1,227))
824
 
      CALL FFV1L3_2(PL(0,225),W(1,8),GC_5,MDL_MT,MDL_WT,PL(0,228)
825
 
     $ ,COEFS)
826
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,225),4,COEFS,4,4,WL(1,0,1,228))
827
 
      CALL FFV1L3_2(PL(0,226),W(1,8),GC_5,MDL_MT,MDL_WT,PL(0,229)
828
 
     $ ,COEFS)
829
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,226),4,COEFS,4,4,WL(1,0,1,229))
830
 
      CALL FFV1L3_2(PL(0,227),W(1,8),GC_5,MDL_MT,MDL_WT,PL(0,230)
831
 
     $ ,COEFS)
832
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,227),4,COEFS,4,4,WL(1,0,1,230))
833
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,228),1,4,58,1,1,366,H)
834
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,229),1,4,58,1,1,367,H)
835
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,230),1,4,58,1,1,368,H)
 
873
      CALL FFV1L2_1(PL(0,243),W(1,16),GC_5,ZERO,ZERO,PL(0,245),COEFS)
 
874
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,243),4,COEFS,4,4,WL(1,0,1,245))
 
875
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,245),2,4,2,1,4,380,H)
836
876
C     Coefficient construction for loop diagram with ID 119
837
 
      CALL VVV1L2P0_1(PL(0,0),W(1,6),GC_4,ZERO,ZERO,PL(0,231),COEFS)
838
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,231))
839
 
      CALL VVV1L2P0_1(PL(0,231),W(1,13),GC_4,ZERO,ZERO,PL(0,232),COEFS)
840
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,231),4,COEFS,4,4,WL(1,0,1,232))
841
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,232),2,4,1,2,1,369,H)
 
877
      CALL FFV1L1_2(PL(0,0),W(1,1),GC_5,ZERO,ZERO,PL(0,246),COEFS)
 
878
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,246))
 
879
      CALL FFV1L1_2(PL(0,246),W(1,2),GC_5,ZERO,ZERO,PL(0,247),COEFS)
 
880
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,246),4,COEFS,4,4,WL(1,0,1,247))
 
881
      CALL FFV1L1_2(PL(0,247),W(1,14),GC_5,ZERO,ZERO,PL(0,248),COEFS)
 
882
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,247),4,COEFS,4,4,WL(1,0,1,248))
 
883
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,248),3,4,41,1,4,381,H)
842
884
C     Coefficient construction for loop diagram with ID 120
843
 
      CALL VVV1L2P0_1(PL(0,231),W(1,14),GC_4,ZERO,ZERO,PL(0,233),COEFS)
844
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,231),4,COEFS,4,4,WL(1,0,1,233))
845
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,233),2,4,1,2,1,370,H)
 
885
      CALL FFV1L1_2(PL(0,247),W(1,16),GC_5,ZERO,ZERO,PL(0,249),COEFS)
 
886
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,247),4,COEFS,4,4,WL(1,0,1,249))
 
887
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,249),3,4,41,1,4,382,H)
846
888
C     Coefficient construction for loop diagram with ID 121
847
 
      CALL VVV1L2P0_1(PL(0,138),W(1,13),GC_4,ZERO,ZERO,PL(0,234),COEFS)
848
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,138),4,COEFS,4,4,WL(1,0,1,234))
849
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,234),3,4,2,1,1,371,H)
 
889
      CALL FFV1L2_1(PL(0,0),W(1,1),GC_5,ZERO,ZERO,PL(0,250),COEFS)
 
890
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,250))
 
891
      CALL FFV1L2_1(PL(0,250),W(1,2),GC_5,ZERO,ZERO,PL(0,251),COEFS)
 
892
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,250),4,COEFS,4,4,WL(1,0,1,251))
 
893
      CALL FFV1L2_1(PL(0,251),W(1,14),GC_5,ZERO,ZERO,PL(0,252),COEFS)
 
894
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,251),4,COEFS,4,4,WL(1,0,1,252))
 
895
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,252),3,4,41,1,4,383,H)
850
896
C     Coefficient construction for loop diagram with ID 122
851
 
      CALL VVV1L2P0_1(PL(0,138),W(1,14),GC_4,ZERO,ZERO,PL(0,235),COEFS)
852
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,138),4,COEFS,4,4,WL(1,0,1,235))
853
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,235),3,4,2,1,1,372,H)
 
897
      CALL FFV1L2_1(PL(0,251),W(1,16),GC_5,ZERO,ZERO,PL(0,253),COEFS)
 
898
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,251),4,COEFS,4,4,WL(1,0,1,253))
 
899
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,253),3,4,41,1,4,384,H)
854
900
C     Coefficient construction for loop diagram with ID 123
855
 
      CALL VVVV1L2P0_1(PL(0,113),W(1,13),W(1,2),GC_6,ZERO,ZERO,PL(0
856
 
     $ ,236),COEFS)
857
 
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,113),4,COEFS,4,4,WL(1,0,1,236))
858
 
      CALL VVVV3L2P0_1(PL(0,113),W(1,13),W(1,2),GC_6,ZERO,ZERO,PL(0
859
 
     $ ,237),COEFS)
860
 
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,113),4,COEFS,4,4,WL(1,0,1,237))
861
 
      CALL VVVV4L2P0_1(PL(0,113),W(1,13),W(1,2),GC_6,ZERO,ZERO,PL(0
862
 
     $ ,238),COEFS)
863
 
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,113),4,COEFS,4,4,WL(1,0,1,238))
864
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,236),1,4,76,2,1,373,H)
865
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,237),1,4,76,2,1,374,H)
866
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,238),1,4,76,2,1,375,H)
 
901
      CALL FFV1L2_1(PL(0,0),W(1,6),GC_5,MDL_MB,ZERO,PL(0,254),COEFS)
 
902
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,254))
 
903
      CALL FFV1L2_1(PL(0,254),W(1,14),GC_5,MDL_MB,ZERO,PL(0,255),COEFS)
 
904
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,254),4,COEFS,4,4,WL(1,0,1,255))
 
905
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,255),2,4,74,1,1,385,H)
867
906
C     Coefficient construction for loop diagram with ID 124
868
 
      CALL VVVV1L2P0_1(PL(0,113),W(1,14),W(1,2),GC_6,ZERO,ZERO,PL(0
869
 
     $ ,239),COEFS)
870
 
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,113),4,COEFS,4,4,WL(1,0,1,239))
871
 
      CALL VVVV3L2P0_1(PL(0,113),W(1,14),W(1,2),GC_6,ZERO,ZERO,PL(0
872
 
     $ ,240),COEFS)
873
 
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,113),4,COEFS,4,4,WL(1,0,1,240))
874
 
      CALL VVVV4L2P0_1(PL(0,113),W(1,14),W(1,2),GC_6,ZERO,ZERO,PL(0
875
 
     $ ,241),COEFS)
876
 
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,113),4,COEFS,4,4,WL(1,0,1,241))
877
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,239),1,4,76,2,1,376,H)
878
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,240),1,4,76,2,1,377,H)
879
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,241),1,4,76,2,1,378,H)
 
907
      CALL FFV1L2_1(PL(0,254),W(1,16),GC_5,MDL_MB,ZERO,PL(0,256),COEFS)
 
908
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,254),4,COEFS,4,4,WL(1,0,1,256))
 
909
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,256),2,4,74,1,1,386,H)
880
910
C     Coefficient construction for loop diagram with ID 125
881
 
      CALL VVVV1L2P0_1(PL(0,47),W(1,13),W(1,1),GC_6,ZERO,ZERO,PL(0,242)
882
 
     $ ,COEFS)
883
 
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,47),4,COEFS,4,4,WL(1,0,1,242))
884
 
      CALL VVVV3L2P0_1(PL(0,47),W(1,13),W(1,1),GC_6,ZERO,ZERO,PL(0,243)
885
 
     $ ,COEFS)
886
 
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,47),4,COEFS,4,4,WL(1,0,1,243))
887
 
      CALL VVVV4L2P0_1(PL(0,47),W(1,13),W(1,1),GC_6,ZERO,ZERO,PL(0,244)
888
 
     $ ,COEFS)
889
 
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,47),4,COEFS,4,4,WL(1,0,1,244))
890
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,242),1,4,77,2,1,379,H)
891
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,243),1,4,77,2,1,380,H)
892
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,244),1,4,77,2,1,381,H)
 
911
      CALL FFV1L1_2(PL(0,175),W(1,14),GC_5,MDL_MB,ZERO,PL(0,257),COEFS)
 
912
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,175),4,COEFS,4,4,WL(1,0,1,257))
 
913
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,257),3,4,75,1,1,387,H)
893
914
C     Coefficient construction for loop diagram with ID 126
894
 
      CALL VVVV1L2P0_1(PL(0,47),W(1,14),W(1,1),GC_6,ZERO,ZERO,PL(0,245)
895
 
     $ ,COEFS)
896
 
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,47),4,COEFS,4,4,WL(1,0,1,245))
897
 
      CALL VVVV3L2P0_1(PL(0,47),W(1,14),W(1,1),GC_6,ZERO,ZERO,PL(0,246)
898
 
     $ ,COEFS)
899
 
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,47),4,COEFS,4,4,WL(1,0,1,246))
900
 
      CALL VVVV4L2P0_1(PL(0,47),W(1,14),W(1,1),GC_6,ZERO,ZERO,PL(0,247)
901
 
     $ ,COEFS)
902
 
      CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,47),4,COEFS,4,4,WL(1,0,1,247))
903
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,245),1,4,77,2,1,382,H)
904
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,246),1,4,77,2,1,383,H)
905
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,247),1,4,77,2,1,384,H)
 
915
      CALL FFV1L1_2(PL(0,175),W(1,16),GC_5,MDL_MB,ZERO,PL(0,258),COEFS)
 
916
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,175),4,COEFS,4,4,WL(1,0,1,258))
 
917
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,258),3,4,75,1,1,388,H)
906
918
C     Coefficient construction for loop diagram with ID 127
907
 
      CALL VVVV1L2P0_1(PL(0,0),W(1,1),W(1,2),GC_6,ZERO,ZERO,PL(0,248)
908
 
     $ ,COEFS)
909
 
      CALL ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,248))
910
 
      CALL VVVV3L2P0_1(PL(0,0),W(1,1),W(1,2),GC_6,ZERO,ZERO,PL(0,249)
911
 
     $ ,COEFS)
912
 
      CALL ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,249))
913
 
      CALL VVVV4L2P0_1(PL(0,0),W(1,1),W(1,2),GC_6,ZERO,ZERO,PL(0,250)
914
 
     $ ,COEFS)
915
 
      CALL ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,250))
916
 
      CALL VVV1L2P0_1(PL(0,248),W(1,13),GC_4,ZERO,ZERO,PL(0,251),COEFS)
917
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,248),4,COEFS,4,4,WL(1,0,1,251))
918
 
      CALL VVV1L2P0_1(PL(0,249),W(1,13),GC_4,ZERO,ZERO,PL(0,252),COEFS)
919
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,249),4,COEFS,4,4,WL(1,0,1,252))
920
 
      CALL VVV1L2P0_1(PL(0,250),W(1,13),GC_4,ZERO,ZERO,PL(0,253),COEFS)
921
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,250),4,COEFS,4,4,WL(1,0,1,253))
922
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,251),1,4,1,2,1,385,H)
923
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,252),1,4,1,2,1,386,H)
924
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,253),1,4,1,2,1,387,H)
 
919
      CALL FFV1L2_1(PL(0,178),W(1,14),GC_5,MDL_MB,ZERO,PL(0,259),COEFS)
 
920
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,178),4,COEFS,4,4,WL(1,0,1,259))
 
921
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,259),3,4,75,1,1,389,H)
925
922
C     Coefficient construction for loop diagram with ID 128
926
 
      CALL VVV1L2P0_1(PL(0,248),W(1,14),GC_4,ZERO,ZERO,PL(0,254),COEFS)
927
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,248),4,COEFS,4,4,WL(1,0,1,254))
928
 
      CALL VVV1L2P0_1(PL(0,249),W(1,14),GC_4,ZERO,ZERO,PL(0,255),COEFS)
929
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,249),4,COEFS,4,4,WL(1,0,1,255))
930
 
      CALL VVV1L2P0_1(PL(0,250),W(1,14),GC_4,ZERO,ZERO,PL(0,256),COEFS)
931
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,250),4,COEFS,4,4,WL(1,0,1,256))
932
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,254),1,4,1,2,1,388,H)
933
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,255),1,4,1,2,1,389,H)
934
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,256),1,4,1,2,1,390,H)
 
923
      CALL FFV1L2_1(PL(0,178),W(1,16),GC_5,MDL_MB,ZERO,PL(0,260),COEFS)
 
924
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,178),4,COEFS,4,4,WL(1,0,1,260))
 
925
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,260),3,4,75,1,1,390,H)
935
926
C     Coefficient construction for loop diagram with ID 129
936
 
      CALL GHGHGL2_1(PL(0,0),W(1,6),GC_4,ZERO,ZERO,PL(0,257),COEFS)
937
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),1,COEFS,1,1,WL(1,0,1,257))
938
 
      CALL GHGHGL2_1(PL(0,257),W(1,13),GC_4,ZERO,ZERO,PL(0,258),COEFS)
939
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,257),1,COEFS,1,1,WL(1,0,1,258))
940
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,258),2,1,1,1,1,391,H)
 
927
      CALL FFV1L2_1(PL(0,0),W(1,6),GC_5,MDL_MT,MDL_WT,PL(0,261),COEFS)
 
928
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,261))
 
929
      CALL FFV1L2_1(PL(0,261),W(1,14),GC_5,MDL_MT,MDL_WT,PL(0,262)
 
930
     $ ,COEFS)
 
931
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,261),4,COEFS,4,4,WL(1,0,1,262))
 
932
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,262),2,4,76,1,1,391,H)
941
933
C     Coefficient construction for loop diagram with ID 130
942
 
      CALL GHGHGL2_1(PL(0,257),W(1,14),GC_4,ZERO,ZERO,PL(0,259),COEFS)
943
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,257),1,COEFS,1,1,WL(1,0,1,259))
944
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,259),2,1,1,1,1,392,H)
 
934
      CALL FFV1L2_1(PL(0,261),W(1,16),GC_5,MDL_MT,MDL_WT,PL(0,263)
 
935
     $ ,COEFS)
 
936
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,261),4,COEFS,4,4,WL(1,0,1,263))
 
937
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,263),2,4,76,1,1,392,H)
945
938
C     Coefficient construction for loop diagram with ID 131
946
 
      CALL GHGHGL1_2(PL(0,0),W(1,1),GC_4,ZERO,ZERO,PL(0,260),COEFS)
947
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),1,COEFS,1,1,WL(1,0,1,260))
948
 
      CALL GHGHGL1_2(PL(0,260),W(1,2),GC_4,ZERO,ZERO,PL(0,261),COEFS)
949
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,260),1,COEFS,1,1,WL(1,0,1,261))
950
 
      CALL GHGHGL1_2(PL(0,261),W(1,13),GC_4,ZERO,ZERO,PL(0,262),COEFS)
951
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,261),1,COEFS,1,1,WL(1,0,1,262))
952
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,262),3,1,2,1,1,393,H)
 
939
      CALL FFV1L1_2(PL(0,186),W(1,14),GC_5,MDL_MT,MDL_WT,PL(0,264)
 
940
     $ ,COEFS)
 
941
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,186),4,COEFS,4,4,WL(1,0,1,264))
 
942
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,264),3,4,77,1,1,393,H)
953
943
C     Coefficient construction for loop diagram with ID 132
954
 
      CALL GHGHGL1_2(PL(0,261),W(1,14),GC_4,ZERO,ZERO,PL(0,263),COEFS)
955
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,261),1,COEFS,1,1,WL(1,0,1,263))
956
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,263),3,1,2,1,1,394,H)
 
944
      CALL FFV1L1_2(PL(0,186),W(1,16),GC_5,MDL_MT,MDL_WT,PL(0,265)
 
945
     $ ,COEFS)
 
946
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,186),4,COEFS,4,4,WL(1,0,1,265))
 
947
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,265),3,4,77,1,1,394,H)
957
948
C     Coefficient construction for loop diagram with ID 133
958
 
      CALL GHGHGL2_1(PL(0,0),W(1,1),GC_4,ZERO,ZERO,PL(0,264),COEFS)
959
 
      CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),1,COEFS,1,1,WL(1,0,1,264))
960
 
      CALL GHGHGL2_1(PL(0,264),W(1,2),GC_4,ZERO,ZERO,PL(0,265),COEFS)
961
 
      CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,264),1,COEFS,1,1,WL(1,0,1,265))
962
 
      CALL GHGHGL2_1(PL(0,265),W(1,13),GC_4,ZERO,ZERO,PL(0,266),COEFS)
963
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,265),1,COEFS,1,1,WL(1,0,1,266))
964
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,266),3,1,2,1,1,395,H)
 
949
      CALL FFV1L2_1(PL(0,183),W(1,14),GC_5,MDL_MT,MDL_WT,PL(0,266)
 
950
     $ ,COEFS)
 
951
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,183),4,COEFS,4,4,WL(1,0,1,266))
 
952
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,266),3,4,77,1,1,395,H)
965
953
C     Coefficient construction for loop diagram with ID 134
966
 
      CALL GHGHGL2_1(PL(0,265),W(1,14),GC_4,ZERO,ZERO,PL(0,267),COEFS)
967
 
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,265),1,COEFS,1,1,WL(1,0,1,267))
968
 
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,267),3,1,2,1,1,396,H)
 
954
      CALL FFV1L2_1(PL(0,183),W(1,16),GC_5,MDL_MT,MDL_WT,PL(0,267)
 
955
     $ ,COEFS)
 
956
      CALL ML5_0_UPDATE_WL_2_1(WL(1,0,1,183),4,COEFS,4,4,WL(1,0,1,267))
 
957
      CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,267),3,4,77,1,1,396,H)
969
958
 
970
959
      GOTO 1001
971
960
 4000 CONTINUE