← Back to branch summary

~maddevelopers/mg5amcnlo/2.5.4_run_py8_at_evtgen

« back to all changes in this revision

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

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

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/long_ML_SMQCD_optimized/gg_wmtbx/loop_CT_calls_1.f
1
1
      SUBROUTINE ML5_0_LOOP_CT_CALLS_1(P,NHEL,H,IC)
2
2
C     
 
3
C     Modules
 
4
C     
 
5
      USE ML5_0_POLYNOMIAL_CONSTANTS
 
6
C     
3
7
      IMPLICIT NONE
4
8
C     
5
9
C     CONSTANTS
16
20
      PARAMETER (NLOOPAMPS=396)
17
21
      INTEGER    NWAVEFUNCS,NLOOPWAVEFUNCS
18
22
      PARAMETER (NWAVEFUNCS=28,NLOOPWAVEFUNCS=267)
19
 
      INTEGER MAXLWFSIZE
20
 
      PARAMETER (MAXLWFSIZE=4)
21
 
      INTEGER LOOPMAXCOEFS, VERTEXMAXCOEFS
22
 
      PARAMETER (LOOPMAXCOEFS=70, VERTEXMAXCOEFS=5)
23
23
      REAL*8     ZERO
24
24
      PARAMETER (ZERO=0D0)
25
25
      REAL*16     MP__ZERO
63
63
     $ ,MP_CT_REQ_SO_DONE,LOOP_REQ_SO_DONE,MP_LOOP_REQ_SO_DONE
64
64
     $ ,CTCALL_REQ_SO_DONE,FILTER_SO
65
65
      COMMON/ML5_0_SO_REQS/UVCT_REQ_SO_DONE,MP_UVCT_REQ_SO_DONE
66
 
     $ ,CT_REQ_SO_DONE,MP_CT_REQ_SO_DONE,LOOP_REQ_SO_DONE,MP_LOOP_REQ_S
67
 
     $ O_DONE,CTCALL_REQ_SO_DONE,FILTER_SO
 
66
     $ ,CT_REQ_SO_DONE,MP_CT_REQ_SO_DONE,LOOP_REQ_SO_DONE
 
67
     $ ,MP_LOOP_REQ_SO_DONE,CTCALL_REQ_SO_DONE,FILTER_SO
68
68
 
69
69
      INTEGER I_SO
70
70
      COMMON/ML5_0_I_SO/I_SO
76
76
      COMPLEX*16 W(20,NWAVEFUNCS)
77
77
      COMMON/ML5_0_W/W
78
78
 
79
 
      COMPLEX*16 WL(MAXLWFSIZE,0:LOOPMAXCOEFS-1,MAXLWFSIZE,0:NLOOPWAVEF
80
 
     $ UNCS)
 
79
      COMPLEX*16 WL(MAXLWFSIZE,0:LOOPMAXCOEFS-1,MAXLWFSIZE
 
80
     $ ,0:NLOOPWAVEFUNCS)
81
81
      COMPLEX*16 PL(0:3,0:NLOOPWAVEFUNCS)
82
82
      COMMON/ML5_0_WL/WL,PL
83
83
 
106
106
C     CutTools call for loop numbers 8,11
107
107
      CALL ML5_0_LOOP_2(6,13,DCMPLX(MDL_MB),DCMPLX(MDL_MB),2,I_SO,4)
108
108
C     CutTools call for loop numbers 9
109
 
      CALL ML5_0_LOOP_3(5,6,7,DCMPLX(MDL_MB),DCMPLX(MDL_MB),DCMPLX(ZERO
110
 
     $ ),2,I_SO,5)
 
109
      CALL ML5_0_LOOP_3(5,6,7,DCMPLX(MDL_MB),DCMPLX(MDL_MB)
 
110
     $ ,DCMPLX(ZERO),2,I_SO,5)
111
111
C     CutTools call for loop numbers 10,69,70,71
112
112
      CALL ML5_0_LOOP_3(5,6,7,DCMPLX(ZERO),DCMPLX(ZERO),DCMPLX(MDL_MB)
113
113
     $ ,2,I_SO,6)
