!
!
EOL =     a,  !  0     
          b,  !  1   
A,            !  2
          c,  !  3   
          d,  !  4      
          e,  !  5 
          f,  !  6
	  g,  !  7 
	  h,  !  8
          i,  !  9
          j,  ! 10
          k,  ! 11
          l,  ! 12
          z;
!
EOI =     0;


a: get_control_file:                                 !0
	jchan,		numchannel,     controlfiles,		control_file;

b: read_control_file:     control_file,		TRUE;    !1

A: if_then_else: abel_ret_flag, 50, 3;               !2

c: check_products:                                   !3
	igdo, 		ngdo, 		idg, 		ng; 

d: get_iblk_ids:	                                 !4
	ichando,	nchn,		mt,		iblk,		
	nch;	

e: if_then_else: tran_opt, 6, 11;                     !5

f: if_then_else: tm_inlte, 7,  10;                    !6
g:setgasname       :mr,ngg, ng,nam,tm_name,idg,igs,q,tm_fact;  !7      
h:setup_nltetk     :tm_setup_nltetk_eoi;                       !8
i: set_eoi: "", 11;                                            !9

j: READ_TABLES;                                                !10
k: p_inita: mt, ml, mgs, npt, ntt, nst, pout, tout, sout, tm_dbgin, rlt, rut;   !11

l: calc_sim_exo:  nch,   iblk,  exolock,  simexo, fovflag;   !12