!
EOL =      a,  !  0  
           b,  !  1 
           c,  !  2 
           d,  !  3  
           e,  !  4  
           f,  !  5
	   
S,T,U,   ! 6,7,8       Abel Temp Retrieval
A,B,
           g,  !  9  
           h,  !  10  
           i,  !  11     
           j,  !  12
           k,  !  13   
           l,  !  14   
           m,  !  15
           n,  !  16 
           o,  !  17

           p,  !  18
           q,  !  19
           r,  !  20
           s,  !  21
           t,  !  22
         z;
!
EOI =    0;
!
!
a: set_nvar: 		jchan, 1  ;                                            !0

!
! TOP of loop over retrieval Channel
!
b: SETUP_FOR_CHANNEL;                                                           !1
c: set_nvar:        ileave, 1 ;                                                !2
!
!this determines if a channel should be processed based on the FOV lockdown postion
!

d: decide_to_process:  ichando, nchn,  igdo,  ngdo, exolock, skipit ;           !3

e: if_then_else: skipit, 24, 5;                                                 !4


!
!*************  Top of interleave Loop **************************************
f: get_l1_za:                                                                    !5
	ml,		nl,		ileave,		nleave,
	za, 130. ;    ! need to adjust for NO

S: if_then_else: abel_ret_flag, 7, 9;                                            !6
T: ABEL_RETRIEVAL;                                                               !7
U: set_eoi: "", 19;                                                              !8

A: if_then_else: idiff_ext, 10, 11;     !9
B: read_control_file:  control_file,     TRUE;   !10



g: get_level1_data_replace:                                                      !9
	ichando,	nchn,		nl,		za, pmcflag,
	meas_signals,   appang,        lock,
	iblk,		nch,    aero_refband,     extrap_flag,
	idiff_ext,   signal_file;

h: retrieval_options_setup:                                                      !10
	nchn,		ml,		mgs,		mdet,
	ngdo,		nl,		ndet,		nreg,
	nsr,		ner,		zreg,		aner,	
	vary,		za,		zstart,		zend,
	ievent,		tran,		mt,		zoffsun;

i: incr: isc, 1;                                                                !11
j: lp_mass:                                                                     !12
        mr,             ml,             mgs,            mgg,
        npt,            nl,             nr,             FALSE,
        1,              nl,             ng,             idg,
        ngg,            igs,            isc,            re,
        wave,           iplat,          za,             zr,
        pr,             tr,             gr,             q,
        qgg,            zapr,           papr,           tapr,
        gr_apr,         tearth,         qapr,           qgapr,
        pout;


k: if_then_else: ihydro, 16, 17;   ! hydrostatically adjust zapr,tapr, papr.   !13
l: hydro:                                                                      !14
	nl, 		1, 		nl, 		nreg, 
	re, 		xlat, 		zapr, 		papr, 
	tapr    ;

m: PATH;                                                                       !15

n: ONION_PEEL;                                                                 !16



o: if_then_else: oneleave , 20, 21  ;                                           !17            
p: set_nvar: nleave, 1;                                                         !18      


! retrieved T/P is in zapr (same as za), papr, tapr   
! retrieved VMR or extinction is   in   zt, pt, tt, qmix  
 
q: mesh:                ! meshes the individual interleaves into one array      !19
	ml,	nl,	ng,	ngdo,	igdo, 
	zapr,	za_hi, nsr, ner, nl_hires,
	zt,	z_hires,	papr,	p_hires,	tapr,	t_hires,
	qmix,	qmix_hires,	
	evar,	evar_hires,
	nchn, sim_signals, sim_signals_hi,
	meas_signals, meas_signals_hi,
	nleave,	ileave,	
	ztop, zbot,zmax,zmin ;


r:ise           :ileave,nleave,  5;                                             !20  

!
! this pct smooths the profile if requested and writes to the database
!
s: POST_RETRIEVAL;                                                              !21

t: ise: jchan, numchannel, 1;  ! go do the next channel                         !22