integer MAXPROPS,PROPS,MAXNEG,MAXPOS,INTERPVALS
      parameter(MAXPROPS = 12,MAXNEG=-200,MAXPOS=50,PROPS=3)
      parameter(INTERPVALS=500)

      integer k(MAXPROPS)

      real*8 c(MAXPROPS,MAXNEG:MAXPOS),p(MAXPROPS,MAXNEG:MAXPOS)
      real*8 mass,lambda,Pi,h,TOL
 
      Parameter(Pi = 3.1415926535897932384626433832795029q0)
      Parameter(TOL=1q-13) 


      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