← Back to branch summary

~maddevelopers/mg5amcnlo/WWW5_caching

« back to all changes in this revision

Viewing changes to users/mardelcourt/PROC_129738/PROC_129738/Source/DHELAS/FFV2_3.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_129738/PROC_129738/Source/DHELAS/FFV2_3.f
 
1
C     This File is Automatically generated by ALOHA 
 
2
C     The process calculated in this file is: 
 
3
C     Gamma(3,2,-1)*ProjM(-1,1)
 
4
C     
 
5
      SUBROUTINE FFV2_3(F1, F2, COUP, M3, W3,V3)
 
6
      IMPLICIT NONE
 
7
      COMPLEX*16 CI
 
8
      PARAMETER (CI=(0D0,1D0))
 
9
      COMPLEX*16 DENOM
 
10
      COMPLEX*16 V3(6)
 
11
      REAL*8 W3
 
12
      REAL*8 P3(0:3)
 
13
      REAL*8 M3
 
14
      COMPLEX*16 F1(*)
 
15
      COMPLEX*16 F2(*)
 
16
      REAL*8 OM3
 
17
      COMPLEX*16 COUP
 
18
      COMPLEX*16 TMP3
 
19
      OM3 = 0D0
 
20
      IF (M3.NE.0D0) OM3=1D0/M3**2
 
21
      V3(1) = +F1(1)+F2(1)
 
22
      V3(2) = +F1(2)+F2(2)
 
23
      P3(0) = -DBLE(V3(1))
 
24
      P3(1) = -DBLE(V3(2))
 
25
      P3(2) = -DIMAG(V3(2))
 
26
      P3(3) = -DIMAG(V3(1))
 
27
      TMP3 = (F1(3)*(F2(5)*(P3(0)+P3(3))+F2(6)*(P3(1)+CI*(P3(2))))
 
28
     $ +F1(4)*(F2(5)*(P3(1)-CI*(P3(2)))+F2(6)*(P3(0)-P3(3))))
 
29
      DENOM = COUP/(P3(0)**2-P3(1)**2-P3(2)**2-P3(3)**2 - M3 * (M3 
 
30
     $ -CI* W3))
 
31
      V3(3)= DENOM*-CI*(F1(3)*F2(5)+F1(4)*F2(6)-P3(0)*OM3*TMP3)
 
32
      V3(4)= DENOM*-CI*(-F1(3)*F2(6)-F1(4)*F2(5)-P3(1)*OM3*TMP3)
 
33
      V3(5)= DENOM*-CI*(-CI*(F1(3)*F2(6))+CI*(F1(4)*F2(5))-P3(2)*OM3
 
34
     $ *TMP3)
 
35
      V3(6)= DENOM*-CI*(F1(4)*F2(6)-F1(3)*F2(5)-P3(3)*OM3*TMP3)
 
36
      END
 
37
 
 
38
 
 
39
C     This File is Automatically generated by ALOHA 
 
40
C     The process calculated in this file is: 
 
41
C     Gamma(3,2,-1)*ProjM(-1,1)
 
42
C     
 
43
      SUBROUTINE FFV2_4_3(F1, F2, COUP1, COUP2, M3, W3,V3)
 
44
      IMPLICIT NONE
 
45
      COMPLEX*16 CI
 
46
      PARAMETER (CI=(0D0,1D0))
 
47
      COMPLEX*16 DENOM
 
48
      COMPLEX*16 V3(6)
 
49
      REAL*8 W3
 
50
      REAL*8 P3(0:3)
 
51
      REAL*8 M3
 
52
      COMPLEX*16 F1(*)
 
53
      COMPLEX*16 COUP1
 
54
      COMPLEX*16 F2(*)
 
55
      COMPLEX*16 COUP2
 
56
      REAL*8 OM3
 
57
      INTEGER*4 I
 
58
      COMPLEX*16 VTMP(6)
 
59
      CALL FFV2_3(F1,F2,COUP1,M3,W3,V3)
 
60
      CALL FFV4_3(F1,F2,COUP2,M3,W3,VTMP)
 
61
      DO I = 3, 6
 
62
        V3(I) = V3(I) + VTMP(I)
 
63
      ENDDO
 
64
      END
 
65
 
 
66