#
!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=96m \
	q=1 \
	keylist=prog:mdi_klist,level:copy,series:info,sel:info.KEYS \
	out=prog:mdi_eof,level:lev1.4,series:fd_M_96m_01d[5335] \
	in=prog:mdi_eof,level:lev1,series:49460fc0_01h[128040];prog:mdi_eof,level:lev1,series:49460fc0_01h[128046];prog:mdi_eof,level:lev1,series:49460fc0_01h[128048];prog:mdi_eof,level:lev1,series:49460fc0_01h[128049];prog:mdi_eof,level:lev1,series:49460fc0_01h[128051];prog:mdi_eof,level:lev1,series:49460fc0_01h[128052];prog:mdi_eof,level:lev1,series:49460fc0_01h[128056];prog:mdi_eof,level:lev1,series:49460fc0_01h[128057];prog:mdi_eof,level:lev1,series:49460fc0_01h[128059];prog:mdi_eof,level:lev1,series:49460fc0_01h[128060];prog:mdi_eof,level:lev1,series:49460fc0_01h[128062];prog:mdi_eof,level:lev1,series:49460fc0_01h[128064];prog:mdi_eof,level:lev1,series:48440fc0_01h[128041];prog:mdi_eof,level:lev1,series:48440fc0_01h[128054];prog:mdi_eof,level:lev1,series:48470fc0_01h[128041];prog:mdi_eof,level:lev1,series:48470fc0_01h[128044]

#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_M_96m_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_M_96m_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_M_96m,sel:fd_M_96m.data.KEYS \
        out=prog:mdi_eof,level:lev1.4,series:fd_M_96m_01d[5335] \
	in=prog:mdi_eof,level:lev1,series:49460fc0_01h[128040];prog:mdi_eof,level:lev1,series:49460fc0_01h[128046];prog:mdi_eof,level:lev1,series:49460fc0_01h[128048];prog:mdi_eof,level:lev1,series:49460fc0_01h[128049];prog:mdi_eof,level:lev1,series:49460fc0_01h[128051];prog:mdi_eof,level:lev1,series:49460fc0_01h[128052];prog:mdi_eof,level:lev1,series:49460fc0_01h[128056];prog:mdi_eof,level:lev1,series:49460fc0_01h[128057];prog:mdi_eof,level:lev1,series:49460fc0_01h[128059];prog:mdi_eof,level:lev1,series:49460fc0_01h[128060];prog:mdi_eof,level:lev1,series:49460fc0_01h[128062];prog:mdi_eof,level:lev1,series:49460fc0_01h[128064];prog:mdi_eof,level:lev1,series:48440fc0_01h[128041];prog:mdi_eof,level:lev1,series:48440fc0_01h[128054];prog:mdi_eof,level:lev1,series:48470fc0_01h[128041];prog:mdi_eof,level:lev1,series:48470fc0_01h[128044]
p=fdmoffset \
        inout=prog:mdi_eof,level:lev1.4,series:fd_M_96m_01d[5335]

p=fdmflux a=n2 \
        inout=prog:mdi_eof,level:lev1.4,series:fd_M_96m_01d[5335]

END_ARCHIVE=1

# Do the imgrecon 

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

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