3
* \brief Performs numerical pivoting
3
6
* -- SuperLU routine (version 3.0) --
4
7
* Univ. of California Berkeley, Xerox Palo Alto Research Center,
5
8
* and Lawrence Berkeley National Lab.
11
* Copyright (c) 1994 by Xerox Corporation. All rights reserved.
13
* THIS MATERIAL IS PROVIDED AS IS, WITH ABSOLUTELY NO WARRANTY
14
* EXPRESSED OR IMPLIED. ANY USE IS AT YOUR OWN RISK.
16
* Permission is hereby granted to use or copy this program for any
17
* purpose, provided the above notices are retained on all copies.
18
* Permission to modify the code and to distribute modified code is
19
* granted, provided the above notices are retained, and a notice that
20
* the code was modified is included with the above copyright notice.
10
Copyright (c) 1994 by Xerox Corporation. All rights reserved.
12
THIS MATERIAL IS PROVIDED AS IS, WITH ABSOLUTELY NO WARRANTY
13
EXPRESSED OR IMPLIED. ANY USE IS AT YOUR OWN RISK.
15
Permission is hereby granted to use or copy this program for any
16
purpose, provided the above notices are retained on all copies.
17
Permission to modify the code and to distribute modified code is
18
granted, provided the above notices are retained, and a notice that
19
the code was modified is included with the above copyright notice.
23
26
#include <stdlib.h>
27
#include "slu_sdefs.h"
30
const int jcol, /* in */
31
const float u, /* in - diagonal pivoting threshold */
32
int *usepr, /* re-use the pivot sequence given by perm_r/iperm_r */
33
int *perm_r, /* may be modified */
34
int *iperm_r, /* in - inverse of perm_r */
35
int *iperm_c, /* in - used to find diagonal of Pc*A*Pc' */
36
int *pivrow, /* out */
37
GlobalLU_t *Glu, /* modified - global LU data structures */
38
SuperLUStat_t *stat /* output */
44
36
* Performs the numerical pivoting on the current column of L,
58
50
* Return value: 0 success;
59
51
* i > 0 U(i,i) is exactly zero.
57
const int jcol, /* in */
58
const double u, /* in - diagonal pivoting threshold */
59
int *usepr, /* re-use the pivot sequence given by perm_r/iperm_r */
60
int *perm_r, /* may be modified */
61
int *iperm_r, /* in - inverse of perm_r */
62
int *iperm_c, /* in - used to find diagonal of Pc*A*Pc' */
63
int *pivrow, /* out */
64
GlobalLU_t *Glu, /* modified - global LU data structures */
65
SuperLUStat_t *stat /* output */
62
69
int fsupc; /* first column in the supernode */
63
70
int nsupc; /* no of columns in the supernode */
64
71
int nsupr; /* no of rows in the supernode */