CFD/hypre
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Updating the fortran interface.

Browse Source
This commit is contained in:
baker59 2010-01-14 18:31:36 +00:00
parent 9f26a7739a
commit a11e27ff7d
4 changed files with 265 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
parcsr_ls/F90_HYPRE_parcsr_Euclid.c
View File

@ -97,3 +97,45 @@ hypre_F90_IFACE(hypre_euclidsetparamsfromfile, HYPRE_EUCLIDSETPARAMSFROMFILE)
*ierr = (int) HYPRE_EuclidSetParamsFromFile( (HYPRE_Solver) *solver,
(char *) filename );
}
/*--------------------------------------------------------------------------
* HYPRE_EuclidSetLevel
*--------------------------------------------------------------------------*/
void
hypre_F90_IFACE(hypre_euclidsetlevel, HYPRE_EUCLIDSETLEVEL)(
long int *solver,
int *eu_level,
int *ierr )
{
*ierr = (int) ( HYPRE_EuclidSetLevel( (HYPRE_Solver) *solver,
(int) *eu_level ) );
}
/*--------------------------------------------------------------------------
* HYPRE_EuclidSetBJ
*--------------------------------------------------------------------------*/
void
hypre_F90_IFACE(hypre_euclidsetbj, HYPRE_EUCLIDSETBJ)(
long int *solver,
int *bj,
int *ierr )
{
*ierr = (int) ( HYPRE_EuclidSetBJ( (HYPRE_Solver) *solver,
(int) *bj ) );
}
/*--------------------------------------------------------------------------
* HYPRE_EuclidSetSparseA
*--------------------------------------------------------------------------*/
void
hypre_F90_IFACE(hypre_euclidsetsparsea, HYPRE_EUCLIDSETSPARSEA)(
long int *solver,
double *spa,
int *ierr )
{
*ierr = (int) ( HYPRE_EuclidSetSparseA( (HYPRE_Solver) *solver,
(double) *spa ) );
}

208
parcsr_ls/F90_HYPRE_parcsr_amg.c
View File

