entity gain is
  generic ( k : real := 1.0 );  -- gain multiplier
  port ( quantity input : in real;
         quantity output : out real );
end entity gain;

----------------------------------------------------------------

architecture simple of gain is
begin

  output == k * input;

end architecture simple;