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