SuperLU 6.0.1
|
Example #2 showing how to use ILU to precondition GMRES. More...
#include "slu_sdefs.h"
Functions | |
void | spsolve (int n, float x[], float y[]) |
Performs sgsisx with original matrix A. More... | |
void | smatvec_mult (float alpha, float x[], float beta, float y[]) |
Performs matrix-vector multipliation sp_sgemv with original matrix A. More... | |
int | main (int argc, char *argv[]) |
Variables | |
char * | GLOBAL_EQUED |
superlu_options_t * | GLOBAL_OPTIONS |
float * | GLOBAL_R |
float * | GLOBAL_C |
int * | GLOBAL_PERM_C |
int * | GLOBAL_PERM_R |
SuperMatrix * | GLOBAL_A |
SuperMatrix * | GLOBAL_A_ORIG |
SuperMatrix * | GLOBAL_L |
SuperMatrix * | GLOBAL_U |
SuperLUStat_t * | GLOBAL_STAT |
mem_usage_t * | GLOBAL_MEM_USAGE |
This example shows that ILU is computed from the equilibrated matrix, but the preconditioned GMRES is applied to the original system. The driver routine SGSISX is called twice to perform factorization and apply preconditioner separately.
Note that SGSISX performs the following factorization: Pr*Dr*A*Dc*Pc^T ~= LU with Pr being obtained from MC64 statically then partial pivoting dynamically. On return, A is overwritten as A1 = Dr*A*Dc.
We need to save a copy of the original matrix A, then solve the original system, A*x = B, using FGMRES. Each GMRES step requires requires 2 procedures: 1) Apply preconditioner M^{-1} = Dc*Pc^T*U^{-1}*L^{-1}*Pr*Dr 2) Matrix-vector multiplication: w = A*v
int main | ( | int | argc, |
char * | argv[] | ||
) |
void smatvec_mult | ( | float | alpha, |
float | x[], | ||
float | beta, | ||
float | y[] | ||
) |
The operations is y := alpha*A*x + beta*y. See documentation of sp_sgemv for further details.
[in] | alpha | Scalar factor for A*x |
[in] | x | Vector to multiply with A |
[in] | beta | Scalar factor for y |
[in,out] | y | Vector to add to to matrix-vector multiplication and storage for result. |
void spsolve | ( | int | n, |
float | x[], | ||
float | y[] | ||
) |
See documentation of sgsisx for more details.
[in] | n | Dimension of matrices |
[out] | x | Solution |
[in,out] | y | Right-hand side |
SuperMatrix* GLOBAL_A |
SuperMatrix * GLOBAL_A_ORIG |
float * GLOBAL_C |
char* GLOBAL_EQUED |
SuperMatrix * GLOBAL_L |
mem_usage_t* GLOBAL_MEM_USAGE |
superlu_options_t* GLOBAL_OPTIONS |
int* GLOBAL_PERM_C |
int * GLOBAL_PERM_R |
float* GLOBAL_R |
SuperLUStat_t* GLOBAL_STAT |
SuperMatrix * GLOBAL_U |