Skip to content
Snippets Groups Projects
Commit 2de5116d authored by Roberto Susino's avatar Roberto Susino
Browse files

Version 2.1

parent 530ac2d3
No related branches found
No related tags found
No related merge requests found
...@@ -95,7 +95,7 @@ pro metis_l1_prep ...@@ -95,7 +95,7 @@ pro metis_l1_prep
journal, 'L0 FITS file correctly read:' journal, 'L0 FITS file correctly read:'
journal, ' datatype = ' + string(datatype, format = '(I0)') 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 ; NOTE - the radialization extension is ignored
...@@ -180,8 +180,9 @@ pro metis_l1_prep ...@@ -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 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) 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 bin_fact = 2. ^ bin_type
if bin_fact gt 1. then begin if bin_fact gt 1. then begin
...@@ -443,7 +444,7 @@ pro metis_l1_prep ...@@ -443,7 +444,7 @@ pro metis_l1_prep
exit, status = 0 exit, status = 0
error_handling: error_handling:
journal, 'Errors occurred while processing.', /continue journal, 'Errors occurred while processing.'
journal journal
exit, status = 1 exit, status = 1
end end
\ No newline at end of file
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment