pro read_upload, uploadname, ra, dec
openr, unit, uploadname, /get_lun
n=long(0)
while not eof(unit) do begin
	readf, unit, ra1, dec1
	n=n+1
endwhile
point_lun, unit, 0
data=fltarr(2,n)
readf, unit, data
free_lun, unit
ra=reform(data[0,*])
dec=reform(data[1,*])
end

function read_fileidx, filename
openr, unit, filename, /get_lun
fileidx=0
readf, unit, fileidx
free_lun, unit
return, fileidx
end

pro write_fileidx, filename, fileidx
openw, unit, filename, /get_lun
printf, unit, fileidx
free_lun, unit
end

pro write_arr, filename, outarr
openw, unit, filename, /get_lun
printf, unit, outarr
free_lun, unit
end