Commit 217afe1b authored by Roberto Susino's avatar Roberto Susino
Browse files

Fix wrong keywords in FITS headers

parent e072616a

metis_l2_prep_uv.pro

+4 −3
Original line number Diff line number Diff line
@@ -138,7 +138,6 @@ pro metis_l2_prep_uv 
	fxaddpar, primary_header, 'FILENAME', file_name

	fxaddpar, primary_header, 'PARENT', file_basename(input.file_name)

	fxaddpar, primary_header, 'LEVEL', 'L2'

	fxaddpar, primary_header, 'ORIGIN', ''

	fxaddpar, primary_header, 'CREATOR', 'metis_l2_prep_uv.pro'

	fxaddpar, primary_header, 'VERS_SW', input.sw_version

	fxaddpar, primary_header, 'VERS_CAL', cal_pack.version
@@ -190,6 +189,7 @@ pro metis_l2_prep_uv 
	; add the extension with the quality matrix



	base_header = primary_header

	sxdelpar, base_header, 'SIMPLE'

	sxdelpar, base_header, 'EXTEND'

	sxdelpar, base_header, 'DATASUM'

	sxdelpar, base_header, 'CHECKSUM'
@@ -216,15 +216,16 @@ pro metis_l2_prep_uv 


	; add the extension with the error matrix



	extension_header = base_header

	if not ref_detector then error = metis_rectify(error, 'UV')

	error_matrix = data * sqrt(error)

	extension_header = base_header

	fxaddpar, extension_header, 'PCOUNT', 0, 'parameter count', before = 'LONGSTRN'

	fxaddpar, extension_header, 'GCOUNT', 1, 'group count', before = 'LONGSTRN'

	fxaddpar, extension_header, 'EXTNAME', 'Error matrix', 'extension name', before = 'LONGSTRN'

	fxaddpar, extension_header, 'BTYPE', 'Absolute error'

	fxaddpar, extension_header, 'DATAMIN', min(error_matrix, /nan)

	fxaddpar, extension_header, 'DATAMAX', max(error_matrix, /nan)

	if not ref_detector then error_matrix = metis_rectify(error_matrix, 'UV')

	

	fits_add_checksum, extension_header, float(error_matrix)

	mwrfits, float(error_matrix), out_file_name, extension_header, /no_comment, /silent

metis_l2_prep_vl_generic.pro

+3 −3
Original line number Diff line number Diff line
@@ -157,7 +157,6 @@ pro metis_l2_prep_vl_generic 
	fxaddpar, primary_header, 'FILENAME', file_name

	fxaddpar, primary_header, 'PARENT', file_basename(input.file_name)

	fxaddpar, primary_header, 'LEVEL', 'L2'

	fxaddpar, primary_header, 'ORIGIN', ''

	fxaddpar, primary_header, 'CREATOR', 'metis_l2_prep_vl_generic.pro'

	fxaddpar, primary_header, 'VERS_SW', input.sw_version

	fxaddpar, primary_header, 'VERS_CAL', cal_pack.version
@@ -231,6 +230,7 @@ pro metis_l2_prep_vl_generic 
	; add the extension with the quality matrix



	base_header = primary_header

	sxdelpar, base_header, 'SIMPLE'

	sxdelpar, base_header, 'EXTEND'

	sxdelpar, base_header, 'DATASUM'

	sxdelpar, base_header, 'CHECKSUM'
@@ -257,15 +257,15 @@ pro metis_l2_prep_vl_generic 


	; add the extension with the error matrix



	extension_header = base_header

	if not ref_detector then error = metis_rectify(error, 'VL')

	error_matrix = data * sqrt(error)

	extension_header = base_header

	fxaddpar, extension_header, 'PCOUNT', 0, 'parameter count', before = 'LONGSTRN'

	fxaddpar, extension_header, 'GCOUNT', 1, 'group count', before = 'LONGSTRN'

	fxaddpar, extension_header, 'EXTNAME', 'Error matrix', 'extension name', before = 'LONGSTRN'

	fxaddpar, extension_header, 'BTYPE', 'Absolute error'

	fxaddpar, extension_header, 'DATAMIN', min(error_matrix, /nan)

	fxaddpar, extension_header, 'DATAMAX', max(error_matrix, /nan)

	if not ref_detector then data = metis_rectify(error_matrix, 'VL')

	fits_add_checksum, extension_header, float(error_matrix)

	mwrfits, float(error_matrix), out_file_name, extension_header, /no_comment, /silent

