← Back to branch summary

~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

Viewing changes to vendor/IREGI/src/mis_warp.f90

mwrge with 2.7.3

Show diffs side-by-side

added added

removed removed

Lines of Context:
vendor/IREGI/src/mis_warp.f90
502
502
                 .AND.ABS(p32-m32).GE.EPS.AND.ABS(p32-m42).GE.EPS)THEN
503
503
               ! {s12, p22, s23, p42, p12, p32, m12, m32, m22, m42}
504
504
               DO ep=0,-2,-1
505
 
                  temp(ep)=qlI4(s12,p22,s23,p42,p12,p32,m12,m32,m22,m42)
 
505
                  temp(ep)=qlI4(s12,p22,s23,p42,p12,p32,m12,m32,m22,m42,musq,ep)
506
506
               ENDDO
507
507
               flag=1
508
508
            ENDIF