;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;	STEFANO VERCELLONE, 2002-01-02  
;
;       REWRITES THE ORIGINAL FILES!!!!!
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

@file_list.inc
n_files = n_elements(files)

td='./'			;Where you store the tauh2's
length=59000l	

for i = 0, n_files-1 do begin
	openu,1,td + files(i)
	v0=assoc(1,dblarr(length))

	for kk = 0,15 do begin 
		tmp = v0[kk]	
		byteorder,tmp,/xdrtod
		v0[kk] = tmp
	endfor
	print, '......BYTE SWAP UPDATED on file  ' + td + files(i)
	close,1
endfor

end