114
114
C     CutTools call for loop numbers 12,32,58
115
 
      CALL ML5_0_LOOP_3(3,4,15,DCMPLX(MDL_MT),DCMPLX(ZERO),DCMPLX(MDL_M
116
 
     $ B),2,I_SO,7)
 
115
      CALL ML5_0_LOOP_3(3,4,15,DCMPLX(MDL_MT),DCMPLX(ZERO)
 
116
     $ ,DCMPLX(MDL_MB),2,I_SO,7)
117
117
C     CutTools call for loop numbers 13
118
 
      CALL ML5_0_LOOP_4(3,4,5,6,DCMPLX(MDL_MT),DCMPLX(ZERO),DCMPLX(MDL_
119
 
     $ MB),DCMPLX(MDL_MB),3,I_SO,8)
 
118
      CALL ML5_0_LOOP_4(3,4,5,6,DCMPLX(MDL_MT),DCMPLX(ZERO)
 
119
     $ ,DCMPLX(MDL_MB),DCMPLX(MDL_MB),3,I_SO,8)
120
120
C     CutTools call for loop numbers 14
121
 
      CALL ML5_0_LOOP_4(3,5,4,6,DCMPLX(MDL_MB),DCMPLX(ZERO),DCMPLX(MDL_
122
 
     $ MT),DCMPLX(MDL_MT),3,I_SO,9)
 
121
      CALL ML5_0_LOOP_4(3,5,4,6,DCMPLX(MDL_MB),DCMPLX(ZERO)
 
122
     $ ,DCMPLX(MDL_MT),DCMPLX(MDL_MT),3,I_SO,9)
123
123
C     CutTools call for loop numbers 15,21,51
124
 
      CALL ML5_0_LOOP_3(3,5,16,DCMPLX(MDL_MB),DCMPLX(ZERO),DCMPLX(MDL_M
125
 
     $ T),2,I_SO,10)
 
124
      CALL ML5_0_LOOP_3(3,5,16,DCMPLX(MDL_MB),DCMPLX(ZERO)
 
125
     $ ,DCMPLX(MDL_MT),2,I_SO,10)
126
126
C     CutTools call for loop numbers 16,78,79,80
127
 
      CALL ML5_0_LOOP_4(3,4,6,5,DCMPLX(MDL_MT),DCMPLX(ZERO),DCMPLX(ZERO
128
 
     $ ),DCMPLX(MDL_MB),3,I_SO,11)
 
127
      CALL ML5_0_LOOP_4(3,4,6,5,DCMPLX(MDL_MT),DCMPLX(ZERO)
 
128
     $ ,DCMPLX(ZERO),DCMPLX(MDL_MB),3,I_SO,11)
129
129
C     CutTools call for loop numbers 17,56
130
130
      CALL ML5_0_LOOP_2(10,17,DCMPLX(ZERO),DCMPLX(MDL_MB),1,I_SO,12)
131
131
C     CutTools call for loop numbers 18
132
 
      CALL ML5_0_LOOP_3(3,9,10,DCMPLX(MDL_MT),DCMPLX(ZERO),DCMPLX(MDL_M
133
 
     $ B),2,I_SO,13)
 
132
      CALL ML5_0_LOOP_3(3,9,10,DCMPLX(MDL_MT),DCMPLX(ZERO)
 
133
     $ ,DCMPLX(MDL_MB),2,I_SO,13)
134
134
C     CutTools call for loop numbers 19,61
135
 
      CALL ML5_0_LOOP_3(2,5,17,DCMPLX(MDL_MB),DCMPLX(ZERO),DCMPLX(MDL_M
136
 
     $ B),2,I_SO,14)
 
135
      CALL ML5_0_LOOP_3(2,5,17,DCMPLX(MDL_MB),DCMPLX(ZERO)
 
136
     $ ,DCMPLX(MDL_MB),2,I_SO,14)
