43d113506c
modified HYPRE_BoomerAMGSetup implementation, so that AMG-GMRES AMG setup can be controlled from a Fortran code
428 lines
18 KiB
C
428 lines
18 KiB
C
/*BHEADER**********************************************************************
|
|
* (c) 1998 The Regents of the University of California
|
|
*
|
|
* See the file COPYRIGHT_and_DISCLAIMER for a complete copyright
|
|
* notice, contact person, and disclaimer.
|
|
*
|
|
* $Revision$
|
|
*********************************************************************EHEADER*/
|
|
/******************************************************************************
|
|
*
|
|
* HYPRE_ParAMG Fortran interface
|
|
*
|
|
*****************************************************************************/
|
|
|
|
#include "headers.h"
|
|
#include "fortran.h"
|
|
|
|
/*--------------------------------------------------------------------------
|
|
* HYPRE_BoomerAMGCreate
|
|
*--------------------------------------------------------------------------*/
|
|
|
|
void
|
|
hypre_F90_IFACE(hypre_boomeramgcreate)( long int *solver,
|
|
int *ierr )
|
|
|
|
{
|
|
*ierr = (int) ( HYPRE_BoomerAMGCreate( (HYPRE_Solver *) solver) );
|
|
|
|
}
|
|
|
|
/*--------------------------------------------------------------------------
|
|
* HYPRE_BoomerAMGDestroy
|
|
*--------------------------------------------------------------------------*/
|
|
|
|
void
|
|
hypre_F90_IFACE(hypre_boomeramgdestroy)( long int *solver,
|
|
int *ierr )
|
|
{
|
|
*ierr = (int) ( HYPRE_BoomerAMGDestroy( (HYPRE_Solver) *solver ) );
|
|
}
|
|
|
|
/*--------------------------------------------------------------------------
|
|
* HYPRE_BoomerAMGSetup
|
|
*--------------------------------------------------------------------------*/
|
|
|
|
void
|
|
hypre_F90_IFACE(hypre_boomeramgsetup)( long int *solver,
|
|
long int *A,
|
|
long int *b,
|
|
long int *x,
|
|
int *ierr )
|
|
{
|
|
*ierr = (int) ( HYPRE_BoomerAMGSetup( (HYPRE_Solver) *solver,
|
|
(HYPRE_ParCSRMatrix) *A,
|
|
(HYPRE_ParVector) *b,
|
|
(HYPRE_ParVector) *x ) );
|
|
}
|
|
|
|
/*--------------------------------------------------------------------------
|
|
* HYPRE_BoomerAMGSolve
|
|
*--------------------------------------------------------------------------*/
|
|
|
|
void
|
|
hypre_F90_IFACE(hypre_boomeramgsolve)( long int *solver,
|
|
long int *A,
|
|
long int *b,
|
|
long int *x,
|
|
int *ierr )
|
|
{
|
|
*ierr = (int) ( HYPRE_BoomerAMGSolve( (HYPRE_Solver) *solver,
|
|
(HYPRE_ParCSRMatrix) *A,
|
|
(HYPRE_ParVector) *b,
|
|
(HYPRE_ParVector) *x ) );
|
|
}
|
|
|
|
/*--------------------------------------------------------------------------
|
|
* HYPRE_BoomerAMGSolveT
|
|
*--------------------------------------------------------------------------*/
|
|
|
|
void
|
|
hypre_F90_IFACE(hypre_boomeramgsolvet)( long int *solver,
|
|
long int *A,
|
|
long int *b,
|
|
long int *x,
|
|
int *ierr )
|
|
{
|
|
*ierr = (int) ( HYPRE_BoomerAMGSolveT( (HYPRE_Solver) *solver,
|
|
(HYPRE_ParCSRMatrix) *A,
|
|
(HYPRE_ParVector) *b,
|
|
(HYPRE_ParVector) *x ) );
|
|
}
|
|
|
|
/*--------------------------------------------------------------------------
|
|
* HYPRE_BoomerAMGSetRestriction
|
|
*--------------------------------------------------------------------------*/
|
|
|
|
void
|
|
hypre_F90_IFACE(hypre_boomeramgsetrestriction)( long int *solver,
|
|
int *restr_par,
|
|
int *ierr )
|
|
{
|
|
*ierr = (int) ( HYPRE_BoomerAMGSetRestriction( (HYPRE_Solver) *solver,
|
|
(int) *restr_par ) );
|
|
}
|
|
|
|
/*--------------------------------------------------------------------------
|
|
* HYPRE_BoomerAMGSetMaxLevels
|
|
*--------------------------------------------------------------------------*/
|
|
|
|
void
|
|
hypre_F90_IFACE(hypre_boomeramgsetmaxlevels)( long int *solver,
|
|
int *max_levels,
|
|
int *ierr )
|
|
{
|
|
*ierr = (int) ( HYPRE_BoomerAMGSetMaxLevels( (HYPRE_Solver) *solver,
|
|
(int) *max_levels ) );
|
|
}
|
|
|
|
/*--------------------------------------------------------------------------
|
|
* HYPRE_BoomerAMGSetStrongThreshold
|
|
*--------------------------------------------------------------------------*/
|
|
|
|
void
|
|
hypre_F90_IFACE(hypre_boomeramgsetstrongthrshld)( long int *solver,
|
|
double *strong_threshold,
|
|
int *ierr )
|
|
{
|
|
*ierr = (int)
|
|
( HYPRE_BoomerAMGSetStrongThreshold( (HYPRE_Solver) *solver,
|
|
(double) *strong_threshold ) );
|
|
}
|
|
|
|
/*--------------------------------------------------------------------------
|
|
* HYPRE_BoomerAMGSetMaxRowSum
|
|
*--------------------------------------------------------------------------*/
|
|
|
|
void
|
|
hypre_F90_IFACE(hypre_boomeramgsetmaxrowsum)( long int *solver,
|
|
double *max_row_sum,
|
|
int *ierr )
|
|
{
|
|
*ierr = (int)
|
|
( HYPRE_BoomerAMGSetMaxRowSum( (HYPRE_Solver) *solver,
|
|
(double) *max_row_sum ) );
|
|
}
|
|
|
|
/*--------------------------------------------------------------------------
|
|
* HYPRE_BoomerAMGSetTruncFactor
|
|
*--------------------------------------------------------------------------*/
|
|
|
|
void
|
|
hypre_F90_IFACE(hypre_boomeramgsettruncfactor)( long int *solver,
|
|
double *trunc_factor,
|
|
int *ierr )
|
|
{
|
|
*ierr = (int) ( HYPRE_BoomerAMGSetTruncFactor( (HYPRE_Solver) *solver,
|
|
(double) *trunc_factor ) );
|
|
}
|
|
|
|
/*--------------------------------------------------------------------------
|
|
* HYPRE_BoomerAMGSetInterpType
|
|
*--------------------------------------------------------------------------*/
|
|
|
|
void
|
|
hypre_F90_IFACE(hypre_boomeramgsetinterptype)( long int *solver,
|
|
int *interp_type,
|
|
int *ierr )
|
|
{
|
|
*ierr = (int) ( HYPRE_BoomerAMGSetInterpType( (HYPRE_Solver) *solver,
|
|
(int) *interp_type ) );
|
|
}
|
|
|
|
/*--------------------------------------------------------------------------
|
|
* HYPRE_BoomerAMGSetMinIter
|
|
*--------------------------------------------------------------------------*/
|
|
|
|
void
|
|
hypre_F90_IFACE(hypre_boomeramgsetminiter)( long int *solver,
|
|
int *min_iter,
|
|
int *ierr )
|
|
{
|
|
*ierr = (int) ( HYPRE_BoomerAMGSetMinIter( (HYPRE_Solver) *solver,
|
|
(int) *min_iter ) );
|
|
}
|
|
|
|
/*--------------------------------------------------------------------------
|
|
* HYPRE_BoomerAMGSetMaxIter
|
|
*--------------------------------------------------------------------------*/
|
|
|
|
void
|
|
hypre_F90_IFACE(hypre_boomeramgsetmaxiter)( long int *solver,
|
|
int *max_iter,
|
|
int *ierr )
|
|
{
|
|
*ierr = (int) ( HYPRE_BoomerAMGSetMaxIter( (HYPRE_Solver) *solver,
|
|
(int) *max_iter ) );
|
|
}
|
|
|
|
/*--------------------------------------------------------------------------
|
|
* HYPRE_BoomerAMGSetCoarsenType
|
|
*--------------------------------------------------------------------------*/
|
|
|
|
void
|
|
hypre_F90_IFACE(hypre_boomeramgsetcoarsentype)( long int *solver,
|
|
int *coarsen_type,
|
|
int *ierr )
|
|
{
|
|
*ierr = (int) ( HYPRE_BoomerAMGSetCoarsenType( (HYPRE_Solver) *solver,
|
|
(int) *coarsen_type ) );
|
|
}
|
|
|
|
/*--------------------------------------------------------------------------
|
|
* HYPRE_BoomerAMGSetMeasureType
|
|
*--------------------------------------------------------------------------*/
|
|
|
|
void
|
|
hypre_F90_IFACE(hypre_boomeramgsetmeasuretype)( long int *solver,
|
|
int *measure_type,
|
|
int *ierr )
|
|
{
|
|
*ierr = (int) ( HYPRE_BoomerAMGSetMeasureType( (HYPRE_Solver) *solver,
|
|
(int) *measure_type ) );
|
|
}
|
|
|
|
/*--------------------------------------------------------------------------
|
|
* HYPRE_BoomerAMGSetSetupType
|
|
*--------------------------------------------------------------------------*/
|
|
|
|
void
|
|
hypre_F90_IFACE(hypre_boomeramgsetsetuptype)( long int *solver,
|
|
int *setup_type,
|
|
int *ierr )
|
|
{
|
|
*ierr = (int) ( HYPRE_BoomerAMGSetSetupType( (HYPRE_Solver) *solver,
|
|
(int) *setup_type ) );
|
|
}
|
|
|
|
/*--------------------------------------------------------------------------
|
|
* HYPRE_BoomerAMGSetCycleType
|
|
*--------------------------------------------------------------------------*/
|
|
|
|
void
|
|
hypre_F90_IFACE(hypre_boomeramgsetcycletype)( long int *solver,
|
|
int *cycle_type,
|
|
int *ierr )
|
|
{
|
|
*ierr = (int) ( HYPRE_BoomerAMGSetCycleType( (HYPRE_Solver) *solver,
|
|
(int) *cycle_type ) );
|
|
}
|
|
|
|
/*--------------------------------------------------------------------------
|
|
* HYPRE_BoomerAMGSetTol
|
|
*--------------------------------------------------------------------------*/
|
|
|
|
void
|
|
hypre_F90_IFACE(hypre_boomeramgsettol)( long int *solver,
|
|
double *tol,
|
|
int *ierr )
|
|
{
|
|
*ierr = (int) ( HYPRE_BoomerAMGSetTol( (HYPRE_Solver) *solver,
|
|
(double) *tol ) );
|
|
}
|
|
|
|
/*--------------------------------------------------------------------------
|
|
* HYPRE_BoomerAMGSetNumGridSweeps
|
|
*--------------------------------------------------------------------------*/
|
|
|
|
void
|
|
hypre_F90_IFACE(hypre_boomeramgsetnumgridsweeps)( long int *solver,
|
|
long int *num_grid_sweeps,
|
|
int *ierr )
|
|
{
|
|
*ierr = (int) ( HYPRE_BoomerAMGSetNumGridSweeps(
|
|
(HYPRE_Solver) *solver,
|
|
(int *) *((int **)(*num_grid_sweeps)) ) );
|
|
}
|
|
|
|
/*--------------------------------------------------------------------------
|
|
* HYPRE_BoomerAMGInitGridRelaxation
|
|
*--------------------------------------------------------------------------*/
|
|
|
|
void
|
|
hypre_F90_IFACE(hypre_boomeramginitgridrelaxatn)( long int *num_grid_sweeps,
|
|
long int *grid_relax_type,
|
|
long int *grid_relax_points,
|
|
int *coarsen_type,
|
|
long int *relax_weights,
|
|
int *max_levels,
|
|
int *ierr )
|
|
{
|
|
*num_grid_sweeps = (long int) hypre_CTAlloc(int*, 1);
|
|
*grid_relax_type = (long int) hypre_CTAlloc(int*, 1);
|
|
*grid_relax_points = (long int) hypre_CTAlloc(int**, 1);
|
|
*relax_weights = (long int) hypre_CTAlloc(double*, 1);
|
|
|
|
*ierr = (int) ( HYPRE_BoomerAMGInitGridRelaxation( (int **) *num_grid_sweeps,
|
|
(int **) *grid_relax_type,
|
|
(int ***) *grid_relax_points,
|
|
(int) *coarsen_type,
|
|
(double **) *relax_weights,
|
|
(int) *max_levels ) );
|
|
|
|
}
|
|
|
|
/*--------------------------------------------------------------------------
|
|
* HYPRE_BoomerAMGSetGridRelaxType
|
|
*--------------------------------------------------------------------------*/
|
|
|
|
void
|
|
hypre_F90_IFACE(hypre_boomeramgsetgridrelaxtype)( long int *solver,
|
|
long int *grid_relax_type,
|
|
int *ierr )
|
|
{
|
|
*ierr = (int) ( HYPRE_BoomerAMGSetGridRelaxType(
|
|
(HYPRE_Solver) *solver,
|
|
(int *) *((int **)(*grid_relax_type)) ) );
|
|
}
|
|
|
|
/*--------------------------------------------------------------------------
|
|
* HYPRE_BoomerAMGSetGridRelaxPoints
|
|
*--------------------------------------------------------------------------*/
|
|
|
|
void
|
|
hypre_F90_IFACE(hypre_boomeramgsetgridrelaxpnts)( long int *solver,
|
|
long int *grid_relax_points,
|
|
int *ierr )
|
|
{
|
|
*ierr = (int) ( HYPRE_BoomerAMGSetGridRelaxPoints(
|
|
(HYPRE_Solver) *solver,
|
|
(int **) *((int ***)(*grid_relax_points)) ) );
|
|
|
|
}
|
|
|
|
/*--------------------------------------------------------------------------
|
|
* HYPRE_BoomerAMGSetRelaxWeight
|
|
*--------------------------------------------------------------------------*/
|
|
|
|
void
|
|
hypre_F90_IFACE(hypre_boomeramgsetrelaxweight)( long int *solver,
|
|
long int *relax_weights,
|
|
int *ierr )
|
|
{
|
|
*ierr = (int) ( HYPRE_BoomerAMGSetRelaxWeight(
|
|
(HYPRE_Solver) *solver,
|
|
(double *) *((double **)(*relax_weights)) ) );
|
|
}
|
|
|
|
/*--------------------------------------------------------------------------
|
|
* HYPRE_BoomerAMGSetIOutDat
|
|
*--------------------------------------------------------------------------*/
|
|
|
|
void
|
|
hypre_F90_IFACE(hypre_boomeramgsetioutdat)( long int *solver,
|
|
int *ioutdat,
|
|
int *ierr )
|
|
{
|
|
*ierr = (int) ( HYPRE_BoomerAMGSetIOutDat( (HYPRE_Solver) *solver,
|
|
(int) *ioutdat ) );
|
|
}
|
|
|
|
/*--------------------------------------------------------------------------
|
|
* HYPRE_BoomerAMGSetLogFileName
|
|
*--------------------------------------------------------------------------*/
|
|
|
|
void
|
|
hypre_F90_IFACE(hypre_boomeramgsetlogfilename)( long int *solver,
|
|
char *log_file_name,
|
|
int *ierr )
|
|
{
|
|
*ierr = (int) ( HYPRE_BoomerAMGSetLogFileName( (HYPRE_Solver) *solver,
|
|
(char *) log_file_name ) );
|
|
}
|
|
|
|
/*--------------------------------------------------------------------------
|
|
* HYPRE_BoomerAMGSetLogging
|
|
*--------------------------------------------------------------------------*/
|
|
|
|
void
|
|
hypre_F90_IFACE(hypre_boomeramgsetlogging)( long int *solver,
|
|
int *ioutdat,
|
|
char *log_file_name,
|
|
int *ierr )
|
|
{
|
|
*ierr = (int) ( HYPRE_BoomerAMGSetLogging( (HYPRE_Solver) *solver,
|
|
(int) *ioutdat,
|
|
(char *) log_file_name ) );
|
|
}
|
|
|
|
/*--------------------------------------------------------------------------
|
|
* HYPRE_BoomerAMGSetDebugFlag
|
|
*--------------------------------------------------------------------------*/
|
|
|
|
void
|
|
hypre_F90_IFACE(hypre_boomeramgsetdebugflag)( long int *solver,
|
|
int *debug_flag,
|
|
int *ierr )
|
|
{
|
|
*ierr = (int) ( HYPRE_BoomerAMGSetDebugFlag( (HYPRE_Solver) *solver,
|
|
(int) *debug_flag ) );
|
|
}
|
|
|
|
/*--------------------------------------------------------------------------
|
|
* HYPRE_BoomerAMGGetNumIterations
|
|
*--------------------------------------------------------------------------*/
|
|
|
|
void
|
|
hypre_F90_IFACE(hypre_boomeramggetnumiterations)( long int *solver,
|
|
int *num_iterations,
|
|
int *ierr )
|
|
{
|
|
*ierr = (int) ( HYPRE_BoomerAMGGetNumIterations( (HYPRE_Solver) *solver,
|
|
(int *) num_iterations ) );
|
|
}
|
|
|
|
/*--------------------------------------------------------------------------
|
|
* HYPRE_ParAMGGetFinalRelativeRes
|
|
*--------------------------------------------------------------------------*/
|
|
|
|
void
|
|
hypre_F90_IFACE(hypre_boomeramggetfinalreltvres)( long int *solver,
|
|
double *rel_resid_norm,
|
|
int *ierr )
|
|
{
|
|
*ierr = (int) ( HYPRE_BoomerAMGGetFinalRelativeResidualNorm(
|
|
(HYPRE_Solver) *solver,
|
|
(double *) rel_resid_norm ) );
|
|
}
|