void hypre_F90_IFACE(hypre_structpfmggetfinalrelativ, HYPRE_STRUCTPFMGGETFINALRELATIV) ( hypre_F90_Obj *solver, hypre_F90_Dbl *norm, hypre_F90_Int *ierr ) { *ierr = (hypre_F90_Int) ( HYPRE_StructPFMGGetFinalRelativeResidualNorm( hypre_F90_PassObj (HYPRE_StructSolver, solver), hypre_F90_PassDblRef (norm) ) ); }
void hypre_F90_IFACE(hypre_sstructflexgmresgetfinalrelat, HYPRE_SSTRUCTFLEXGMRESGETFINALRELAT) (hypre_F90_Obj *solver, hypre_F90_Dbl *norm, hypre_F90_Int *ierr) { *ierr = (hypre_F90_Int) (HYPRE_SStructFlexGMRESGetFinalRelativeResidualNorm( hypre_F90_PassObj (HYPRE_SStructSolver, solver), hypre_F90_PassDblRef (norm) ) ); }
void hypre_F90_IFACE(hypre_structpfmggettol, HYPRE_STRUCTPFMGGETTOL) ( hypre_F90_Obj *solver, hypre_F90_Dbl *tol, hypre_F90_Int *ierr ) { *ierr = (hypre_F90_Int) ( HYPRE_StructPFMGGetTol( hypre_F90_PassObj (HYPRE_StructSolver, solver), hypre_F90_PassDblRef (tol) ) ); }
void hypre_F90_IFACE(hypre_sstructmaxwellgetfinalrel, HYPRE_SSTRUCTMAXWELLGETFINALREL) (hypre_F90_Obj *solver, hypre_F90_Dbl *norm, hypre_F90_Int *ierr) { *ierr = (hypre_F90_Int) ( HYPRE_SStructMaxwellGetFinalRelativeResidualNorm( hypre_F90_PassObj (HYPRE_SStructSolver, solver), hypre_F90_PassDblRef (norm) )); }
void hypre_F90_IFACE(hypre_sstructsyspfmggetfinalrel, HYPRE_SSTRUCTSYSPFMGGETFINALREL) (hypre_F90_Obj *solver, hypre_F90_Dbl *norm, hypre_F90_Int *ierr) { *ierr = (hypre_F90_Int) (HYPRE_SStructSysPFMGGetFinalRelativeResidualNorm( hypre_F90_PassObj (HYPRE_SStructSolver, solver), hypre_F90_PassDblRef (norm) )); }
void hypre_F90_IFACE(hypre_structjacobigetfinalrelat, HYPRE_STRUCTJACOBIGETFINALRELAT) ( hypre_F90_Obj *solver, hypre_F90_Dbl *norm, hypre_F90_Int *ierr ) { *ierr = (hypre_F90_Int) ( HYPRE_StructJacobiGetFinalRelativeResidualNorm( hypre_F90_PassObj (HYPRE_StructSolver, solver), hypre_F90_PassDblRef (norm) ) ); }
void hypre_F90_IFACE(hypre_structbicgstabgetfinalrel, HYPRE_STRUCTBICGSTABGETFINALREL) ( hypre_F90_Obj *solver, hypre_F90_Dbl *norm, hypre_F90_Int *ierr ) { *ierr = (hypre_F90_Int) ( HYPRE_StructBiCGSTABGetFinalRelativeResidualNorm( hypre_F90_PassObj (HYPRE_StructSolver, solver), hypre_F90_PassDblRef (norm) ) ); }
void hypre_F90_IFACE(hypre_structjacobigettol, HYPRE_STRUCTJACOBIGETTOL) ( hypre_F90_Obj *solver, hypre_F90_Dbl *tol, hypre_F90_Int *ierr ) { *ierr = (hypre_F90_Int) ( HYPRE_StructJacobiGetTol( hypre_F90_PassObj (HYPRE_StructSolver, solver), hypre_F90_PassDblRef (tol) ) ); }
void hypre_F90_IFACE(hypre_sstructsplitgetfinalrelat, HYPRE_SSTRUCTSPLITGETFINALRELAT) (hypre_F90_Obj *solver, hypre_F90_Dbl *norm, hypre_F90_Int *ierr) { *ierr = (hypre_F90_Int) (HYPRE_SStructSplitGetFinalRelativeResidualNorm( hypre_F90_PassObj (HYPRE_SStructSolver, solver), hypre_F90_PassDblRef (norm) ) ); }
void hypre_F90_IFACE(hypre_parcsrflexgmresgetfinalrelati, HYPRE_PARCSRFLEXGMRESGETFINALRELATI) ( hypre_F90_Obj *solver, hypre_F90_Dbl *norm, hypre_F90_Int *ierr ) { *ierr = (hypre_F90_Int) ( HYPRE_ParCSRFlexGMRESGetFinalRelativeResidualNorm( hypre_F90_PassObj (HYPRE_Solver, solver), hypre_F90_PassDblRef (norm) ) ); }
void hypre_F90_IFACE(hypre_sstructinnerprod, HYPRE_SSTRUCTINNERPROD) (hypre_F90_Obj *x, hypre_F90_Obj *y, hypre_F90_Dbl *result, hypre_F90_Int *ierr) { *ierr = (hypre_F90_Int) (HYPRE_SStructInnerProd( hypre_F90_PassObj (HYPRE_SStructVector, x), hypre_F90_PassObj (HYPRE_SStructVector, y), hypre_F90_PassDblRef (result) ) ); }
void hypre_F90_IFACE(hypre_sstructvectoraddtovalues, HYPRE_SSTRUCTVECTORADDTOVALUES) (hypre_F90_Obj *vector, hypre_F90_Int *part, hypre_F90_IntArray *index, hypre_F90_Int *var, hypre_F90_Dbl *value, hypre_F90_Int *ierr) { *ierr = (hypre_F90_Int) (HYPRE_SStructVectorAddToValues( hypre_F90_PassObj (HYPRE_SStructVector, vector), hypre_F90_PassInt (part), hypre_F90_PassIntArray (index), hypre_F90_PassInt (var), hypre_F90_PassDblRef (value) ) ); }