1 jones 1.1       integer*4        max_elements
 2                 parameter       (max_elements = 1000) !Max # coeff elements
 3                 integer*4       lun,chan
 4                 parameter       (lun=10)
 5                 parameter       (chan=15)
 6           
 7           
 8                 real*8           coeff(4,max_elements)      

 9 jones 1.2       integer*4        expon(5,max_elements)

10 jones 1.1 
11                 common /recon_elements/
12                >     coeff,               !Coefficients.
13                >     expon                !Exponents.

14 jones 1.2 
15           
16           
17           
18           
19           
20           
21           
22           
23