function fa_14tobyte,counts
ncounts=n_elements(counts)
if ncounts GT 1 then begin
output_byte=bytarr(ncounts)
for j=0,ncounts-1 do $
output_byte[j]=fa_14tobyte(counts[j])
return,output_byte
endif
if counts EQ 0 then return,0b
bitsarray=intarr(16)
for i=0,15 do bitsarray[i]=((2^(i) AND counts) NE 0)
msl=max(where(bitsarray EQ 1))
case msl of
0: output=bitsarray[0:7]
1: output=bitsarray[0:7]
2: output=bitsarray[0:7]
3: output=[bitsarray[0:2],1,0,0,0,0]
4: output=[bitsarray[1:3],0,1,0,0,0]
5: output=[bitsarray[2:4],1,1,0,0,0]
6: output=[bitsarray[2:5],0,1,0,0]
7: output=[bitsarray[3:6],1,1,0,0]
8: output=[bitsarray[4:7],0,0,1,0]
9: output=[bitsarray[5:8],1,0,1,0]
10: output=[bitsarray[5:9],1,1,0]
11: output=[bitsarray[6:10],0,0,1]
12: output=[bitsarray[7:11],1,0,1]
13: output=[bitsarray[7:12],1,1]
else: begin
print,'Overflow Error!'
print,'Returning Nonsense...'
output=bitsarray[0:7]
end
endcase
for i=0,7 do output[i]*=2^i
output_byte=byte(total(output))
return,output_byte
end