function fh_st_ssrt, ssrt=ssrt, soho=soho

;+	Returns FITS header structure except for obligatory keywords (simple, bitpix,
;	naxis, end)
;-

if keyword_set(ssrt) then return, $
	{	object:'', type_obs:'', time_obs:'', date_obs:'', 	$
		telescop:'', wave:'', origin:'',			$
		x_origin:0., y_origin:0., center_x:0., center_y:0., 	$
		x_obs:0., y_obs:0.,					$
		radius:0., p0:0.d0, lat0:0.d0, lon0:0.d0,		$
		ut_start:'', ut_stop:'', bscale:1., bzero:0.}	else $

return, {	object:'', type_obs:'', time_obs:'', date_obs:'', 	$
		telescop:'', wave:'', origin:'',			$
		x_origin:0., y_origin:0., center_x:0., center_y:0., 	$
		x_obs:0., y_obs:0.,					$
		radius:0., p0:0.d0, lat0:0.d0, lon0:0.d0,		$
		bscale:1., bzero:0.}


end