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