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

Add a fortran function to set the restart parameter for GMRES.

Browse Source
This commit is contained in:
baker59 2009-07-02 18:57:45 +00:00
parent c10de685d0
commit ea0b06f460
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
struct_ls/F90_HYPRE_struct_gmres.c
View File

@ -76,7 +76,19 @@ hypre_F90_IFACE(hypre_structgmressolve, HYPRE_STRUCTGMRESSOLVE)( long int *solve
(HYPRE_StructVector) *b,
(HYPRE_StructVector) *x ) );
}
/*--------------------------------------------------------------------------
* HYPRE_StructGMRESSetKDim
*--------------------------------------------------------------------------*/
void
hypre_F90_IFACE(hypre_structgmressetkdim, HYPRE_STRUCTGMRESSETKDIM)
(long int *solver,
int *k_dim,
int *ierr)
{
*ierr = (int) (HYPRE_StructGMRESSetKDim( (HYPRE_StructSolver) *solver,
(int) *k_dim ));
}
/*--------------------------------------------------------------------------
* HYPRE_StructGMRESSetTol
*--------------------------------------------------------------------------*/