137
137
C     CutTools call for loop numbers 20
138
138
      CALL ML5_0_LOOP_4(2,3,9,5,DCMPLX(MDL_MB),DCMPLX(MDL_MT)
139
139
     $ ,DCMPLX(ZERO),DCMPLX(MDL_MB),3,I_SO,15)
140
140
C     CutTools call for loop numbers 22
141
 
      CALL ML5_0_LOOP_4(2,5,3,9,DCMPLX(ZERO),DCMPLX(MDL_MB),DCMPLX(MDL_
142
 
     $ MT),DCMPLX(ZERO),3,I_SO,16)
 
141
      CALL ML5_0_LOOP_4(2,5,3,9,DCMPLX(ZERO),DCMPLX(MDL_MB)
 
142
     $ ,DCMPLX(MDL_MT),DCMPLX(ZERO),3,I_SO,16)
143
143
C     CutTools call for loop numbers 23
144
144
      CALL ML5_0_LOOP_4(2,3,5,9,DCMPLX(MDL_MT),DCMPLX(MDL_MB)
145
145
     $ ,DCMPLX(ZERO),DCMPLX(MDL_MT),3,I_SO,17)
146
146
C     CutTools call for loop numbers 24,65
147
 
      CALL ML5_0_LOOP_3(2,5,17,DCMPLX(ZERO),DCMPLX(MDL_MB),DCMPLX(ZERO
148
 
     $ ),2,I_SO,18)
 
147
      CALL ML5_0_LOOP_3(2,5,17,DCMPLX(ZERO),DCMPLX(MDL_MB),DCMPLX(ZERO)
 
148
     $ ,2,I_SO,18)
149
149
C     CutTools call for loop numbers 25,30
150
150
      CALL ML5_0_LOOP_2(11,19,DCMPLX(ZERO),DCMPLX(MDL_MB),1,I_SO,19)
151
151
C     CutTools call for loop numbers 26
152
 
      CALL ML5_0_LOOP_3(3,12,11,DCMPLX(MDL_MT),DCMPLX(ZERO),DCMPLX(MDL_
153
 
     $ MB),2,I_SO,20)
 
152
      CALL ML5_0_LOOP_3(3,12,11,DCMPLX(MDL_MT),DCMPLX(ZERO)
 
153
     $ ,DCMPLX(MDL_MB),2,I_SO,20)
154
154
C     CutTools call for loop numbers 27
155
 
      CALL ML5_0_LOOP_3(2,7,11,DCMPLX(MDL_MB),DCMPLX(ZERO),DCMPLX(MDL_M
156
 
     $ B),2,I_SO,21)
 
155
      CALL ML5_0_LOOP_3(2,7,11,DCMPLX(MDL_MB),DCMPLX(ZERO)
 
156
     $ ,DCMPLX(MDL_MB),2,I_SO,21)
157
157
C     CutTools call for loop numbers 28
158
158
      CALL ML5_0_LOOP_4(2,3,4,11,DCMPLX(MDL_MB),DCMPLX(MDL_MT)
159
159
     $ ,DCMPLX(ZERO),DCMPLX(MDL_MB),3,I_SO,22)
160
160
C     CutTools call for loop numbers 31
161
 
      CALL ML5_0_LOOP_3(2,7,11,DCMPLX(ZERO),DCMPLX(MDL_MB),DCMPLX(ZERO
162
 
     $ ),2,I_SO,23)
 
161
      CALL ML5_0_LOOP_3(2,7,11,DCMPLX(ZERO),DCMPLX(MDL_MB),DCMPLX(ZERO)
 
162
     $ ,2,I_SO,23)
163
163
C     CutTools call for loop numbers 33
164
164
      CALL ML5_0_LOOP_4(2,3,11,4,DCMPLX(MDL_MT),DCMPLX(MDL_MB)
165
165
     $ ,DCMPLX(ZERO),DCMPLX(MDL_MT),3,I_SO,24)
166
166
C     CutTools call for loop numbers 34
167
 
      CALL ML5_0_LOOP_4(2,4,3,11,DCMPLX(ZERO),DCMPLX(MDL_MT),DCMPLX(MDL
168
 
     $ _MB),DCMPLX(ZERO),3,I_SO,25)
 
