From f8cb2964e62b9b0c982523689cb8b8935cdc00c1 Mon Sep 17 00:00:00 2001 From: Laura Schreiber <laura.schreiber@inaf.it> Date: Fri, 14 Feb 2025 15:10:27 +0000 Subject: [PATCH] Upload missing File --- append_elements.pro | 41 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 41 insertions(+) create mode 100644 append_elements.pro diff --git a/append_elements.pro b/append_elements.pro new file mode 100644 index 0000000..c43ed4c --- /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 -- GitLab