integer MAXPROPS,PROPS,MAXNEG,MAXPOS
      parameter(MAXPROPS = 12,MAXNEG=-400,MAXPOS=50)
      integer k(MAXPROPS)

      real*8 c(MAXPROPS,MAXNEG:MAXPOS),p(MAXPROPS,MAXNEG:MAXPOS)
      real*8 mass,lambda,h,TOL
 
c     Note TOL works slightly differently in each of sunset.f,
c     three.f and four.f

c     Use these values for the sunset diagram (three propagators).
      Parameter(PROPS=3,TOL=1q-11) 

c     Use these values for the 3rd order case (five props)
c      Parameter(PROPS=5,TOL=1q-15)

c     Use these values for the 4th order case (seven props)
c      Parameter(PROPS=7,TOL=1q-15)

      Common/vars/c,p,k,mass,lambda,h

      real*8 partial(MAXPROPS,MAXNEG:MAXPOS),running(MAXPROPS)
      real*8 lastaitken(MAXPROPS)
      integer endneg(MAXPROPS),endpos(MAXPROPS),depth
      integer direct(MAXPROPS)
      

      Common/sumparts/partial,running,lastaitken,
     &     endneg,endpos,depth,direct