"Generate the apodized spectra" ;
jbcez ;
0 ;

;a:FS:GETSPC        :nrd2,npts,hires,rad,crad,k3,0;
b:FS:CALC_NPSF_RES :npsf,res,flaser,ssp,lm;
c:FS:CALC_NP2      :vs1,vs2,np,bpwnl,epwnl,res;
;d:FS:CALC_R0       :r0,rad;
e:CS:APODSAMPLE    :npts,np,hires,a,alpha,1;
f:CS:ADDSUFFIX     :iri,ntrpfile;
g:FS:OPENFILE      :iflag,lntrp,ntrpfile;
h:FS:SPECWRITE     :lntrp,iflag,iri,np,bpwnl,epwnl,res,a,zt,snr0,ngas,idg;
i:FS:CLOSEFILE     :lntrp;
j:CS:APPLYFILTER   :iblk,npts,bpwn,epwn,resmin,hires;