indexing
	description: "A C-Array for 1D-Vectors"
	documentation: "Wraps  EM_VECTOR_3D to a c-array"
	date: "$Date$"
	revision: "$Revision$"

class EM_VECTOR1f_ARRAY

obsolete
	"Use EM_VECTOR_ARRAY_{F/I/D} instead"
inherit
	EM_ABSTRACT_VECTOR1_ARRAY[REAL, EM_VECTOR1F]

create
	make

convert
	to_c_pointer: {POINTER}

feature -- Access

	item alias "[]", infix "@" (i: INTEGER): EM_VECTOR1F assign put is
			-- Entry at index `i', if in index interval
		do
			Result := [ area.item (i* dimension + 0) ]
		end

end -- class EM_VECTOR_1F_ARRAY