167
      CALL ML5_0_LOOP_4(2,4,3,11,DCMPLX(ZERO),DCMPLX(MDL_MT)
 
168
     $ ,DCMPLX(MDL_MB),DCMPLX(ZERO),3,I_SO,25)
169
169
C     CutTools call for loop numbers 35,45
170
 
      CALL ML5_0_LOOP_3(1,5,19,DCMPLX(MDL_MB),DCMPLX(ZERO),DCMPLX(MDL_M
171
 
     $ B),2,I_SO,26)
 
170
      CALL ML5_0_LOOP_3(1,5,19,DCMPLX(MDL_MB),DCMPLX(ZERO)
 
171
     $ ,DCMPLX(MDL_MB),2,I_SO,26)
172
172
C     CutTools call for loop numbers 36
173
173
      CALL ML5_0_LOOP_4(1,3,12,5,DCMPLX(MDL_MB),DCMPLX(MDL_MT)
174
174
     $ ,DCMPLX(ZERO),DCMPLX(MDL_MB),3,I_SO,27)
175
175
C     CutTools call for loop numbers 37
176
 
      CALL ML5_0_LOOP_3(1,7,10,DCMPLX(MDL_MB),DCMPLX(ZERO),DCMPLX(MDL_M
177
 
     $ B),2,I_SO,28)
 
176
      CALL ML5_0_LOOP_3(1,7,10,DCMPLX(MDL_MB),DCMPLX(ZERO)
 
177
     $ ,DCMPLX(MDL_MB),2,I_SO,28)
178
178
C     CutTools call for loop numbers 38
179
179
      CALL ML5_0_LOOP_4(1,3,4,10,DCMPLX(MDL_MB),DCMPLX(MDL_MT)
180
180
     $ ,DCMPLX(ZERO),DCMPLX(MDL_MB),3,I_SO,29)
182
182
      CALL ML5_0_LOOP_5(1,2,3,4,5,DCMPLX(MDL_MB),DCMPLX(MDL_MB)
183
183
     $ ,DCMPLX(MDL_MT),DCMPLX(ZERO),DCMPLX(MDL_MB),4,I_SO,30)
184
184
C     CutTools call for loop numbers 40,42,43,47
185
 
      CALL ML5_0_LOOP_3(1,2,13,DCMPLX(MDL_MB),DCMPLX(MDL_MB),DCMPLX(MDL
186
 
     $ _MB),3,I_SO,31)
 
185
      CALL ML5_0_LOOP_3(1,2,13,DCMPLX(MDL_MB),DCMPLX(MDL_MB)
 
186
     $ ,DCMPLX(MDL_MB),3,I_SO,31)
187
187
C     CutTools call for loop numbers 41
188
188
      CALL ML5_0_LOOP_4(1,2,7,5,DCMPLX(MDL_MB),DCMPLX(MDL_MB)
189
189
     $ ,DCMPLX(ZERO),DCMPLX(MDL_MB),3,I_SO,32)
191
191
      CALL ML5_0_LOOP_4(1,2,5,7,DCMPLX(MDL_MB),DCMPLX(MDL_MB)
192
192
     $ ,DCMPLX(ZERO),DCMPLX(MDL_MB),3,I_SO,33)
193
193
C     CutTools call for loop numbers 46
194
 
      CALL ML5_0_LOOP_4(1,5,2,7,DCMPLX(MDL_MB),DCMPLX(ZERO),DCMPLX(ZERO
195
 
     $ ),DCMPLX(MDL_MB),3,I_SO,34)
 
194
      CALL ML5_0_LOOP_4(1,5,2,7,DCMPLX(MDL_MB),DCMPLX(ZERO)
 
195
     $ ,DCMPLX(ZERO),DCMPLX(MDL_MB),3,I_SO,34)
