← Back to branch summary

~useakat/+junk/ggng_v2

« back to all changes in this revision

Viewing changes to GLUON4_0.f

  • Committer: Yoshitaro Takaesu
  • Date: 2012-01-21 14:28:43 UTC
  • Revision ID: useakat@gmal.com-20120121142843-f61jhhnt54r6ndmz
initialized

Show diffs side-by-side

added added

removed removed

Lines of Context:
GLUON4_0.f
 
1
      subroutine GLUON4_0(w1,w2,w3,w4,g,vertex)
 
2
 
 
3
      implicit none
 
4
 
 
5
      integer i
 
6
      double complex w1(6),w2(6),w3(6),w4(6)
 
7
      double complex z,w12(6),w23(6),vertex
 
8
      double complex g,gg,ci
 
9
      parameter(ci=(0d0,1d0))
 
10
 
 
11
      vertex=(0d0,0d0)
 
12
      gg = -ci*g
 
13
 
 
14
      call VVV1_1(w1,w2, gg,0d0,0d0, w12)
 
15
      call VVV1_1(w2,w3, gg,0d0,0d0, w23)
 
16
 
 
17
      call VVV1_0(w12,w3,w4,gg,z)
 
18
      vertex = vertex+z
 
19
      call VVV1_0(w1,w23,w4,gg,z)
 
20
      vertex = vertex+z
 
21
      call ggggcf(w1,w2,w3,w4,g,z)
 
22
      vertex = vertex+z
 
23
    
 
24
      return
 
25
      end