\begin{figure}[htbp]
{\small
\begin{verbatim}

EOL=a,b,c,d,e,f,g,h,i,j,k,l,m,p,o,a,n,z;       ! Execution Order List (EOL)
EOI=0;                                         ! Execution Order Index (EOI)

a:OPENFILES    :"consaf.dat",iflag,lcon,lpr,lout,lafg,lbug,\
                 lapd,lntrp,lifg;
b:READCON      :iblk,vs1,vs2,ncel,za,temp,ngas,idg,ir,nir;
c:READDATA     :atmos,re,xlat,mr,nr,ngg,nam,igs,zr,\
                pr,tr,tgr,q,qgr,temp;
d:SETOPT1      :ngg,ngas,igm,nam,name,idg,igs,igas;
e:GET_ELEMENT1 :iri,ir,icnt;
f:FORWARD      :forward.pct;
g:SET_EOI      :"FORWARD",3;
h:APODIZE      :apodize.pct;
i:SET_EOI      :"APODIZE",0;
j:INTERPOLATE  :interpolate.pct;
k:SET_EOI      :"INTERPOLATE",0;
l:INTERFEROGRM :interferogrm.pct;
m:SET_EOI      :"INTERFEROGRM",0;
n:ISE          :icnt,nir,4;
o:CLOSEFILES   :;
p:CALL_SYS     :"xterm -e idl";

\end{verbatim}
}
\caption{\label{fig:primarypct} Primary PCT for \scubed Example - safire.pct}
\end{figure}

\begin{figure}[htbp]
{\small
\begin{verbatim}

EOL=a,b,c,d,e,f,z;
EOI=0;

a:AFGLSET      :jtype,idg,ngas,vs1,vs2,wnmax;
b:MASS         :ncel,nr,irf,imr,nsr,ncel,igm,ngas,isc,re,\
                za,zr,pr,tr,tgr,q,qgr,zt,pt,tt,gr,qmix,qg,\
                pmw,tmw,tbs,pb,gasb,pmass,fact;
c:CROSS        :nrun,iopt,icalc,ncel,ncel,idg,ngas,vs1,vs2,\
                wnmax,resfc,resmax,odmin,nsr,ncel,zt,pb,tmw,\
                gasb,pmass,icwrt,iwrt,ifrst,iunit,istatus,filen;
d:INGRATE      :icalc,iopt,iopto,iwrt,iunit,ncel,ncel,igas,\
                ngas,vs1,vs2,dvel,iri,iri,tbs,pmass;
e:GETHIRES     :npts,bpwn,epwn,resmin,hires;
f:SPECWRITE    :lout,iflag,iri,npts,bpwn,epwn,resmin,hires,zt;


\end{verbatim}}
\caption{\label{fig:levelApct} Forward Radiance Calculation for \scubed Example - forward.pct}
\end{figure}



\begin{figure}[htbp]
{\small
\begin{verbatim}

EOL=a,b,c,d,e,f,g,h,i,j,k,l,m,z ;
EOI=0 ;

a:GETSPC        :nrd2,npts,hires,rad,crad,k3;
b:ARRAY         :rad,radd,nrd2,nrd1,1;
c:FOUR1         :radd,nrd2,1;
d:CALC_NPSF_RES :npsf,res,flaser,ssp,lm;
e:CALC_J1_J2_NP :j1,j2,np,npts,resmin,res,nrd2;
f:CMPX          :crad,radd,nrd2,nrd1,1;
g:CUT           :crad,j1,j2,nrd2;
!g:FS:CUT           :crad,0,131072,nrd2;
h:CMPX          :crad,radd,nrd2,nrd1,-1;
i:FOUR1         :radd,nrd2,-1;
j:NORM2         :radd,nrd1;
k:ARRAY         :rad,radd,nrd2,nrd1,-1;
l:RADPF         :rad,rad1,nrd2,npts,k3;
m:SPECWRITE     :lapd,iflag,iri,npts,bpwn,epwn,resmin,rad1,zt;
\end{verbatim}}
\caption{\label{fig:apodizepct} Apodization Calculation for \scubed Example - apodize.pct}
\end{figure}



\begin{figure}[htbp]
{\small
\begin{verbatim}
!"Generate the Interpolated (low resolution) Spectra" ;
EOL=a,b,c,z;
EOI=0;

a:CALC_R0    :r0,rad;
b:SSINTERP   :np,npts,res,resmin,rad1,a,r0,r0;
c:SPECWRITE  :lntrp,iflag,iri,np,bpwn,epwn,res,a,zt;

\end{verbatim}}
\caption{\label{fig:interpolate} Interpolation Calculation for \scubed Example - interpolate.pct}
\end{figure}





\begin{figure}[htbp]
{\small
\begin{verbatim}

!"Generate the Simulated Interferogram" ;
EOL=a,b,c,d,e,z ;
EOI=0 ;

a:MIRROR     :radfull,a,npsf,np,res;
b:COSFT      :radfull,npsf,-1;
c:NORM2      :radfull,npsf;
d:INTF       :radfull,r,npsf,nnk;
e:SPECWRITE  :lifg,iflag,iri,nnk,bpwn,epwn,res,r,zt;

\end{verbatim}}
\caption{\label{fig:interferogram} Interferogram Calculation for \scubed Example - interferogrm.pct}
\end{figure}