196
196
C     CutTools call for loop numbers 48
197
197
      CALL ML5_0_LOOP_5(1,2,5,4,3,DCMPLX(MDL_MB),DCMPLX(MDL_MB)
198
198
     $ ,DCMPLX(ZERO),DCMPLX(MDL_MT),DCMPLX(MDL_MB),4,I_SO,35)
206
206
      CALL ML5_0_LOOP_4(1,3,5,12,DCMPLX(MDL_MT),DCMPLX(MDL_MB)
207
207
     $ ,DCMPLX(ZERO),DCMPLX(MDL_MT),3,I_SO,38)
208
208
C     CutTools call for loop numbers 53
209
 
      CALL ML5_0_LOOP_4(1,5,3,12,DCMPLX(ZERO),DCMPLX(MDL_MB),DCMPLX(MDL
210
 
     $ _MT),DCMPLX(ZERO),3,I_SO,39)
 
209
      CALL ML5_0_LOOP_4(1,5,3,12,DCMPLX(ZERO),DCMPLX(MDL_MB)
 
210
     $ ,DCMPLX(MDL_MT),DCMPLX(ZERO),3,I_SO,39)
211
211
C     CutTools call for loop numbers 54,66
212
 
      CALL ML5_0_LOOP_3(1,5,19,DCMPLX(ZERO),DCMPLX(MDL_MB),DCMPLX(ZERO
213
 
     $ ),2,I_SO,40)
 
212
      CALL ML5_0_LOOP_3(1,5,19,DCMPLX(ZERO),DCMPLX(MDL_MB),DCMPLX(ZERO)
 
213
     $ ,2,I_SO,40)
214
214
C     CutTools call for loop numbers 57
215
 
      CALL ML5_0_LOOP_3(1,7,10,DCMPLX(ZERO),DCMPLX(MDL_MB),DCMPLX(ZERO
216
 
     $ ),2,I_SO,41)
 
215
      CALL ML5_0_LOOP_3(1,7,10,DCMPLX(ZERO),DCMPLX(MDL_MB),DCMPLX(ZERO)
 
216
     $ ,2,I_SO,41)
217
217
C     CutTools call for loop numbers 59
218
218
      CALL ML5_0_LOOP_4(1,3,10,4,DCMPLX(MDL_MT),DCMPLX(MDL_MB)
219
219
     $ ,DCMPLX(ZERO),DCMPLX(MDL_MT),3,I_SO,42)
220
220
C     CutTools call for loop numbers 60
221
 
      CALL ML5_0_LOOP_4(1,4,3,10,DCMPLX(ZERO),DCMPLX(MDL_MT),DCMPLX(MDL
222
 
     $ _MB),DCMPLX(ZERO),3,I_SO,43)
 
221
      CALL ML5_0_LOOP_4(1,4,3,10,DCMPLX(ZERO),DCMPLX(MDL_MT)
 
222
     $ ,DCMPLX(MDL_MB),DCMPLX(ZERO),3,I_SO,43)
223
223
C     CutTools call for loop numbers 62
224
 
      CALL ML5_0_LOOP_4(1,5,2,7,DCMPLX(ZERO),DCMPLX(MDL_MB),DCMPLX(MDL_
225
 
     $ MB),DCMPLX(ZERO),3,I_SO,44)
 
224
      CALL ML5_0_LOOP_4(1,5,2,7,DCMPLX(ZERO),DCMPLX(MDL_MB)
 
225
     $ ,DCMPLX(MDL_MB),DCMPLX(ZERO),3,I_SO,44)
226
226
C     CutTools call for loop numbers 63
227
227
      CALL ML5_0_LOOP_5(1,3,2,5,4,DCMPLX(MDL_MT),DCMPLX(MDL_MB)
228
228
     $ ,DCMPLX(MDL_MB),DCMPLX(ZERO),DCMPLX(MDL_MT),4,I_SO,45)
230
230
      CALL ML5_0_LOOP_5(1,4,3,2,5,DCMPLX(ZERO),DCMPLX(MDL_MT)
231
231
     $ ,DCMPLX(MDL_MB),DCMPLX(MDL_MB),DCMPLX(ZERO),4,I_SO,46)
