pro setup_MLP, deconv_info

;Frank Varosi NASA/GSFC 1992.

	if (deconv_info.image_stats.gaussian) then begin

	;	Lag = round_off( deconv_info.psf_stats.fwhm ) > 1
	;	text=""
	;	read," select residual auto-correlation Lag range  (default="+$
	;				strtrim( Lag,2 ) + " to 2) ",text
	;	if strlen( text ) GT 0 then Lag = fix( get_words( text ) ) > 0
	;	deconv_info.Lag_chisq = Lag(0)
	;	if N_elements( Lag ) GT 1 then deconv_info.Lag_min = Lag(1) $
	;				  else deconv_info.Lag_min = 2
	;	deconv_info.Lag_chisq = $
	;			deconv_info.Lag_chisq > deconv_info.Lag_min
	;	print," auto-correlation Lag range (max,min) =", $
	;			deconv_info.Lag_chisq, deconv_info.Lag_min

		epsilon = 1
	;	print," 1 = use differentiable positivity function"
	;	print," 0 = just truncate image > 0"
	;	text = ""
	;	read," select type of positivity (default=1) : ",text
	;	if strlen( text ) GT 0 then epsilon = fix( text ) > 0
	;	if (epsilon LE 0) then print," truncating image > 0" $
	;			  else print," using differentiable positivity"
		deconv_info.positivity_eps = epsilon < 1.e-9

	  endif else begin
		deconv_info.Lag_min = 1
		deconv_info.positivity_eps = -1
	   endelse
return
end