coli_aux2 Module Reference

Functions/Subroutines
subroutine	initcoli_in_collier
subroutine	initerrcnt_coli (val)
subroutine	initcritpointscnt_coli (val)
subroutine	seterrflag_coli (err)
subroutine	geterrflag_coli (err)
subroutine	setnerrout_coli (nerrout)
subroutine	setncpout_coli (ncpout)
subroutine	setninfout_coli (ninfout)
subroutine	setnstatsout_coli (nstatsout)
subroutine	setmaxerrout_coli (errmax)
subroutine	seterroutlev_coli (erroutlev)
subroutine	errout_coli (sub, err, flag)
subroutine	critpointsout_coli (sub, acc)
subroutine	setmode_coli (mode)
subroutine	setprec_coli (dprec)
subroutine	setacc_coli (reqacc, critacc)
subroutine	setreqacc_coli (reqacc)
subroutine	setcritacc_coli (critacc)
subroutine	setritmax_coli (ritmax_B, ritmax_C, ritmax_D)

Variables
integer	nerrout_coli =6
integer	ninfout_coli =6
integer	ncpout_coli
integer	nstatsout_coli
integer	errflag_coli
integer	errcnt_coli
integer	critpointscnt_coli
integer	erroutlev_coli
integer	maxerrout_coli =100
integer	stdout_coli =6
integer	mode_coli =0
integer	closed_coli =-999
double precision	dprec_coli
double precision	reqacc_coli
double precision	critacc_coli
double precision	acc_inf
double precision	acc_def_b
double precision	acc_def_c0
double precision	acc_def_d0
double precision	acc_req_c
double precision	acc_req_d
double precision	acc_req_cind
double precision	impest_d =1d1
double precision	impest_c =1d1
integer	rmax_b
integer	rmax_c
integer	rmax_d
logical	inflev_coli

Function/Subroutine Documentation

critpointsout_coli()

subroutine coli_aux2::critpointsout_coli	(	character(len=*), intent(in)	sub,
		double precision, intent(in)	acc
	)

Definition at line 338 of file coli_aux2.F90.

 
    character(len=*), intent(in) :: sub
    double precision, intent(in) :: acc
    integer :: i
 
#include "common_coli.h"
 
    critpointscnt_coli = critpointscnt_coli + 1    
 
    write(ncpout_coli,*)
    write(ncpout_coli,*)
    write(ncpout_coli,*)
    write(ncpout_coli,*) '***********************************************************'
    write(ncpout_coli,*) 'Critical Point NO.', critpointscnt_coli
    write(ncpout_coli,*) 'in integral: ', trim(sub)
    write(ncpout_coli,*) 'estimated accuracy: ', acc
    write(ncpout_coli,*) '-----------------------------------------------------------'
    write(ncpout_coli,*) 'GLOBAL PARAMETERS:'
    write(ncpout_coli,*) 'muUV2 =     ', muuv2
    write(ncpout_coli,*) 'muIR2 =     ', muir2
#ifdef SING
    write(ncpout_coli,*) 'deltaUV =   ', deltauv
    write(ncpout_coli,*) 'deltaIR1 =  ', delta1ir
    write(ncpout_coli,*) 'deltaIR2 =  ', delta2ir
#endif
    write(ncpout_coli,*) 'nminf =     ', ncoliminf
    do i=1,ncoliminf
      write(ncpout_coli,*) 'minf2 =     ', i, coliminf2(i)
    end do
    write(ncpout_coli,*) 'dprec =     ', dprec_coli
    write(ncpout_coli,*) 'reqacc =    ', reqacc_coli
    write(ncpout_coli,*) 'critacc =   ', critacc_coli
    write(ncpout_coli,*) 'ErrFlag =   ', errflag_coli
!   write(ncpout_coli,*) '------------------------------------------------------------'
    call writemaster_cll(ncpout_coli)
 

errout_coli()

subroutine coli_aux2::errout_coli	(	character(len=*), intent(in)	sub,
		character(len=*), intent(in)	err,
		logical, intent(out)	flag
	)

Definition at line 297 of file coli_aux2.F90.

 
    character(len=*), intent(in) :: sub, err
!    integer, parameter :: maxErrOut=100
    logical, intent(out) :: flag
  
    flag = .false.
    if(erroutlev_coli.eq.0) return
 
    errcnt_coli = errcnt_coli + 1  
    if (errcnt_coli.le.maxerrout_coli) then
      write(nerrout_coli,*)
      write(nerrout_coli,*)
      write(nerrout_coli,*)
      write(nerrout_coli,*) '***********************************************************'
      write(nerrout_coli,*) 'ERROR NO.', errcnt_coli
      write(nerrout_coli,*) 'in routine: ', trim(sub)
      write(nerrout_coli,*) trim(err)
      call writemaster_cll(nerrout_coli)
      flag = .true.
    elseif (errcnt_coli.eq.maxerrout_coli+1) then
      write(nerrout_coli,*)
      write(nerrout_coli,*)
      write(nerrout_coli,*)
      write(nerrout_coli,*) '***********************************************************'
      write(nerrout_coli,*)
      write(nerrout_coli,*) ' Further output of Errors will be suppressed '
      write(nerrout_coli,*)
    endif
 

