function fh_mk_ssrt, Sz, struc

	case Sz(Sz(0)+1) of
	1:	bitpix = 8
	2:	bitpix = 16
	3:	bitpix = 32
	4:	bitpix = -32
	5:	bitpix = -64
	6:	bitpix = 64
        7:      bitpix = 8
	else:   message,'Illegal Image Datatype'
	endcase

header = strarr(Sz(0) +7) + string(' ',format='(a80)')   ;Create empty array
header(0) = 'END' + string(replicate(32b,77))

sxaddpar, header, 'SIMPLE', 'T'
sxaddpar, header, 'BITPIX', bitpix
sxaddpar, header, 'NAXIS', Sz(0);# of dimensions

 if (Sz(0) GT 0 ) then begin
   for i = 1, Sz(0) do sxaddpar,header,'NAXIS' + strtrim(i,2),Sz(i)
 endif

sxaddpar, header, 'object',	struc.object
sxaddpar, header, 'type-obs',	struc.type_obs
sxaddpar, header, 'time-obs',	struc.time_obs
sxaddpar, header, 'date-obs',	struc.date_obs
sxaddpar, header, 'origin',	struc.origin
sxaddpar, header, 'telescop',	struc.telescop
sxaddpar, header, 'wave',	struc.wave
sxaddpar, header, 'x-origin',	struc.x_origin
sxaddpar, header, 'y-origin',	struc.y_origin
sxaddpar, header, 'center-x',	struc.center_x
sxaddpar, header, 'center-y',	struc.center_y
sxaddpar, header, 'x-obs',	struc.x_obs
sxaddpar, header, 'y-obs',	struc.y_obs
sxaddpar, header, 'radius',	struc.radius
sxaddpar, header, 'p0',		struc.p0
sxaddpar, header, 'lat0',	struc.lat0
sxaddpar, header, 'lon0',	struc.lon0

if (where(tag_names(struc) eq 'UT_START'))(0) ge 0 then $
	sxaddpar, header, 'ut_start',	struc.ut_start
if (where(tag_names(struc) eq 'UT_STOP'))(0) ge 0 then $
	sxaddpar, header, 'ut_stop',	struc.ut_stop

sxaddpar, header, 'bscale',	struc.bscale
sxaddpar, header, 'bzero',	struc.bzero

	return, ([header,strarr(36-n_elements(header))])

	end