;Converts compressed bytes to 14 or 16 bit integers the slow way.

function fa_byte_map,input,totalbits,suppress=suppress

if totalbits EQ 14 then begin
	if keyword_set(suppress) then begin
		fa_init
		if file_test(!fast.local_data_dir+'information/byteto14_map') then begin
			file=!fast.local_data_dir+'information/byteto14_map'
		endif else begin
			file=fa_pathnames('byteto14_map',dir='information')
		endelse
	endif else begin
		file=fa_pathnames('byteto14_map',dir='information') 
	endelse
endif
if totalbits EQ 16 then begin
	if keyword_set(suppress) then begin
		fa_init
		if file_test(!fast.local_data_dir+'information/byteto16_map') then begin
			file=!fast.local_data_dir+'information/byteto16_map'
		endif else begin
			file=fa_pathnames('byteto16_map',dir='information')
		endelse
	endif else begin
		file=fa_pathnames('byteto16_map',dir='information')
	endelse
endif

openr,unit,file,/get_lun
convert_array=lonarr(10,26)
readf,unit,convert_array
close,unit
free_lun,unit

one_pl=input mod 10
ten_pl=(input-one_pl)/10

return,convert_array[one_pl,ten_pl]
end