function coded_bits=tx_ldpc_encode(uncode_bits)

global rows;
global cols;
global psm1j;
global Gp1;
global rearranged_cols;

inf_word_len=cols-rows;
uncode_bits_len=length(uncode_bits);
ldpc_word_num=ceil(uncode_bits_len/inf_word_len);
extended_uncode_bits=[uncode_bits zeros(1,ldpc_word_num*inf_word_len-uncode_bits_len)] ;

uncode_bits_mat = reshape(extended_uncode_bits,inf_word_len,ldpc_word_num);
coded_bits_mat=zeros(cols,ldpc_word_num);

for i=1:ldpc_word_num
    s=uncode_bits_mat(:,i);
    p1=mul_GF2(Gp1, s);
    u1=ldpcqenc(psm1j, [s' p1'], cols);
    u(rearranged_cols)=u1;
    coded_bits_mat(:,i)=u';
end

coded_bits=coded_bits_mat(:)';