From 85637eef0ae08b4f55b2f74559a39f3172e7e77f Mon Sep 17 00:00:00 2001
From: Jean-Philippe Bernard <Jean-Philippe.Bernard@irap.omp.eu>
Date: Thu, 17 Feb 2022 20:18:37 +0100
Subject: [PATCH] first commit

---
 src/idl/dustem_old2new_sed_format.pro | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+), 0 deletions(-)
 create mode 100644 src/idl/dustem_old2new_sed_format.pro

diff --git a/src/idl/dustem_old2new_sed_format.pro b/src/idl/dustem_old2new_sed_format.pro
new file mode 100644
index 0000000..5587c61
--- /dev/null
+++ b/src/idl/dustem_old2new_sed_format.pro
@@ -0,0 +1,26 @@
+PRO dustem_old2new_sed_format
+
+dustem_init
+
+dir=!dustem_wrap_soft_dir+'/Data/SEDs/'
+file=dir+'Gal_composite_spectrum.xcat'
+
+str='cp '+file+' '+file+'.old'
+spawn,str
+
+old_sed=read_xcat(file,/silent,comments=old_comments)
+Nsed=n_elements(old_sed)
+
+new_sed=dustem_initialize_sed(Nsed,comments=new_comments,help=help)
+comments=['Written by dustem_old2new_sed_format.pro on '+systime(0),old_comments,new_comments]
+
+
+new_sed.instru=old_sed.instru
+new_sed.filter=old_sed.filter
+new_sed.wave=old_sed.wave
+new_sed.StokesI=old_sed.spec
+new_sed.sigmaII=(old_sed.error)^2
+
+write_xcat,new_sed,file,comments=comments
+
+END
--
libgit2 0.21.2