integer*4        max_elements
      parameter       (max_elements = 1000) !Max # coeff elements
      integer*4       lun,chan
      parameter       (lun=10)
      parameter       (chan=15)


      real*8           coeff(4,max_elements)      
      integer*4        expon(5,max_elements)

      common /recon_elements/
     >     coeff,               !Coefficients.
     >     expon                !Exponents.