PROCEDURE Normalize (Vector_in: Vector; VAR Vector_out: Vector);

	VAR Length_of_vector_in: REAL;
	    I
	    Vector_in_is_zero  : BOOLEAN;
	    
	BEGIN
	Vector_out := Vector_in;
	Length_of_vector_in := Vector_length(Vector_in);
	IF (Length_of_vector_in = 0) THEN Vector_in_is_zero := TRUE;
				     ELSE Vector_in_is_zero := FALSE;
				     
	IF Vector_in_is_zero
		THEN NWRITE ('Normalized zero vector');
		ELSE FOR I:= 1 TO Dimensionality DO
			Vector_out[I] := Vector_in[I]/Length_of_vector_in;
			
	END