function  B1_metric=gen_B1_metric(wnum,wl,Gadd_B1,Gsub_B1)


old_metric=zeros(1,4);

inf=100000;

for i=2:4
    old_metric(i)=-inf;
end


B1_metric=zeros(4,wnum*wl);


new_metric=zeros(1,4);

for i=1:wnum
    
    if(mod(i,2))
    old_metric=[0,-inf,-inf,-inf];
    end
    
    for j=1:wl
        
        if((i==63)&(j==3))
           old_metric=[0,-inf,-inf,-inf];
        end
        
        B1_metric(1,(i-1)*wl+j)=old_metric(1) ;
        B1_metric(2,(i-1)*wl+j)=old_metric(2) ;
        B1_metric(3,(i-1)*wl+j)=old_metric(3) ;
        B1_metric(4,(i-1)*wl+j)=old_metric(4) ;
        
        new_metric(1)=ACSO(old_metric(3),old_metric(1),Gadd_B1((i-1)*wl+j));
        new_metric(2)=ACSO(old_metric(1),old_metric(3),Gadd_B1((i-1)*wl+j));
        new_metric(3)=ACSO(old_metric(2),old_metric(4),Gsub_B1((i-1)*wl+j));
        new_metric(4)=ACSO(old_metric(4),old_metric(2),Gsub_B1((i-1)*wl+j));
        
        for k=1:4
            old_metric(k)=new_metric(k)-new_metric(1);
        end 
        
    end
end