← Back to branch summary

~maddevelopers/mg5amcnlo/WWW5_caching

« back to all changes in this revision

Viewing changes to users/mardelcourt/PROC_407857/PROC_407857/Source/DHELAS/VVVV3_0.f

  • Committer: John Doe
  • Date: 2013-03-25 20:27:02 UTC
  • Revision ID: john.doe@gmail.com-20130325202702-5sk3t1r8h33ca4p4
first clean version

Show diffs side-by-side

added added

removed removed

Lines of Context:
users/mardelcourt/PROC_407857/PROC_407857/Source/DHELAS/VVVV3_0.f
 
1
C     This File is Automatically generated by ALOHA 
 
2
C     The process calculated in this file is: 
 
3
C     Metric(1,4)*Metric(2,3) - Metric(1,2)*Metric(3,4)
 
4
C     
 
5
      SUBROUTINE VVVV3_0(V1, V2, V3, V4, COUP,VERTEX)
 
6
      IMPLICIT NONE
 
7
      COMPLEX*16 CI
 
8
      PARAMETER (CI=(0D0,1D0))
 
9
      COMPLEX*16 V2(*)
 
10
      COMPLEX*16 TMP2
 
11
      COMPLEX*16 V3(*)
 
12
      COMPLEX*16 TMP7
 
13
      COMPLEX*16 TMP6
 
14
      COMPLEX*16 V4(*)
 
15
      COMPLEX*16 VERTEX
 
16
      COMPLEX*16 COUP
 
17
      COMPLEX*16 V1(*)
 
18
      COMPLEX*16 TMP3
 
19
      TMP7 = (V2(3)*V3(3)-V2(4)*V3(4)-V2(5)*V3(5)-V2(6)*V3(6))
 
20
      TMP6 = (V4(3)*V1(3)-V4(4)*V1(4)-V4(5)*V1(5)-V4(6)*V1(6))
 
21
      TMP3 = (V2(3)*V1(3)-V2(4)*V1(4)-V2(5)*V1(5)-V2(6)*V1(6))
 
22
      TMP2 = (V4(3)*V3(3)-V4(4)*V3(4)-V4(5)*V3(5)-V4(6)*V3(6))
 
23
      VERTEX = COUP*(-CI*(TMP6*TMP7)+CI*(TMP2*TMP3))
 
24
      END
 
25
 
 
26