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.
39 lines
835 B
39 lines
835 B
!
|
|
! SPDX-License-Identifier: GPL-3.0-or-later
|
|
! Copyright (C) 2019-2022, respective authors of MCFM.
|
|
!
|
|
module loopI1_generic
|
|
implicit none
|
|
public loopI1,loopI1c
|
|
|
|
interface loopI1
|
|
module procedure loopI1,loopI1c
|
|
end interface
|
|
|
|
contains
|
|
|
|
function loopI1(m1,mu2,ep) result(loopI1_res)
|
|
use avh_olo
|
|
use mod_qcdloop_c
|
|
implicit none
|
|
include 'types.f'
|
|
include 'scalarselect.f'
|
|
real(dp):: m1
|
|
include 'loopI1_inc.f'
|
|
end function loopI1
|
|
|
|
function loopI1c(m1,mu2,ep) result(loopI1_res)
|
|
use avh_olo
|
|
use mod_qcdloop_c
|
|
implicit none
|
|
include 'types.f'
|
|
include 'scalarselect.f'
|
|
complex(dp)::m1
|
|
|
|
include 'loopI1c_inc.f'
|
|
|
|
return
|
|
end function loopI1c
|
|
|
|
end module loopI1_generic
|
|
|