PORT
(clkin :IN Std_Logic;
reset: in STD_Logic;
clkout :OUT Std_Logic
);
end;
ARCHITECTURE BEHAVIR OF clk_div IS
signal temp:std_logic;
signal count :Integer RANGE 0 TO 3;
begin
process(clkin,reset)
begin
if reset='0' then
temp<='0';
elsif falling_edge(clkin) then
if count=3 then
count<=0;
temp<=not temp;
else
count<=count+1;
end if;
end if;
end process;
clkout<=temp;
end;