;
; relink files..
; junk has the files to do
;
newdir='/share/phildat/atm/clpmovie/'

n=readasciifile("relink.list",inp)
for i=0,n-1 do begin
	print,"relinking:",inp[i]
	file_delete,inp[i]
	file_link,newdir + inp[i],inp[i]
endfor
end