← Back to branch summary

~maddevelopers/mg5amcnlo/nlo_reweighting

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/TestCmdMatchBox/MatchBoxOutput/%TEST%SubProcesses%P1_uux_uux%born_matrix.f

  • Committer: olivier Mattelaer
  • Date: 2016-02-27 14:33:01 UTC
  • mfrom: (256.19.84 2.3.4)
  • Revision ID: olivier.mattelaer@uclouvain.be-20160227143301-zjhafyh7cjw3eamq
merge with 2.3.4 (including spin2/ninja branch)

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/TestCmdMatchBox/MatchBoxOutput/%TEST%SubProcesses%P1_uux_uux%born_matrix.f
281
281
            ZTEMP = ZTEMP + CF(J,I)*JAMP(J,M)
282
282
          ENDDO
283
283
          DO N = 1, NAMPSO
284
 
            RES(MG5_1_SQSOINDEX(M,N)) = RES(MG5_1_SQSOINDEX(M,N)) 
285
 
     $       + ZTEMP*DCONJG(JAMP(I,N))/DENOM(I)
 
284
            RES(MG5_1_SQSOINDEX(M,N)) = RES(MG5_1_SQSOINDEX(M,N)) +
 
285
     $        ZTEMP*DCONJG(JAMP(I,N))/DENOM(I)
286
286
          ENDDO
287
287
        ENDDO
288
288
      ENDDO
539
539
C      be hardcoded or 
540
540
C     made more elegant using hashtables if its execution speed ever
541
541
C      becomes a relevant
542
 
C     factor. From two split order indices, it return the corresponding
543
 
C      index in the squared 
 
542
C     factor. From two split order indices, it return the
 
543
C      corresponding index in the squared 
544
544
C     order canonical ordering.
545
545
C     
546
546
C     CONSTANTS
568
568
C     
569
569
      DO I=1,NSO
570
570
        SQORDERS(I)=AMPSPLITORDERS(ORDERINDEXA,I)+AMPSPLITORDERS(ORDERI
571
 
     $   NDEXB,I)
 
571
     $NDEXB,I)
572
572
      ENDDO
573
573
      MG5_1_SQSOINDEX=MG5_1_SOINDEX_FOR_SQUARED_ORDERS(SQORDERS)
574
574
      END
662
662
        RETURN
663
663
      ENDIF
664
664
 
665
 
      WRITE(*,*) 'ERROR:: Stopping function MG5_1_GET_SQUARED_ORDERS_F'
666
 
     $ //'OR_SOINDEX'
 
665
      WRITE(*,*) 'ERROR:: Stopping function MG5_1_GET_SQUARED_ORDERS_FO'
 
666
     $ //'R_SOINDEX'
667
667
      WRITE(*,*) 'Could not find squared orders index ',SOINDEX
668
668
      STOP
669
669
 
702
702
        RETURN
703
703
      ENDIF
704
704
 
705
 
      WRITE(*,*) 'ERROR:: Stopping function MG5_1_GET_ORDERS_FOR_AMPSO'
706
 
     $ //'INDEX'
 
705
      WRITE(*,*) 'ERROR:: Stopping function MG5_1_GET_ORDERS_FOR_AMPSOI'
 
706
     $ //'NDEX'
707
707
      WRITE(*,*) 'Could not find amplitude split orders index ',SOINDEX
708
708
      STOP
709
709
 
710
710
      END SUBROUTINE
711
711
 
712
 
C     This function is not directly useful, but included for completene
713
 
C     ss
 
712
C     This function is not directly useful, but included for
 
713
C      completeness
714
714
      INTEGER FUNCTION MG5_1_SOINDEX_FOR_AMPORDERS(ORDERS)
715
715
C     
716
716
C     This functions returns the integer index identifying the
745
745
 1009   CONTINUE
746
746
      ENDDO
747
747
 
748
 
      WRITE(*,*) 'ERROR:: Stopping function MG5_1_SOINDEX_FOR_AMPORDER'
749
 
     $ //'S'
 
748
      WRITE(*,*) 'ERROR:: Stopping function MG5_1_SOINDEX_FOR_AMPORDERS'
 
749
     $ //''
750
750
      WRITE(*,*) 'Could not find squared orders ',(ORDERS(I),I=1,NSO)
751
751
      STOP
752
752