geterrflag_coli()

subroutine coli_aux2::geterrflag_coli

(

integer, intent(out)

err

)

Definition at line 155 of file coli_aux2.F90.

 
    integer, intent(out) :: err
 
    err = errflag_coli
 

initcoli_in_collier()

subroutine coli_aux2::initcoli_in_collier

Definition at line 51 of file coli_aux2.F90.

 
    implicit   none
!    logical    init
!
!    data init /.false./
!    save init
!    
!    if (init) return
!    init = .true.
    
  ! scale factor for *small* masses masses
    call setminfscale2_coli(1d0)
#ifdef SING
  ! shift of mass-singular squared logarithms
    call setshiftms2_coli(0d0)
#endif
 
  
  ! estimate of CPU precision 
  !    calacc = dprec_coli
  ! infinitesimal parameter
  !    eps    = dprec_coli/4d0
  ! size of imaginary parts below which explicit ieps take over
  !    impacc = dprec_coli/4d4
  !  done via GetCPUprec_cll
  !  call setprecpars_coli(dprec_coli)
 
  ! infinitesimal accuracy 
    acc_inf = 1d40
 
!    acc_min_C = 1d0
!    acc_min_D = 1d0
 
 

initcritpointscnt_coli()

subroutine coli_aux2::initcritpointscnt_coli

(

integer, intent(in)

val

)

Definition at line 112 of file coli_aux2.F90.

 
    integer, intent(in) :: val
 
    critpointscnt_coli = val
 

initerrcnt_coli()

subroutine coli_aux2::initerrcnt_coli

(

integer, intent(in)

val

)

Definition at line 95 of file coli_aux2.F90.

 
    integer, intent(in) :: val
 
    errcnt_coli = val
 

setacc_coli()

subroutine coli_aux2::setacc_coli	(	double precision, intent(in)	reqacc,
		double precision, intent(in)	critacc
	)

Definition at line 445 of file coli_aux2.F90.

 
    double precision, intent(in) :: reqacc,critacc
 
    reqacc_coli = reqacc
    acc_req_c = reqacc
    acc_req_cind = reqacc/1d1
    acc_req_d = reqacc
 
    critacc_coli = critacc
 
    if(inflev_coli.and.ninfout_coli.ne.closed_coli)then
      write(ninfout_coli,*)  'COLI: reqacc_coli set to  = ',reqacc_coli
      write(ninfout_coli,*)  'COLI: critacc_coli set to = ',critacc_coli
    endif
 

setcritacc_coli()

subroutine coli_aux2::setcritacc_coli

(

double precision, intent(in)

critacc

)

Definition at line 496 of file coli_aux2.F90.

 
    double precision, intent(in) :: critacc
 
    critacc_coli = critacc
 
    if(inflev_coli.and.ninfout_coli.ne.closed_coli)then
      write(ninfout_coli,*)  'COLI: critacc_coli set to = ',critacc_coli
    endif
 

seterrflag_coli()

subroutine coli_aux2::seterrflag_coli

(

integer, intent(in)

err

)

Definition at line 138 of file coli_aux2.F90.

 
    integer, intent(in) :: err
 
    errflag_coli = err
 

seterroutlev_coli()

subroutine coli_aux2::seterroutlev_coli

(

integer, intent(in)

erroutlev

)

Definition at line 277 of file coli_aux2.F90.

 
    integer, intent(in) :: erroutlev
 
    erroutlev_coli = erroutlev
    
 

setmaxerrout_coli()

subroutine coli_aux2::setmaxerrout_coli

(

integer, intent(in)

errmax

)

Definition at line 256 of file coli_aux2.F90.

 
    integer, intent(in) :: errmax
 
    maxerrout_coli = errmax
 
    if(inflev_coli.and.ninfout_coli.ne.closed_coli)then
      write(ninfout_coli,*)  'COLI: maxErrOut_coli set to = ',maxerrout_coli
    endif
 

setmode_coli()

subroutine coli_aux2::setmode_coli

(

integer, intent(in)

mode

)

