diff --git a/metis_l1_prep.pro b/metis_l1_prep.pro index 62af567827af0953cff0c5c485346e1c36d582fb..34537562932ff1d30714b7d05bdc38334c609490 100644 --- a/metis_l1_prep.pro +++ b/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