1caa1d0b45
1) Added user and internal functions GMRESSetSkipRealResidualCheck, to skip the evaluation and the check of the final residual in GMRES. This can be useful in badly conditioned problems where restart is not expected to be beneficial. 2) Independent of the above, added a check if consecutive real GMRES residuals decrease in the case of "false convergence 2". If not, we conclude that restart leads to pollution from round-off errors and exit GMRES.
172 lines
4.8 KiB
C
172 lines
4.8 KiB
C
/*BHEADER**********************************************************************
|
|
* Copyright (c) 2008, Lawrence Livermore National Security, LLC.
|
|
* Produced at the Lawrence Livermore National Laboratory.
|
|
* This file is part of HYPRE. See file COPYRIGHT for details.
|
|
*
|
|
* HYPRE is free software; you can redistribute it and/or modify it under the
|
|
* terms of the GNU Lesser General Public License (as published by the Free
|
|
* Software Foundation) version 2.1 dated February 1999.
|
|
*
|
|
* $Revision$
|
|
***********************************************************************EHEADER*/
|
|
|
|
|
|
|
|
|
|
/******************************************************************************
|
|
*
|
|
* GMRES gmres
|
|
*
|
|
*****************************************************************************/
|
|
|
|
#ifndef hypre_KRYLOV_GMRES_HEADER
|
|
#define hypre_KRYLOV_GMRES_HEADER
|
|
|
|
/*--------------------------------------------------------------------------
|
|
*--------------------------------------------------------------------------*/
|
|
|
|
/**
|
|
* @name Generic GMRES Interface
|
|
*
|
|
* A general description of the interface goes here...
|
|
*
|
|
* @memo A generic GMRES linear solver interface
|
|
* @version 0.1
|
|
* @author Jeffrey F. Painter
|
|
**/
|
|
/*@{*/
|
|
|
|
/*--------------------------------------------------------------------------
|
|
*--------------------------------------------------------------------------*/
|
|
|
|
/*--------------------------------------------------------------------------
|
|
* hypre_GMRESData and hypre_GMRESFunctions
|
|
*--------------------------------------------------------------------------*/
|
|
|
|
|
|
/**
|
|
* @name GMRES structs
|
|
*
|
|
* Description...
|
|
**/
|
|
/*@{*/
|
|
|
|
/**
|
|
* The {\tt hypre\_GMRESFunctions} object ...
|
|
**/
|
|
|
|
typedef struct
|
|
{
|
|
char * (*CAlloc) ( size_t count, size_t elt_size );
|
|
HYPRE_Int (*Free) ( char *ptr );
|
|
HYPRE_Int (*CommInfo) ( void *A, HYPRE_Int *my_id, HYPRE_Int *num_procs );
|
|
void * (*CreateVector) ( void *vector );
|
|
void * (*CreateVectorArray) ( HYPRE_Int size, void *vectors );
|
|
HYPRE_Int (*DestroyVector) ( void *vector );
|
|
void * (*MatvecCreate) ( void *A, void *x );
|
|
HYPRE_Int (*Matvec) ( void *matvec_data, double alpha, void *A,
|
|
void *x, double beta, void *y );
|
|
HYPRE_Int (*MatvecDestroy) ( void *matvec_data );
|
|
double (*InnerProd) ( void *x, void *y );
|
|
HYPRE_Int (*CopyVector) ( void *x, void *y );
|
|
HYPRE_Int (*ClearVector) ( void *x );
|
|
HYPRE_Int (*ScaleVector) ( double alpha, void *x );
|
|
HYPRE_Int (*Axpy) ( double alpha, void *x, void *y );
|
|
|
|
HYPRE_Int (*precond)();
|
|
HYPRE_Int (*precond_setup)();
|
|
|
|
} hypre_GMRESFunctions;
|
|
|
|
/**
|
|
* The {\tt hypre\_GMRESData} object ...
|
|
**/
|
|
|
|
|
|
typedef struct
|
|
{
|
|
HYPRE_Int k_dim;
|
|
HYPRE_Int min_iter;
|
|
HYPRE_Int max_iter;
|
|
HYPRE_Int rel_change;
|
|
HYPRE_Int skip_real_r_check;
|
|
HYPRE_Int stop_crit;
|
|
HYPRE_Int converged;
|
|
double tol;
|
|
double cf_tol;
|
|
double a_tol;
|
|
double rel_residual_norm;
|
|
|
|
void *A;
|
|
void *r;
|
|
void *w;
|
|
void *w_2;
|
|
void **p;
|
|
|
|
void *matvec_data;
|
|
void *precond_data;
|
|
|
|
hypre_GMRESFunctions * functions;
|
|
|
|
/* log info (always logged) */
|
|
HYPRE_Int num_iterations;
|
|
|
|
HYPRE_Int print_level; /* printing when print_level>0 */
|
|
HYPRE_Int logging; /* extra computations for logging when logging>0 */
|
|
double *norms;
|
|
char *log_file_name;
|
|
|
|
} hypre_GMRESData;
|
|
|
|
#ifdef __cplusplus
|
|
extern "C" {
|
|
#endif
|
|
|
|
/**
|
|
* @name generic GMRES Solver
|
|
*
|
|
* Description...
|
|
**/
|
|
/*@{*/
|
|
|
|
/**
|
|
* Description...
|
|
*
|
|
* @param param [IN] ...
|
|
**/
|
|
|
|
hypre_GMRESFunctions *
|
|
hypre_GMRESFunctionsCreate(
|
|
char * (*CAlloc) ( size_t count, size_t elt_size ),
|
|
HYPRE_Int (*Free) ( char *ptr ),
|
|
HYPRE_Int (*CommInfo) ( void *A, HYPRE_Int *my_id, HYPRE_Int *num_procs ),
|
|
void * (*CreateVector) ( void *vector ),
|
|
void * (*CreateVectorArray) ( HYPRE_Int size, void *vectors ),
|
|
HYPRE_Int (*DestroyVector) ( void *vector ),
|
|
void * (*MatvecCreate) ( void *A, void *x ),
|
|
HYPRE_Int (*Matvec) ( void *matvec_data, double alpha, void *A,
|
|
void *x, double beta, void *y ),
|
|
HYPRE_Int (*MatvecDestroy) ( void *matvec_data ),
|
|
double (*InnerProd) ( void *x, void *y ),
|
|
HYPRE_Int (*CopyVector) ( void *x, void *y ),
|
|
HYPRE_Int (*ClearVector) ( void *x ),
|
|
HYPRE_Int (*ScaleVector) ( double alpha, void *x ),
|
|
HYPRE_Int (*Axpy) ( double alpha, void *x, void *y ),
|
|
HYPRE_Int (*PrecondSetup) ( void *vdata, void *A, void *b, void *x ),
|
|
HYPRE_Int (*Precond) ( void *vdata, void *A, void *b, void *x )
|
|
);
|
|
|
|
/**
|
|
* Description...
|
|
*
|
|
* @param param [IN] ...
|
|
**/
|
|
|
|
void *
|
|
hypre_GMRESCreate( hypre_GMRESFunctions *gmres_functions );
|
|
|
|
#ifdef __cplusplus
|
|
}
|
|
#endif
|
|
#endif
|