pro mymir

common global
common data_set

; (OPTIONAL) FLAG POINTING DATA
result=dat_filter(s_f,'"pointing" eq "1"',/reset)
if result gt 0 then flag,/flag

; (OPTIONAL) SPIKE FIXING
; s1
select,band='s1',/reset
for i=13540, 13551 do uti_chanfix, chan=i, sample=15
for i=14323, 14325 do uti_chanfix, chan=i, sample=5
uti_chanfix, chan=[2587], sample=5
; s2
select,band='s2',/reset
for i=1750,1750 do uti_chanfix, chan=i, sample=5
; s4
select,band='s4',/reset
for i=4780,4783 do uti_chanfix, chan=i, sample=10
for i=4000,4001 do uti_chanfix, chan=i, sample=5
; s5
select,band='s5',/reset
uti_chanfix, chan=[9628,9629,2633,2634], sample=5

; (OPTIONAL) CONTINUUM REGENERATION
select,/p,/re
swmch1=1040.+1
swmch2=(16384-1040.)
uti_avgband, swmch1=swmch1, swmch2=swmch2

; (REQUIRED) APPLY TSYS CORRECTION
select,/p,/re
apply_tsys

; (REQUIRED) HEADER FIX
sp.fdds=sp.fdds*double(2.)

end