← Back to branch summary

~maddevelopers/mg5amcnlo/2.6.6_rwgt

« back to all changes in this revision

Viewing changes to madgraph/iolibs/template_files/loop/loop_matrix_standalone.inc

  • Committer: olivier-mattelaer
  • Date: 2019-06-06 18:54:34 UTC
  • mfrom: (280.3.15 eft_rwgt_fabio)
  • Revision ID: olivier-mattelaer-20190606185434-cos9xns56lh7mi8w
merge with the branch allowing to track the @X for re-weighting

Show diffs side-by-side

added added

removed removed

Lines of Context:
madgraph/iolibs/template_files/loop/loop_matrix_standalone.inc
448
448
C Make sure that lorentz rotation tests are not used if there is external loop wavefunction of spin 2 and that one specific helicity is asked
449
449
NROTATIONS_DP_BU = NROTATIONS_DP
450
450
NROTATIONS_QP_BU = NROTATIONS_QP
451
 
if(MAX_SPIN_EXTERNAL_PARTICLE.gt.3.AND.USERHEL.NE.-1) THEN
 
451
if(MAX_SPIN_EXTERNAL_PARTICLE.gt.3.AND.USERHEL.GT.-1) THEN
452
452
   if(.NOT.WARNED_LORENTZ_STAB_TEST_OFF) THEN
453
453
     WRITE(*,*) '##WARNING: Evaluation of a specific helicity was asked for this PS point, and there is a spin-2 (or higher) particle in the external states.'
454
454
         WRITE(*,*) '##WARNING: As a result, MadLoop disabled the Lorentz rotation test for this phase-space point only.'
481
481
  ENDDO
482
482
101  CONTINUE
483
483
CLOSE(1)
484
 
IF (HelicityFilterLevel.eq.0) then
 
484
IF (HelicityFilterLevel.eq.0.or.userhel.eq.-2) then
485
485
  FOUNDHELFILTER=.TRUE.
486
486
  DO J=1,NCOMB
487
487
        GOODHEL(J)=.TRUE.
576
576
  HELPICKED=1
577
577
  CTMODE=CTMODEINIT
578
578
ELSE
579
 
  IF (USERHEL.ne.-1) THEN
 
579
  IF (USERHEL.gt.0) THEN
580
580
    IF(.NOT.GOODHEL(USERHEL)) THEN
581
581
      ANS(1)=0.0d0
582
582
      ANS(2)=0.0d0
584
584
      goto 9999
585
585
    ENDIF
586
586
  ENDIF
587
 
  HELPICKED=USERHEL      
 
587
  HELPICKED=MAX(USERHEL,-1)      
588
588
  IF (CTMODERUN.GT.-1) THEN
589
589
    CTMODE=CTMODERUN
590
590
  ELSE
694
694
IF (CHECKPHASE.OR.(.NOT.HELDOUBLECHECKED)) THEN
695
695
C  Update of NEXTREF, will be used for loop induced only.
696
696
  NEXTREF = NEXTREF + ANS(1) + ANS(2) + ANS(3)
697
 
  IF((USERHEL.EQ.-1).OR.(USERHEL.EQ.HELPICKED)) THEN
 
697
  IF((USERHEL.LE.-1).OR.(USERHEL.EQ.HELPICKED)) THEN
698
698
  BUFFR(1)=BUFFR(1)+ANS(1)
699
699
  BUFFR(2)=BUFFR(2)+ANS(2)
700
700
  BUFFR(3)=BUFFR(3)+ANS(3)
785
785
 
786
786
DO K=1,3
787
787
  ANS(K)=ANS(K)/DBLE(IDEN)
788
 
  IF (USERHEL.NE.-1) THEN
 
788
  IF (USERHEL.GT.-1) THEN
789
789
    ANS(K)=ANS(K)*HELAVGFACTOR
790
790
  ELSE
791
791
        DO J=1,NINITIAL