Commit 2de5116d authored by Roberto Susino's avatar Roberto Susino
Browse files

Version 2.1

parent 530ac2d3

metis_l1_prep.pro

+5 −4
Original line number Original line Diff line number Diff line
@@ -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 




	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 
	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