1 /* ========================================================================== */
2 /* === UMFPACK_report_vector ================================================ */
3 /* ========================================================================== */
4
5 /* -------------------------------------------------------------------------- */
6 /* Copyright (c) 2005-2012 by Timothy A. Davis, http://www.suitesparse.com. */
7 /* All Rights Reserved. See ../Doc/License.txt for License. */
8 /* -------------------------------------------------------------------------- */
9
10 /*
11 User-callable. Prints a real or complex vector.
12 See umfpack_report_vector.h for details.
13 */
14
15 #include "umf_internal.h"
16 #include "umf_report_vector.h"
17
UMFPACK_report_vector(Int n,const double Xx[],const double Xz[],const double Control[UMFPACK_CONTROL])18 GLOBAL Int UMFPACK_report_vector
19 (
20 Int n,
21 const double Xx [ ],
22 #ifdef COMPLEX
23 const double Xz [ ],
24 #endif
25 const double Control [UMFPACK_CONTROL]
26 )
27 {
28 Int prl ;
29
30 #ifndef COMPLEX
31 double *Xz = (double *) NULL ;
32 #endif
33
34 prl = GET_CONTROL (UMFPACK_PRL, UMFPACK_DEFAULT_PRL) ;
35
36 if (prl <= 2)
37 {
38 return (UMFPACK_OK) ;
39 }
40
41 return (UMF_report_vector (n, Xx, Xz, prl, TRUE, FALSE)) ;
42 }
43