Definition at line 389 of file coli_aux2.F90.

 
    integer, intent(in) :: mode
 
    mode_coli = mode
    if(mode.lt.1) then 
      impest_c = 1d1
      impest_d = 1d1
    else
      impest_c = 1d0
      impest_d = 1d0
    end if
 
    if(inflev_coli.and.ninfout_coli.ne.closed_coli)then
      write(ninfout_coli,*)  'COLI: Mode_coli set to = ',mode_coli
    endif
 

setncpout_coli()

subroutine coli_aux2::setncpout_coli

(

integer, intent(in)

ncpout

)

Definition at line 193 of file coli_aux2.F90.

 
    integer, intent(in) :: ncpout
 
    ncpout_coli = ncpout
 
    if(inflev_coli.and.ninfout_coli.ne.closed_coli)then
      write(ninfout_coli,*)  'COLI: ncpout_coli set to = ',ncpout_coli
    endif
 

setnerrout_coli()

subroutine coli_aux2::setnerrout_coli

(

integer, intent(in)

nerrout

)

Definition at line 172 of file coli_aux2.F90.

 
    integer, intent(in) :: nerrout
 
    nerrout_coli = nerrout
 
    if(inflev_coli.and.ninfout_coli.ne.closed_coli)then
      write(ninfout_coli,*)  'COLI: nerrout_coli set to = ',nerrout_coli
    endif
 

setninfout_coli()

subroutine coli_aux2::setninfout_coli

(

integer, intent(in)

ninfout

)

Definition at line 214 of file coli_aux2.F90.

 
    integer, intent(in) :: ninfout
 
    ninfout_coli = ninfout
 
    if(inflev_coli.and.ninfout_coli.ne.closed_coli)then
      write(ninfout_coli,*)  'COLI: ninfout_coli set to = ',ninfout_coli
    endif
 

setnstatsout_coli()

subroutine coli_aux2::setnstatsout_coli

(

integer, intent(in)

nstatsout

)

Definition at line 235 of file coli_aux2.F90.

 
    integer, intent(in) :: nstatsout
 
    nstatsout_coli = nstatsout
 
    if(inflev_coli.and.ninfout_coli.ne.closed_coli)then
      write(ninfout_coli,*)  'COLI: nstatsout_coli set to = ',nstatsout_coli
    endif
 

setprec_coli()

subroutine coli_aux2::setprec_coli

(

double precision, intent(in)

dprec

)

Definition at line 417 of file coli_aux2.F90.

 
    double precision, intent(in) :: dprec
 
    dprec_coli = dprec
 
! adapted to precision of D0 and C0
    acc_def_b = dprec_coli
    acc_def_c0 = 1d1*dprec_coli
    acc_def_d0 = 1d1*dprec_coli
 
    call setprecpars_coli(dprec)
 
    if(inflev_coli.and.ninfout_coli.ne.closed_coli)then
      write(ninfout_coli,*)  'COLI: dprec_coli set to = ',dprec_coli
    endif
 

setreqacc_coli()

subroutine coli_aux2::setreqacc_coli

(

double precision, intent(in)

reqacc

)

Definition at line 472 of file coli_aux2.F90.

 
    double precision, intent(in) :: reqacc
 
    reqacc_coli = reqacc
    acc_req_c = reqacc
    acc_req_cind = reqacc/1d1
    acc_req_d = reqacc
 
    if(inflev_coli.and.ninfout_coli.ne.closed_coli)then
      write(ninfout_coli,*)  'COLI: reqacc_coli set to  = ',reqacc_coli
    endif
 

setritmax_coli()

subroutine coli_aux2::setritmax_coli	(	integer, intent(in)	ritmax_B,
		integer, intent(in)	ritmax_C,
		integer, intent(in)	ritmax_D
	)

Definition at line 517 of file coli_aux2.F90.

 
    integer, intent(in) :: ritmax_B,ritmax_C, ritmax_D
 
    if (ritmax_d.lt.6) then
      if(inflev_coli.and.ninfout_coli.ne.closed_coli)then
        write(ninfout_coli,*) 'COLI: SetRitmax_coli'
        write(ninfout_coli,*) 'rmax_D has to be at least 6 --> it is set to 6'
      end if
      rmax_d = 6
    else
      rmax_d = ritmax_d
      if(inflev_coli.and.ninfout_coli.ne.closed_coli)then
        write(ninfout_coli,*)  'COLI: rmax_D set to = ',rmax_d
      endif
    end if
 
    if (ritmax_c.le.rmax_d) then
      if(inflev_coli.and.ninfout_coli.ne.closed_coli)then
        write(ninfout_coli,*) 'COLI: SetRitmax_coli'
        write(ninfout_coli,*) 'rmax_C has to be larger than rmax_D --> it is set to rmax_D+1'
      end if
      rmax_c = rmax_d+1
    else
      rmax_c = ritmax_c
      if(inflev_coli.and.ninfout_coli.ne.closed_cll)then
        write(ninfout_coli,*)  'COLI: rmax_C set to = ',rmax_c
      endif
    end if
 
    if (ritmax_b.le.rmax_c) then
      if(inflev_coli.and.ninfout_coli.ne.closed_coli)then
        write(ninfout_coli,*) 'COLI: SetRitmax_coli'
        write(ninfout_coli,*) 'rmax_B has to be larger than rmax_C --> it is set to rmax_C+1'
      end if
      rmax_b = rmax_c+1
    else
      rmax_b = ritmax_b
      if(inflev_coli.and.ninfout_coli.ne.closed_coli)then
        write(ninfout_coli,*)  'COLI: rmax_B set to = ',rmax_b
      endif
    end if
 
 

