File mttroot/mtt/bin/trans/p/zero_input.p artifact c982d1d936 part of check-in d4d695aba1

PROCEDURE zero_input(VAR x : InputVector;
			 N : INTEGER);
VAR i : INTEGER;
   
BEGIN
   FOR i:=1 TO N DO
      x[i] := 0.0;
END;