Mercurial > octave-nkf

comparison liboctave/UMFPACK/UMFPACK/Source/umfpack_report_vector.c @ 5164:57077d0ddc8e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-02-25 19:55:24 by jwe]
author jwe
date Fri, 25 Feb 2005 19:55:28 +0000
parents
children
comparison
equal deleted inserted replaced
5163:9f3299378193 5164:57077d0ddc8e
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 }