@ -139,6 +139,36 @@ hypre_F90_IFACE(hypre_boomeramggetmaxlevels, HYPRE_BOOMERAMGGETMAXLEVELS)(
(int *) max_levels ) );
}
/*--------------------------------------------------------------------------
* HYPRE_BoomerAMGSetMaxCoarseSize, HYPRE_BoomerAMGGetMaxCoarseSize
*--------------------------------------------------------------------------*/
void
hypre_F90_IFACE(hypre_boomeramgsetmaxcoarsesize, HYPRE_BOOMERAMGSETMAXCOARSESIZE)(
long int *solver,
int *max_coarse_size,
int *ierr )
{
*ierr = (int) ( HYPRE_BoomerAMGSetMaxCoarseSize( (HYPRE_Solver) *solver,
(int) *max_coarse_size ) );
}
void
hypre_F90_IFACE(hypre_boomeramggetmaxcoarsesize, HYPRE_BOOMERAMGGETMAXCOARSESIZE)(
long int *solver,
int *max_coarse_size,
int *ierr )
{
*ierr = (int) ( HYPRE_BoomerAMGGetMaxCoarseSize( (HYPRE_Solver) *solver,
(int *) max_coarse_size ) );
}
/*--------------------------------------------------------------------------
* HYPRE_BoomerAMGSetStrongThreshold, HYPRE_BoomerAMGGetStrongThreshold
*--------------------------------------------------------------------------*/
@ -215,6 +245,72 @@ hypre_F90_IFACE(hypre_boomeramggettruncfactor, HYPRE_BOOMERAMGGETTRUNCFACTOR)(
(double *) trunc_factor ) );
}
/*--------------------------------------------------------------------------
* HYPRE_BoomerAMGSetPMaxElmts
*--------------------------------------------------------------------------*/
void
hypre_F90_IFACE(hypre_boomeramgsetpmaxelmts, HYPRE_BOOMERAMGSETPMAXELMTS)(
long int *solver,
int *p_max_elmts,
int *ierr )
{
*ierr = (int) ( HYPRE_BoomerAMGSetPMaxElmts( (HYPRE_Solver) *solver,
(int) *p_max_elmts ) );
}
void
hypre_F90_IFACE(hypre_boomeramggetpmaxelmts, HYPRE_BOOMERAMGGETPMAXELMTS)(
long int *solver,
int *p_max_elmts,
int *ierr )
{
*ierr = (int) ( HYPRE_BoomerAMGGetPMaxElmts( (HYPRE_Solver) *solver,
(int *) p_max_elmts ) );
}
/*--------------------------------------------------------------------------
* HYPRE_BoomerAMGSetJacobiTruncThreshold, HYPRE_BoomerAMGGetJacobiTruncThreshold
*--------------------------------------------------------------------------*/
void
hypre_F90_IFACE(hypre_boomeramgsetjacobitrunc, HYPRE_BOOMERAMGSETJACOBITRUNC)(
long int *solver,
double *trunc_factor,
int *ierr )
{
*ierr = (int) ( HYPRE_BoomerAMGSetJacobiTruncThreshold( (HYPRE_Solver) *solver,
(double) *trunc_factor ) );
}
void
hypre_F90_IFACE(hypre_boomeramggetjacobitrunc, HYPRE_BOOMERAMGGETJACOBITRUNC)(
long int *solver,
double *trunc_factor,
int *ierr )
{
*ierr = (int) ( HYPRE_BoomerAMGGetJacobiTruncThreshold( (HYPRE_Solver) *solver,
(double *) trunc_factor ) );
}
/*--------------------------------------------------------------------------
* HYPRE_BoomerAMGSetPostInterpType, HYPRE_BoomerAMGGetPostInterpType
* If >0, specifies something to do to improve a computed interpolation matrix.
* defaults to 0, for nothing.
*--------------------------------------------------------------------------*/
void
hypre_F90_IFACE(hypre_boomeramgsetpostinterp, HYPRE_BOOMERAMGSETPOSTINTERP)(
long int *solver,
int *type,
int *ierr )
{
*ierr = (int) ( HYPRE_BoomerAMGSetPostInterpType(
(HYPRE_Solver) *solver,
(int) *type ) );
}
/*--------------------------------------------------------------------------
* HYPRE_BoomerAMGSetSCommPkgSwitch
*--------------------------------------------------------------------------*/
@ -244,6 +340,18 @@ hypre_F90_IFACE(hypre_boomeramgsetinterptype, HYPRE_BOOMERAMGSETINTERPTYPE)(
*ierr = (int) ( HYPRE_BoomerAMGSetInterpType( (HYPRE_Solver) *solver,
(int) *interp_type ) );
}
/*--------------------------------------------------------------------------
* HYPRE_BoomerAMGSetSepWeight
*--------------------------------------------------------------------------*/
void
hypre_F90_IFACE(hypre_boomeramgsetsepweight, HYPRE_BOOMERAMGSETSEPWEIGHT)(
long int *solver,
int *sep_weight,
int *ierr )
{
*ierr = (int) ( HYPRE_BoomerAMGSetSepWeight( (HYPRE_Solver) *solver,
(int) *sep_weight ) );
}
/*--------------------------------------------------------------------------
* HYPRE_BoomerAMGSetMinIter
@ -652,6 +760,9 @@ hypre_F90_IFACE(hypre_boomeramgsetlevelrelaxwt, HYPRE_BOOMERAMGSETLEVELRELAXWT)(
(int) *level ) );
}
/*--------------------------------------------------------------------------
* HYPRE_BoomerAMGSetOuterWt
*--------------------------------------------------------------------------*/
@ -1209,19 +1320,7 @@ hypre_F90_IFACE(hypre_boomeramgsetdoffunc, HYPRE_BOOMERAMGSETDOFFUNC)(
(int *) dof_func ) );
}
/*--------------------------------------------------------------------------
* HYPRE_BoomerAMGSetPMaxElmts
*--------------------------------------------------------------------------*/
void
hypre_F90_IFACE(hypre_boomeramgsetpmaxelmts, HYPRE_BOOMERAMGSETPMAXELMTS)(
long int *solver,
int *p_max_elmts,
int *ierr )
{
*ierr = (int) ( HYPRE_BoomerAMGSetPMaxElmts( (HYPRE_Solver) *solver,
(int) *p_max_elmts ) );
}
/*--------------------------------------------------------------------------
* HYPRE_BoomerAMGSetNumPaths
@ -1252,6 +1351,76 @@ hypre_F90_IFACE(hypre_boomeramgsetaggnumlevels, HYPRE_BOOMERAMGSETAGGNUMLEVELS)(
(int) *agg_num_levels ) );
}
/*--------------------------------------------------------------------------
* HYPRE_BoomerAMGSetAggInterpType
*--------------------------------------------------------------------------*/
void
hypre_F90_IFACE(hypre_boomeramgsetagginterptype, HYPRE_BOOMERAMGSETAGGINTERPTYPE)(
long int *solver,
int *agg_interp_type,
int *ierr )
{
*ierr = (int) ( HYPRE_BoomerAMGSetAggInterpType(
(HYPRE_Solver) *solver,
(int) *agg_interp_type ) );
}
/*--------------------------------------------------------------------------
* HYPRE_BoomerAMGSetAggTruncFactor
*--------------------------------------------------------------------------*/
void
hypre_F90_IFACE(hypre_boomeramgsetaggtruncfactor, HYPRE_BOOMERAMGSETAGGTRUNCFACTOR)(
long int *solver,
double *trunc_factor,
int *ierr )
{
*ierr = (int) ( HYPRE_BoomerAMGSetAggTruncFactor( (HYPRE_Solver) *solver,
(double) *trunc_factor ) );
}
/*--------------------------------------------------------------------------
* HYPRE_BoomerAMGSetAggP12TruncFactor
*--------------------------------------------------------------------------*/
void
hypre_F90_IFACE(hypre_boomeramgsetaggptruncftr, HYPRE_BOOMERAMGSETAGGPTRUNCFTR)(
long int *solver,
double *trunc_factor,
int *ierr )
{
*ierr = (int) ( HYPRE_BoomerAMGSetAggP12TruncFactor( (HYPRE_Solver) *solver,
(double) *trunc_factor ) );
}
/*--------------------------------------------------------------------------
* HYPRE_BoomerAMGSetAggPMaxElmts
*--------------------------------------------------------------------------*/
void
hypre_F90_IFACE(hypre_boomeramgsetaggpmaxelmts, HYPRE_BOOMERAMGSETAGGPMAXELMTS)(
long int *solver,
int *p_max_elmts,
int *ierr )
{
*ierr = (int) ( HYPRE_BoomerAMGSetAggPMaxElmts( (HYPRE_Solver) *solver,
(int) *p_max_elmts ) );
}
/*--------------------------------------------------------------------------
* HYPRE_BoomerAMGSetAggP12MaxElmts
*--------------------------------------------------------------------------*/
void
hypre_F90_IFACE(hypre_boomeramgsetaggp12maxelmts, HYPRE_BOOMERAMGSETAGGP12MAXELMTS)(
long int *solver,
int *p_max_elmts,
int *ierr )
{
*ierr = (int) ( HYPRE_BoomerAMGSetAggP12MaxElmts( (HYPRE_Solver) *solver,
(int) *p_max_elmts ) );
}
/*--------------------------------------------------------------------------
* HYPRE_BoomerAMGSetGSMG
*--------------------------------------------------------------------------*/
@ -1281,3 +1450,18 @@ hypre_F90_IFACE(hypre_boomeramgsetnumsamples, HYPRE_BOOMERAMGSETNUMSAMPLES)(
(HYPRE_Solver) *solver,
(int) *gsmg ) );
}
/*--------------------------------------------------------------------------
* HYPRE_BoomerAMGSetCGCIts
*--------------------------------------------------------------------------*/
void
hypre_F90_IFACE(hypre_boomeramgsetcgcits, HYPRE_BOOMERAMGSETCGCITS)(
long int *solver,
int *its,
int *ierr )
{
*ierr = (int) ( HYPRE_BoomerAMGSetCGCIts(
(HYPRE_Solver) *solver,
(int) *its ) );
}

