pro deconv_init, image_deconv, deconv_info, CONTINUE=continue, DIRECTORY=dir,$
					    RESTART=restart, SAVE_NAME=savnam
; Frank Varosi NASA/GSFC 1992.

  common deconv_data, imaged, psf, psf_FT

	ssn = size( savnam )
	sd = size( dir )

	if N_elements( image_deconv ) EQ N_elements( imaged ) then begin

		if keyword_set( restart ) then begin

			if N_struct( deconv_info ) GT 0 then dinfo = deconv_info
			deconv_info = deconv_struct( 1 )

			if N_struct( dinfo ) GT 0 then begin
				deconv_info.data_name = dinfo.data_name
				deconv_info.directory = dinfo.directory
				deconv_info.history = dinfo.method + $
					" Niter=" + strtrim( dinfo.Niter,2 )
				print," Name: ",deconv_info.data_name
				print," history: ",deconv_info.history
			  endif else begin
				if ( ssn(ssn(0)+1) EQ 7 ) then $
						deconv_info.data_name = savnam
				if ( sd(sd(0)+1) EQ 7 ) then $
						deconv_info.directory = dir
			   endelse

			return

		  endif else if keyword_set( continue ) then begin

			print," continuing: ",deconv_info.data_name
			print," using: ",deconv_info.method,$
				" Niter=" + strtrim( deconv_info.Niter,2 )
			return
		   endif
	   endif

	image_deconv = 0
	deconv_info = deconv_struct( 1 )
	if ( ssn(ssn(0)+1) EQ 7 ) then deconv_info.data_name = savnam
	if ( sd(sd(0)+1) EQ 7 ) then deconv_info.directory = dir
return
end