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.
29 lines
987 B
29 lines
987 B
c--- This is just a wrapping routine that calls ovBtensor or pvBtensor
|
|
subroutine doBtensor(q1,m1s,m2s,FB0,FB1,FB2,FB3,FB4,FB5,FB6)
|
|
implicit none
|
|
C q1 is the momentum in the loop = p1 the external momenta
|
|
C m1s,m2s are the squares of the internal masses
|
|
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):: FB0(-2:0),FB1(y1max,-2:0),
|
|
. FB2(y2max,-2:0),FB3(y3max,-2:0),FB4(y4max,-2:0),FB5(y5max,-2:0)
|
|
. ,FB6(y6max,-2:0),B00(-2:0)
|
|
real(dp):: q1(4),m1s,m2s
|
|
|
|
if (doovred) then
|
|
call ovBtensor(q1,m1s,m2s,FB0,FB1,FB2,B00)
|
|
FB3=czip
|
|
FB4=czip
|
|
FB5=czip
|
|
FB6=czip
|
|
endif
|
|
|
|
if (dopvred) then
|
|
call pvBtensor(q1,m1s,m2s,FB0,FB1,FB2,FB3,FB4,FB5,FB6)
|
|
endif
|
|
|
|
return
|
|
end
|
|
|