integer MAXPROPS,PROPS,MAXNEG,MAXPOS
      parameter(MAXPROPS = 12,MAXNEG=-400,MAXPOS=200,PROPS=6)
      integer k(MAXPROPS),startvals(MAXPROPS)


      real*8 c(MAXPROPS,MAXNEG:MAXPOS),p(MAXPROPS,MAXNEG:MAXPOS)
      real*8 mass(MAXPROPS),h,tolabs,tolrel,tolaitken,Pi,TINY
      real*8 compabs(MAXPROPS),comprel(MAXPROPS),compaitken(MAXPROPS)
 
 
      Parameter(Pi=3.141592653589793238462643383279502884197) 
      Parameter(TINY=1d-14)

      Common/vars/c,p,k,mass,h,compabs,tolabs,comprel,tolrel,
     &	compaitken,tolaitken

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

      Common/sumparts/partial,running,lastaitken,term1,term2,
     &     pre1,pre2,endneg,endpos,depth,direct,startvals