diff --git a/append_elements.pro b/append_elements.pro
new file mode 100644
index 0000000000000000000000000000000000000000..c43ed4ce95d4ab4a43a541d2e5a3c62d003ae7c4
--- /dev/null
+++ b/append_elements.pro
@@ -0,0 +1,41 @@
+; $Id: append_elements.pro, v 1.0 Aug 1999 e.d. $

+;

+;+

+; NAME:

+;	APPEND_ELEMENTS

+;

+; PURPOSE:

+;	Append new elements to 1D vector.

+;

+; CATEGORY:

+;	Array manipulation.

+;

+; CALLING SEQUENCE:

+;	Result = APPEND_ELEMENTS(V, Elements)

+;

+; INPUTS:

+;	Vector:	input vector

+;

+;	Elements:	Scalar or vector, representing element(s) to be appended

+;

+; OUTPUTS:

+;	Results:	Input array with appended elements

+;

+; RESTRICTIONS:

+;	Apply only to 1D vectors or scalars.

+;

+; MODIFICATION HISTORY:

+; 	Written by:	Emiliano Diolaiti, August 1999.

+;-

+

+FUNCTION append_elements, v, elements

+

+	on_error, 2

+	n = n_elements(v)

+	if  n eq 0  then  return, elements

+	if  size(v, /N_DIM) gt 1  or $

+		size(elements, /N_DIM) gt 1  then  return, elements

+	v_and_el = make_array(n + n_elements(elements), TYPE = size(v, /TYPE))

+	v_and_el[0] = v  &  v_and_el[n] = elements

+	return, v_and_el

+end