function deconv_struct, Nstruct

;Frank Varosi NASA/GSFC 1992.

  common deconv_struct, struct

	if N_struct( struct ) NE 1 then begin

		stats = im_stats( N_STRUCT=1 )

		struct = { DECONV_INFO8,	algorithm:"",		$
						method:"",		$
						file:"",		$
						directory:"",		$
						data_name:"",		$
						history:"",		$
						size_image: Lonarr(7),	$
						size_psf: Lonarr(7),	$
						size_deconv: Lonarr(7),	$
						noise_model:"",		$
						sky_offset:0.0,		$
						image_stats: stats,	$
						psf_stats: stats,	$
						systime0:"",		$
						systime1:0.d0,		$
						select_flag:0,		$
						Niter:0,		$
						R_Mean:0.0,		$
						R_stdev:0.0,		$
						R_auto_chi:0.0,		$
						Expect_auto_chi:0.0,	$
						Lag_chisq:0,		$
						Lag_min:0,		$
						entropy:0.0,		$
						Log_Likelihood:0.0,	$
						chisq_fit:0.0,		$
						mindc:0.0, maxdc:0.0,	$
						conserv:0.0,		$
						fwhm_xy:fltarr(2),	$
						positivity_eps:0.0	}

		message,"defined structure {DECONV_INFO8}",/INFO
	   endif

	if N_elements( Nstruct ) NE 1 then Nstruct=1

return, replicate( {DECONV_INFO8}, Nstruct )
end