← Back to branch summary

~maddevelopers/mg5amcnlo/2.5.3

« back to all changes in this revision

Viewing changes to HELAS/ssstxx.F

  • Committer: olivier-mattelaer
  • Date: 2017-03-08 12:31:17 UTC
  • Revision ID: olivier-mattelaer-20170308123117-h0zkqjyh9sihsc61
empty version to have an effective freeze of the code

Show diffs side-by-side

added added

removed removed

Lines of Context:
HELAS/ssstxx.F
1
 
      subroutine ssstxx(tc1,tc2,sc,gt,vertex)
2
 
c
3
 
c- by RF - Feb. 2006 
4
 
c
5
 
c This subroutine computes an amplitude of the tts coupling.
6
 
c
7
 
c     input:
8
 
c          complex tc1               : Incoming tensor particle
9
 
c          complex tc2               : Incoming tensor particle
10
 
c          complex sc                : Incoming scalar particle (Higgs)
11
 
c          real    gt                : coupling constant for the tts vertex
12
 
c
13
 
c     output:
14
 
c          complex vertex            : amplitude for a tts vertex
15
 
c
16
 
 
17
 
      implicit none
18
 
c--   dimension of the current set to arbitrary length
19
 
      INTEGER DIM
20
 
      PARAMETER(DIM=18)
21
 
c      include "dimension.inc"
22
 
      double complex tc1(DIM),tc2(DIM),sc(DIM)
23
 
 
24
 
      double complex vertex
25
 
      double precision gt
26
 
 
27
 
c Take the inner product between the tensor particles
28
 
c and multiply it with the scalar particle and the coupling constant.
29
 
c Note that the tensor particle is antisymmetric, thus all diagonal terms
30
 
c are zero.
31
 
 
32
 
      vertex = gt * sc(1) * (
33
 
c     &                       + tc1( 1) * tc2( 1)
34
 
     &                       - tc1( 2) * tc2( 2)
35
 
     &                       - tc1( 3) * tc2( 3)
36
 
     &                       - tc1( 4) * tc2( 4)
37
 
 
38
 
     &                       - tc1( 5) * tc2( 5)
39
 
c     &                       + tc1( 6) * tc2( 6)
40
 
     &                       + tc1( 7) * tc2( 7)
41
 
     &                       + tc1( 8) * tc2( 8)
42
 
 
43
 
     &                       - tc1( 9) * tc2( 9)
44
 
     &                       + tc1(10) * tc2(10)
45
 
c     &                       + tc1(11) * tc2(11)
46
 
     &                       + tc1(12) * tc2(12)
47
 
 
48
 
     &                       - tc1(13) * tc2(13)
49
 
     &                       + tc1(14) * tc2(14)
50
 
     &                       + tc1(15) * tc2(15)
51
 
c     &                       + tc1(16) * tc2(16)
52
 
     &                                           )
53
 
 
54
 
      return
55
 
      end