232
232
C     CutTools call for loop numbers 67
233
 
      CALL ML5_0_LOOP_4(1,2,7,5,DCMPLX(ZERO),DCMPLX(ZERO),DCMPLX(MDL_MB
234
 
     $ ),DCMPLX(ZERO),3,I_SO,47)
 
233
      CALL ML5_0_LOOP_4(1,2,7,5,DCMPLX(ZERO),DCMPLX(ZERO)
 
234
     $ ,DCMPLX(MDL_MB),DCMPLX(ZERO),3,I_SO,47)
235
235
C     CutTools call for loop numbers 68
236
 
      CALL ML5_0_LOOP_4(1,2,5,7,DCMPLX(ZERO),DCMPLX(ZERO),DCMPLX(MDL_MB
237
 
     $ ),DCMPLX(ZERO),3,I_SO,48)
 
236
      CALL ML5_0_LOOP_4(1,2,5,7,DCMPLX(ZERO),DCMPLX(ZERO)
 
237
     $ ,DCMPLX(MDL_MB),DCMPLX(ZERO),3,I_SO,48)
238
238
C     CutTools call for loop numbers 72
239
239
      CALL ML5_0_LOOP_5(1,3,5,2,4,DCMPLX(MDL_MT),DCMPLX(MDL_MB)
240
240
     $ ,DCMPLX(ZERO),DCMPLX(ZERO),DCMPLX(MDL_MT),4,I_SO,49)
245
245
      CALL ML5_0_LOOP_5(1,4,2,3,5,DCMPLX(ZERO),DCMPLX(MDL_MT)
246
246
     $ ,DCMPLX(MDL_MT),DCMPLX(MDL_MB),DCMPLX(ZERO),4,I_SO,51)
247
247
C     CutTools call for loop numbers 75
248
 
      CALL ML5_0_LOOP_5(1,2,4,3,5,DCMPLX(ZERO),DCMPLX(ZERO),DCMPLX(MDL_
249
 
     $ MT),DCMPLX(MDL_MB),DCMPLX(ZERO),4,I_SO,52)
 
248
      CALL ML5_0_LOOP_5(1,2,4,3,5,DCMPLX(ZERO),DCMPLX(ZERO)
 
249
     $ ,DCMPLX(MDL_MT),DCMPLX(MDL_MB),DCMPLX(ZERO),4,I_SO,52)
250
250
C     CutTools call for loop numbers 76
251
251
      CALL ML5_0_LOOP_5(1,2,3,5,4,DCMPLX(MDL_MT),DCMPLX(MDL_MT)
252
252
     $ ,DCMPLX(MDL_MB),DCMPLX(ZERO),DCMPLX(MDL_MT),4,I_SO,53)
253
253
C     CutTools call for loop numbers 77
254
 
      CALL ML5_0_LOOP_5(1,2,5,3,4,DCMPLX(ZERO),DCMPLX(ZERO),DCMPLX(MDL_
255
 
     $ MB),DCMPLX(MDL_MT),DCMPLX(ZERO),4,I_SO,54)
 
254
      CALL ML5_0_LOOP_5(1,2,5,3,4,DCMPLX(ZERO),DCMPLX(ZERO)
 
255
     $ ,DCMPLX(MDL_MB),DCMPLX(MDL_MT),DCMPLX(ZERO),4,I_SO,54)
256
256
C     CutTools call for loop numbers 81,83
257
257
      CALL ML5_0_LOOP_2(6,13,DCMPLX(MDL_MT),DCMPLX(MDL_MT),2,I_SO,55)
258
258
C     CutTools call for loop numbers 82,88,104
259
259
      CALL ML5_0_LOOP_2(8,16,DCMPLX(ZERO),DCMPLX(MDL_MT),1,I_SO,56)
260
260
C     CutTools call for loop numbers 84
261
 
      CALL ML5_0_LOOP_3(4,6,8,DCMPLX(MDL_MT),DCMPLX(MDL_MT),DCMPLX(ZERO
262
 
     $ ),2,I_SO,57)
 
