98
98
C CutTools call for loop numbers 1,33,73
99
99
CALL ML5_0_LOOP_2(7,13,DCMPLX(ZERO),DCMPLX(MDL_MB),1,I_SO,1)
100
C CutTools call for loop numbers 2,6,121,122,127,128,109,110,111,11
101
C 2,6,121,122,127,128,109,110,111,115,116,117
102
102
CALL ML5_0_LOOP_2(6,14,DCMPLX(ZERO),DCMPLX(ZERO),2,I_SO,2)
103
103
C CutTools call for loop numbers 3,106,107,108
104
104
CALL ML5_0_LOOP_3(5,6,7,DCMPLX(ZERO),DCMPLX(ZERO),DCMPLX(MDL_MB)