← Back to branch summary

~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/short_ML_SMQCD_default/gg_ttx/loop_num.f

mwrge with 2.7.3

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/short_ML_SMQCD_default/gg_ttx/loop_num.f
61
61
      RES=(0.0D0,0.0D0)
62
62
 
63
63
      DO H=1,NCOMB
64
 
        IF (((HELPICKED.EQ.-1).OR.(HELPICKED.EQ.H)).AND.((CHECKPHASE.OR
65
 
     $..NOT.HELDOUBLECHECKED).OR.(GOODHEL(H).AND.GOODAMP(AMPLNUM,H))))
66
 
     $    THEN
 
64
        IF (((HELPICKED.EQ.-1).OR.(HELPICKED.EQ.H))
 
65
     $   .AND.((CHECKPHASE.OR..NOT.HELDOUBLECHECKED).OR.(GOODHEL(H)
 
66
     $   .AND.GOODAMP(AMPLNUM,H)))) THEN
67
67
          CALL ML5_0_LOOPNUMHEL(-Q,BUFF,H)
68
68
          DO I=1,NBORNAMPS
69
69
            CFTOT=DCMPLX(CF_N(AMPLNUM,I)/DBLE(ABS(CF_D(AMPLNUM,I)))
526
526
      ENDIF
527
527
 
528
528
      DO H=1,NCOMB
529
 
        IF (((HELPICKED.EQ.-1).OR.(HELPICKED.EQ.H)).AND.((CHECKPHASE.OR
530
 
     $..NOT.HELDOUBLECHECKED).OR.(GOODHEL(H).AND.GOODAMP(AMPLNUM,H))))
531
 
     $    THEN
 
529
        IF (((HELPICKED.EQ.-1).OR.(HELPICKED.EQ.H))
 
530
     $   .AND.((CHECKPHASE.OR..NOT.HELDOUBLECHECKED).OR.(GOODHEL(H)
 
531
     $   .AND.GOODAMP(AMPLNUM,H)))) THEN
532
532
          CALL ML5_0_MPLOOPNUMHEL(-QPQ,BUFF,H)
533
533
          DO I=1,NBORNAMPS
534
534
            CFTOT=CMPLX(CF_N(AMPLNUM,I)/(1.0E0_16*ABS(CF_D(AMPLNUM,I)))