File mttroot/mtt/bin/trans/p/zero_input.p artifact c982d1d936 part of check-in 2fefd10db6
PROCEDURE zero_input(VAR x : InputVector; N : INTEGER); VAR i : INTEGER; BEGIN FOR i:=1 TO N DO x[i] := 0.0; END;
PROCEDURE zero_input(VAR x : InputVector; N : INTEGER); VAR i : INTEGER; BEGIN FOR i:=1 TO N DO x[i] := 0.0; END;