collier_global.F90

Go to the documentation of this file.

!!
!!  File collier_global.F90 is part of COLLIER
!!  - A Complex One-Loop Library In Extended Regularizations
!!
!!  Copyright (C) 2015, 2016   Ansgar Denner, Stefan Dittmaier, Lars Hofer
!!
!!  COLLIER is licenced under the GNU GPL version 3, see COPYING for details.
!!
 
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
!  ***************************
!  *  module collier_global  *
!  *      by Lars Hofer      *
!  *************************** 
! 
!  contains the global parameters of COLLIER
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
 
 
module collier_global
 
!  character(len=5) :: version_cll="1.1.x"
  character(len=5) :: version_cll=" 1.2 "
  integer :: mode_cll, nminf_cll
  double precision :: muuv2_cll,muir2_cll,deltauv_cll,deltair1_cll,deltair2_cll
  double complex, allocatable :: minf2_cll(:) 
  double precision :: dprec_cll, reqacc_cll, critacc_cll, checkacc_cll
  integer :: nmax_dd,rmax_dd,rmax2_dd,rmax3_dd,rmax4_dd,rmax5_dd,rmax6_dd
  character(len=99) :: filename_errout_cll
  integer :: errflag_cll,errcnt_cll,infcnt_cll,maxinfout_cll,accflag_cll,critpointscntcoli_cll
  integer :: errcntcoli_cll,errcntdd_cll,maxerrout_cll,maxerroutcoli_cll,maxerroutdd_cll
  integer :: rmaxb_cll,rmaxc_cll,rmaxd_cll,ritmax_cll
  integer :: eventcnt_cll,infoutlev_cll,erroutlev_cll
  integer :: stdout_cll=6
  integer :: errorstop_cll
  logical :: calcuv_cll,ir_rational_terms_cll
  integer :: tenred_cll,never_tenred_cll=999
  logical :: initialized_cll=.false.,nofiles_cll=.false.
  integer, parameter :: nminf_colidd=100, closed_cll=-999
 
  integer :: nmax_cll, rmax_cll
  integer :: critpointscnta_cll,critpointscntb_cll,critpointscntc_cll,  &
      critpointscntd_cll,critpointscnte_cll,critpointscntf_cll,         &
      critpointscntg_cll,critpointscntdb_cll
  integer :: accpointscnta_cll,accpointscntb_cll,accpointscntc_cll,  &
      accpointscntd_cll,accpointscnte_cll,accpointscntf_cll,         &
      accpointscntg_cll,accpointscntdb_cll
  integer :: pointscnta_cll,pointscntb_cll,pointscntc_cll,  &
      pointscntd_cll,pointscnte_cll,pointscntf_cll,pointscntg_cll,pointscntdb_cll
  integer :: critpointscntaten_cll,critpointscntbten_cll,critpointscntcten_cll,  &
      critpointscntdten_cll,critpointscnteten_cll,critpointscntften_cll,         &
      critpointscntgten_cll,critpointscntdbten_cll
  integer :: accpointscntaten_cll,accpointscntbten_cll,accpointscntcten_cll,  &
      accpointscntdten_cll,accpointscnteten_cll,accpointscntften_cll,         &
      accpointscntgten_cll,accpointscntdbten_cll
  integer :: pointscntaten_cll,pointscntbten_cll,pointscntcten_cll,  &
      pointscntdten_cll,pointscnteten_cll,pointscntften_cll,pointscntgten_cll,pointscntdbten_cll
  integer, allocatable :: pointscnttn_cll(:),critpointscnttn_cll(:),accpointscnttn_cll(:)
  integer, allocatable :: pointscnttnten_cll(:),critpointscnttnten_cll(:),accpointscnttnten_cll(:)
