;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