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

added a few functions to make them accessible for Fortran users

Browse Source
This commit is contained in:
ulrikey 2008-07-24 22:13:08 +00:00
parent 6015f664f8
commit 74729cd858
1 changed files with 66 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
parcsr_ls/F90_HYPRE_parcsr_amg.c
View File

@ -979,6 +979,16 @@ hypre_F90_IFACE(hypre_boomeramggetdomaintype, HYPRE_BOOMERAMGGETDOMAINTYPE)(
(int *) domain_type ) );
}
void
hypre_F90_IFACE(hypre_boomeramgsetschwarznonsym, HYPRE_BOOMERAMGSETSCHWARZNONSYM)(
long int *solver,
int *schwarz_non_symm,
int *ierr )
{
*ierr = (int) ( HYPRE_BoomerAMGSetSchwarzUseNonSymm( (HYPRE_Solver) *solver,
(int) *schwarz_non_symm ) );
}
/*--------------------------------------------------------------------------
* HYPRE_BoomerAMGSetSchwarzRlxWt, HYPRE_BoomerAMGGetSchwarzRlxWt
*--------------------------------------------------------------------------*/
@ -1090,6 +1100,48 @@ hypre_F90_IFACE(hypre_boomeramgsetmaxnzperrow, HYPRE_BOOMERAMGSETMAXNZPERROW)(
(int) *max_nz_per_row ) );
}
/*--------------------------------------------------------------------------
* HYPRE_BoomerAMGSetEuBJ
*--------------------------------------------------------------------------*/
void
hypre_F90_IFACE(hypre_boomeramgseteubj, HYPRE_BOOMERAMGSETEUBJ)(
long int *solver,
int *eu_bj,
int *ierr )
{
*ierr = (int) ( HYPRE_BoomerAMGSetEuBJ( (HYPRE_Solver) *solver,
(int) *eu_bj ) );
}
/*--------------------------------------------------------------------------
* HYPRE_BoomerAMGSetEuLevel
*--------------------------------------------------------------------------*/
void
hypre_F90_IFACE(hypre_boomeramgseteulevel, HYPRE_BOOMERAMGSETEULEVEL)(
long int *solver,
int *eu_level,
int *ierr )
{
*ierr = (int) ( HYPRE_BoomerAMGSetEuLevel( (HYPRE_Solver) *solver,
(int) *eu_level ) );
}
/*--------------------------------------------------------------------------
* HYPRE_BoomerAMGSetEuSparseA
*--------------------------------------------------------------------------*/
void
hypre_F90_IFACE(hypre_boomeramgseteusparsea, HYPRE_BOOMERAMGSETEUSPARSEA)(
long int *solver,
double *eu_sparse_a,
int *ierr )
{
*ierr = (int) ( HYPRE_BoomerAMGSetEuSparseA( (HYPRE_Solver) *solver,
(double) *eu_sparse_a) );
}
/*--------------------------------------------------------------------------
* HYPRE_BoomerAMGSetEuclidFile
*--------------------------------------------------------------------------*/
@ -1157,6 +1209,20 @@ 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
*--------------------------------------------------------------------------*/