← Back to branch summary

~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/TestCmdMatchBox/MatchBoxOutput/%TEST%SubProcesses%P0_wpwm_wpwm%matrix.f

  • Committer: olivier Mattelaer
  • Date: 2014-05-08 11:26:23 UTC
  • mto: (258.8.1 2.3)
  • mto: This revision was merged to the branch mainline in revision 259.
  • Revision ID: olivier.mattelaer@uclouvain.be-20140508112623-pupp9zqtiofnrh8j
- adding one acceptance test for matchbox
- allow born only output
- allow born+loop output

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/TestCmdMatchBox/MatchBoxOutput/%TEST%SubProcesses%P0_wpwm_wpwm%matrix.f
 
1
      SUBROUTINE P0_BORN(P,NHEL)
 
2
C     
 
3
C     Generated by MadGraph5_aMC@NLO v. %(version)s, %(date)s
 
4
C     By the MadGraph5_aMC@NLO Development Team
 
5
C     Visit launchpad.net/madgraph5 and amcatnlo.web.cern.ch
 
6
C     
 
7
C     Returns amplitude squared summed/avg over colors
 
8
C     for the point with external lines W(0:6,NEXTERNAL)
 
9
C     
 
10
C     Process: w+ w- > w+ w- WEIGHTED=4
 
11
C     
 
12
      IMPLICIT NONE
 
13
C     
 
14
C     CONSTANTS
 
15
C     
 
16
      INTEGER    NGRAPHS
 
17
      PARAMETER (NGRAPHS=7)
 
18
      INTEGER    NEXTERNAL
 
19
      PARAMETER (NEXTERNAL=4)
 
20
      INTEGER    NWAVEFUNCS, NCOLOR
 
21
      PARAMETER (NWAVEFUNCS=5, NCOLOR=1)
 
22
      REAL*8     ZERO
 
23
      PARAMETER (ZERO=0D0)
 
24
      COMPLEX*16 IMAG1
 
25
      PARAMETER (IMAG1=(0D0,1D0))
 
26
C     
 
27
C     ARGUMENTS 
 
28
C     
 
29
      REAL*8 P(0:3,NEXTERNAL)
 
30
      INTEGER NHEL(NEXTERNAL), IC(NEXTERNAL)
 
31
C     
 
32
C     LOCAL VARIABLES 
 
33
C     
 
34
      INTEGER I,J
 
35
      COMPLEX*16 ZTEMP
 
36
      REAL*8 DENOM(NCOLOR), CF(NCOLOR,NCOLOR)
 
37
      COMPLEX*16 AMP(NGRAPHS), JAMP(NCOLOR)
 
38
      COMMON/P0_JAMP/JAMP
 
39
 
 
40
      COMPLEX*16 W(18,NWAVEFUNCS)
 
41
      COMPLEX*16 DUM0,DUM1
 
42
      DATA DUM0, DUM1/(0D0, 0D0), (1D0, 0D0)/
 
43
C     
 
44
C     GLOBAL VARIABLES
 
45
C     
 
46
      INCLUDE 'coupl.inc'
 
47
 
 
48
C     
 
49
C     COLOR DATA
 
50
C     
 
51
      DATA DENOM(1)/1/
 
52
      DATA (CF(I,1),I=1,1) /1/
 
53
C     ----------
 
54
C     BEGIN CODE
 
55
C     ----------
 
56
      DO I=1,NEXTERNAL
 
57
        IC(I) = 1
 
58
      ENDDO
 
59
 
 
60
      CALL VXXXXX(P(0,1),MDL_MW,NHEL(1),-1*IC(1),W(1,1))
 
61
      CALL VXXXXX(P(0,2),MDL_MW,NHEL(2),-1*IC(2),W(1,2))
 
62
      CALL VXXXXX(P(0,3),MDL_MW,NHEL(3),+1*IC(3),W(1,3))
 
63
      CALL VXXXXX(P(0,4),MDL_MW,NHEL(4),+1*IC(4),W(1,4))
 
64
C     Amplitude(s) for diagram number 1
 
65
      CALL VVVV2_0(W(1,1),W(1,4),W(1,2),W(1,3),GC_35,AMP(1))
 
66
      CALL VVV1P0_1(W(1,1),W(1,2),GC_4,ZERO,ZERO,W(1,5))
 
67
C     Amplitude(s) for diagram number 2
 
68
      CALL VVV1_0(W(1,5),W(1,4),W(1,3),GC_4,AMP(2))
 
69
      CALL VVS1_3(W(1,1),W(1,2),GC_72,MDL_MH,MDL_WH,W(1,5))
 
70
C     Amplitude(s) for diagram number 3
 
71
      CALL VVS1_0(W(1,4),W(1,3),W(1,5),GC_72,AMP(3))
 
72
      CALL VVV1_3(W(1,1),W(1,2),GC_53,MDL_MZ,MDL_WZ,W(1,5))
 
73
C     Amplitude(s) for diagram number 4
 
74
      CALL VVV1_0(W(1,4),W(1,3),W(1,5),GC_53,AMP(4))
 
75
      CALL VVV1P0_1(W(1,1),W(1,3),GC_4,ZERO,ZERO,W(1,5))
 
76
C     Amplitude(s) for diagram number 5
 
77
      CALL VVV1_0(W(1,5),W(1,4),W(1,2),GC_4,AMP(5))
 
78
      CALL VVS1_3(W(1,1),W(1,3),GC_72,MDL_MH,MDL_WH,W(1,5))
 
79
C     Amplitude(s) for diagram number 6
 
80
      CALL VVS1_0(W(1,4),W(1,2),W(1,5),GC_72,AMP(6))
 
81
      CALL VVV1_3(W(1,1),W(1,3),GC_53,MDL_MZ,MDL_WZ,W(1,5))
 
82
C     Amplitude(s) for diagram number 7
 
83
      CALL VVV1_0(W(1,4),W(1,2),W(1,5),GC_53,AMP(7))
 
84
      JAMP(1)=+AMP(1)+AMP(2)+AMP(3)+AMP(4)+AMP(5)+AMP(6)+AMP(7)
 
85
 
 
86
      END
 
87
 
 
88
      SUBROUTINE P0_GET_JAMP(NJAMP, ONEJAMP)
 
89
 
 
90
      INTEGER     NCOLOR, NJAMP
 
91
      PARAMETER (NCOLOR=1)
 
92
      COMPLEX*16  JAMP(NCOLOR), ONEJAMP
 
93
      COMMON/P0_JAMP/JAMP
 
94
 
 
95
      ONEJAMP = JAMP[NJAMP+1]  ! +1 since njamp start at zero (c convention)
 
96
      END
 
97
 
 
98
      SUBROUTINE P0_GET_NCOLOR(IN1, IN2, OUT)
 
99
 
 
100
      INTEGER IN1, IN2, OUT
 
101
      OUT = 1
 
102
      END
 
103
 
 
104
      SUBROUTINE P0_GET_NCOL(NCOL)
 
105
      INTEGER NCOL
 
106
      NCOL = 1
 
107
      RETURN
 
108
      END
 
109