pro convert_2_xdr, infile, outfile

	if( ( keyword_set(infile ) ) and ( keyword_set(outfile) ) ) then begin

	   openr, in_unit, /get_lun, infile
	   openw, out_unit, /get_lun, outfile, /xdr

	   print, 'Starting conversion.'

	   buffer = fltarr(528)
	   while( not eof(in_unit) ) do begin
	      readu, in_unit, buffer
	      writeu, out_unit, buffer
	   endwhile

	   free_lun, in_unit
	   free_lun, out_unit

	   print, 'Conversion complete.'

	endif else print, 'USAGE :   convert_2_xdr, infile, outfile'

	end