261
      CALL ML5_0_LOOP_3(4,6,8,DCMPLX(MDL_MT),DCMPLX(MDL_MT)
 
262
     $ ,DCMPLX(ZERO),2,I_SO,57)
263
263
C     CutTools call for loop numbers 85,114,115,116
264
264
      CALL ML5_0_LOOP_3(4,6,8,DCMPLX(ZERO),DCMPLX(ZERO),DCMPLX(MDL_MT)
265
265
     $ ,2,I_SO,58)
266
266
C     CutTools call for loop numbers 86,89
267
267
      CALL ML5_0_LOOP_2(9,25,DCMPLX(ZERO),DCMPLX(MDL_MT),1,I_SO,59)
268
268
C     CutTools call for loop numbers 87
269
 
      CALL ML5_0_LOOP_3(2,9,8,DCMPLX(MDL_MT),DCMPLX(ZERO),DCMPLX(MDL_MT
270
 
     $ ),2,I_SO,60)
 
269
      CALL ML5_0_LOOP_3(2,9,8,DCMPLX(MDL_MT),DCMPLX(ZERO)
 
270
     $ ,DCMPLX(MDL_MT),2,I_SO,60)
271
271
C     CutTools call for loop numbers 90
272
272
      CALL ML5_0_LOOP_3(2,9,8,DCMPLX(ZERO),DCMPLX(MDL_MT),DCMPLX(ZERO)
273
273
     $ ,2,I_SO,61)
274
274
C     CutTools call for loop numbers 91,105
275
275
      CALL ML5_0_LOOP_2(12,27,DCMPLX(ZERO),DCMPLX(MDL_MT),1,I_SO,62)
276
276
C     CutTools call for loop numbers 92,108
277
 
      CALL ML5_0_LOOP_3(2,4,27,DCMPLX(MDL_MT),DCMPLX(ZERO),DCMPLX(MDL_M
278
 
     $ T),2,I_SO,63)
 
277
      CALL ML5_0_LOOP_3(2,4,27,DCMPLX(MDL_MT),DCMPLX(ZERO)
 
278
     $ ,DCMPLX(MDL_MT),2,I_SO,63)
279
279
C     CutTools call for loop numbers 93,110
280
 
      CALL ML5_0_LOOP_3(2,4,27,DCMPLX(ZERO),DCMPLX(MDL_MT),DCMPLX(ZERO
281
 
     $ ),2,I_SO,64)
 
280
      CALL ML5_0_LOOP_3(2,4,27,DCMPLX(ZERO),DCMPLX(MDL_MT),DCMPLX(ZERO)
 
281
     $ ,2,I_SO,64)
282
282
C     CutTools call for loop numbers 94
283
 
      CALL ML5_0_LOOP_3(1,12,8,DCMPLX(MDL_MT),DCMPLX(ZERO),DCMPLX(MDL_M
284
 
     $ T),2,I_SO,65)
 
283
      CALL ML5_0_LOOP_3(1,12,8,DCMPLX(MDL_MT),DCMPLX(ZERO)
 
284
     $ ,DCMPLX(MDL_MT),2,I_SO,65)
285
285
C     CutTools call for loop numbers 95,103
286
 
      CALL ML5_0_LOOP_3(1,4,25,DCMPLX(MDL_MT),DCMPLX(ZERO),DCMPLX(MDL_M
287
 
     $ T),2,I_SO,66)
 
286
      CALL ML5_0_LOOP_3(1,4,25,DCMPLX(MDL_MT),DCMPLX(ZERO)
 
287
     $ ,DCMPLX(MDL_MT),2,I_SO,66)
288
288
C     CutTools call for loop numbers 96,97,99,100
289
 
      CALL ML5_0_LOOP_3(1,2,13,DCMPLX(MDL_MT),DCMPLX(MDL_MT),DCMPLX(MDL
290
 
     $ _MT),3,I_SO,67)
 
289
      CALL ML5_0_LOOP_3(1,2,13,DCMPLX(MDL_MT),DCMPLX(MDL_MT)
 
290
     $ ,DCMPLX(MDL_MT),3,I_SO,67)