!  integer :: PointsCntTN_cll(10),CritPointsCntTN_cll(10),AccPointsCntTN_cll(10)
  logical :: monitoring,qopened_check
 
  integer :: critpointscnta2_cll,critpointscntb2_cll,critpointscntc2_cll,  &
      critpointscntd2_cll,critpointscnte2_cll,critpointscntf2_cll,         &
      critpointscntg2_cll,critpointscntdb2_cll
  integer :: accpointscnta2_cll,accpointscntb2_cll,accpointscntc2_cll,  &
      accpointscntd2_cll,accpointscnte2_cll,accpointscntf2_cll,         &
      accpointscntg2_cll,accpointscntdb2_cll
  integer :: pointscnta2_cll,pointscntb2_cll,pointscntc2_cll,  &
      pointscntd2_cll,pointscnte2_cll,pointscntf2_cll,pointscntg2_cll,pointscntdb2_cll
  integer, allocatable :: pointscnttn2_cll(:),critpointscnttn2_cll(:),accpointscnttn2_cll(:)
  
  integer :: pointscnta_coli,pointscntb_coli,pointscntdb_coli,pointscntc_coli,  &
      pointscntd_coli,pointscnte_coli,pointscntf_coli,pointscntg_coli
  integer, allocatable :: pointscnttn_coli(:)
  integer :: pointscntaten_coli,pointscntbten_coli,pointscntdbten_coli,pointscntcten_coli,  &
      pointscntdten_coli,pointscnteten_coli,pointscntften_coli,pointscntgten_coli
  integer, allocatable :: pointscnttnten_coli(:)
  integer :: pointscnta_dd,pointscntb_dd,pointscntdb_dd,pointscntc_dd,  &
      pointscntd_dd,pointscnte_dd,pointscntf_dd,pointscntg_dd
  integer, allocatable :: pointscnttn_dd(:)
  integer :: pointscntaten_dd,pointscntbten_dd,pointscntdbten_dd,pointscntcten_dd,  &
      pointscntdten_dd,pointscnteten_dd,pointscntften_dd,pointscntgten_dd
  integer, allocatable :: pointscnttnten_dd(:)
 
  integer, allocatable :: maxcheck_cll(:),checkcnt_cll(:),diffcnt_cll(:)
  integer, allocatable :: checkcntten_cll(:),diffcntten_cll(:)
  integer :: maxcheckdb_cll,checkcntdb_cll,diffcntdb_cll
  integer :: maxcheckec_cll,diffcntec_cll
 
  integer :: acccnt(-2:1), errcnt(-10:1), errcntcoli(-10:0), errcntdd(-10:0)
  integer :: acceventcnt(-2:1), erreventcnt(-10:1)
 
  integer, allocatable :: noutcritpointsmax_cll(:)
  integer :: noutcritpointsmaxdb_cll
 
  
  integer :: nerrout_cll,nerroutcoli_cll,nerroutdd_cll 
  integer :: ninfout_cll,ninfoutcoli_cll,ncheckout_cll 
  integer :: ncpoutcoli_cll,nstatsoutcoli_cll,ncpout_cll,ncpout2_cll
  character(len=99) :: fname_errout_cll,fname_erroutcoli_cll
  character(len=99) :: fname_erroutdd_cll,fname_cpoutcoli_cll
  character(len=99) :: fname_cpout_cll,fname_cpout2_cll
  character(len=99) :: fname_checkout_cll,fname_infout_cll
  character(len=99) :: fname_infoutcoli_cll,fname_statsoutcoli_cll
  integer :: nerrout_cp_cll,nerroutcoli_cp_cll,nerroutdd_cp_cll 
  integer :: ninfout_cp_cll,ninfoutcoli_cp_cll,ncheckout_cp_cll 
  integer :: ncpoutcoli_cp_cll,nstatsoutcoli_cp_cll,ncpout_cp_cll,ncpout2_cp_cll
  character(len=99) :: fname_errout_cp_cll,fname_erroutcoli_cp_cll
  character(len=99) :: fname_erroutdd_cp_cll,fname_cpoutcoli_cp_cll
  character(len=99) :: fname_cpout_cp_cll,fname_cpout2_cp_cll
  character(len=99) :: fname_checkout_cp_cll,fname_infout_cp_cll
  character(len=99) :: fname_infoutcoli_cp_cll,fname_statsoutcoli_cp_cll
  
end module collier_global