Return to fit.inc CVS log

Up to [HallC] / Optics / source_code

 CMOP optics code

	integer MAX_CALLS		! max # of calls to minuit
	parameter (MAX_CALLS = 20000)

	integer OUT_LUN			! output logical unit number
	parameter (OUT_LUN = 6)

	integer SAVE_LUN		! save logical unit number
	parameter (SAVE_LUN = 7)

	real*8 FUTIL			! name of FUTIL function
	parameter (FUTIL = 0)		! null address

 
        real*8 parm(MAX_NUM_PAR)
        real*8 spar(MAX_NUM_PAR)
        integer ind(MAX_NUM_PAR)
	common /fit_data/ parm,ind,spar

        real*8 covar(MAX_NUM_PAR,MAX_NUM_PAR)
        common /fitting/ covar