Page MenuHomeHEPForge
Files F9514810

sssxxx.f
No OneTemporary
Actions

sssxxx.f
View Options

C ======================================================================
C
SUBROUTINE SSSXXX(S1,S2,S3,G , VERTEX)
C
C This subroutine computes an amplitude of the three-scalar coupling.
C
C INPUT:
C complex S1(3) : first scalar S1
C complex S2(3) : second scalar S2
C complex S3(3) : third scalar S3
C real G : coupling constant GHHH
C
C OUTPUT:
C complex VERTEX : amplitude Gamma(S1,S2,S3)
C
implicit none
COMPLEX*16 S1(3),S2(3),S3(3),VERTEX
REAL*8 G
C
VERTEX = G*S1(1)*S2(1)*S3(1)
C
RETURN
END
C

File Metadata

Mime Type
text/x-fortran
Expires
Mon, Feb 24, 6:46 AM (1 d, 14 h)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
4494624
Default Alt Text
sssxxx.f (998 B)

Event Timeline