Variable Documentation

acc_def_b

double precision coli_aux2::acc_def_b

Definition at line 35 of file coli_aux2.F90.

acc_def_c0

double precision coli_aux2::acc_def_c0

Definition at line 35 of file coli_aux2.F90.

acc_def_d0

double precision coli_aux2::acc_def_d0

Definition at line 35 of file coli_aux2.F90.

acc_inf

double precision coli_aux2::acc_inf

Definition at line 35 of file coli_aux2.F90.

  double precision :: acc_inf, acc_def_B, acc_def_C0, acc_def_D0

acc_req_c

double precision coli_aux2::acc_req_c

Definition at line 36 of file coli_aux2.F90.

  double precision :: acc_req_C, acc_req_D, acc_req_CinD

acc_req_cind

double precision coli_aux2::acc_req_cind

Definition at line 36 of file coli_aux2.F90.

acc_req_d

double precision coli_aux2::acc_req_d

Definition at line 36 of file coli_aux2.F90.

closed_coli

integer coli_aux2::closed_coli =-999

Definition at line 32 of file coli_aux2.F90.

critacc_coli

double precision coli_aux2::critacc_coli

Definition at line 33 of file coli_aux2.F90.

critpointscnt_coli

integer coli_aux2::critpointscnt_coli

Definition at line 30 of file coli_aux2.F90.

dprec_coli

double precision coli_aux2::dprec_coli

Definition at line 33 of file coli_aux2.F90.

  double precision :: dprec_coli, reqacc_coli, critacc_coli

errcnt_coli

integer coli_aux2::errcnt_coli

Definition at line 30 of file coli_aux2.F90.

errflag_coli

integer coli_aux2::errflag_coli

Definition at line 30 of file coli_aux2.F90.

  integer :: errflag_coli,ErrCnt_coli,CritPointsCnt_coli,erroutlev_coli

erroutlev_coli

integer coli_aux2::erroutlev_coli

Definition at line 30 of file coli_aux2.F90.

impest_c

double precision coli_aux2::impest_c =1d1

Definition at line 37 of file coli_aux2.F90.

impest_d

double precision coli_aux2::impest_d =1d1

Definition at line 37 of file coli_aux2.F90.

  double precision :: impest_D=1d1, impest_c=1d1

inflev_coli

logical coli_aux2::inflev_coli

Definition at line 39 of file coli_aux2.F90.

  logical :: InfLev_coli

maxerrout_coli

integer coli_aux2::maxerrout_coli =100

Definition at line 31 of file coli_aux2.F90.

  integer :: MaxErrOut_coli=100

mode_coli

integer coli_aux2::mode_coli =0

Definition at line 32 of file coli_aux2.F90.

ncpout_coli

integer coli_aux2::ncpout_coli

Definition at line 29 of file coli_aux2.F90.

nerrout_coli

integer coli_aux2::nerrout_coli =6

Definition at line 29 of file coli_aux2.F90.

  integer :: nerrout_coli=6,ninfout_coli=6,ncpout_coli,nstatsout_coli

ninfout_coli

integer coli_aux2::ninfout_coli =6

Definition at line 29 of file coli_aux2.F90.

nstatsout_coli

integer coli_aux2::nstatsout_coli

Definition at line 29 of file coli_aux2.F90.

reqacc_coli

double precision coli_aux2::reqacc_coli

Definition at line 33 of file coli_aux2.F90.

rmax_b

integer coli_aux2::rmax_b

Definition at line 38 of file coli_aux2.F90.

  integer :: rmax_B, rmax_C, rmax_D

rmax_c

integer coli_aux2::rmax_c

Definition at line 38 of file coli_aux2.F90.

rmax_d

integer coli_aux2::rmax_d

Definition at line 38 of file coli_aux2.F90.

stdout_coli

integer coli_aux2::stdout_coli =6

Definition at line 32 of file coli_aux2.F90.

  integer :: stdout_coli=6,mode_coli=0,closed_coli=-999