pro mymir

common global
common data_set

; flag out pointing data
result=dat_filter(s_f,'"pointing" eq "1"',/reset)
if result gt 0 then flag,/flag


; continuum regeneration
select,/p,/re
uti_avgband

; tsys correction
select,/p,/re
apply_tsys

; fdds header fix
sp.fdds=sp.fdds*double(2.)

end