← Back to branch summary

~logan/ubuntu/trusty/suitesparse/4.2.1-3ubuntu1

« back to all changes in this revision

Viewing changes to KLU/Source/klu_dump.c

  • Committer: Bazaar Package Importer
  • Author(s): Christophe Prud'homme
  • Date: 2007-05-29 09:36:29 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20070529093629-zowquo0b7slkk6nc
Tags: 3.0.0-2
http://bugs.debian.org/426349
http://bugs.debian.org/426354
* suitesparse builds properly twice in a row
* Bug fix: "suitesparse - FTBFS: Broken build depens: libgfortran1-dev",
  thanks to Bastian Blank (Closes: #426349).
* Bug fix: "suitesparse_3.0.0-1: FTBFS: build-depends on
  libgfortran1-dev", thanks to Steve Langasek (Closes: #426354).

Show diffs side-by-side

added added

removed removed

Lines of Context:
KLU/Source/klu_dump.c
1
1
/* ========================================================================== */
2
 
/* === klu_dump ============================================================= */
 
2
/* === KLU_dump ============================================================= */
3
3
/* ========================================================================== */
4
4
 
5
5
/* Debug routines for klu.  Only used when NDEBUG is not defined at
11
11
#ifndef NDEBUG
12
12
 
13
13
/* ========================================================================== */
14
 
/* === klu_valid ============================================================ */
 
14
/* === KLU_valid ============================================================ */
15
15
/* ========================================================================== */
16
16
 
17
17
/* Check if a column-form matrix is valid or not.  The matrix A is
24
24
 *      Ap [j] <= Ap [j+1] for all j in the range 0 to n_col.
25
25
 *      row indices in Ai [Ap [j] ... Ap [j+1]-1]
26
26
 *          must be in the range 0 to n_row-1,
27
 
 *          and no duplicate entries can exist (TODO not yet checked).
 
27
 *          and no duplicate entries can exist (duplicates not checked here).
28
28
 *
29
 
 * Not user-callable.
 
29
 * Not user-callable.  Only used when debugging.
30
30
 */
31
31
 
32
 
int KLU_valid (int n, int Ap [ ], int Ai [ ], Entry Ax [ ])
 
32
Int KLU_valid (Int n, Int Ap [ ], Int Ai [ ], Entry Ax [ ])
33
33
{
34
 
    int nz, j, p1, p2, i, p ;
 
34
    Int nz, j, p1, p2, i, p ;
35
35
    PRINTF (("\ncolumn oriented matrix, n = %d\n", n)) ;
36
36
    if (n <= 0)
37
37
    {
78
78
 
79
79
 
80
80
/* ========================================================================== */
81
 
/* === klu_valid_LU ========================================================= */
 
81
/* === KLU_valid_LU ========================================================= */
82
82
/* ========================================================================== */
83
83
 
84
 
/* This function does the same validity tests as klu_valid but for the
 
84
/* This function does the same validity tests as KLU_valid but for the
85
85
 * LU factor storage format. The flag flag_test_start_ptr is used to
86
 
 * test if Xip [0] = 0. This is not applicable for U. So when calling
87
 
 * this function for U, the flag should be set to false.
 
86
 * test if Xip [0] = 0. This is not applicable for U. So when calling this
 
87
 * function for U, the flag should be set to false.  Only used when debugging.
88
88
 */
89
89
 
90
 
int KLU_valid_LU (int n, int flag_test_start_ptr, int Xip [ ],
91
 
                   int Xlen [ ],  Unit LU [ ])
 
90
Int KLU_valid_LU (Int n, Int flag_test_start_ptr, Int Xip [ ],
 
91
                   Int Xlen [ ],  Unit LU [ ])
92
92
{
93
 
    int *Xi ;
 
93
    Int *Xi ;
94
94
    Entry *Xx ;
95
 
    int j, p1, p2, i, p, len ;
 
95
    Int j, p1, p2, i, p, len ;
96
96
 
97
97
    PRINTF (("\ncolumn oriented matrix, n = %d\n", n)) ;
98
98
    if (n <= 0)