pro dr7in

ko= mrdfits('koUcac-43.fit',1)
hdr= headfits('koAstromDR9-001359.fit')

iok= where(ko.astromflag eq 0)

dyr=float(sxpar(hdr, 'EPOCH'))-2000.
splog, dyr
ko.ra+= ko.rapm/cos(ko.dec*!DPI/180.)*dyr/3600./1000.
ko.dec+= ko.decpm*dyr/3600./1000.

mwrfits, 0, 'koDR7-1359.fits', hdr, /create
mwrfits, ko[iok], 'koDR7-1359.fits'

end