"Generate the apodized spectra" ;
abcdefghijklmz ;
0 ;

a:FS:GETSPC        :nrd2,npts,hires,rad,crad,k3;
b:FS:ARRAY         :rad,radd,nrd2,nrd1,1;
c:FS:FOUR1         :radd,nrd2,1;
d:FS:CALC_NPSF_RES :npsf,res,flaser,ssp,lm;
e:FS:CALC_J1_J2_NP :j1,j2,np,npts,resmin,res,nrd2;
f:FS:CMPX          :crad,radd,nrd2,nrd1,1;
g:FS:CUT           :crad,j1,j2,nrd2;
;g:FS:CUT           :crad,0,131072,nrd2;
h:FS:CMPX          :crad,radd,nrd2,nrd1,-1;
i:FS:FOUR1         :radd,nrd2,-1;
j:FS:NORM2         :radd,nrd1;
k:FS:ARRAY         :rad,radd,nrd2,nrd1,-1;
l:FS:RADPF         :rad,rad1,nrd2,npts,k3;
m:FS:SPECWRITE     :lapd,iflag,iri,npts,bpwn,epwn,resmin,rad1,zt;