STRUCTURE	/TOLERANCE/
		REAL*8	step		! Step Convergence
		REAL*8	gradient	! Gradient Convergence 	
		REAL*8	cost		! Cost Convergence
		REAL*8	zeta		! Constraint Tolerance	
		REAL*8	bind		! Constraint Binding 		
		REAL*8	pert		! Perturbation Size		
		REAL*8	sigma		!
		REAL*8	max_step	! Maximum allowed step (dynamic)
		REAL*8	base		! Base Step	
		REAL*8	line		! Line Search Accuracy
		REAL*8	h_diag1		! Diagonal for initial Hessian
		REAL*8	h_diag2		! Diagonal for FPS Hessian
		REAL*8	jacob		! Rejection Tolerance for Jacobian Elements
		REAL*8	max_cpu		! Max fraction of CPU time Optim can use
		REAL*8	cost_fact	! Cost Factor
		REAL*8	max_move	! Max move when step restricted
		REAL*8	grad_csqu	! Scale Factor for c**2 Gradients
		REAL*8	func_prec	! Function (Model) Precision 
		REAL*8	optim_tol	! Optimality Tolerance
		REAL*8	obj			! Objective Value at last QP Approx
		REAL*8	mn_damp		! Minor Damping Factor
		REAL*8	feas_mult	! Constraint Feasibility Multiplier
		REAL*8	max_J_noise	! Largest noise entry in Jacobian
		REAL*8	max_G_noise	! Largest noise entry in onjective gradient
		REAL*8	row_tol		! Row tolerance in MINOS
		REAL*8	nonlin_tol	! Nonlinear constraint tol in NAG SQP
		REAL*8	mj_damp		! Major damping factor in MINOS
		REAL*8	pen_par		! Penalty parameter in MINOS
		REAL*8	lin_move	! Linear part of the anticipated move
		REAL*8	quad_move	! Quadratic part of the anticipated move
		REAL*8	relax_fact	! Constraint bounds relaxing factor(percentage)
		REAL*8	fps_badfit	! Level below which step reduction is required
		REAL*8	fps_goodfit	! Level above which expansion is desirable
		REAL*8	fps_reduce	! Reduction factor
		REAL*8	fps_expand	! Expansion factor
		REAL*8	opt_badfit	! Level below which step reduction is required
		REAL*8	opt_goodfit	! Level above which expansion is desirable
		REAL*8	opt_reduce	! Reduction factor
		REAL*8	opt_expand	! Expansion factor
		REAL*8	Hessian		! Rejection tolerance for Hessian Elements
		REAL*8	space(8)
	END STRUCTURE

	RECORD	/TOLERANCE/		tol