#
!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[6508] \
	in=prog:mdi_eof,level:lev1,series:49460fc0_01h[156204];prog:mdi_eof,level:lev1,series:49460fc0_01h[156206];prog:mdi_eof,level:lev1,series:49460fc0_01h[156208];prog:mdi_eof,level:lev1,series:49460fc0_01h[156209];prog:mdi_eof,level:lev1,series:49460fc0_01h[156211];prog:mdi_eof,level:lev1,series:49460fc0_01h[156212];prog:mdi_eof,level:lev1,series:48440fc0_01h[156214];prog:mdi_eof,level:lev1,series:48470fc0_01h[156191];prog:mdi_eof,level:lev1,series:48470fc0_01h[156192];prog:mdi_eof,level:lev1,series:48470fc0_01h[156214];prog:mdi_eof,level:lev1,series:48470fc0_01h[156215]

#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[6508] \
        out=prog:mdi_eof,level:lev1.4,series:fd_M_96m_01d[6508] \
        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[6508]

# 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[6508] \
	in=prog:mdi_eof,level:lev1,series:49460fc0_01h[156204];prog:mdi_eof,level:lev1,series:49460fc0_01h[156206];prog:mdi_eof,level:lev1,series:49460fc0_01h[156208];prog:mdi_eof,level:lev1,series:49460fc0_01h[156209];prog:mdi_eof,level:lev1,series:49460fc0_01h[156211];prog:mdi_eof,level:lev1,series:49460fc0_01h[156212];prog:mdi_eof,level:lev1,series:48440fc0_01h[156214];prog:mdi_eof,level:lev1,series:48470fc0_01h[156191];prog:mdi_eof,level:lev1,series:48470fc0_01h[156192];prog:mdi_eof,level:lev1,series:48470fc0_01h[156214];prog:mdi_eof,level:lev1,series:48470fc0_01h[156215]
p=fdmoffset \
        inout=prog:mdi_eof,level:lev1.4,series:fd_M_96m_01d[6508]

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

END_ARCHIVE=1

# Do the imgrecon 

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

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

# Make the lev1.8

p=mk18 d=1 a=t60 \
        in=prog:mdi_eof,level:lev1.5,series:fd_M_96m_01d[6508] \
        in_adj=prog:mdi,level:lev1.8_adj,series:tables \
        out=prog:mdi_eof,level:lev1.8,series:fd_M_96m_01d[6508]