From 7d6725a2c68340e1918d4bdd623b6ba99cf754e4 Mon Sep 17 00:00:00 2001
From: Roberto Susino <roberto.susino@inaf.it>
Date: Mon, 7 Mar 2022 11:23:14 +0100
Subject: [PATCH] Code optimizations

---
 metis_l2_prep_uv.pro         | 2 +-
 metis_l2_prep_vl_generic.pro | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/metis_l2_prep_uv.pro b/metis_l2_prep_uv.pro
index 58b30a2..61ad821 100644
--- a/metis_l2_prep_uv.pro
+++ b/metis_l2_prep_uv.pro
@@ -200,7 +200,7 @@ pro metis_l2_prep_uv
 	fxaddpar, extension_header, 'EXTNAME', 'Error matrix', 'Extension name'
 	error_matrix = data * sqrt(error)
 	if not ref_detector then error_matrix = metis_rectify(error_matrix, 'UV')
-	fits_add_checksum, extension_header, error_matrix
+	fits_add_checksum, extension_header, float(error_matrix)
 	mwrfits, float(error_matrix), out_file_name, extension_header, /no_comment, /silent
 
 	journal, 'Error-matrix extension correctly added.'
diff --git a/metis_l2_prep_vl_generic.pro b/metis_l2_prep_vl_generic.pro
index a0b1753..0af74c2 100644
--- a/metis_l2_prep_vl_generic.pro
+++ b/metis_l2_prep_vl_generic.pro
@@ -233,7 +233,7 @@ pro metis_l2_prep_vl_generic
 	fxaddpar, extension_header, 'EXTNAME', 'Error matrix', 'Extension name'
 	error_matrix = data * sqrt(error)
 	if not ref_detector then data = metis_rectify(error_matrix, 'VL')
-	fits_add_checksum, extension_header, intarr(header.naxis1, header.naxis2)
+	fits_add_checksum, extension_header, float(error_matrix)
 	mwrfits, float(error_matrix), out_file_name, extension_header, /no_comment, /silent
 
 	journal, 'Error-matrix extension correctly added.'
-- 
GitLab