function out_bits = extract(r, g, L);
%     this function is to extract the info bit from the code bit under L 
% parallel encoders. L is the number of inner encoders.
%     for the woven encoder all use systemetic coding, 
% we can extract the outer decoder's input bits from the source of inner decoder.
        
    global sim_consts;
    
    len = length(r);
    
    pcode = zeros(sim_consts.Li, fix(len/sim_consts.Li));
    ucode = zeros(sim_consts.Li, fix(len/sim_consts.Li)*sim_consts.Ri);
    out_bits = zeros(1, sim_consts.Lo*sim_consts.L_o*sim_consts.enco.n);
    
    pcode = reshape(r, sim_consts.Li, fix(len/sim_consts.Li));    
    for i = 1:sim_consts.Li        
        for j = 1:sim_consts.Lo*sim_consts.L_o*sim_consts.enco.n/(sim_consts.Li*sim_consts.enci.k)
            ucode(i, (j-1)*sim_consts.enci.k+1 : j*sim_consts.enci.k ) = pcode(i, (j-1)*sim_consts.enci.n+1 : (j-1)*sim_consts.enci.n+sim_consts.enci.k);
        end
    end
    
    out_bits = reshape(ucode, 1, len*sim_consts.Ri);
return;