c--- logical variable for determining whether or not to use complex pole
c--- scheme of Passarino et al. (HTO)
      logical CPscheme
      common/CPscheme/CPscheme