first commit

Jean-Philippe Bernard
1 parent 0c7104bf
Showing 1 changed file with 26 additions and 0 deletions Show diff stats
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