!
!  $Log: sofie_calc_2_7_offset.pct,v $
!  Revision 1.2  2008/04/16 17:04:59  deaver
!  added extrap_flag and aero_refNum to call to get_level1_data
!
!  Revision 1.1  2008/02/22 20:52:53  deaver
!  Initial revision
!
!  Revision 1.3  2008/02/05 19:29:39  deaver
!  Added simsig and tran to call to dumptran
!
!  Revision 1.2  2008/02/04 14:57:33  deaver
!  changed calls to dump_tran and changed isl iel to set 1 and nl
!
!  Revision 1.1  2007/12/19 18:17:56  deaver
!  Initial revision
!
!  Revision 1.1  2007/06/28 20:16:45  deaver
!  Initial Checkin
!
!    Revision 1.1  2001/02/13  20:04:27  deaver
!    Initial revision
!
!
EOL =    a,      !  0
         b,      !  1
         c,      !  2
	 d, e, f, g, h, i, j, k,
         z;
!
EOI =    0;
!
!


a: if_then_else: ioffset, 1, 20;

b: create_z_grid:  za,  nl, ml, 110. , 20. , 0.5 ;

c: get_level1_data:    !
	ichando,	nchn,		nl,		za,
	meas_signals,   appang,        lock,		fov_offsets,
	iblk,		nch,		aero_refband,    extrap_flag,
	NonLinCoeff;

d: incr: isc, 1;
e: lp_mass:
        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;

f: PATH;

g: set_nvar: isl, 1;			! 8
h: set_nvar: iel, nl;			! 9

i: FORWARD;

j: apply_ncep_offset: za,   nl,   sim_signals,   meas_signals, zreg,  nr, zr;


k: set_nvar: ioffset, FALSE;