You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1370 lines
50 KiB
1370 lines
50 KiB
function pvSPPKKL(n1,n2,n3,n4,n5,P,K,L)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
real(dp):: pvSPPKKL
|
|
integer:: n1,n2,n3,n4,n5
|
|
real(dp):: P(4),K(4),L(4)
|
|
pvSPPKKL=
|
|
. + P(n1)*P(n2)*K(n3)*K(n4)*L(n5)
|
|
. + P(n1)*P(n2)*K(n3)*K(n5)*L(n4)
|
|
. + P(n1)*P(n2)*K(n4)*K(n5)*L(n3)
|
|
. + P(n1)*P(n3)*K(n2)*K(n4)*L(n5)
|
|
. + P(n1)*P(n3)*K(n2)*K(n5)*L(n4)
|
|
. + P(n1)*P(n3)*K(n4)*K(n5)*L(n2)
|
|
. + P(n1)*P(n4)*K(n2)*K(n3)*L(n5)
|
|
. + P(n1)*P(n4)*K(n2)*K(n5)*L(n3)
|
|
. + P(n1)*P(n4)*K(n3)*K(n5)*L(n2)
|
|
. + P(n1)*P(n5)*K(n2)*K(n3)*L(n4)
|
|
. + P(n1)*P(n5)*K(n2)*K(n4)*L(n3)
|
|
. + P(n1)*P(n5)*K(n3)*K(n4)*L(n2)
|
|
pvSPPKKL=pvSPPKKL
|
|
. + P(n2)*P(n3)*K(n1)*K(n4)*L(n5)
|
|
. + P(n2)*P(n3)*K(n1)*K(n5)*L(n4)
|
|
. + P(n2)*P(n3)*K(n4)*K(n5)*L(n1)
|
|
. + P(n2)*P(n4)*K(n1)*K(n3)*L(n5)
|
|
. + P(n2)*P(n4)*K(n1)*K(n5)*L(n3)
|
|
. + P(n2)*P(n4)*K(n3)*K(n5)*L(n1)
|
|
. + P(n2)*P(n5)*K(n1)*K(n3)*L(n4)
|
|
. + P(n2)*P(n5)*K(n1)*K(n4)*L(n3)
|
|
. + P(n2)*P(n5)*K(n3)*K(n4)*L(n1)
|
|
. + P(n3)*P(n4)*K(n1)*K(n2)*L(n5)
|
|
. + P(n3)*P(n4)*K(n1)*K(n5)*L(n2)
|
|
. + P(n3)*P(n4)*K(n2)*K(n5)*L(n1)
|
|
. + P(n3)*P(n5)*K(n1)*K(n2)*L(n4)
|
|
. + P(n3)*P(n5)*K(n1)*K(n4)*L(n2)
|
|
. + P(n3)*P(n5)*K(n2)*K(n4)*L(n1)
|
|
. + P(n4)*P(n5)*K(n1)*K(n2)*L(n3)
|
|
. + P(n4)*P(n5)*K(n1)*K(n3)*L(n2)
|
|
. + P(n4)*P(n5)*K(n2)*K(n3)*L(n1)
|
|
return
|
|
end
|
|
|
|
function pvSPPPKL(n1,n2,n3,n4,n5,P,K,L)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
real(dp):: pvSPPPKL
|
|
integer n1,n2,n3,n4,n5
|
|
real(dp):: P(4),K(4),L(4)
|
|
pvSPPPKL=
|
|
. + P(n1)*P(n2)*P(n3)*K(n4)*L(n5)
|
|
. + P(n1)*P(n2)*P(n3)*K(n5)*L(n4)
|
|
. + P(n1)*P(n2)*P(n4)*K(n3)*L(n5)
|
|
. + P(n1)*P(n2)*P(n4)*K(n5)*L(n3)
|
|
. + P(n1)*P(n2)*P(n5)*K(n3)*L(n4)
|
|
. + P(n1)*P(n2)*P(n5)*K(n4)*L(n3)
|
|
. + P(n1)*P(n3)*P(n4)*K(n2)*L(n5)
|
|
. + P(n1)*P(n3)*P(n4)*K(n5)*L(n2)
|
|
. + P(n1)*P(n3)*P(n5)*K(n2)*L(n4)
|
|
. + P(n1)*P(n3)*P(n5)*K(n4)*L(n2)
|
|
. + P(n1)*P(n4)*P(n5)*K(n2)*L(n3)
|
|
. + P(n1)*P(n4)*P(n5)*K(n3)*L(n2)
|
|
. + P(n2)*P(n3)*P(n4)*K(n1)*L(n5)
|
|
. + P(n2)*P(n3)*P(n4)*K(n5)*L(n1)
|
|
. + P(n2)*P(n3)*P(n5)*K(n1)*L(n4)
|
|
. + P(n2)*P(n3)*P(n5)*K(n4)*L(n1)
|
|
. + P(n2)*P(n4)*P(n5)*K(n1)*L(n3)
|
|
. + P(n2)*P(n4)*P(n5)*K(n3)*L(n1)
|
|
. + P(n3)*P(n4)*P(n5)*K(n1)*L(n2)
|
|
. + P(n3)*P(n4)*P(n5)*K(n2)*L(n1)
|
|
return
|
|
end
|
|
|
|
function pvSPPPKK(n1,n2,n3,n4,n5,P,K)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
real(dp):: pvSPPPKK
|
|
integer n1,n2,n3,n4,n5
|
|
real(dp):: P(4),K(4)
|
|
pvSPPPKK=
|
|
. + P(n1)*P(n2)*P(n3)*K(n4)*K(n5)
|
|
. + P(n1)*P(n2)*P(n4)*K(n3)*K(n5)
|
|
. + P(n1)*P(n2)*P(n5)*K(n3)*K(n4)
|
|
. + P(n1)*P(n3)*P(n4)*K(n2)*K(n5)
|
|
. + P(n1)*P(n3)*P(n5)*K(n2)*K(n4)
|
|
. + P(n1)*P(n4)*P(n5)*K(n2)*K(n3)
|
|
. + P(n2)*P(n3)*P(n4)*K(n1)*K(n5)
|
|
. + P(n2)*P(n3)*P(n5)*K(n1)*K(n4)
|
|
. + P(n2)*P(n4)*P(n5)*K(n1)*K(n3)
|
|
. + P(n3)*P(n4)*P(n5)*K(n1)*K(n2)
|
|
return
|
|
end
|
|
|
|
function pvSDDPKL(n1,n2,n3,n4,n5,P,K,L)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
real(dp):: pvSDDPKL
|
|
integer n1,n2,n3,n4,n5
|
|
real(dp):: P(4),K(4),L(4)
|
|
include 'lib/TensorReduction/Include/TRmetric.f'
|
|
pvSDDPKL=
|
|
. + g(n1,n2)*P(n3)*K(n4)*L(n5)
|
|
. + g(n1,n2)*P(n3)*K(n5)*L(n4)
|
|
. + g(n1,n2)*P(n4)*K(n3)*L(n5)
|
|
. + g(n1,n2)*P(n4)*K(n5)*L(n3)
|
|
. + g(n1,n2)*P(n5)*K(n3)*L(n4)
|
|
. + g(n1,n2)*P(n5)*K(n4)*L(n3)
|
|
. + g(n1,n3)*P(n2)*K(n4)*L(n5)
|
|
. + g(n1,n3)*P(n2)*K(n5)*L(n4)
|
|
. + g(n1,n3)*P(n4)*K(n2)*L(n5)
|
|
. + g(n1,n3)*P(n4)*K(n5)*L(n2)
|
|
. + g(n1,n3)*P(n5)*K(n2)*L(n4)
|
|
. + g(n1,n3)*P(n5)*K(n4)*L(n2)
|
|
. + g(n1,n4)*P(n2)*K(n3)*L(n5)
|
|
. + g(n1,n4)*P(n2)*K(n5)*L(n3)
|
|
. + g(n1,n4)*P(n3)*K(n2)*L(n5)
|
|
. + g(n1,n4)*P(n3)*K(n5)*L(n2)
|
|
. + g(n1,n4)*P(n5)*K(n2)*L(n3)
|
|
. + g(n1,n4)*P(n5)*K(n3)*L(n2)
|
|
. + g(n1,n5)*P(n2)*K(n3)*L(n4)
|
|
. + g(n1,n5)*P(n2)*K(n4)*L(n3)
|
|
. + g(n1,n5)*P(n3)*K(n2)*L(n4)
|
|
. + g(n1,n5)*P(n3)*K(n4)*L(n2)
|
|
. + g(n1,n5)*P(n4)*K(n2)*L(n3)
|
|
. + g(n1,n5)*P(n4)*K(n3)*L(n2)
|
|
pvSDDPKL=pvSDDPKL
|
|
. + g(n2,n3)*P(n1)*K(n4)*L(n5)
|
|
. + g(n2,n3)*P(n1)*K(n5)*L(n4)
|
|
. + g(n2,n3)*P(n4)*K(n1)*L(n5)
|
|
. + g(n2,n3)*P(n4)*K(n5)*L(n1)
|
|
. + g(n2,n3)*P(n5)*K(n1)*L(n4)
|
|
. + g(n2,n3)*P(n5)*K(n4)*L(n1)
|
|
. + g(n2,n4)*P(n1)*K(n3)*L(n5)
|
|
. + g(n2,n4)*P(n1)*K(n5)*L(n3)
|
|
. + g(n2,n4)*P(n3)*K(n1)*L(n5)
|
|
. + g(n2,n4)*P(n3)*K(n5)*L(n1)
|
|
. + g(n2,n4)*P(n5)*K(n1)*L(n3)
|
|
. + g(n2,n4)*P(n5)*K(n3)*L(n1)
|
|
. + g(n2,n5)*P(n1)*K(n3)*L(n4)
|
|
. + g(n2,n5)*P(n1)*K(n4)*L(n3)
|
|
. + g(n2,n5)*P(n3)*K(n1)*L(n4)
|
|
. + g(n2,n5)*P(n3)*K(n4)*L(n1)
|
|
. + g(n2,n5)*P(n4)*K(n1)*L(n3)
|
|
. + g(n2,n5)*P(n4)*K(n3)*L(n1)
|
|
. + g(n3,n4)*P(n1)*K(n2)*L(n5)
|
|
. + g(n3,n4)*P(n1)*K(n5)*L(n2)
|
|
. + g(n3,n4)*P(n2)*K(n1)*L(n5)
|
|
. + g(n3,n4)*P(n2)*K(n5)*L(n1)
|
|
. + g(n3,n4)*P(n5)*K(n1)*L(n2)
|
|
. + g(n3,n4)*P(n5)*K(n2)*L(n1)
|
|
. + g(n3,n5)*P(n1)*K(n2)*L(n4)
|
|
. + g(n3,n5)*P(n1)*K(n4)*L(n2)
|
|
. + g(n3,n5)*P(n2)*K(n1)*L(n4)
|
|
. + g(n3,n5)*P(n2)*K(n4)*L(n1)
|
|
. + g(n3,n5)*P(n4)*K(n1)*L(n2)
|
|
. + g(n3,n5)*P(n4)*K(n2)*L(n1)
|
|
. + g(n4,n5)*P(n1)*K(n2)*L(n3)
|
|
. + g(n4,n5)*P(n1)*K(n3)*L(n2)
|
|
. + g(n4,n5)*P(n2)*K(n1)*L(n3)
|
|
. + g(n4,n5)*P(n2)*K(n3)*L(n1)
|
|
. + g(n4,n5)*P(n3)*K(n1)*L(n2)
|
|
. + g(n4,n5)*P(n3)*K(n2)*L(n1)
|
|
return
|
|
end
|
|
|
|
function pvSDDPPK(n1,n2,n3,n4,n5,P,K)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
real(dp):: pvSDDPPK
|
|
integer n1,n2,n3,n4,n5
|
|
real(dp):: P(4),K(4)
|
|
include 'lib/TensorReduction/Include/TRmetric.f'
|
|
pvSDDPPK=
|
|
. + g(n1,n2)*P(n3)*P(n4)*K(n5)
|
|
. + g(n1,n2)*P(n3)*P(n5)*K(n4)
|
|
. + g(n1,n2)*P(n4)*P(n5)*K(n3)
|
|
. + g(n1,n3)*P(n2)*P(n4)*K(n5)
|
|
. + g(n1,n3)*P(n2)*P(n5)*K(n4)
|
|
. + g(n1,n3)*P(n4)*P(n5)*K(n2)
|
|
. + g(n1,n4)*P(n2)*P(n3)*K(n5)
|
|
. + g(n1,n4)*P(n2)*P(n5)*K(n3)
|
|
. + g(n1,n4)*P(n3)*P(n5)*K(n2)
|
|
. + g(n1,n5)*P(n2)*P(n3)*K(n4)
|
|
. + g(n1,n5)*P(n2)*P(n4)*K(n3)
|
|
. + g(n1,n5)*P(n3)*P(n4)*K(n2)
|
|
. + g(n2,n3)*P(n1)*P(n4)*K(n5)
|
|
. + g(n2,n3)*P(n1)*P(n5)*K(n4)
|
|
. + g(n2,n3)*P(n4)*P(n5)*K(n1)
|
|
. + g(n2,n4)*P(n1)*P(n3)*K(n5)
|
|
. + g(n2,n4)*P(n1)*P(n5)*K(n3)
|
|
. + g(n2,n4)*P(n3)*P(n5)*K(n1)
|
|
. + g(n2,n5)*P(n1)*P(n3)*K(n4)
|
|
. + g(n2,n5)*P(n1)*P(n4)*K(n3)
|
|
. + g(n2,n5)*P(n3)*P(n4)*K(n1)
|
|
. + g(n3,n4)*P(n1)*P(n2)*K(n5)
|
|
. + g(n3,n4)*P(n1)*P(n5)*K(n2)
|
|
. + g(n3,n4)*P(n2)*P(n5)*K(n1)
|
|
. + g(n3,n5)*P(n1)*P(n2)*K(n4)
|
|
. + g(n3,n5)*P(n1)*P(n4)*K(n2)
|
|
. + g(n3,n5)*P(n2)*P(n4)*K(n1)
|
|
. + g(n4,n5)*P(n1)*P(n2)*K(n3)
|
|
. + g(n4,n5)*P(n1)*P(n3)*K(n2)
|
|
. + g(n4,n5)*P(n2)*P(n3)*K(n1)
|
|
return
|
|
end
|
|
|
|
function pvSDDDDP(n1,n2,n3,n4,n5,P)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
real(dp):: pvSDDDDP
|
|
integer n1,n2,n3,n4,n5
|
|
real(dp):: P(4)
|
|
include 'lib/TensorReduction/Include/TRmetric.f'
|
|
pvSDDDDP=
|
|
. + g(n1,n2)*g(n3,n4)*P(n5)
|
|
. + g(n1,n2)*g(n3,n5)*P(n4)
|
|
. + g(n1,n2)*g(n4,n5)*P(n3)
|
|
. + g(n1,n3)*g(n2,n4)*P(n5)
|
|
. + g(n1,n3)*g(n2,n5)*P(n4)
|
|
. + g(n1,n3)*g(n4,n5)*P(n2)
|
|
. + g(n1,n4)*g(n2,n3)*P(n5)
|
|
. + g(n1,n4)*g(n2,n5)*P(n3)
|
|
. + g(n1,n4)*g(n3,n5)*P(n2)
|
|
. + g(n1,n5)*g(n2,n3)*P(n4)
|
|
. + g(n1,n5)*g(n2,n4)*P(n3)
|
|
. + g(n1,n5)*g(n3,n4)*P(n2)
|
|
. + g(n2,n3)*g(n4,n5)*P(n1)
|
|
. + g(n2,n4)*g(n3,n5)*P(n1)
|
|
. + g(n2,n5)*g(n3,n4)*P(n1)
|
|
return
|
|
end
|
|
|
|
function pvSDDPPP(n1,n2,n3,n4,n5,P)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
real(dp):: pvSDDPPP
|
|
integer n1,n2,n3,n4,n5
|
|
real(dp):: P(4)
|
|
include 'lib/TensorReduction/Include/TRmetric.f'
|
|
pvSDDPPP=
|
|
. + g(n1,n2)*P(n3)*P(n4)*P(n5)
|
|
. + g(n1,n3)*P(n2)*P(n4)*P(n5)
|
|
. + g(n1,n4)*P(n2)*P(n3)*P(n5)
|
|
. + g(n1,n5)*P(n2)*P(n3)*P(n4)
|
|
. + g(n2,n3)*P(n1)*P(n4)*P(n5)
|
|
. + g(n2,n4)*P(n1)*P(n3)*P(n5)
|
|
. + g(n2,n5)*P(n1)*P(n3)*P(n4)
|
|
. + g(n3,n4)*P(n1)*P(n2)*P(n5)
|
|
. + g(n3,n5)*P(n1)*P(n2)*P(n4)
|
|
. + g(n4,n5)*P(n1)*P(n2)*P(n3)
|
|
return
|
|
end
|
|
|
|
function pvSPPPPK(n1,n2,n3,n4,n5,P,K)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
real(dp):: pvSPPPPK
|
|
integer n1,n2,n3,n4,n5
|
|
real(dp):: P(4),K(4)
|
|
pvSPPPPK=
|
|
. + P(n1)*P(n2)*P(n3)*P(n4)*K(n5)
|
|
. + P(n1)*P(n2)*P(n3)*P(n5)*K(n4)
|
|
. + P(n1)*P(n2)*P(n4)*P(n5)*K(n3)
|
|
. + P(n1)*P(n3)*P(n4)*P(n5)*K(n2)
|
|
. + P(n2)*P(n3)*P(n4)*P(n5)*K(n1)
|
|
return
|
|
end
|
|
|
|
|
|
function pvSPK(n1,n2,q1,q2)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
real(dp):: pvSPK
|
|
integer n1,n2
|
|
real(dp):: q1(4),q2(4)
|
|
pvSPK=q1(n1)*q2(n2)+q2(n1)*q1(n2)
|
|
return
|
|
end
|
|
|
|
function pvSPKL(n1,n2,n3,q1,q2,q3)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
real(dp):: pvSPKL
|
|
integer n1,n2,n3
|
|
real(dp):: q1(4),q2(4),q3(4)
|
|
pvSPKL=
|
|
. +q1(n1)*q2(n2)*q3(n3)+q2(n1)*q3(n2)*q1(n3)
|
|
. +q3(n1)*q1(n2)*q2(n3)+q3(n1)*q2(n2)*q1(n3)
|
|
. +q2(n1)*q1(n2)*q3(n3)+q1(n1)*q3(n2)*q2(n3)
|
|
return
|
|
end
|
|
|
|
function pvSPKK(n1,n2,n3,q1,q2)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
real(dp):: pvSPKK
|
|
integer n1,n2,n3
|
|
real(dp):: q1(4),q2(4)
|
|
pvSPKK=
|
|
. +q1(n1)*q2(n2)*q2(n3)
|
|
. +q2(n1)*q2(n2)*q1(n3)
|
|
. +q2(n1)*q1(n2)*q2(n3)
|
|
return
|
|
end
|
|
|
|
function pvSDDP(n1,n2,n3,q1)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
real(dp):: pvSDDP
|
|
integer n1,n2,n3
|
|
real(dp):: q1(4)
|
|
include 'lib/TensorReduction/Include/TRmetric.f'
|
|
pvSDDP=q1(n1)*g(n2,n3)+q1(n2)*g(n1,n3)+q1(n3)*g(n1,n2)
|
|
return
|
|
end
|
|
|
|
function pvSPKKK(n1,n2,n3,n4,q1,q2)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
real(dp):: pvSPKKK
|
|
integer n1,n2,n3,n4
|
|
real(dp):: q1(4),q2(4)
|
|
pvSPKKK=
|
|
. +q1(n1)*q2(n2)*q2(n3)*q2(n4)
|
|
. +q1(n2)*q2(n3)*q2(n4)*q2(n1)
|
|
. +q1(n3)*q2(n4)*q2(n1)*q2(n2)
|
|
. +q1(n4)*q2(n1)*q2(n2)*q2(n3)
|
|
return
|
|
end
|
|
|
|
|
|
function pvSPPKK(n1,n2,n3,n4,q1,q2)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
real(dp):: pvSPPKK
|
|
integer n1,n2,n3,n4
|
|
real(dp):: q1(4),q2(4)
|
|
pvSPPKK=
|
|
. +q1(n1)*q1(n2)*q2(n3)*q2(n4)
|
|
. +q1(n1)*q1(n3)*q2(n2)*q2(n4)
|
|
. +q1(n1)*q1(n4)*q2(n2)*q2(n3)
|
|
. +q1(n2)*q1(n3)*q2(n1)*q2(n4)
|
|
. +q1(n2)*q1(n4)*q2(n1)*q2(n3)
|
|
. +q1(n3)*q1(n4)*q2(n1)*q2(n2)
|
|
return
|
|
end
|
|
|
|
function pvSPPKL(n1,n2,n3,n4,q1,q2,q3)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
real(dp):: pvSPPKL
|
|
integer n1,n2,n3,n4
|
|
real(dp):: q1(4),q2(4),q3(4),pvSPK
|
|
pvSPPKL=
|
|
. +q1(n1)*q1(n2)*pvSPK(n3,n4,q2,q3)
|
|
. +q1(n1)*q1(n3)*pvSPK(n2,n4,q2,q3)
|
|
. +q1(n1)*q1(n4)*pvSPK(n2,n3,q2,q3)
|
|
. +q1(n2)*q1(n3)*pvSPK(n1,n4,q2,q3)
|
|
. +q1(n2)*q1(n4)*pvSPK(n1,n3,q2,q3)
|
|
. +q1(n3)*q1(n4)*pvSPK(n1,n2,q2,q3)
|
|
return
|
|
end
|
|
|
|
function pvSDDPP(n1,n2,n3,n4,q1)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
real(dp):: pvSDDPP
|
|
integer n1,n2,n3,n4
|
|
real(dp):: q1(4)
|
|
include 'lib/TensorReduction/Include/TRmetric.f'
|
|
pvSDDPP=
|
|
. +g(n1,n2)*q1(n3)*q1(n4)
|
|
. +g(n1,n3)*q1(n2)*q1(n4)
|
|
. +g(n1,n4)*q1(n2)*q1(n3)
|
|
. +g(n2,n3)*q1(n1)*q1(n4)
|
|
. +g(n2,n4)*q1(n1)*q1(n3)
|
|
. +g(n3,n4)*q1(n1)*q1(n2)
|
|
return
|
|
end
|
|
|
|
function pvSDDPK(n1,n2,n3,n4,q1,q2)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
real(dp):: pvSDDPK
|
|
integer n1,n2,n3,n4
|
|
real(dp):: q1(4),q2(4),pvSPK
|
|
include 'lib/TensorReduction/Include/TRmetric.f'
|
|
pvSDDPK=
|
|
. +g(n1,n2)*pvSPK(n3,n4,q1,q2)
|
|
. +g(n1,n3)*pvSPK(n2,n4,q1,q2)
|
|
. +g(n1,n4)*pvSPK(n2,n3,q1,q2)
|
|
. +g(n2,n3)*pvSPK(n1,n4,q1,q2)
|
|
. +g(n2,n4)*pvSPK(n1,n3,q1,q2)
|
|
. +g(n3,n4)*pvSPK(n1,n2,q1,q2)
|
|
return
|
|
end
|
|
|
|
function pvSDDDD(n1,n2,n3,n4)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
real(dp):: pvSDDDD
|
|
integer n1,n2,n3,n4
|
|
include 'lib/TensorReduction/Include/TRmetric.f'
|
|
pvSDDDD=
|
|
. g(n1,n2)*g(n3,n4)+g(n1,n3)*g(n2,n4)+g(n1,n4)*g(n2,n3)
|
|
return
|
|
end
|
|
|
|
function pvSPKLM(n1,n2,n3,n4,q1,q2,q3,q4)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
real(dp):: pvSPKLM
|
|
integer n1,n2,n3,n4
|
|
real(dp):: q1(4),q2(4),q3(4),q4(4)
|
|
pvSPKLM=
|
|
. +q1(n1)*q2(n2)*q3(n3)*q4(n4)
|
|
. +q1(n1)*q2(n2)*q3(n4)*q4(n3)
|
|
. +q1(n1)*q2(n3)*q3(n2)*q4(n4)
|
|
. +q1(n1)*q2(n3)*q3(n4)*q4(n2)
|
|
. +q1(n1)*q2(n4)*q3(n2)*q4(n3)
|
|
. +q1(n1)*q2(n4)*q3(n3)*q4(n2)
|
|
|
|
. +q1(n2)*q2(n1)*q3(n3)*q4(n4)
|
|
. +q1(n2)*q2(n1)*q3(n4)*q4(n3)
|
|
. +q1(n2)*q2(n3)*q3(n1)*q4(n4)
|
|
. +q1(n2)*q2(n3)*q3(n4)*q4(n1)
|
|
. +q1(n2)*q2(n4)*q3(n1)*q4(n3)
|
|
. +q1(n2)*q2(n4)*q3(n3)*q4(n1)
|
|
|
|
. +q1(n3)*q2(n1)*q3(n2)*q4(n4)
|
|
. +q1(n3)*q2(n1)*q3(n4)*q4(n2)
|
|
. +q1(n3)*q2(n2)*q3(n1)*q4(n4)
|
|
. +q1(n3)*q2(n2)*q3(n4)*q4(n1)
|
|
. +q1(n3)*q2(n4)*q3(n1)*q4(n2)
|
|
. +q1(n3)*q2(n4)*q3(n2)*q4(n1)
|
|
|
|
. +q1(n4)*q2(n1)*q3(n2)*q4(n3)
|
|
. +q1(n4)*q2(n1)*q3(n3)*q4(n2)
|
|
. +q1(n4)*q2(n2)*q3(n1)*q4(n3)
|
|
. +q1(n4)*q2(n2)*q3(n3)*q4(n1)
|
|
. +q1(n4)*q2(n3)*q3(n1)*q4(n2)
|
|
. +q1(n4)*q2(n3)*q3(n2)*q4(n1)
|
|
|
|
return
|
|
end
|
|
|
|
function pvSPPPPKK(n1,n2,n3,n4,n5,n6,P,K)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
real(dp):: pvSPPPPKK
|
|
real(dp):: P(4),K(4)
|
|
integer n1,n2,n3,n4,n5,n6
|
|
pvSPPPPKK=
|
|
. + P(n1)*P(n2)*P(n3)*P(n4)*K(n5)*K(n6)
|
|
. + P(n1)*P(n2)*P(n3)*P(n5)*K(n4)*K(n6)
|
|
. + P(n1)*P(n2)*P(n3)*P(n6)*K(n4)*K(n5)
|
|
. + P(n1)*P(n2)*P(n4)*P(n5)*K(n3)*K(n6)
|
|
. + P(n1)*P(n2)*P(n4)*P(n6)*K(n3)*K(n5)
|
|
. + P(n1)*P(n2)*P(n5)*P(n6)*K(n3)*K(n4)
|
|
. + P(n1)*P(n3)*P(n4)*P(n5)*K(n2)*K(n6)
|
|
. + P(n1)*P(n3)*P(n4)*P(n6)*K(n2)*K(n5)
|
|
. + P(n1)*P(n3)*P(n5)*P(n6)*K(n2)*K(n4)
|
|
. + P(n1)*P(n4)*P(n5)*P(n6)*K(n2)*K(n3)
|
|
. + P(n2)*P(n3)*P(n4)*P(n5)*K(n1)*K(n6)
|
|
. + P(n2)*P(n3)*P(n4)*P(n6)*K(n1)*K(n5)
|
|
. + P(n2)*P(n3)*P(n5)*P(n6)*K(n1)*K(n4)
|
|
. + P(n2)*P(n4)*P(n5)*P(n6)*K(n1)*K(n3)
|
|
. + P(n3)*P(n4)*P(n5)*P(n6)*K(n1)*K(n2)
|
|
end
|
|
|
|
function pvSPPPKKL(n1,n2,n3,n4,n5,n6,P,K,L)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
real(dp):: pvSPPPKKL
|
|
real(dp):: P(4),K(4),L(4)
|
|
integer n1,n2,n3,n4,n5,n6
|
|
pvSPPPKKL=
|
|
. + P(n1)*P(n2)*P(n3)*K(n4)*K(n5)*L(n6)
|
|
. + P(n1)*P(n2)*P(n3)*K(n4)*K(n6)*L(n5)
|
|
. + P(n1)*P(n2)*P(n3)*K(n5)*K(n6)*L(n4)
|
|
. + P(n1)*P(n2)*P(n4)*K(n3)*K(n5)*L(n6)
|
|
. + P(n1)*P(n2)*P(n4)*K(n3)*K(n6)*L(n5)
|
|
. + P(n1)*P(n2)*P(n4)*K(n5)*K(n6)*L(n3)
|
|
. + P(n1)*P(n2)*P(n5)*K(n3)*K(n4)*L(n6)
|
|
. + P(n1)*P(n2)*P(n5)*K(n3)*K(n6)*L(n4)
|
|
. + P(n1)*P(n2)*P(n5)*K(n4)*K(n6)*L(n3)
|
|
. + P(n1)*P(n2)*P(n6)*K(n3)*K(n4)*L(n5)
|
|
. + P(n1)*P(n2)*P(n6)*K(n3)*K(n5)*L(n4)
|
|
. + P(n1)*P(n2)*P(n6)*K(n4)*K(n5)*L(n3)
|
|
. + P(n1)*P(n3)*P(n4)*K(n2)*K(n5)*L(n6)
|
|
. + P(n1)*P(n3)*P(n4)*K(n2)*K(n6)*L(n5)
|
|
. + P(n1)*P(n3)*P(n4)*K(n5)*K(n6)*L(n2)
|
|
. + P(n1)*P(n3)*P(n5)*K(n2)*K(n4)*L(n6)
|
|
. + P(n1)*P(n3)*P(n5)*K(n2)*K(n6)*L(n4)
|
|
. + P(n1)*P(n3)*P(n5)*K(n4)*K(n6)*L(n2)
|
|
. + P(n1)*P(n3)*P(n6)*K(n2)*K(n4)*L(n5)
|
|
. + P(n1)*P(n3)*P(n6)*K(n2)*K(n5)*L(n4)
|
|
. + P(n1)*P(n3)*P(n6)*K(n4)*K(n5)*L(n2)
|
|
. + P(n1)*P(n4)*P(n5)*K(n2)*K(n3)*L(n6)
|
|
. + P(n1)*P(n4)*P(n5)*K(n2)*K(n6)*L(n3)
|
|
. + P(n1)*P(n4)*P(n5)*K(n3)*K(n6)*L(n2)
|
|
. + P(n1)*P(n4)*P(n6)*K(n2)*K(n3)*L(n5)
|
|
. + P(n1)*P(n4)*P(n6)*K(n2)*K(n5)*L(n3)
|
|
. + P(n1)*P(n4)*P(n6)*K(n3)*K(n5)*L(n2)
|
|
. + P(n1)*P(n5)*P(n6)*K(n2)*K(n3)*L(n4)
|
|
. + P(n1)*P(n5)*P(n6)*K(n2)*K(n4)*L(n3)
|
|
. + P(n1)*P(n5)*P(n6)*K(n3)*K(n4)*L(n2)
|
|
pvSPPPKKL=pvSPPPKKL
|
|
. + P(n2)*P(n3)*P(n4)*K(n1)*K(n5)*L(n6)
|
|
. + P(n2)*P(n3)*P(n4)*K(n1)*K(n6)*L(n5)
|
|
. + P(n2)*P(n3)*P(n4)*K(n5)*K(n6)*L(n1)
|
|
. + P(n2)*P(n3)*P(n5)*K(n1)*K(n4)*L(n6)
|
|
. + P(n2)*P(n3)*P(n5)*K(n1)*K(n6)*L(n4)
|
|
. + P(n2)*P(n3)*P(n5)*K(n4)*K(n6)*L(n1)
|
|
. + P(n2)*P(n3)*P(n6)*K(n1)*K(n4)*L(n5)
|
|
. + P(n2)*P(n3)*P(n6)*K(n1)*K(n5)*L(n4)
|
|
. + P(n2)*P(n3)*P(n6)*K(n4)*K(n5)*L(n1)
|
|
. + P(n2)*P(n4)*P(n5)*K(n1)*K(n3)*L(n6)
|
|
. + P(n2)*P(n4)*P(n5)*K(n1)*K(n6)*L(n3)
|
|
. + P(n2)*P(n4)*P(n5)*K(n3)*K(n6)*L(n1)
|
|
. + P(n2)*P(n4)*P(n6)*K(n1)*K(n3)*L(n5)
|
|
. + P(n2)*P(n4)*P(n6)*K(n1)*K(n5)*L(n3)
|
|
. + P(n2)*P(n4)*P(n6)*K(n3)*K(n5)*L(n1)
|
|
. + P(n2)*P(n5)*P(n6)*K(n1)*K(n3)*L(n4)
|
|
. + P(n2)*P(n5)*P(n6)*K(n1)*K(n4)*L(n3)
|
|
. + P(n2)*P(n5)*P(n6)*K(n3)*K(n4)*L(n1)
|
|
. + P(n3)*P(n4)*P(n5)*K(n1)*K(n2)*L(n6)
|
|
. + P(n3)*P(n4)*P(n5)*K(n1)*K(n6)*L(n2)
|
|
. + P(n3)*P(n4)*P(n5)*K(n2)*K(n6)*L(n1)
|
|
. + P(n3)*P(n4)*P(n6)*K(n1)*K(n2)*L(n5)
|
|
. + P(n3)*P(n4)*P(n6)*K(n1)*K(n5)*L(n2)
|
|
. + P(n3)*P(n4)*P(n6)*K(n2)*K(n5)*L(n1)
|
|
. + P(n3)*P(n5)*P(n6)*K(n1)*K(n2)*L(n4)
|
|
. + P(n3)*P(n5)*P(n6)*K(n1)*K(n4)*L(n2)
|
|
. + P(n3)*P(n5)*P(n6)*K(n2)*K(n4)*L(n1)
|
|
. + P(n4)*P(n5)*P(n6)*K(n1)*K(n2)*L(n3)
|
|
. + P(n4)*P(n5)*P(n6)*K(n1)*K(n3)*L(n2)
|
|
. + P(n4)*P(n5)*P(n6)*K(n2)*K(n3)*L(n1)
|
|
end
|
|
|
|
function pvSPPKKLL(n1,n2,n3,n4,n5,n6,P,K,L)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
real(dp):: pvSPPKKLL
|
|
real(dp):: P(4),K(4),L(4)
|
|
integer n1,n2,n3,n4,n5,n6
|
|
pvSPPKKLL=
|
|
. + P(n1)*P(n2)*K(n3)*K(n4)*L(n5)*L(n6)
|
|
. + P(n1)*P(n2)*K(n3)*K(n5)*L(n4)*L(n6)
|
|
. + P(n1)*P(n2)*K(n3)*K(n6)*L(n4)*L(n5)
|
|
. + P(n1)*P(n2)*K(n4)*K(n5)*L(n3)*L(n6)
|
|
. + P(n1)*P(n2)*K(n4)*K(n6)*L(n3)*L(n5)
|
|
. + P(n1)*P(n2)*K(n5)*K(n6)*L(n3)*L(n4)
|
|
. + P(n1)*P(n3)*K(n2)*K(n4)*L(n5)*L(n6)
|
|
. + P(n1)*P(n3)*K(n2)*K(n5)*L(n4)*L(n6)
|
|
. + P(n1)*P(n3)*K(n2)*K(n6)*L(n4)*L(n5)
|
|
. + P(n1)*P(n3)*K(n4)*K(n5)*L(n2)*L(n6)
|
|
. + P(n1)*P(n3)*K(n4)*K(n6)*L(n2)*L(n5)
|
|
. + P(n1)*P(n3)*K(n5)*K(n6)*L(n2)*L(n4)
|
|
. + P(n1)*P(n4)*K(n2)*K(n3)*L(n5)*L(n6)
|
|
. + P(n1)*P(n4)*K(n2)*K(n5)*L(n3)*L(n6)
|
|
. + P(n1)*P(n4)*K(n2)*K(n6)*L(n3)*L(n5)
|
|
. + P(n1)*P(n4)*K(n3)*K(n5)*L(n2)*L(n6)
|
|
. + P(n1)*P(n4)*K(n3)*K(n6)*L(n2)*L(n5)
|
|
. + P(n1)*P(n4)*K(n5)*K(n6)*L(n2)*L(n3)
|
|
. + P(n1)*P(n5)*K(n2)*K(n3)*L(n4)*L(n6)
|
|
. + P(n1)*P(n5)*K(n2)*K(n4)*L(n3)*L(n6)
|
|
. + P(n1)*P(n5)*K(n2)*K(n6)*L(n3)*L(n4)
|
|
. + P(n1)*P(n5)*K(n3)*K(n4)*L(n2)*L(n6)
|
|
. + P(n1)*P(n5)*K(n3)*K(n6)*L(n2)*L(n4)
|
|
. + P(n1)*P(n5)*K(n4)*K(n6)*L(n2)*L(n3)
|
|
. + P(n1)*P(n6)*K(n2)*K(n3)*L(n4)*L(n5)
|
|
. + P(n1)*P(n6)*K(n2)*K(n4)*L(n3)*L(n5)
|
|
. + P(n1)*P(n6)*K(n2)*K(n5)*L(n3)*L(n4)
|
|
. + P(n1)*P(n6)*K(n3)*K(n4)*L(n2)*L(n5)
|
|
. + P(n1)*P(n6)*K(n3)*K(n5)*L(n2)*L(n4)
|
|
. + P(n1)*P(n6)*K(n4)*K(n5)*L(n2)*L(n3)
|
|
pvSPPKKLL=pvSPPKKLL
|
|
. + P(n2)*P(n3)*K(n1)*K(n4)*L(n5)*L(n6)
|
|
. + P(n2)*P(n3)*K(n1)*K(n5)*L(n4)*L(n6)
|
|
. + P(n2)*P(n3)*K(n1)*K(n6)*L(n4)*L(n5)
|
|
. + P(n2)*P(n3)*K(n4)*K(n5)*L(n1)*L(n6)
|
|
. + P(n2)*P(n3)*K(n4)*K(n6)*L(n1)*L(n5)
|
|
. + P(n2)*P(n3)*K(n5)*K(n6)*L(n1)*L(n4)
|
|
. + P(n2)*P(n4)*K(n1)*K(n3)*L(n5)*L(n6)
|
|
. + P(n2)*P(n4)*K(n1)*K(n5)*L(n3)*L(n6)
|
|
. + P(n2)*P(n4)*K(n1)*K(n6)*L(n3)*L(n5)
|
|
. + P(n2)*P(n4)*K(n3)*K(n5)*L(n1)*L(n6)
|
|
. + P(n2)*P(n4)*K(n3)*K(n6)*L(n1)*L(n5)
|
|
. + P(n2)*P(n4)*K(n5)*K(n6)*L(n1)*L(n3)
|
|
. + P(n2)*P(n5)*K(n1)*K(n3)*L(n4)*L(n6)
|
|
. + P(n2)*P(n5)*K(n1)*K(n4)*L(n3)*L(n6)
|
|
. + P(n2)*P(n5)*K(n1)*K(n6)*L(n3)*L(n4)
|
|
. + P(n2)*P(n5)*K(n3)*K(n4)*L(n1)*L(n6)
|
|
. + P(n2)*P(n5)*K(n3)*K(n6)*L(n1)*L(n4)
|
|
. + P(n2)*P(n5)*K(n4)*K(n6)*L(n1)*L(n3)
|
|
. + P(n2)*P(n6)*K(n1)*K(n3)*L(n4)*L(n5)
|
|
. + P(n2)*P(n6)*K(n1)*K(n4)*L(n3)*L(n5)
|
|
. + P(n2)*P(n6)*K(n1)*K(n5)*L(n3)*L(n4)
|
|
. + P(n2)*P(n6)*K(n3)*K(n4)*L(n1)*L(n5)
|
|
. + P(n2)*P(n6)*K(n3)*K(n5)*L(n1)*L(n4)
|
|
. + P(n2)*P(n6)*K(n4)*K(n5)*L(n1)*L(n3)
|
|
pvSPPKKLL=pvSPPKKLL
|
|
. + P(n3)*P(n4)*K(n1)*K(n2)*L(n5)*L(n6)
|
|
. + P(n3)*P(n4)*K(n1)*K(n5)*L(n2)*L(n6)
|
|
. + P(n3)*P(n4)*K(n1)*K(n6)*L(n2)*L(n5)
|
|
. + P(n3)*P(n4)*K(n2)*K(n5)*L(n1)*L(n6)
|
|
. + P(n3)*P(n4)*K(n2)*K(n6)*L(n1)*L(n5)
|
|
. + P(n3)*P(n4)*K(n5)*K(n6)*L(n1)*L(n2)
|
|
. + P(n3)*P(n5)*K(n1)*K(n2)*L(n4)*L(n6)
|
|
. + P(n3)*P(n5)*K(n1)*K(n4)*L(n2)*L(n6)
|
|
. + P(n3)*P(n5)*K(n1)*K(n6)*L(n2)*L(n4)
|
|
. + P(n3)*P(n5)*K(n2)*K(n4)*L(n1)*L(n6)
|
|
. + P(n3)*P(n5)*K(n2)*K(n6)*L(n1)*L(n4)
|
|
. + P(n3)*P(n5)*K(n4)*K(n6)*L(n1)*L(n2)
|
|
. + P(n3)*P(n6)*K(n1)*K(n2)*L(n4)*L(n5)
|
|
. + P(n3)*P(n6)*K(n1)*K(n4)*L(n2)*L(n5)
|
|
. + P(n3)*P(n6)*K(n1)*K(n5)*L(n2)*L(n4)
|
|
. + P(n3)*P(n6)*K(n2)*K(n4)*L(n1)*L(n5)
|
|
. + P(n3)*P(n6)*K(n2)*K(n5)*L(n1)*L(n4)
|
|
. + P(n3)*P(n6)*K(n4)*K(n5)*L(n1)*L(n2)
|
|
pvSPPKKLL=pvSPPKKLL
|
|
. + P(n4)*P(n5)*K(n1)*K(n2)*L(n3)*L(n6)
|
|
. + P(n4)*P(n5)*K(n1)*K(n3)*L(n2)*L(n6)
|
|
. + P(n4)*P(n5)*K(n1)*K(n6)*L(n2)*L(n3)
|
|
. + P(n4)*P(n5)*K(n2)*K(n3)*L(n1)*L(n6)
|
|
. + P(n4)*P(n5)*K(n2)*K(n6)*L(n1)*L(n3)
|
|
. + P(n4)*P(n5)*K(n3)*K(n6)*L(n1)*L(n2)
|
|
. + P(n4)*P(n6)*K(n1)*K(n2)*L(n3)*L(n5)
|
|
. + P(n4)*P(n6)*K(n1)*K(n3)*L(n2)*L(n5)
|
|
. + P(n4)*P(n6)*K(n1)*K(n5)*L(n2)*L(n3)
|
|
. + P(n4)*P(n6)*K(n2)*K(n3)*L(n1)*L(n5)
|
|
. + P(n4)*P(n6)*K(n2)*K(n5)*L(n1)*L(n3)
|
|
. + P(n4)*P(n6)*K(n3)*K(n5)*L(n1)*L(n2)
|
|
. + P(n5)*P(n6)*K(n1)*K(n2)*L(n3)*L(n4)
|
|
. + P(n5)*P(n6)*K(n1)*K(n3)*L(n2)*L(n4)
|
|
. + P(n5)*P(n6)*K(n1)*K(n4)*L(n2)*L(n3)
|
|
. + P(n5)*P(n6)*K(n2)*K(n3)*L(n1)*L(n4)
|
|
. + P(n5)*P(n6)*K(n2)*K(n4)*L(n1)*L(n3)
|
|
. + P(n5)*P(n6)*K(n3)*K(n4)*L(n1)*L(n2)
|
|
end
|
|
|
|
function pvSDDPPKK(n1,n2,n3,n4,n5,n6,P,K)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
real(dp):: pvSDDPPKK
|
|
real(dp):: P(4),K(4)
|
|
integer n1,n2,n3,n4,n5,n6
|
|
include 'lib/TensorReduction/Include/TRmetric.f'
|
|
pvSDDPPKK=
|
|
. + g(n1,n2)*P(n3)*P(n4)*K(n5)*K(n6)
|
|
. + g(n1,n2)*P(n3)*P(n5)*K(n4)*K(n6)
|
|
. + g(n1,n2)*P(n3)*P(n6)*K(n4)*K(n5)
|
|
. + g(n1,n2)*P(n4)*P(n5)*K(n3)*K(n6)
|
|
. + g(n1,n2)*P(n4)*P(n6)*K(n3)*K(n5)
|
|
. + g(n1,n2)*P(n5)*P(n6)*K(n3)*K(n4)
|
|
. + g(n1,n3)*P(n2)*P(n4)*K(n5)*K(n6)
|
|
. + g(n1,n3)*P(n2)*P(n5)*K(n4)*K(n6)
|
|
. + g(n1,n3)*P(n2)*P(n6)*K(n4)*K(n5)
|
|
. + g(n1,n3)*P(n4)*P(n5)*K(n2)*K(n6)
|
|
. + g(n1,n3)*P(n4)*P(n6)*K(n2)*K(n5)
|
|
. + g(n1,n3)*P(n5)*P(n6)*K(n2)*K(n4)
|
|
. + g(n1,n4)*P(n2)*P(n3)*K(n5)*K(n6)
|
|
. + g(n1,n4)*P(n2)*P(n5)*K(n3)*K(n6)
|
|
. + g(n1,n4)*P(n2)*P(n6)*K(n3)*K(n5)
|
|
. + g(n1,n4)*P(n3)*P(n5)*K(n2)*K(n6)
|
|
. + g(n1,n4)*P(n3)*P(n6)*K(n2)*K(n5)
|
|
. + g(n1,n4)*P(n5)*P(n6)*K(n2)*K(n3)
|
|
. + g(n1,n5)*P(n2)*P(n3)*K(n4)*K(n6)
|
|
. + g(n1,n5)*P(n2)*P(n4)*K(n3)*K(n6)
|
|
. + g(n1,n5)*P(n2)*P(n6)*K(n3)*K(n4)
|
|
. + g(n1,n5)*P(n3)*P(n4)*K(n2)*K(n6)
|
|
. + g(n1,n5)*P(n3)*P(n6)*K(n2)*K(n4)
|
|
. + g(n1,n5)*P(n4)*P(n6)*K(n2)*K(n3)
|
|
. + g(n1,n6)*P(n2)*P(n3)*K(n4)*K(n5)
|
|
. + g(n1,n6)*P(n2)*P(n4)*K(n3)*K(n5)
|
|
. + g(n1,n6)*P(n2)*P(n5)*K(n3)*K(n4)
|
|
. + g(n1,n6)*P(n3)*P(n4)*K(n2)*K(n5)
|
|
. + g(n1,n6)*P(n3)*P(n5)*K(n2)*K(n4)
|
|
. + g(n1,n6)*P(n4)*P(n5)*K(n2)*K(n3)
|
|
pvSDDPPKK=pvSDDPPKK
|
|
. + g(n2,n3)*P(n1)*P(n4)*K(n5)*K(n6)
|
|
. + g(n2,n3)*P(n1)*P(n5)*K(n4)*K(n6)
|
|
. + g(n2,n3)*P(n1)*P(n6)*K(n4)*K(n5)
|
|
. + g(n2,n3)*P(n4)*P(n5)*K(n1)*K(n6)
|
|
. + g(n2,n3)*P(n4)*P(n6)*K(n1)*K(n5)
|
|
. + g(n2,n3)*P(n5)*P(n6)*K(n1)*K(n4)
|
|
. + g(n2,n4)*P(n1)*P(n3)*K(n5)*K(n6)
|
|
. + g(n2,n4)*P(n1)*P(n5)*K(n3)*K(n6)
|
|
. + g(n2,n4)*P(n1)*P(n6)*K(n3)*K(n5)
|
|
. + g(n2,n4)*P(n3)*P(n5)*K(n1)*K(n6)
|
|
. + g(n2,n4)*P(n3)*P(n6)*K(n1)*K(n5)
|
|
. + g(n2,n4)*P(n5)*P(n6)*K(n1)*K(n3)
|
|
. + g(n2,n5)*P(n1)*P(n3)*K(n4)*K(n6)
|
|
. + g(n2,n5)*P(n1)*P(n4)*K(n3)*K(n6)
|
|
. + g(n2,n5)*P(n1)*P(n6)*K(n3)*K(n4)
|
|
. + g(n2,n5)*P(n3)*P(n4)*K(n1)*K(n6)
|
|
. + g(n2,n5)*P(n3)*P(n6)*K(n1)*K(n4)
|
|
. + g(n2,n5)*P(n4)*P(n6)*K(n1)*K(n3)
|
|
. + g(n2,n6)*P(n1)*P(n3)*K(n4)*K(n5)
|
|
. + g(n2,n6)*P(n1)*P(n4)*K(n3)*K(n5)
|
|
. + g(n2,n6)*P(n1)*P(n5)*K(n3)*K(n4)
|
|
. + g(n2,n6)*P(n3)*P(n4)*K(n1)*K(n5)
|
|
. + g(n2,n6)*P(n3)*P(n5)*K(n1)*K(n4)
|
|
. + g(n2,n6)*P(n4)*P(n5)*K(n1)*K(n3)
|
|
. + g(n3,n4)*P(n1)*P(n2)*K(n5)*K(n6)
|
|
. + g(n3,n4)*P(n1)*P(n5)*K(n2)*K(n6)
|
|
. + g(n3,n4)*P(n1)*P(n6)*K(n2)*K(n5)
|
|
. + g(n3,n4)*P(n2)*P(n5)*K(n1)*K(n6)
|
|
. + g(n3,n4)*P(n2)*P(n6)*K(n1)*K(n5)
|
|
. + g(n3,n4)*P(n5)*P(n6)*K(n1)*K(n2)
|
|
. + g(n3,n5)*P(n1)*P(n2)*K(n4)*K(n6)
|
|
. + g(n3,n5)*P(n1)*P(n4)*K(n2)*K(n6)
|
|
. + g(n3,n5)*P(n1)*P(n6)*K(n2)*K(n4)
|
|
. + g(n3,n5)*P(n2)*P(n4)*K(n1)*K(n6)
|
|
. + g(n3,n5)*P(n2)*P(n6)*K(n1)*K(n4)
|
|
. + g(n3,n5)*P(n4)*P(n6)*K(n1)*K(n2)
|
|
. + g(n3,n6)*P(n1)*P(n2)*K(n4)*K(n5)
|
|
. + g(n3,n6)*P(n1)*P(n4)*K(n2)*K(n5)
|
|
. + g(n3,n6)*P(n1)*P(n5)*K(n2)*K(n4)
|
|
. + g(n3,n6)*P(n2)*P(n4)*K(n1)*K(n5)
|
|
. + g(n3,n6)*P(n2)*P(n5)*K(n1)*K(n4)
|
|
. + g(n3,n6)*P(n4)*P(n5)*K(n1)*K(n2)
|
|
pvSDDPPKK=pvSDDPPKK
|
|
. + g(n4,n5)*P(n1)*P(n2)*K(n3)*K(n6)
|
|
. + g(n4,n5)*P(n1)*P(n3)*K(n2)*K(n6)
|
|
. + g(n4,n5)*P(n1)*P(n6)*K(n2)*K(n3)
|
|
. + g(n4,n5)*P(n2)*P(n3)*K(n1)*K(n6)
|
|
. + g(n4,n5)*P(n2)*P(n6)*K(n1)*K(n3)
|
|
. + g(n4,n5)*P(n3)*P(n6)*K(n1)*K(n2)
|
|
. + g(n4,n6)*P(n1)*P(n2)*K(n3)*K(n5)
|
|
. + g(n4,n6)*P(n1)*P(n3)*K(n2)*K(n5)
|
|
. + g(n4,n6)*P(n1)*P(n5)*K(n2)*K(n3)
|
|
. + g(n4,n6)*P(n2)*P(n3)*K(n1)*K(n5)
|
|
. + g(n4,n6)*P(n2)*P(n5)*K(n1)*K(n3)
|
|
. + g(n4,n6)*P(n3)*P(n5)*K(n1)*K(n2)
|
|
. + g(n5,n6)*P(n1)*P(n2)*K(n3)*K(n4)
|
|
. + g(n5,n6)*P(n1)*P(n3)*K(n2)*K(n4)
|
|
. + g(n5,n6)*P(n1)*P(n4)*K(n2)*K(n3)
|
|
. + g(n5,n6)*P(n2)*P(n3)*K(n1)*K(n4)
|
|
. + g(n5,n6)*P(n2)*P(n4)*K(n1)*K(n3)
|
|
. + g(n5,n6)*P(n3)*P(n4)*K(n1)*K(n2)
|
|
end
|
|
|
|
function pvSDDPPKL(n1,n2,n3,n4,n5,n6,P,K,L)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
real(dp):: pvSDDPPKL
|
|
real(dp):: P(4),K(4),L(4)
|
|
integer n1,n2,n3,n4,n5,n6
|
|
include 'lib/TensorReduction/Include/TRmetric.f'
|
|
pvSDDPPKL=
|
|
. + g(n1,n2)*P(n3)*P(n4)*K(n5)*L(n6)
|
|
. + g(n1,n2)*P(n3)*P(n4)*K(n6)*L(n5)
|
|
. + g(n1,n2)*P(n3)*P(n5)*K(n4)*L(n6)
|
|
. + g(n1,n2)*P(n3)*P(n5)*K(n6)*L(n4)
|
|
. + g(n1,n2)*P(n3)*P(n6)*K(n4)*L(n5)
|
|
. + g(n1,n2)*P(n3)*P(n6)*K(n5)*L(n4)
|
|
. + g(n1,n2)*P(n4)*P(n5)*K(n3)*L(n6)
|
|
. + g(n1,n2)*P(n4)*P(n5)*K(n6)*L(n3)
|
|
. + g(n1,n2)*P(n4)*P(n6)*K(n3)*L(n5)
|
|
. + g(n1,n2)*P(n4)*P(n6)*K(n5)*L(n3)
|
|
. + g(n1,n2)*P(n5)*P(n6)*K(n3)*L(n4)
|
|
. + g(n1,n2)*P(n5)*P(n6)*K(n4)*L(n3)
|
|
. + g(n1,n3)*P(n2)*P(n4)*K(n5)*L(n6)
|
|
. + g(n1,n3)*P(n2)*P(n4)*K(n6)*L(n5)
|
|
. + g(n1,n3)*P(n2)*P(n5)*K(n4)*L(n6)
|
|
. + g(n1,n3)*P(n2)*P(n5)*K(n6)*L(n4)
|
|
. + g(n1,n3)*P(n2)*P(n6)*K(n4)*L(n5)
|
|
. + g(n1,n3)*P(n2)*P(n6)*K(n5)*L(n4)
|
|
. + g(n1,n3)*P(n4)*P(n5)*K(n2)*L(n6)
|
|
. + g(n1,n3)*P(n4)*P(n5)*K(n6)*L(n2)
|
|
. + g(n1,n3)*P(n4)*P(n6)*K(n2)*L(n5)
|
|
. + g(n1,n3)*P(n4)*P(n6)*K(n5)*L(n2)
|
|
. + g(n1,n3)*P(n5)*P(n6)*K(n2)*L(n4)
|
|
. + g(n1,n3)*P(n5)*P(n6)*K(n4)*L(n2)
|
|
. + g(n1,n4)*P(n2)*P(n3)*K(n5)*L(n6)
|
|
. + g(n1,n4)*P(n2)*P(n3)*K(n6)*L(n5)
|
|
. + g(n1,n4)*P(n2)*P(n5)*K(n3)*L(n6)
|
|
. + g(n1,n4)*P(n2)*P(n5)*K(n6)*L(n3)
|
|
. + g(n1,n4)*P(n2)*P(n6)*K(n3)*L(n5)
|
|
. + g(n1,n4)*P(n2)*P(n6)*K(n5)*L(n3)
|
|
. + g(n1,n4)*P(n3)*P(n5)*K(n2)*L(n6)
|
|
. + g(n1,n4)*P(n3)*P(n5)*K(n6)*L(n2)
|
|
. + g(n1,n4)*P(n3)*P(n6)*K(n2)*L(n5)
|
|
. + g(n1,n4)*P(n3)*P(n6)*K(n5)*L(n2)
|
|
. + g(n1,n4)*P(n5)*P(n6)*K(n2)*L(n3)
|
|
. + g(n1,n4)*P(n5)*P(n6)*K(n3)*L(n2)
|
|
pvSDDPPKL=pvSDDPPKL
|
|
. + g(n1,n5)*P(n2)*P(n3)*K(n4)*L(n6)
|
|
. + g(n1,n5)*P(n2)*P(n3)*K(n6)*L(n4)
|
|
. + g(n1,n5)*P(n2)*P(n4)*K(n3)*L(n6)
|
|
. + g(n1,n5)*P(n2)*P(n4)*K(n6)*L(n3)
|
|
. + g(n1,n5)*P(n2)*P(n6)*K(n3)*L(n4)
|
|
. + g(n1,n5)*P(n2)*P(n6)*K(n4)*L(n3)
|
|
. + g(n1,n5)*P(n3)*P(n4)*K(n2)*L(n6)
|
|
. + g(n1,n5)*P(n3)*P(n4)*K(n6)*L(n2)
|
|
. + g(n1,n5)*P(n3)*P(n6)*K(n2)*L(n4)
|
|
. + g(n1,n5)*P(n3)*P(n6)*K(n4)*L(n2)
|
|
. + g(n1,n5)*P(n4)*P(n6)*K(n2)*L(n3)
|
|
. + g(n1,n5)*P(n4)*P(n6)*K(n3)*L(n2)
|
|
. + g(n1,n6)*P(n2)*P(n3)*K(n4)*L(n5)
|
|
. + g(n1,n6)*P(n2)*P(n3)*K(n5)*L(n4)
|
|
. + g(n1,n6)*P(n2)*P(n4)*K(n3)*L(n5)
|
|
. + g(n1,n6)*P(n2)*P(n4)*K(n5)*L(n3)
|
|
. + g(n1,n6)*P(n2)*P(n5)*K(n3)*L(n4)
|
|
. + g(n1,n6)*P(n2)*P(n5)*K(n4)*L(n3)
|
|
. + g(n1,n6)*P(n3)*P(n4)*K(n2)*L(n5)
|
|
. + g(n1,n6)*P(n3)*P(n4)*K(n5)*L(n2)
|
|
. + g(n1,n6)*P(n3)*P(n5)*K(n2)*L(n4)
|
|
. + g(n1,n6)*P(n3)*P(n5)*K(n4)*L(n2)
|
|
. + g(n1,n6)*P(n4)*P(n5)*K(n2)*L(n3)
|
|
. + g(n1,n6)*P(n4)*P(n5)*K(n3)*L(n2)
|
|
. + g(n2,n3)*P(n1)*P(n4)*K(n5)*L(n6)
|
|
. + g(n2,n3)*P(n1)*P(n4)*K(n6)*L(n5)
|
|
. + g(n2,n3)*P(n1)*P(n5)*K(n4)*L(n6)
|
|
. + g(n2,n3)*P(n1)*P(n5)*K(n6)*L(n4)
|
|
. + g(n2,n3)*P(n1)*P(n6)*K(n4)*L(n5)
|
|
. + g(n2,n3)*P(n1)*P(n6)*K(n5)*L(n4)
|
|
. + g(n2,n3)*P(n4)*P(n5)*K(n1)*L(n6)
|
|
. + g(n2,n3)*P(n4)*P(n5)*K(n6)*L(n1)
|
|
. + g(n2,n3)*P(n4)*P(n6)*K(n1)*L(n5)
|
|
. + g(n2,n3)*P(n4)*P(n6)*K(n5)*L(n1)
|
|
. + g(n2,n3)*P(n5)*P(n6)*K(n1)*L(n4)
|
|
. + g(n2,n3)*P(n5)*P(n6)*K(n4)*L(n1)
|
|
pvSDDPPKL=pvSDDPPKL
|
|
. + g(n2,n4)*P(n1)*P(n3)*K(n5)*L(n6)
|
|
. + g(n2,n4)*P(n1)*P(n3)*K(n6)*L(n5)
|
|
. + g(n2,n4)*P(n1)*P(n5)*K(n3)*L(n6)
|
|
. + g(n2,n4)*P(n1)*P(n5)*K(n6)*L(n3)
|
|
. + g(n2,n4)*P(n1)*P(n6)*K(n3)*L(n5)
|
|
. + g(n2,n4)*P(n1)*P(n6)*K(n5)*L(n3)
|
|
. + g(n2,n4)*P(n3)*P(n5)*K(n1)*L(n6)
|
|
. + g(n2,n4)*P(n3)*P(n5)*K(n6)*L(n1)
|
|
. + g(n2,n4)*P(n3)*P(n6)*K(n1)*L(n5)
|
|
. + g(n2,n4)*P(n3)*P(n6)*K(n5)*L(n1)
|
|
. + g(n2,n4)*P(n5)*P(n6)*K(n1)*L(n3)
|
|
. + g(n2,n4)*P(n5)*P(n6)*K(n3)*L(n1)
|
|
. + g(n2,n5)*P(n1)*P(n3)*K(n4)*L(n6)
|
|
. + g(n2,n5)*P(n1)*P(n3)*K(n6)*L(n4)
|
|
. + g(n2,n5)*P(n1)*P(n4)*K(n3)*L(n6)
|
|
. + g(n2,n5)*P(n1)*P(n4)*K(n6)*L(n3)
|
|
. + g(n2,n5)*P(n1)*P(n6)*K(n3)*L(n4)
|
|
. + g(n2,n5)*P(n1)*P(n6)*K(n4)*L(n3)
|
|
. + g(n2,n5)*P(n3)*P(n4)*K(n1)*L(n6)
|
|
. + g(n2,n5)*P(n3)*P(n4)*K(n6)*L(n1)
|
|
. + g(n2,n5)*P(n3)*P(n6)*K(n1)*L(n4)
|
|
. + g(n2,n5)*P(n3)*P(n6)*K(n4)*L(n1)
|
|
. + g(n2,n5)*P(n4)*P(n6)*K(n1)*L(n3)
|
|
. + g(n2,n5)*P(n4)*P(n6)*K(n3)*L(n1)
|
|
. + g(n2,n6)*P(n1)*P(n3)*K(n4)*L(n5)
|
|
. + g(n2,n6)*P(n1)*P(n3)*K(n5)*L(n4)
|
|
. + g(n2,n6)*P(n1)*P(n4)*K(n3)*L(n5)
|
|
. + g(n2,n6)*P(n1)*P(n4)*K(n5)*L(n3)
|
|
. + g(n2,n6)*P(n1)*P(n5)*K(n3)*L(n4)
|
|
. + g(n2,n6)*P(n1)*P(n5)*K(n4)*L(n3)
|
|
. + g(n2,n6)*P(n3)*P(n4)*K(n1)*L(n5)
|
|
. + g(n2,n6)*P(n3)*P(n4)*K(n5)*L(n1)
|
|
. + g(n2,n6)*P(n3)*P(n5)*K(n1)*L(n4)
|
|
. + g(n2,n6)*P(n3)*P(n5)*K(n4)*L(n1)
|
|
. + g(n2,n6)*P(n4)*P(n5)*K(n1)*L(n3)
|
|
. + g(n2,n6)*P(n4)*P(n5)*K(n3)*L(n1)
|
|
pvSDDPPKL=pvSDDPPKL
|
|
. + g(n3,n4)*P(n1)*P(n2)*K(n5)*L(n6)
|
|
. + g(n3,n4)*P(n1)*P(n2)*K(n6)*L(n5)
|
|
. + g(n3,n4)*P(n1)*P(n5)*K(n2)*L(n6)
|
|
. + g(n3,n4)*P(n1)*P(n5)*K(n6)*L(n2)
|
|
. + g(n3,n4)*P(n1)*P(n6)*K(n2)*L(n5)
|
|
. + g(n3,n4)*P(n1)*P(n6)*K(n5)*L(n2)
|
|
. + g(n3,n4)*P(n2)*P(n5)*K(n1)*L(n6)
|
|
. + g(n3,n4)*P(n2)*P(n5)*K(n6)*L(n1)
|
|
. + g(n3,n4)*P(n2)*P(n6)*K(n1)*L(n5)
|
|
. + g(n3,n4)*P(n2)*P(n6)*K(n5)*L(n1)
|
|
. + g(n3,n4)*P(n5)*P(n6)*K(n1)*L(n2)
|
|
. + g(n3,n4)*P(n5)*P(n6)*K(n2)*L(n1)
|
|
. + g(n3,n5)*P(n1)*P(n2)*K(n4)*L(n6)
|
|
. + g(n3,n5)*P(n1)*P(n2)*K(n6)*L(n4)
|
|
. + g(n3,n5)*P(n1)*P(n4)*K(n2)*L(n6)
|
|
. + g(n3,n5)*P(n1)*P(n4)*K(n6)*L(n2)
|
|
. + g(n3,n5)*P(n1)*P(n6)*K(n2)*L(n4)
|
|
. + g(n3,n5)*P(n1)*P(n6)*K(n4)*L(n2)
|
|
. + g(n3,n5)*P(n2)*P(n4)*K(n1)*L(n6)
|
|
. + g(n3,n5)*P(n2)*P(n4)*K(n6)*L(n1)
|
|
. + g(n3,n5)*P(n2)*P(n6)*K(n1)*L(n4)
|
|
. + g(n3,n5)*P(n2)*P(n6)*K(n4)*L(n1)
|
|
. + g(n3,n5)*P(n4)*P(n6)*K(n1)*L(n2)
|
|
. + g(n3,n5)*P(n4)*P(n6)*K(n2)*L(n1)
|
|
. + g(n3,n6)*P(n1)*P(n2)*K(n4)*L(n5)
|
|
. + g(n3,n6)*P(n1)*P(n2)*K(n5)*L(n4)
|
|
. + g(n3,n6)*P(n1)*P(n4)*K(n2)*L(n5)
|
|
. + g(n3,n6)*P(n1)*P(n4)*K(n5)*L(n2)
|
|
. + g(n3,n6)*P(n1)*P(n5)*K(n2)*L(n4)
|
|
. + g(n3,n6)*P(n1)*P(n5)*K(n4)*L(n2)
|
|
. + g(n3,n6)*P(n2)*P(n4)*K(n1)*L(n5)
|
|
. + g(n3,n6)*P(n2)*P(n4)*K(n5)*L(n1)
|
|
. + g(n3,n6)*P(n2)*P(n5)*K(n1)*L(n4)
|
|
. + g(n3,n6)*P(n2)*P(n5)*K(n4)*L(n1)
|
|
. + g(n3,n6)*P(n4)*P(n5)*K(n1)*L(n2)
|
|
. + g(n3,n6)*P(n4)*P(n5)*K(n2)*L(n1)
|
|
pvSDDPPKL=pvSDDPPKL
|
|
. + g(n4,n5)*P(n1)*P(n2)*K(n3)*L(n6)
|
|
. + g(n4,n5)*P(n1)*P(n2)*K(n6)*L(n3)
|
|
. + g(n4,n5)*P(n1)*P(n3)*K(n2)*L(n6)
|
|
. + g(n4,n5)*P(n1)*P(n3)*K(n6)*L(n2)
|
|
. + g(n4,n5)*P(n1)*P(n6)*K(n2)*L(n3)
|
|
. + g(n4,n5)*P(n1)*P(n6)*K(n3)*L(n2)
|
|
. + g(n4,n5)*P(n2)*P(n3)*K(n1)*L(n6)
|
|
. + g(n4,n5)*P(n2)*P(n3)*K(n6)*L(n1)
|
|
. + g(n4,n5)*P(n2)*P(n6)*K(n1)*L(n3)
|
|
. + g(n4,n5)*P(n2)*P(n6)*K(n3)*L(n1)
|
|
. + g(n4,n5)*P(n3)*P(n6)*K(n1)*L(n2)
|
|
. + g(n4,n5)*P(n3)*P(n6)*K(n2)*L(n1)
|
|
. + g(n4,n6)*P(n1)*P(n2)*K(n3)*L(n5)
|
|
. + g(n4,n6)*P(n1)*P(n2)*K(n5)*L(n3)
|
|
. + g(n4,n6)*P(n1)*P(n3)*K(n2)*L(n5)
|
|
. + g(n4,n6)*P(n1)*P(n3)*K(n5)*L(n2)
|
|
. + g(n4,n6)*P(n1)*P(n5)*K(n2)*L(n3)
|
|
. + g(n4,n6)*P(n1)*P(n5)*K(n3)*L(n2)
|
|
. + g(n4,n6)*P(n2)*P(n3)*K(n1)*L(n5)
|
|
. + g(n4,n6)*P(n2)*P(n3)*K(n5)*L(n1)
|
|
. + g(n4,n6)*P(n2)*P(n5)*K(n1)*L(n3)
|
|
. + g(n4,n6)*P(n2)*P(n5)*K(n3)*L(n1)
|
|
. + g(n4,n6)*P(n3)*P(n5)*K(n1)*L(n2)
|
|
. + g(n4,n6)*P(n3)*P(n5)*K(n2)*L(n1)
|
|
. + g(n5,n6)*P(n1)*P(n2)*K(n3)*L(n4)
|
|
. + g(n5,n6)*P(n1)*P(n2)*K(n4)*L(n3)
|
|
. + g(n5,n6)*P(n1)*P(n3)*K(n2)*L(n4)
|
|
. + g(n5,n6)*P(n1)*P(n3)*K(n4)*L(n2)
|
|
. + g(n5,n6)*P(n1)*P(n4)*K(n2)*L(n3)
|
|
. + g(n5,n6)*P(n1)*P(n4)*K(n3)*L(n2)
|
|
. + g(n5,n6)*P(n2)*P(n3)*K(n1)*L(n4)
|
|
. + g(n5,n6)*P(n2)*P(n3)*K(n4)*L(n1)
|
|
. + g(n5,n6)*P(n2)*P(n4)*K(n1)*L(n3)
|
|
. + g(n5,n6)*P(n2)*P(n4)*K(n3)*L(n1)
|
|
. + g(n5,n6)*P(n3)*P(n4)*K(n1)*L(n2)
|
|
. + g(n5,n6)*P(n3)*P(n4)*K(n2)*L(n1)
|
|
end
|
|
|
|
function pvSPPPPPK(n1,n2,n3,n4,n5,n6,P,K)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
real(dp):: pvSPPPPPK
|
|
real(dp):: P(4),K(4)
|
|
integer n1,n2,n3,n4,n5,n6
|
|
pvSPPPPPK=
|
|
. + P(n1)*P(n2)*P(n3)*P(n4)*P(n5)*K(n6)
|
|
. + P(n1)*P(n2)*P(n3)*P(n4)*P(n6)*K(n5)
|
|
. + P(n1)*P(n2)*P(n3)*P(n5)*P(n6)*K(n4)
|
|
. + P(n1)*P(n2)*P(n4)*P(n5)*P(n6)*K(n3)
|
|
. + P(n1)*P(n3)*P(n4)*P(n5)*P(n6)*K(n2)
|
|
. + P(n2)*P(n3)*P(n4)*P(n5)*P(n6)*K(n1)
|
|
end
|
|
|
|
function pvSPPPPKL(n1,n2,n3,n4,n5,n6,P,K,L)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
real(dp):: pvSPPPPKL
|
|
real(dp):: P(4),K(4),L(4)
|
|
integer n1,n2,n3,n4,n5,n6
|
|
pvSPPPPKL=
|
|
. + P(n1)*P(n2)*P(n3)*P(n4)*K(n5)*L(n6)
|
|
. + P(n1)*P(n2)*P(n3)*P(n4)*K(n6)*L(n5)
|
|
. + P(n1)*P(n2)*P(n3)*P(n5)*K(n4)*L(n6)
|
|
. + P(n1)*P(n2)*P(n3)*P(n5)*K(n6)*L(n4)
|
|
. + P(n1)*P(n2)*P(n3)*P(n6)*K(n4)*L(n5)
|
|
. + P(n1)*P(n2)*P(n3)*P(n6)*K(n5)*L(n4)
|
|
. + P(n1)*P(n2)*P(n4)*P(n5)*K(n3)*L(n6)
|
|
. + P(n1)*P(n2)*P(n4)*P(n5)*K(n6)*L(n3)
|
|
. + P(n1)*P(n2)*P(n4)*P(n6)*K(n3)*L(n5)
|
|
. + P(n1)*P(n2)*P(n4)*P(n6)*K(n5)*L(n3)
|
|
. + P(n1)*P(n2)*P(n5)*P(n6)*K(n3)*L(n4)
|
|
. + P(n1)*P(n2)*P(n5)*P(n6)*K(n4)*L(n3)
|
|
. + P(n1)*P(n3)*P(n4)*P(n5)*K(n2)*L(n6)
|
|
. + P(n1)*P(n3)*P(n4)*P(n5)*K(n6)*L(n2)
|
|
. + P(n1)*P(n3)*P(n4)*P(n6)*K(n2)*L(n5)
|
|
. + P(n1)*P(n3)*P(n4)*P(n6)*K(n5)*L(n2)
|
|
. + P(n1)*P(n3)*P(n5)*P(n6)*K(n2)*L(n4)
|
|
. + P(n1)*P(n3)*P(n5)*P(n6)*K(n4)*L(n2)
|
|
. + P(n1)*P(n4)*P(n5)*P(n6)*K(n2)*L(n3)
|
|
. + P(n1)*P(n4)*P(n5)*P(n6)*K(n3)*L(n2)
|
|
. + P(n2)*P(n3)*P(n4)*P(n5)*K(n1)*L(n6)
|
|
. + P(n2)*P(n3)*P(n4)*P(n5)*K(n6)*L(n1)
|
|
. + P(n2)*P(n3)*P(n4)*P(n6)*K(n1)*L(n5)
|
|
. + P(n2)*P(n3)*P(n4)*P(n6)*K(n5)*L(n1)
|
|
. + P(n2)*P(n3)*P(n5)*P(n6)*K(n1)*L(n4)
|
|
. + P(n2)*P(n3)*P(n5)*P(n6)*K(n4)*L(n1)
|
|
. + P(n2)*P(n4)*P(n5)*P(n6)*K(n1)*L(n3)
|
|
. + P(n2)*P(n4)*P(n5)*P(n6)*K(n3)*L(n1)
|
|
. + P(n3)*P(n4)*P(n5)*P(n6)*K(n1)*L(n2)
|
|
. + P(n3)*P(n4)*P(n5)*P(n6)*K(n2)*L(n1)
|
|
end
|
|
|
|
function pvSPPPKKK(n1,n2,n3,n4,n5,n6,P,K)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
real(dp):: pvSPPPKKK
|
|
real(dp):: P(4),K(4)
|
|
integer n1,n2,n3,n4,n5,n6
|
|
pvSPPPKKK=
|
|
. + P(n1)*P(n2)*P(n3)*K(n4)*K(n5)*K(n6)
|
|
. + P(n1)*P(n2)*P(n4)*K(n3)*K(n5)*K(n6)
|
|
. + P(n1)*P(n2)*P(n5)*K(n3)*K(n4)*K(n6)
|
|
. + P(n1)*P(n2)*P(n6)*K(n3)*K(n4)*K(n5)
|
|
. + P(n1)*P(n3)*P(n4)*K(n2)*K(n5)*K(n6)
|
|
. + P(n1)*P(n3)*P(n5)*K(n2)*K(n4)*K(n6)
|
|
. + P(n1)*P(n3)*P(n6)*K(n2)*K(n4)*K(n5)
|
|
. + P(n1)*P(n4)*P(n5)*K(n2)*K(n3)*K(n6)
|
|
. + P(n1)*P(n4)*P(n6)*K(n2)*K(n3)*K(n5)
|
|
. + P(n1)*P(n5)*P(n6)*K(n2)*K(n3)*K(n4)
|
|
. + P(n2)*P(n3)*P(n4)*K(n1)*K(n5)*K(n6)
|
|
. + P(n2)*P(n3)*P(n5)*K(n1)*K(n4)*K(n6)
|
|
. + P(n2)*P(n3)*P(n6)*K(n1)*K(n4)*K(n5)
|
|
. + P(n2)*P(n4)*P(n5)*K(n1)*K(n3)*K(n6)
|
|
. + P(n2)*P(n4)*P(n6)*K(n1)*K(n3)*K(n5)
|
|
. + P(n2)*P(n5)*P(n6)*K(n1)*K(n3)*K(n4)
|
|
. + P(n3)*P(n4)*P(n5)*K(n1)*K(n2)*K(n6)
|
|
. + P(n3)*P(n4)*P(n6)*K(n1)*K(n2)*K(n5)
|
|
. + P(n3)*P(n5)*P(n6)*K(n1)*K(n2)*K(n4)
|
|
. + P(n4)*P(n5)*P(n6)*K(n1)*K(n2)*K(n3)
|
|
end
|
|
|
|
function pvSDDDDDD(n1,n2,n3,n4,n5,n6)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
real(dp):: pvSDDDDDD
|
|
integer n1,n2,n3,n4,n5,n6
|
|
include 'lib/TensorReduction/Include/TRmetric.f'
|
|
pvSDDDDDD=
|
|
. + g(n1,n2)*g(n3,n4)*g(n5,n6)
|
|
. + g(n1,n2)*g(n3,n5)*g(n4,n6)
|
|
. + g(n1,n2)*g(n3,n6)*g(n4,n5)
|
|
. + g(n1,n3)*g(n2,n4)*g(n5,n6)
|
|
. + g(n1,n3)*g(n2,n5)*g(n4,n6)
|
|
. + g(n1,n3)*g(n2,n6)*g(n4,n5)
|
|
. + g(n1,n4)*g(n2,n3)*g(n5,n6)
|
|
. + g(n1,n4)*g(n2,n5)*g(n3,n6)
|
|
. + g(n1,n4)*g(n2,n6)*g(n3,n5)
|
|
. + g(n1,n5)*g(n2,n3)*g(n4,n6)
|
|
. + g(n1,n5)*g(n2,n4)*g(n3,n6)
|
|
. + g(n1,n5)*g(n2,n6)*g(n3,n4)
|
|
. + g(n1,n6)*g(n2,n3)*g(n4,n5)
|
|
. + g(n1,n6)*g(n2,n4)*g(n3,n5)
|
|
. + g(n1,n6)*g(n2,n5)*g(n3,n4)
|
|
end
|
|
|
|
function pvSDDDDPP(n1,n2,n3,n4,n5,n6,P)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
real(dp):: pvSDDDDPP
|
|
real(dp):: P(4)
|
|
integer n1,n2,n3,n4,n5,n6
|
|
include 'lib/TensorReduction/Include/TRmetric.f'
|
|
pvSDDDDPP=
|
|
. + g(n1,n2)*g(n3,n4)*P(n5)*P(n6)
|
|
. + g(n1,n2)*g(n3,n5)*P(n4)*P(n6)
|
|
. + g(n1,n2)*g(n3,n6)*P(n4)*P(n5)
|
|
. + g(n1,n2)*g(n4,n5)*P(n3)*P(n6)
|
|
. + g(n1,n2)*g(n4,n6)*P(n3)*P(n5)
|
|
. + g(n1,n2)*g(n5,n6)*P(n3)*P(n4)
|
|
. + g(n1,n3)*g(n2,n4)*P(n5)*P(n6)
|
|
. + g(n1,n3)*g(n2,n5)*P(n4)*P(n6)
|
|
. + g(n1,n3)*g(n2,n6)*P(n4)*P(n5)
|
|
. + g(n1,n3)*g(n4,n5)*P(n2)*P(n6)
|
|
. + g(n1,n3)*g(n4,n6)*P(n2)*P(n5)
|
|
. + g(n1,n3)*g(n5,n6)*P(n2)*P(n4)
|
|
. + g(n1,n4)*g(n2,n3)*P(n5)*P(n6)
|
|
. + g(n1,n4)*g(n2,n5)*P(n3)*P(n6)
|
|
. + g(n1,n4)*g(n2,n6)*P(n3)*P(n5)
|
|
. + g(n1,n4)*g(n3,n5)*P(n2)*P(n6)
|
|
. + g(n1,n4)*g(n3,n6)*P(n2)*P(n5)
|
|
. + g(n1,n4)*g(n5,n6)*P(n2)*P(n3)
|
|
. + g(n1,n5)*g(n2,n3)*P(n4)*P(n6)
|
|
. + g(n1,n5)*g(n2,n4)*P(n3)*P(n6)
|
|
. + g(n1,n5)*g(n2,n6)*P(n3)*P(n4)
|
|
. + g(n1,n5)*g(n3,n4)*P(n2)*P(n6)
|
|
. + g(n1,n5)*g(n3,n6)*P(n2)*P(n4)
|
|
. + g(n1,n5)*g(n4,n6)*P(n2)*P(n3)
|
|
. + g(n1,n6)*g(n2,n3)*P(n4)*P(n5)
|
|
. + g(n1,n6)*g(n2,n4)*P(n3)*P(n5)
|
|
. + g(n1,n6)*g(n2,n5)*P(n3)*P(n4)
|
|
. + g(n1,n6)*g(n3,n4)*P(n2)*P(n5)
|
|
. + g(n1,n6)*g(n3,n5)*P(n2)*P(n4)
|
|
. + g(n1,n6)*g(n4,n5)*P(n2)*P(n3)
|
|
pvSDDDDPP=pvSDDDDPP
|
|
. + g(n2,n3)*g(n4,n5)*P(n1)*P(n6)
|
|
. + g(n2,n3)*g(n4,n6)*P(n1)*P(n5)
|
|
. + g(n2,n3)*g(n5,n6)*P(n1)*P(n4)
|
|
. + g(n2,n4)*g(n3,n5)*P(n1)*P(n6)
|
|
. + g(n2,n4)*g(n3,n6)*P(n1)*P(n5)
|
|
. + g(n2,n4)*g(n5,n6)*P(n1)*P(n3)
|
|
. + g(n2,n5)*g(n3,n4)*P(n1)*P(n6)
|
|
. + g(n2,n5)*g(n3,n6)*P(n1)*P(n4)
|
|
. + g(n2,n5)*g(n4,n6)*P(n1)*P(n3)
|
|
. + g(n2,n6)*g(n3,n4)*P(n1)*P(n5)
|
|
. + g(n2,n6)*g(n3,n5)*P(n1)*P(n4)
|
|
. + g(n2,n6)*g(n4,n5)*P(n1)*P(n3)
|
|
. + g(n3,n4)*g(n5,n6)*P(n1)*P(n2)
|
|
. + g(n3,n5)*g(n4,n6)*P(n1)*P(n2)
|
|
. + g(n3,n6)*g(n4,n5)*P(n1)*P(n2)
|
|
end
|
|
|
|
function pvSDDPKKK(n1,n2,n3,n4,n5,n6,P,K)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
real(dp):: pvSDDPKKK
|
|
real(dp):: P(4),K(4)
|
|
integer n1,n2,n3,n4,n5,n6
|
|
include 'lib/TensorReduction/Include/TRmetric.f'
|
|
pvSDDPKKK=
|
|
. + g(n1,n2)*P(n3)*K(n4)*K(n5)*K(n6)
|
|
. + g(n1,n2)*P(n4)*K(n3)*K(n5)*K(n6)
|
|
. + g(n1,n2)*P(n5)*K(n3)*K(n4)*K(n6)
|
|
. + g(n1,n2)*P(n6)*K(n3)*K(n4)*K(n5)
|
|
. + g(n1,n3)*P(n2)*K(n4)*K(n5)*K(n6)
|
|
. + g(n1,n3)*P(n4)*K(n2)*K(n5)*K(n6)
|
|
. + g(n1,n3)*P(n5)*K(n2)*K(n4)*K(n6)
|
|
. + g(n1,n3)*P(n6)*K(n2)*K(n4)*K(n5)
|
|
. + g(n1,n4)*P(n2)*K(n3)*K(n5)*K(n6)
|
|
. + g(n1,n4)*P(n3)*K(n2)*K(n5)*K(n6)
|
|
. + g(n1,n4)*P(n5)*K(n2)*K(n3)*K(n6)
|
|
. + g(n1,n4)*P(n6)*K(n2)*K(n3)*K(n5)
|
|
. + g(n1,n5)*P(n2)*K(n3)*K(n4)*K(n6)
|
|
. + g(n1,n5)*P(n3)*K(n2)*K(n4)*K(n6)
|
|
. + g(n1,n5)*P(n4)*K(n2)*K(n3)*K(n6)
|
|
. + g(n1,n5)*P(n6)*K(n2)*K(n3)*K(n4)
|
|
. + g(n1,n6)*P(n2)*K(n3)*K(n4)*K(n5)
|
|
. + g(n1,n6)*P(n3)*K(n2)*K(n4)*K(n5)
|
|
. + g(n1,n6)*P(n4)*K(n2)*K(n3)*K(n5)
|
|
. + g(n1,n6)*P(n5)*K(n2)*K(n3)*K(n4)
|
|
pvSDDPKKK=pvSDDPKKK
|
|
. + g(n2,n3)*P(n1)*K(n4)*K(n5)*K(n6)
|
|
. + g(n2,n3)*P(n4)*K(n1)*K(n5)*K(n6)
|
|
. + g(n2,n3)*P(n5)*K(n1)*K(n4)*K(n6)
|
|
. + g(n2,n3)*P(n6)*K(n1)*K(n4)*K(n5)
|
|
. + g(n2,n4)*P(n1)*K(n3)*K(n5)*K(n6)
|
|
. + g(n2,n4)*P(n3)*K(n1)*K(n5)*K(n6)
|
|
. + g(n2,n4)*P(n5)*K(n1)*K(n3)*K(n6)
|
|
. + g(n2,n4)*P(n6)*K(n1)*K(n3)*K(n5)
|
|
. + g(n2,n5)*P(n1)*K(n3)*K(n4)*K(n6)
|
|
. + g(n2,n5)*P(n3)*K(n1)*K(n4)*K(n6)
|
|
. + g(n2,n5)*P(n4)*K(n1)*K(n3)*K(n6)
|
|
. + g(n2,n5)*P(n6)*K(n1)*K(n3)*K(n4)
|
|
. + g(n2,n6)*P(n1)*K(n3)*K(n4)*K(n5)
|
|
. + g(n2,n6)*P(n3)*K(n1)*K(n4)*K(n5)
|
|
. + g(n2,n6)*P(n4)*K(n1)*K(n3)*K(n5)
|
|
. + g(n2,n6)*P(n5)*K(n1)*K(n3)*K(n4)
|
|
. + g(n3,n4)*P(n1)*K(n2)*K(n5)*K(n6)
|
|
. + g(n3,n4)*P(n2)*K(n1)*K(n5)*K(n6)
|
|
. + g(n3,n4)*P(n5)*K(n1)*K(n2)*K(n6)
|
|
. + g(n3,n4)*P(n6)*K(n1)*K(n2)*K(n5)
|
|
. + g(n3,n5)*P(n1)*K(n2)*K(n4)*K(n6)
|
|
. + g(n3,n5)*P(n2)*K(n1)*K(n4)*K(n6)
|
|
. + g(n3,n5)*P(n4)*K(n1)*K(n2)*K(n6)
|
|
. + g(n3,n5)*P(n6)*K(n1)*K(n2)*K(n4)
|
|
. + g(n3,n6)*P(n1)*K(n2)*K(n4)*K(n5)
|
|
. + g(n3,n6)*P(n2)*K(n1)*K(n4)*K(n5)
|
|
. + g(n3,n6)*P(n4)*K(n1)*K(n2)*K(n5)
|
|
. + g(n3,n6)*P(n5)*K(n1)*K(n2)*K(n4)
|
|
. + g(n4,n5)*P(n1)*K(n2)*K(n3)*K(n6)
|
|
. + g(n4,n5)*P(n2)*K(n1)*K(n3)*K(n6)
|
|
. + g(n4,n5)*P(n3)*K(n1)*K(n2)*K(n6)
|
|
. + g(n4,n5)*P(n6)*K(n1)*K(n2)*K(n3)
|
|
. + g(n4,n6)*P(n1)*K(n2)*K(n3)*K(n5)
|
|
. + g(n4,n6)*P(n2)*K(n1)*K(n3)*K(n5)
|
|
. + g(n4,n6)*P(n3)*K(n1)*K(n2)*K(n5)
|
|
. + g(n4,n6)*P(n5)*K(n1)*K(n2)*K(n3)
|
|
. + g(n5,n6)*P(n1)*K(n2)*K(n3)*K(n4)
|
|
. + g(n5,n6)*P(n2)*K(n1)*K(n3)*K(n4)
|
|
. + g(n5,n6)*P(n3)*K(n1)*K(n2)*K(n4)
|
|
. + g(n5,n6)*P(n4)*K(n1)*K(n2)*K(n3)
|
|
end
|
|
|
|
function pvSDDDDPK(n1,n2,n3,n4,n5,n6,P,K)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
real(dp):: pvSDDDDPK
|
|
real(dp):: P(4),K(4)
|
|
integer n1,n2,n3,n4,n5,n6
|
|
include 'lib/TensorReduction/Include/TRmetric.f'
|
|
pvSDDDDPK=
|
|
. + g(n1,n2)*g(n3,n4)*P(n5)*K(n6)
|
|
. + g(n1,n2)*g(n3,n4)*P(n6)*K(n5)
|
|
. + g(n1,n2)*g(n3,n5)*P(n4)*K(n6)
|
|
. + g(n1,n2)*g(n3,n5)*P(n6)*K(n4)
|
|
. + g(n1,n2)*g(n3,n6)*P(n4)*K(n5)
|
|
. + g(n1,n2)*g(n3,n6)*P(n5)*K(n4)
|
|
. + g(n1,n2)*g(n4,n5)*P(n3)*K(n6)
|
|
. + g(n1,n2)*g(n4,n5)*P(n6)*K(n3)
|
|
. + g(n1,n2)*g(n4,n6)*P(n3)*K(n5)
|
|
. + g(n1,n2)*g(n4,n6)*P(n5)*K(n3)
|
|
. + g(n1,n2)*g(n5,n6)*P(n3)*K(n4)
|
|
. + g(n1,n2)*g(n5,n6)*P(n4)*K(n3)
|
|
. + g(n1,n3)*g(n2,n4)*P(n5)*K(n6)
|
|
. + g(n1,n3)*g(n2,n4)*P(n6)*K(n5)
|
|
. + g(n1,n3)*g(n2,n5)*P(n4)*K(n6)
|
|
. + g(n1,n3)*g(n2,n5)*P(n6)*K(n4)
|
|
. + g(n1,n3)*g(n2,n6)*P(n4)*K(n5)
|
|
. + g(n1,n3)*g(n2,n6)*P(n5)*K(n4)
|
|
. + g(n1,n3)*g(n4,n5)*P(n2)*K(n6)
|
|
. + g(n1,n3)*g(n4,n5)*P(n6)*K(n2)
|
|
. + g(n1,n3)*g(n4,n6)*P(n2)*K(n5)
|
|
. + g(n1,n3)*g(n4,n6)*P(n5)*K(n2)
|
|
. + g(n1,n3)*g(n5,n6)*P(n2)*K(n4)
|
|
. + g(n1,n3)*g(n5,n6)*P(n4)*K(n2)
|
|
. + g(n1,n4)*g(n2,n3)*P(n5)*K(n6)
|
|
. + g(n1,n4)*g(n2,n3)*P(n6)*K(n5)
|
|
. + g(n1,n4)*g(n2,n5)*P(n3)*K(n6)
|
|
. + g(n1,n4)*g(n2,n5)*P(n6)*K(n3)
|
|
. + g(n1,n4)*g(n2,n6)*P(n3)*K(n5)
|
|
. + g(n1,n4)*g(n2,n6)*P(n5)*K(n3)
|
|
. + g(n1,n4)*g(n3,n5)*P(n2)*K(n6)
|
|
. + g(n1,n4)*g(n3,n5)*P(n6)*K(n2)
|
|
. + g(n1,n4)*g(n3,n6)*P(n2)*K(n5)
|
|
. + g(n1,n4)*g(n3,n6)*P(n5)*K(n2)
|
|
. + g(n1,n4)*g(n5,n6)*P(n2)*K(n3)
|
|
. + g(n1,n4)*g(n5,n6)*P(n3)*K(n2)
|
|
. + g(n1,n5)*g(n2,n3)*P(n4)*K(n6)
|
|
. + g(n1,n5)*g(n2,n3)*P(n6)*K(n4)
|
|
. + g(n1,n5)*g(n2,n4)*P(n3)*K(n6)
|
|
. + g(n1,n5)*g(n2,n4)*P(n6)*K(n3)
|
|
. + g(n1,n5)*g(n2,n6)*P(n3)*K(n4)
|
|
. + g(n1,n5)*g(n2,n6)*P(n4)*K(n3)
|
|
. + g(n1,n5)*g(n3,n4)*P(n2)*K(n6)
|
|
. + g(n1,n5)*g(n3,n4)*P(n6)*K(n2)
|
|
. + g(n1,n5)*g(n3,n6)*P(n2)*K(n4)
|
|
. + g(n1,n5)*g(n3,n6)*P(n4)*K(n2)
|
|
. + g(n1,n5)*g(n4,n6)*P(n2)*K(n3)
|
|
. + g(n1,n5)*g(n4,n6)*P(n3)*K(n2)
|
|
. + g(n1,n6)*g(n2,n3)*P(n4)*K(n5)
|
|
. + g(n1,n6)*g(n2,n3)*P(n5)*K(n4)
|
|
. + g(n1,n6)*g(n2,n4)*P(n3)*K(n5)
|
|
. + g(n1,n6)*g(n2,n4)*P(n5)*K(n3)
|
|
. + g(n1,n6)*g(n2,n5)*P(n3)*K(n4)
|
|
. + g(n1,n6)*g(n2,n5)*P(n4)*K(n3)
|
|
. + g(n1,n6)*g(n3,n4)*P(n2)*K(n5)
|
|
. + g(n1,n6)*g(n3,n4)*P(n5)*K(n2)
|
|
. + g(n1,n6)*g(n3,n5)*P(n2)*K(n4)
|
|
. + g(n1,n6)*g(n3,n5)*P(n4)*K(n2)
|
|
. + g(n1,n6)*g(n4,n5)*P(n2)*K(n3)
|
|
. + g(n1,n6)*g(n4,n5)*P(n3)*K(n2)
|
|
pvSDDDDPK=pvSDDDDPK
|
|
. + g(n2,n3)*g(n4,n5)*P(n1)*K(n6)
|
|
. + g(n2,n3)*g(n4,n5)*P(n6)*K(n1)
|
|
. + g(n2,n3)*g(n4,n6)*P(n1)*K(n5)
|
|
. + g(n2,n3)*g(n4,n6)*P(n5)*K(n1)
|
|
. + g(n2,n3)*g(n5,n6)*P(n1)*K(n4)
|
|
. + g(n2,n3)*g(n5,n6)*P(n4)*K(n1)
|
|
. + g(n2,n4)*g(n3,n5)*P(n1)*K(n6)
|
|
. + g(n2,n4)*g(n3,n5)*P(n6)*K(n1)
|
|
. + g(n2,n4)*g(n3,n6)*P(n1)*K(n5)
|
|
. + g(n2,n4)*g(n3,n6)*P(n5)*K(n1)
|
|
. + g(n2,n4)*g(n5,n6)*P(n1)*K(n3)
|
|
. + g(n2,n4)*g(n5,n6)*P(n3)*K(n1)
|
|
. + g(n2,n5)*g(n3,n4)*P(n1)*K(n6)
|
|
. + g(n2,n5)*g(n3,n4)*P(n6)*K(n1)
|
|
. + g(n2,n5)*g(n3,n6)*P(n1)*K(n4)
|
|
. + g(n2,n5)*g(n3,n6)*P(n4)*K(n1)
|
|
. + g(n2,n5)*g(n4,n6)*P(n1)*K(n3)
|
|
. + g(n2,n5)*g(n4,n6)*P(n3)*K(n1)
|
|
. + g(n2,n6)*g(n3,n4)*P(n1)*K(n5)
|
|
. + g(n2,n6)*g(n3,n4)*P(n5)*K(n1)
|
|
. + g(n2,n6)*g(n3,n5)*P(n1)*K(n4)
|
|
. + g(n2,n6)*g(n3,n5)*P(n4)*K(n1)
|
|
. + g(n2,n6)*g(n4,n5)*P(n1)*K(n3)
|
|
. + g(n2,n6)*g(n4,n5)*P(n3)*K(n1)
|
|
pvSDDDDPK=pvSDDDDPK
|
|
. + g(n3,n4)*g(n5,n6)*P(n1)*K(n2)
|
|
. + g(n3,n4)*g(n5,n6)*P(n2)*K(n1)
|
|
. + g(n3,n5)*g(n4,n6)*P(n1)*K(n2)
|
|
. + g(n3,n5)*g(n4,n6)*P(n2)*K(n1)
|
|
. + g(n3,n6)*g(n4,n5)*P(n1)*K(n2)
|
|
. + g(n3,n6)*g(n4,n5)*P(n2)*K(n1)
|
|
end
|
|
|
|
function pvSDDPPPP(n1,n2,n3,n4,n5,n6,P)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
real(dp):: pvSDDPPPP
|
|
real(dp):: P(4)
|
|
integer n1,n2,n3,n4,n5,n6
|
|
include 'lib/TensorReduction/Include/TRmetric.f'
|
|
pvSDDPPPP=
|
|
. + g(n1,n2)*P(n3)*P(n4)*P(n5)*P(n6)
|
|
. + g(n1,n3)*P(n2)*P(n4)*P(n5)*P(n6)
|
|
. + g(n1,n4)*P(n2)*P(n3)*P(n5)*P(n6)
|
|
. + g(n1,n5)*P(n2)*P(n3)*P(n4)*P(n6)
|
|
. + g(n1,n6)*P(n2)*P(n3)*P(n4)*P(n5)
|
|
. + g(n2,n3)*P(n1)*P(n4)*P(n5)*P(n6)
|
|
. + g(n2,n4)*P(n1)*P(n3)*P(n5)*P(n6)
|
|
. + g(n2,n5)*P(n1)*P(n3)*P(n4)*P(n6)
|
|
. + g(n2,n6)*P(n1)*P(n3)*P(n4)*P(n5)
|
|
. + g(n3,n4)*P(n1)*P(n2)*P(n5)*P(n6)
|
|
. + g(n3,n5)*P(n1)*P(n2)*P(n4)*P(n6)
|
|
. + g(n3,n6)*P(n1)*P(n2)*P(n4)*P(n5)
|
|
. + g(n4,n5)*P(n1)*P(n2)*P(n3)*P(n6)
|
|
. + g(n4,n6)*P(n1)*P(n2)*P(n3)*P(n5)
|
|
. + g(n5,n6)*P(n1)*P(n2)*P(n3)*P(n4)
|
|
end
|
|
|
|
function pvSDDPPPK(n1,n2,n3,n4,n5,n6,P,K)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
real(dp):: pvSDDPPPK
|
|
real(dp):: P(4),K(4)
|
|
integer n1,n2,n3,n4,n5,n6
|
|
include 'lib/TensorReduction/Include/TRmetric.f'
|
|
pvSDDPPPK=
|
|
. + g(n1,n2)*P(n3)*P(n4)*P(n5)*K(n6)
|
|
. + g(n1,n2)*P(n3)*P(n4)*P(n6)*K(n5)
|
|
. + g(n1,n2)*P(n3)*P(n5)*P(n6)*K(n4)
|
|
. + g(n1,n2)*P(n4)*P(n5)*P(n6)*K(n3)
|
|
. + g(n1,n3)*P(n2)*P(n4)*P(n5)*K(n6)
|
|
. + g(n1,n3)*P(n2)*P(n4)*P(n6)*K(n5)
|
|
. + g(n1,n3)*P(n2)*P(n5)*P(n6)*K(n4)
|
|
. + g(n1,n3)*P(n4)*P(n5)*P(n6)*K(n2)
|
|
. + g(n1,n4)*P(n2)*P(n3)*P(n5)*K(n6)
|
|
. + g(n1,n4)*P(n2)*P(n3)*P(n6)*K(n5)
|
|
. + g(n1,n4)*P(n2)*P(n5)*P(n6)*K(n3)
|
|
. + g(n1,n4)*P(n3)*P(n5)*P(n6)*K(n2)
|
|
. + g(n1,n5)*P(n2)*P(n3)*P(n4)*K(n6)
|
|
. + g(n1,n5)*P(n2)*P(n3)*P(n6)*K(n4)
|
|
. + g(n1,n5)*P(n2)*P(n4)*P(n6)*K(n3)
|
|
. + g(n1,n5)*P(n3)*P(n4)*P(n6)*K(n2)
|
|
. + g(n1,n6)*P(n2)*P(n3)*P(n4)*K(n5)
|
|
. + g(n1,n6)*P(n2)*P(n3)*P(n5)*K(n4)
|
|
. + g(n1,n6)*P(n2)*P(n4)*P(n5)*K(n3)
|
|
. + g(n1,n6)*P(n3)*P(n4)*P(n5)*K(n2)
|
|
pvSDDPPPK=pvSDDPPPK
|
|
. + g(n2,n3)*P(n1)*P(n4)*P(n5)*K(n6)
|
|
. + g(n2,n3)*P(n1)*P(n4)*P(n6)*K(n5)
|
|
. + g(n2,n3)*P(n1)*P(n5)*P(n6)*K(n4)
|
|
. + g(n2,n3)*P(n4)*P(n5)*P(n6)*K(n1)
|
|
. + g(n2,n4)*P(n1)*P(n3)*P(n5)*K(n6)
|
|
. + g(n2,n4)*P(n1)*P(n3)*P(n6)*K(n5)
|
|
. + g(n2,n4)*P(n1)*P(n5)*P(n6)*K(n3)
|
|
. + g(n2,n4)*P(n3)*P(n5)*P(n6)*K(n1)
|
|
. + g(n2,n5)*P(n1)*P(n3)*P(n4)*K(n6)
|
|
. + g(n2,n5)*P(n1)*P(n3)*P(n6)*K(n4)
|
|
. + g(n2,n5)*P(n1)*P(n4)*P(n6)*K(n3)
|
|
. + g(n2,n5)*P(n3)*P(n4)*P(n6)*K(n1)
|
|
. + g(n2,n6)*P(n1)*P(n3)*P(n4)*K(n5)
|
|
. + g(n2,n6)*P(n1)*P(n3)*P(n5)*K(n4)
|
|
. + g(n2,n6)*P(n1)*P(n4)*P(n5)*K(n3)
|
|
. + g(n2,n6)*P(n3)*P(n4)*P(n5)*K(n1)
|
|
pvSDDPPPK=pvSDDPPPK
|
|
. + g(n3,n4)*P(n1)*P(n2)*P(n5)*K(n6)
|
|
. + g(n3,n4)*P(n1)*P(n2)*P(n6)*K(n5)
|
|
. + g(n3,n4)*P(n1)*P(n5)*P(n6)*K(n2)
|
|
. + g(n3,n4)*P(n2)*P(n5)*P(n6)*K(n1)
|
|
. + g(n3,n5)*P(n1)*P(n2)*P(n4)*K(n6)
|
|
. + g(n3,n5)*P(n1)*P(n2)*P(n6)*K(n4)
|
|
. + g(n3,n5)*P(n1)*P(n4)*P(n6)*K(n2)
|
|
. + g(n3,n5)*P(n2)*P(n4)*P(n6)*K(n1)
|
|
. + g(n3,n6)*P(n1)*P(n2)*P(n4)*K(n5)
|
|
. + g(n3,n6)*P(n1)*P(n2)*P(n5)*K(n4)
|
|
. + g(n3,n6)*P(n1)*P(n4)*P(n5)*K(n2)
|
|
. + g(n3,n6)*P(n2)*P(n4)*P(n5)*K(n1)
|
|
. + g(n4,n5)*P(n1)*P(n2)*P(n3)*K(n6)
|
|
. + g(n4,n5)*P(n1)*P(n2)*P(n6)*K(n3)
|
|
. + g(n4,n5)*P(n1)*P(n3)*P(n6)*K(n2)
|
|
. + g(n4,n5)*P(n2)*P(n3)*P(n6)*K(n1)
|
|
. + g(n4,n6)*P(n1)*P(n2)*P(n3)*K(n5)
|
|
. + g(n4,n6)*P(n1)*P(n2)*P(n5)*K(n3)
|
|
. + g(n4,n6)*P(n1)*P(n3)*P(n5)*K(n2)
|
|
. + g(n4,n6)*P(n2)*P(n3)*P(n5)*K(n1)
|
|
. + g(n5,n6)*P(n1)*P(n2)*P(n3)*K(n4)
|
|
. + g(n5,n6)*P(n1)*P(n2)*P(n4)*K(n3)
|
|
. + g(n5,n6)*P(n1)*P(n3)*P(n4)*K(n2)
|
|
. + g(n5,n6)*P(n2)*P(n3)*P(n4)*K(n1)
|
|
end
|
|
|
|
|