function deint_matrix=Deinterleaver(R_scrambled)
% This is the Block Deinterleaver.
% The Block Interleaver is a 16 rows by 24 columns array matrix
% It reads in a data bit stream column-by-column then outputrow-by-row
% define array matrix
deint_matrix1=zeros([16,24]);
nrows2=16;
ncolumns2=24;
% fill the empty matrix column-by-column
for nc2=1:ncolumns2
for nr2=1:nrows2
deint_matrix1(nr2,nc2)=R_scrambled(nc2+((nr2-1)*ncolumns2));
end
end
% output the bits in the matrix column-by-column
deint_matrix=deint_matrix1(:)';