Mercurial > octave-nkf
comparison liboctave/UMFPACK/UMFPACK/Source/umfpack_symbolic.c @ 5164:57077d0ddc8e
[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_symbolic ===================================================== */ | |
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. Performs a symbolic factorization. | |
13 See umfpack_symbolic.h for details. | |
14 */ | |
15 | |
16 #include "umf_internal.h" | |
17 | |
18 GLOBAL Int UMFPACK_symbolic | |
19 ( | |
20 Int n_row, | |
21 Int n_col, | |
22 const Int Ap [ ], | |
23 const Int Ai [ ], | |
24 const double Ax [ ], | |
25 #ifdef COMPLEX | |
26 const double Az [ ], | |
27 #endif | |
28 void **SymbolicHandle, | |
29 const double Control [UMFPACK_CONTROL], | |
30 double Info [UMFPACK_INFO] | |
31 ) | |
32 { | |
33 Int *Qinit = (Int *) NULL ; | |
34 return (UMFPACK_qsymbolic (n_row, n_col, Ap, Ai, Ax, | |
35 #ifdef COMPLEX | |
36 Az, | |
37 #endif | |
38 Qinit, SymbolicHandle, Control, Info)) ; | |
39 } |