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.
33 lines
1.1 KiB
33 lines
1.1 KiB
c--- This is just a wrapping routine that calls ovDtensor or pvDtensor
|
|
subroutine doEtensor(q1,q2,q3,q4,m1s,m2s,m3s,m4s,m5s,
|
|
& FE0,FE1,FE2,FE3,FE4,FE5,FE6)
|
|
implicit none
|
|
C q1,q2,q3 are the loop offset momenta
|
|
C m1s,m2s,m3s,m4s are the squares of the masses in the propagators
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
include 'lib/TensorReduction/Include/TRconstants.f'
|
|
include 'lib/TensorReduction/Include/TRydef.f'
|
|
include 'lib/TensorReduction/Include/TRtensorcontrol.f'
|
|
complex(dp):: FE0(-2:0),FE1(y1max,-2:0),FE2(y2max,-2:0),
|
|
& FE3(y3max,-2:0),FE4(y4max,-2:0),FE5(y5max,-2:0),FE6(y6max,-2:0)
|
|
real(dp):: p2(4),p3(4),p4(4),q1(4),q2(4),q3(4),q4(4),
|
|
& m1s,m2s,m3s,m4s,m5s
|
|
|
|
if (doovred) then
|
|
p4(:)=q4(:)-q3(:)
|
|
p3(:)=q3(:)-q2(:)
|
|
p2(:)=q2(:)-q1(:)
|
|
call ovEtensor(q1,p2,p3,p4,m1s,m2s,m3s,m4s,m5s,
|
|
& FE0,FE1,FE2,FE3,FE4,FE5)
|
|
endif
|
|
|
|
if (dopvred) then
|
|
call pvEtensor(q1,p2,p3,p4,m1s,m2s,m3s,m4s,m5s,
|
|
& FE0,FE1,FE2,FE3,FE4,FE5)
|
|
endif
|
|
|
|
FE6=czip
|
|
|
|
return
|
|
end
|
|
|