1 jones 1.1 	integer MAX_CALLS		! max # of calls to minuit
 2           	parameter (MAX_CALLS = 20000)
 3           
 4           	integer OUT_LUN			! output logical unit number
 5           	parameter (OUT_LUN = 6)
 6           
 7           	integer SAVE_LUN		! save logical unit number
 8           	parameter (SAVE_LUN = 7)
 9           
10           	real*8 FUTIL			! name of FUTIL function
11           	parameter (FUTIL = 0)		! null address
12           
13            
14                   real*8 parm(MAX_NUM_PAR)
15                   real*8 spar(MAX_NUM_PAR)
16                   integer ind(MAX_NUM_PAR)
17           	common /fit_data/ parm,ind,spar
18           
19                   real*8 covar(MAX_NUM_PAR,MAX_NUM_PAR)
20                   common /fitting/ covar