entity mul is
   port ( 
	  in1  : bit_vector;
	  in2  : bit_vector;
	  cntl : bit;
	  pout : out bit_vector
   );
end mul;  

architecture func of mul is
begin
   process(cntl)
   begin
	  if (cntl = '1') then
		 pout <= in1 AND in2;
      end if;
   end process;
end  func;