109 lines
3.9 KiB
C
109 lines
3.9 KiB
C
/*BHEADER**********************************************************************
|
|
* Copyright (c) 2006 The Regents of the University of California.
|
|
* Produced at the Lawrence Livermore National Laboratory.
|
|
* Written by the HYPRE team. UCRL-CODE-222953.
|
|
* All rights reserved.
|
|
*
|
|
* This file is part of HYPRE (see http://www.llnl.gov/CASC/hypre/).
|
|
* Please see the COPYRIGHT_and_LICENSE file for the copyright notice,
|
|
* disclaimer, contact information and the GNU Lesser General Public License.
|
|
*
|
|
* HYPRE is free software; you can redistribute it and/or modify it under the
|
|
* terms of the GNU General Public License (as published by the Free Software
|
|
* Foundation) version 2.1 dated February 1999.
|
|
*
|
|
* HYPRE is distributed in the hope that it will be useful, but WITHOUT ANY
|
|
* WARRANTY; without even the IMPLIED WARRANTY OF MERCHANTABILITY or FITNESS
|
|
* FOR A PARTICULAR PURPOSE. See the terms and conditions of the GNU General
|
|
* Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Lesser General Public License
|
|
* along with this program; if not, write to the Free Software Foundation,
|
|
* Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
|
*
|
|
* $Revision$
|
|
***********************************************************************EHEADER*/
|
|
|
|
|
|
|
|
#include "multivector.h"
|
|
|
|
#ifndef LOCALLY_OPTIMAL_BLOCK_PRECONDITIONED_CONJUGATE_GRADIENTS
|
|
#define LOCALLY_OPTIMAL_BLOCK_PRECONDITIONED_CONJUGATE_GRADIENTS
|
|
|
|
#define PROBLEM_SIZE_TOO_SMALL 1
|
|
#define WRONG_BLOCK_SIZE 2
|
|
#define WRONG_CONSTRAINTS 3
|
|
#define REQUESTED_ACCURACY_NOT_ACHIEVED -1
|
|
|
|
typedef struct {
|
|
|
|
double absolute;
|
|
double relative;
|
|
|
|
} lobpcg_Tolerance;
|
|
|
|
typedef struct {
|
|
|
|
/* these pointers should point to 2 functions providing standard lapack functionality */
|
|
int (*dpotrf) (char *uplo, int *n, double *a, int *
|
|
lda, int *info);
|
|
int (*dsygv) (int *itype, char *jobz, char *uplo, int *
|
|
n, double *a, int *lda, double *b, int *ldb,
|
|
double *w, double *work, int *lwork, int *info);
|
|
|
|
} lobpcg_BLASLAPACKFunctions;
|
|
|
|
#ifdef __cplusplus
|
|
extern "C" {
|
|
#endif
|
|
|
|
int
|
|
lobpcg_solve( mv_MultiVectorPtr blockVectorX,
|
|
void* operatorAData,
|
|
void (*operatorA)( void*, void*, void* ),
|
|
void* operatorBData,
|
|
void (*operatorB)( void*, void*, void* ),
|
|
void* operatorTData,
|
|
void (*operatorT)( void*, void*, void* ),
|
|
mv_MultiVectorPtr blockVectorY,
|
|
lobpcg_BLASLAPACKFunctions blap_fn,
|
|
lobpcg_Tolerance tolerance,
|
|
int maxIterations,
|
|
int verbosityLevel,
|
|
int* iterationNumber,
|
|
|
|
/* eigenvalues; "lambda_values" should point to array containing <blocksize> doubles where <blocksi
|
|
ze> is the width of multivector "blockVectorX" */
|
|
double * lambda_values,
|
|
|
|
/* eigenvalues history; a pointer to the entries of the <blocksize>-by-(<maxIterations>+1) matrix s
|
|
tored
|
|
in fortran-style. (i.e. column-wise) The matrix may be a submatrix of a larger matrix, see next
|
|
argument; If you don't need eigenvalues history, provide NULL in this entry */
|
|
double * lambdaHistory_values,
|
|
|
|
/* global height of the matrix (stored in fotran-style) specified by previous argument */
|
|
int lambdaHistory_gh,
|
|
|
|
/* residual norms; argument should point to array of <blocksize> doubles */
|
|
double * residualNorms_values,
|
|
|
|
/* residual norms history; a pointer to the entries of the <blocksize>-by-(<maxIterations>+1) matri
|
|
x
|
|
stored in fortran-style. (i.e. column-wise) The matrix may be a submatrix of a larger matrix, see
|
|
next
|
|
argument If you don't need residual norms history, provide NULL in this entry */
|
|
double * residualNormsHistory_values ,
|
|
|
|
/* global height of the matrix (stored in fotran-style) specified by previous argument */
|
|
int residualNormsHistory_gh
|
|
|
|
);
|
|
|
|
#ifdef __cplusplus
|
|
}
|
|
#endif
|
|
|
|
#endif /* LOCALLY_OPTIMAL_BLOCK_PRECONDITIONED_CONJUGATE_GRADIENTS */
|