The triviality check for the B0 function misses the condition for zero momentum:
Code: Select all
Complex(dp) Function SA_B0(xp, xm1, xm2)
Implicit None
Real(dp), Intent(in) :: xp, xm1, xm2
If ((xm1.eq.0._dp).and.(xm2.eq.0._dp)) Then
SA_B0=0._dp
Return
End if
...
Cheers,
Philip