14
parcsr_ls/F90_HYPRE_parcsr_bicgstab.c
View File

@ -93,6 +93,20 @@ hypre_F90_IFACE(hypre_parcsrbicgstabsettol, HYPRE_PARCSRBICGSTABSETTOL)( long in
*ierr = (int) ( HYPRE_ParCSRBiCGSTABSetTol( (HYPRE_Solver) *solver,
(double) *tol ) );
}
/*--------------------------------------------------------------------------
* HYPRE_ParCSRBiCGSTABSetAbsoluteTol
*--------------------------------------------------------------------------*/
void
hypre_F90_IFACE(hypre_parcsrbicgstabsetatol, HYPRE_PARCSRBICGSTABSETATOL)( long int *solver,
double *tol,
int *ierr )
{
*ierr = (int) ( HYPRE_ParCSRBiCGSTABSetAbsoluteTol( (HYPRE_Solver) *solver,
(double) *tol ) );
}
/*--------------------------------------------------------------------------
* HYPRE_ParCSRBiCGSTABSetMinIter

13
parcsr_ls/F90_HYPRE_parcsr_pcg.c
View File

@ -93,6 +93,19 @@ hypre_F90_IFACE(hypre_parcsrpcgsettol, HYPRE_PARCSRPCGSETTOL)( long int *solver,
*ierr = (int) ( HYPRE_ParCSRPCGSetTol( (HYPRE_Solver) *solver,
(double) *tol ) );
}
/*--------------------------------------------------------------------------
* HYPRE_ParCSRPCGSetAbsoluteTol
*-------------------------------------------------------------------*/
void
hypre_F90_IFACE(hypre_parcsrpcgsetatol, HYPRE_PARCSRPCGSETATOL)( long int *solver,
double *tol,
int *ierr )
{
*ierr = (int) ( HYPRE_ParCSRPCGSetAbsoluteTol( (HYPRE_Solver) *solver,
(double) *tol ) );
}
/*--------------------------------------------------------------------------
* HYPRE_ParCSRPCGSetMaxIter