function [out]=de_mapping_header(datain,length);
sym=double(datain);
p(7)=-1;
p(8)=1;
p(9)=-1;
p(10)=-1;
p(11)=-1;
p(12)=-1;
for i=1:(length/200)
    for j=1:50
        data((i-1)*50+j)=sym((i-1)*200+j);
        data((i-1)*50+j)=data((i-1)*50+j)+conj(sym((i-1)*200+101-j));
        data((i-1)*50+j)=data((i-1)*50+j)+p(mod(i+6,127))*sym((i-1)*200+100+j);
        data((i-1)*50+j)=data((i-1)*50+j)+conj(p(mod(i+6,127))*sym((i-1)*200+100+101-j));
    end
end
out=data/4;