metis_l2_prep_vl_polariz.pro

+17 −1
Original line number Diff line number Diff line
@@ -305,7 +305,6 @@ pro metis_l2_prep_vl_polariz 


	fxaddpar, primary_header, 'PARENT', strjoin(file_basename(input.file_name), ', ')

	fxaddpar, primary_header, 'LEVEL', 'L2'

	fxaddpar, primary_header, 'ORIGIN', ''

	fxaddpar, primary_header, 'CREATOR', 'metis_l2_prep_vl_polariz.pro'

	fxaddpar, primary_header, 'VERS_SW', input.sw_version

	fxaddpar, primary_header, 'VERS_CAL', cal_pack.version
@@ -404,6 +403,7 @@ pro metis_l2_prep_vl_polariz 
	; add the extension with the quality matrix



	base_header = primary_pb_header

	sxdelpar, base_header, 'SIMPLE'

	sxdelpar, base_header, 'EXTEND'

	sxdelpar, base_header, 'DATASUM'

	sxdelpar, base_header, 'CHECKSUM'
@@ -476,6 +476,7 @@ pro metis_l2_prep_vl_polariz 
	; add the extension with the quality matrix



	base_header = primary_tb_header

	sxdelpar, base_header, 'SIMPLE'

	sxdelpar, base_header, 'EXTEND'

	sxdelpar, base_header, 'DATASUM'

	sxdelpar, base_header, 'CHECKSUM'
@@ -548,6 +549,7 @@ pro metis_l2_prep_vl_polariz 
	; add the extension with the quality matrix



	base_header = primary_polangle_header

	sxdelpar, base_header, 'SIMPLE'

	sxdelpar, base_header, 'EXTEND'

	sxdelpar, base_header, 'DATASUM'

	sxdelpar, base_header, 'CHECKSUM'
@@ -642,6 +644,13 @@ pro metis_l2_prep_vl_polariz 
	; add the extension with the stokes q image



	extension_header = primary_stokes_header

	sxdelpar, extension_header, 'SIMPLE'

	sxdelpar, extension_header, 'EXTEND'

	sxdelpar, extension_header, 'DATASUM'

	sxdelpar, extension_header, 'CHECKSUM'

	sxdelpar, extension_header, 'COMMENT'

	sxdelpar, extension_header, 'HISTORY'

	

	fxaddpar, extension_header, 'PCOUNT', 0, 'parameter count', before = 'LONGSTRN'

	fxaddpar, extension_header, 'GCOUNT', 1, 'group count', before = 'LONGSTRN'

	fxaddpar, extension_header, 'EXTNAME', 'Stokes Q', 'extension name', before = 'LONGSTRN'
@@ -659,6 +668,13 @@ pro metis_l2_prep_vl_polariz 
	; add the extension with the stokes u image



	extension_header = primary_stokes_header

	sxdelpar, extension_header, 'SIMPLE'

	sxdelpar, extension_header, 'EXTEND'

	sxdelpar, extension_header, 'DATASUM'

	sxdelpar, extension_header, 'CHECKSUM'

	sxdelpar, extension_header, 'COMMENT'

	sxdelpar, extension_header, 'HISTORY'

	

	fxaddpar, extension_header, 'PCOUNT', 0, 'parameter count', before = 'LONGSTRN'

	fxaddpar, extension_header, 'GCOUNT', 1, 'group count', before = 'LONGSTRN'

	fxaddpar, extension_header, 'EXTNAME', 'Stokes U', 'extension name', before = 'LONGSTRN'