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

a: get_meas_refraction_angle: 
	za,       meas_ref_angle,        nl,	zstart,		zend,
	nchn,		ngdo, nsr, ner;


b: simulate_refraction_angle:
	zr, 		pr, 		tr, 		gr,
	nr,		mr,		wave,		re,	
	za,		sim_ref_angle,	nl;

c: create_merged_refrac:
	za,	sim_ref_angle, meas_ref_angle, nl,
	zr,	pr,	tr,	gr,	nr,	mr,	re,
	merged_ref_angle, 
	p_init, t_init, i_abel, i_abel2,
	window_top, window_bottom;

d: bend_fit: 
	nl, 		za,		merged_ref_angle,	3,
	3,		120.,		0.0,		bendfit,
	scale_ht;

e: abel_inversion_refraction :
    nl,        1,        nl,        za,
    xlat,       re,         bendfit,    scale_ht,
    ref_indx,   refractivity,   density,    p_init,     t_init,
    zapr,       papr,   tapr, i_abel, z_abel, i_abel2, z_abelout;

f: adjust_l1_alts:
	zapr, density, nl,
	ztm, ptm, ttm, ntm;
	
h: insert_profile_db:
                ievent_no,                  ml,          
                zapr,      density,         evar_hires, NO_den,       NO_evar,
                nl,        1,       444,    444,
                1,         520,     0,      db_id_NO,   db_id_NO_err,
                120.0,     10.0,    120.0,  10.0,       re,
                pout,      npt,     ztm,    ptm,        ttm,
                qm,        ngg,     igs,    ntm;