#
!setenv mdi_eof wd:{dbase}/{level}/{series}.{#%06d#series},bn:{series}.{#%04d#series}
!setenv soho wd:{dbase}/{series}/{#%06d#series};bn:{series}.{#%06d#series}
!setenv mdi_klist wd:{dbase}/{level}/{series}
!setenv mdi_eof_rec wd:{dbase}/info/{prog}/{level}/{series}

DSDSOUT=250

START_ARCHIVE=1

p=gather_info  d=1 \
	TIME_KEY=T_OBS \
	T_EPOCH=1993.01.01_00:00:00_TAI \
	PROTOCOL=RDB.FITS \
	T_BLOCK=1day \
	CONFORMS=TS_EQ \
	EXT_INFO=6h \
	q=1 \
	keylist=prog:mdi_klist,level:copy,series:info,sel:info.KEYS \
	out=prog:mdi_eof,level:lev1.4,series:fd_Ic_6h_01d[5335] \
	in=prog:mdi_eof,level:lev1,series:46451fc0_01h[128041];prog:mdi_eof,level:lev1,series:46451fc0_01h[128044];prog:mdi_eof,level:lev1,series:46451fc0_01h[128054];prog:mdi_eof,level:lev1,series:46451fc0_01h[128061];prog:mdi_eof,level:lev1,series:46061fc0_01h[128041];prog:mdi_eof,level:lev1,series:46061fc0_01h[128044];prog:mdi_eof,level:lev1,series:46061fc0_01h[128054];prog:mdi_eof,level:lev1,series:46061fc0_01h[128061]

#the soho_orbit keywords to the lev1.4 output
p=gather_info \
        d=1 \
	TIME_KEY=T_OBS \
        TIME_MATCH=T_OBS \
        in=prog:soho,level:keys,series:def_orb[5335] \
        out=prog:mdi_eof,level:lev1.4,series:fd_Ic_6h_01d[5335] \
        keylist=prog:mdi_klist,level:copy,series:orbit,sel:orbit.KEYS

# calculate/format/rename  keywords for SOI/SOHO/GONG use
p=assemble_keys -v \
        pointing=MDIPT_USE_DEFAULT \
#        pointing=MDIPT_USE_QUICKLOOK \
        inout=prog:mdi_eof,level:lev1.4,series:fd_Ic_6h_01d[5335]

# now the DATA ONLY gather_info for lev1.4
p=gather_info  d=1 a=n2 \
        TIME_KEY=T_OBS \
        q=1 \
        keylist=prog:mdi_klist,level:copy,series:fd_Ic_6h,sel:fd_Ic_6h.data.KEYS \
        out=prog:mdi_eof,level:lev1.4,series:fd_Ic_6h_01d[5335] \
	in=prog:mdi_eof,level:lev1,series:46451fc0_01h[128041];prog:mdi_eof,level:lev1,series:46451fc0_01h[128044];prog:mdi_eof,level:lev1,series:46451fc0_01h[128054];prog:mdi_eof,level:lev1,series:46451fc0_01h[128061];prog:mdi_eof,level:lev1,series:46061fc0_01h[128041];prog:mdi_eof,level:lev1,series:46061fc0_01h[128044];prog:mdi_eof,level:lev1,series:46061fc0_01h[128054];prog:mdi_eof,level:lev1,series:46061fc0_01h[128061]

END_ARCHIVE=1

# Do the imgrecon 

START_ARCHIVE=1

p=imgrecon a=n4 \
	in=prog:mdi_eof,level:lev1.4,series:fd_Ic_6h_01d[5335] \
	out=prog:mdi_eof,level:lev1.5,series:fd_Ic_6h_01d[5335]

p=find_limb a=n0 width=10 nfndlmb=6  \
  inout=prog:mdi_eof,level:lev1.5,series:fd_Ic_6h_01d[5335]

END_ARCHIVE=1

p=cpinfo a=a COPY_HISTORY=no ABORT_ACTION=continue compress=yes \
	in=prog:mdi_eof,level:lev1.5,series:fd_Ic_6h_01d[5335] \
	out=prog:mdi_eof_rec,level:lev1.5,series:fd_Ic_6h_01d[5335]