291
291
C     CutTools call for loop numbers 98
292
292
      CALL ML5_0_LOOP_4(1,2,4,8,DCMPLX(MDL_MT),DCMPLX(MDL_MT)
293
293
     $ ,DCMPLX(ZERO),DCMPLX(MDL_MT),3,I_SO,68)
295
295
      CALL ML5_0_LOOP_4(1,2,8,4,DCMPLX(MDL_MT),DCMPLX(MDL_MT)
296
296
     $ ,DCMPLX(ZERO),DCMPLX(MDL_MT),3,I_SO,69)
297
297
C     CutTools call for loop numbers 102
298
 
      CALL ML5_0_LOOP_4(1,4,2,8,DCMPLX(MDL_MT),DCMPLX(ZERO),DCMPLX(ZERO
299
 
     $ ),DCMPLX(MDL_MT),3,I_SO,70)
 
298
      CALL ML5_0_LOOP_4(1,4,2,8,DCMPLX(MDL_MT),DCMPLX(ZERO)
 
299
     $ ,DCMPLX(ZERO),DCMPLX(MDL_MT),3,I_SO,70)
300
300
C     CutTools call for loop numbers 106
301
 
      CALL ML5_0_LOOP_3(1,12,8,DCMPLX(ZERO),DCMPLX(MDL_MT),DCMPLX(ZERO
302
 
     $ ),2,I_SO,71)
 
301
      CALL ML5_0_LOOP_3(1,12,8,DCMPLX(ZERO),DCMPLX(MDL_MT),DCMPLX(ZERO)
 
302
     $ ,2,I_SO,71)
303
303
C     CutTools call for loop numbers 107,111
304
 
      CALL ML5_0_LOOP_3(1,4,25,DCMPLX(ZERO),DCMPLX(MDL_MT),DCMPLX(ZERO
305
 
     $ ),2,I_SO,72)
 
304
      CALL ML5_0_LOOP_3(1,4,25,DCMPLX(ZERO),DCMPLX(MDL_MT),DCMPLX(ZERO)
 
305
     $ ,2,I_SO,72)
306
306
C     CutTools call for loop numbers 109
307
 
      CALL ML5_0_LOOP_4(1,4,2,8,DCMPLX(ZERO),DCMPLX(MDL_MT),DCMPLX(MDL_
308
 
     $ MT),DCMPLX(ZERO),3,I_SO,73)
 
307
      CALL ML5_0_LOOP_4(1,4,2,8,DCMPLX(ZERO),DCMPLX(MDL_MT)
 
308
     $ ,DCMPLX(MDL_MT),DCMPLX(ZERO),3,I_SO,73)
309
309
C     CutTools call for loop numbers 112
310
 
      CALL ML5_0_LOOP_4(1,2,8,4,DCMPLX(ZERO),DCMPLX(ZERO),DCMPLX(MDL_MT
311
 
     $ ),DCMPLX(ZERO),3,I_SO,74)
 
310
      CALL ML5_0_LOOP_4(1,2,8,4,DCMPLX(ZERO),DCMPLX(ZERO)
 
311
     $ ,DCMPLX(MDL_MT),DCMPLX(ZERO),3,I_SO,74)
312
312
C     CutTools call for loop numbers 113
313
 
      CALL ML5_0_LOOP_4(1,2,4,8,DCMPLX(ZERO),DCMPLX(ZERO),DCMPLX(MDL_MT
314
 
     $ ),DCMPLX(ZERO),3,I_SO,75)
 
313
      CALL ML5_0_LOOP_4(1,2,4,8,DCMPLX(ZERO),DCMPLX(ZERO)
 
314
     $ ,DCMPLX(MDL_MT),DCMPLX(ZERO),3,I_SO,75)
315
315
C     CutTools call for loop numbers 121,122,123,124,125,126
316
316
      CALL ML5_0_LOOP_2_3(1,2,1,13,2,DCMPLX(ZERO),DCMPLX(ZERO),1,I_SO
317
317
     $ ,76)