Definition at line 111 of file collier_coefs.F90.
◆ db1_arrays_cll()
subroutine collier_coefs::db1_cll::db1_arrays_cll |
( |
double complex, intent(out) |
DB1, |
|
|
double complex, dimension(1), intent(in) |
MomInv, |
|
|
double complex, dimension(0:1), intent(in) |
masses2 |
|
) |
| |
Definition at line 5485 of file collier_coefs.F90.
5486 double complex,
intent(in) :: MomInv(1), masses2(0:1)
5487 double complex,
intent(out) :: DB1
5489 call db1_main_cll(db1,mominv(1),masses2(0),masses2(1))
◆ db1_main_cll()
subroutine collier_coefs::db1_cll::db1_main_cll |
( |
double complex, intent(out) |
DB1, |
|
|
double complex, intent(in) |
p10, |
|
|
double complex, intent(in) |
m02, |
|
|
double complex, intent(in) |
m12 |
|
) |
| |
Definition at line 5399 of file collier_coefs.F90.
5400 double complex,
intent(in) :: p10,m02,m12
5401 double precision :: q10
5402 double complex :: mm02,mm12
5403 double complex,
intent(out) :: DB1
5404 double complex :: DB0dd, DB1dd
5405 double complex :: DB1_coli
5406 double complex :: args(3)
5407 double complex :: DBdduv(0:1,0:1)
5408 double complex :: DBdd(0:1,0:1)
5415 call setmasterfname_cll(
'DB1_cll')
5416 call setmastern_cll(2)
5417 call setmasterr_cll(1)
5418 call setmasterargs_cll(3,args)
5421 select case (mode_cll)
5427 db1 = db1_coli(p10,m02,m12)
5435 q10 = dreal(getminf2dd_cll(p10))
5436 mm02 = getminf2dd_cll(m02)
5437 mm12 = getminf2dd_cll(m12)
5439 use_cache_system=.false.
5440 call db_dd(dbdd,dbdduv,q10,mm02,mm12,1)
5441 use_cache_system=use_cache_system_save
5452 db1 = db1_coli(p10,m02,m12)
5455 q10 = dreal(getminf2dd_cll(p10))
5456 mm02 = getminf2dd_cll(m02)
5457 mm12 = getminf2dd_cll(m12)
5459 use_cache_system=.false.
5460 call db_dd(dbdd,dbdduv,q10,mm02,mm12,1)
5461 use_cache_system=use_cache_system_save
5465 call checkcoefsdbr_cll(db1,db1dd,p10,m02,m12,1)
5470 call propagateerrflag_cll
The documentation for this interface was generated from the following file: