--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/liboctave/UMFPACK/UMFPACK/Source/umfpack_report_vector.c	Fri Feb 25 19:55:28 2005 +0000
@@ -0,0 +1,43 @@
+/* ========================================================================== */
+/* === UMFPACK_report_vector ================================================ */
+/* ========================================================================== */
+
+/* -------------------------------------------------------------------------- */
+/* UMFPACK Version 4.4, Copyright (c) 2005 by Timothy A. Davis.  CISE Dept,   */
+/* Univ. of Florida.  All Rights Reserved.  See ../Doc/License for License.   */
+/* web: http://www.cise.ufl.edu/research/sparse/umfpack                       */
+/* -------------------------------------------------------------------------- */
+
+/*
+    User-callable.  Prints a real or complex vector.
+    See umfpack_report_vector.h for details.
+*/
+
+#include "umf_internal.h"
+#include "umf_report_vector.h"
+
+GLOBAL Int UMFPACK_report_vector
+(
+    Int n,
+    const double Xx [ ],
+#ifdef COMPLEX
+    const double Xz [ ],
+#endif
+    const double Control [UMFPACK_CONTROL]
+)
+{
+    Int prl ;
+
+#ifndef COMPLEX
+    double *Xz = (double *) NULL ;
+#endif
+
+    prl = GET_CONTROL (UMFPACK_PRL, UMFPACK_DEFAULT_PRL) ;
+
+    if (prl <= 2)
+    {
+	return (UMFPACK_OK) ;
+    }
+
+    return (UMF_report_vector (n, Xx, Xz, prl, TRUE, FALSE)) ;
+}