"Generate the Lores Spectra From Interferogram" ;
efglmnoz ;
0 ;
;a:FS:CALC_NP    :nptsl,bpwnl,epwnl,res;
e:FS:OPENFILE   :iflag,lifg,ifgfile;
f:FS:SPECREAD2  :lifg,iflag,iri,nptsl,bpwnl,epwnl,res,b,zt,snr,ngas,idg;
g:FS:CLOSEFILE  :lifg;
;i:FS:COSFT      :even,npsf,-1;
;j:FS:NORM2      :even,npsf;
;k:FS:EXTRACT    :even,b,npsf,nptsl,res;
l:CS:ADDSUFFIX  :iri,simulation;
m:FS:OPENFILE   :iflag,lapd,simulation;
n:FS:SPECWRITE  :lapd,iflag,iri,nptsl,bpwnl,epwnl,res,b,zt,snr,ngas,idg;
o:FS:CLOSEFILE  :lapd;
p:CS:CALL_SYS   :"idl";
