/************************************************************************/
/*         Fast Hadamard                                                */
/************************************************************************/
//Integer for loop;// Author : fb 
// Last Modi Date   : 2000.6 .9
// In; A/D compensate code
//In data buffer operation
// Clk; 1*chip clock
// Reset; globl Reset;
// Location; the code number 

module fht_unit2(Clk,Reset,FhtStar,
           In0,In1,In2,In3,In4,In5,In6,In7,In8,In9,In10,In11,In12,
           In13,In14,In15,
           Out0,Out1,Out2,Out3,Out4,Out5,Out6,Out7,Out8,Out9,Out10,Out11,Out12,
           Out13,Out14,Out15
           );

input Clk;
input Reset;
input FhtStar;
input [12:0] In0,In1,In2,In3,In4,In5,In6,In7,In8,In9;
input [12:0] In10,In11,In12,In13,In14,In15;
output [13:0] Out0,Out1,Out2,Out3,Out4,Out5,Out6,Out7,Out8,Out9;
output [13:0] Out10,Out11,Out12,Out13,Out14,Out15;


/* first Fht */
reg [13:0] Out0,Out1,Out2,Out3,Out4,Out5;
reg [13:0] Out6,Out7,Out8,Out9,Out10,Out11;
reg [13:0] Out12,Out13,Out14,Out15;

wire [12:0] In8Co =~In8+1;
wire [12:0] In9Co =~In9+1;
wire [12:0] In10Co=~In10+1;
wire [12:0] In11Co=~In11+1;
wire [12:0] In12Co=~In12+1;
wire [12:0] In13Co=~In13+1;
wire [12:0] In14Co=~In14+1;
wire [12:0] In15Co=~In15+1;

always @(posedge Clk or negedge Reset)
begin
  if(!Reset)
  begin
    Out0<=0;Out1<=0;Out2<=0;Out3<=0;Out4<=0;Out5<=0;Out6<=0;Out7<=0;
    Out8<=0;Out9<=0;Out10<=0;Out11<=0;Out12<=0;Out13<=0;Out14<=0;Out15<=0;
  end
  else
  begin
    if(FhtStar)
    begin
    Out0<={In0[12],In0 }+{In8[12],In8 };
    Out1<={In0[12],In0 }+{In8Co[12],In8Co };
    Out2<={In1[12],In1 }+{In9[12],In9 };
    Out3<={In1[12],In1 }+{In9Co[12],In9Co };
    Out4<={In2[12],In2 }+{In10[12],In10 };
    Out5<={In2[12],In2 }+{In10Co[12],In10Co };
    Out6<={In3[12],In3 }+{In11[12],In11 };
    Out7<={In3[12],In3 }+{In11Co[12],In11Co };
    Out8<={In4[12],In4 }+{In12[12],In12 };
    Out9<={In4[12],In4 }+{In12Co[12],In12Co };
    Out10<={In5[12],In5 }+{In13[12],In13 };
    Out11<={In5[12],In5 }+{In13Co[12],In13Co };
    Out12<={In6[12],In6 }+{In14[12],In14 };
    Out13<={In6[12],In6 }+{In14Co[12],In14Co };
    Out14<={In7[12],In7 }+{In15[12],In15 };
    Out15<={In7[12],In7 }+{In15Co[12],In15Co };
    end
  end
end

endmodule