Version 2.1

metis_l1_prep.pro

@@ -95,7 +95,7 @@ pro metis_l1_prep
 
 	journal, 'L0 FITS file correctly read:'
 	journal, '  datatype = ' + string(datatype, format = '(I0)')
-	journal, '  size = ' + string(naxis1, format = '(I0)') + '×' + string(naxis2, format = '(I0)')
+	if datatype le 6 then journal, '  size = ' + string(naxis1, format = '(I0)') + '×' + string(naxis2, format = '(I0)')
 
 	; NOTE - the radialization extension is ignored
 
@@ -180,8 +180,9 @@ pro metis_l1_prep
 
 	if fxpar(primary_header, 'COMPR') then bin_type = fxpar(primary_header, 'B0_BIN') else bin_type = 0
 	
+	pol_id = fxpar(primary_header, 'POL_ID')
 	fpfilt = fxpar(primary_header, 'VLFPFILT', count = count)
-	if count gt 0 and fpfilt eq 0 and bin_type eq 0 then bin_type = 1
+	if count gt 0 and pol_id eq 0 and fpfilt eq 0 and bin_type eq 0 then bin_type = 1
 	
 	bin_fact = 2. ^ bin_type
 	if bin_fact gt 1. then begin
@@ -412,7 +413,7 @@ pro metis_l1_prep
 		)
 		if ~ isa(hk_bin_table) then hk_bin_table = param else hk_bin_table = [hk_bin_table, param]
 	endfor
- 
+
 	mwrfits, hk_bin_table, out_file_name, hk_extension_header, /no_comment, /silent
 
 	journal, '  HK binary-table extension correctly added'
@@ -443,7 +444,7 @@ pro metis_l1_prep
 	exit, status = 0
 
 	error_handling:
-	journal, 'Errors occurred while processing.', /continue
+	journal, 'Errors occurred while processing.'
 	journal
 	exit, status = 1
 end
\ No newline at end of file