void hypre_F90_IFACE(hypre_structgridsetextents, HYPRE_STRUCTGRIDSETEXTENTS) ( hypre_F90_Obj *grid, hypre_F90_IntArray *ilower, hypre_F90_IntArray *iupper, hypre_F90_Int *ierr ) { *ierr = (hypre_F90_Int) ( HYPRE_StructGridSetExtents( hypre_F90_PassObj (HYPRE_StructGrid, grid), hypre_F90_PassIntArray (ilower), hypre_F90_PassIntArray (iupper) ) ); }
void hypre_F90_IFACE(hypre_sstructgridsetsharedpart, HYPRE_SSTRUCTGRIDSETSHAREDPART) (hypre_F90_Obj *grid, hypre_F90_Int *part, hypre_F90_IntArray *ilower, hypre_F90_IntArray *iupper, hypre_F90_IntArray *offset, hypre_F90_Int *shared_part, hypre_F90_IntArray *shared_ilower, hypre_F90_IntArray *shared_iupper, hypre_F90_IntArray *shared_offset, hypre_F90_IntArray *index_map, hypre_F90_IntArray *index_dir, hypre_F90_Int *ierr) { *ierr = (hypre_F90_Int) HYPRE_SStructGridSetSharedPart( hypre_F90_PassObj (HYPRE_SStructGrid, grid), hypre_F90_PassInt (part), hypre_F90_PassIntArray (ilower), hypre_F90_PassIntArray (iupper), hypre_F90_PassIntArray (offset), hypre_F90_PassInt (shared_part), hypre_F90_PassIntArray (shared_ilower), hypre_F90_PassIntArray (shared_iupper), hypre_F90_PassIntArray (shared_offset), hypre_F90_PassIntArray (index_map), hypre_F90_PassIntArray (index_dir) ); }
void hypre_F90_IFACE(hypre_structvectorsetboxvalues, HYPRE_STRUCTVECTORSETBOXVALUES) ( hypre_F90_Obj *vector, hypre_F90_IntArray *ilower, hypre_F90_IntArray *iupper, hypre_F90_ComplexArray *values, hypre_F90_Int *ierr ) { *ierr = (hypre_F90_Int) ( HYPRE_StructVectorSetBoxValues( hypre_F90_PassObj (HYPRE_StructVector, vector), hypre_F90_PassIntArray (ilower), hypre_F90_PassIntArray (iupper), hypre_F90_PassComplexArray (values) ) ); }
void hypre_F90_IFACE(hypre_structvectoraddtoboxvalue, HYPRE_STRUCTVECTORADDTOBOXVALUE) ( hypre_F90_Obj *vector, hypre_F90_IntArray *ilower, hypre_F90_IntArray *iupper, hypre_F90_ComplexArray *values, hypre_F90_Int *ierr ) { *ierr = (hypre_F90_Int) ( HYPRE_StructVectorAddToBoxValues( hypre_F90_PassObj (HYPRE_StructVector, vector), hypre_F90_PassIntArray (ilower), hypre_F90_PassIntArray (iupper), hypre_F90_PassComplexArray (values) ) ); }
void hypre_F90_IFACE(hypre_sstructgridaddvariables, HYPRE_SSTRUCTGRIDADDVARIABLES) (hypre_F90_Obj *grid, hypre_F90_Int *part, hypre_F90_IntArray *index, hypre_F90_Int *nvars, hypre_F90_IntArray *vartypes, hypre_F90_Int *ierr) { *ierr = (hypre_F90_Int) HYPRE_SStructGridAddVariables( hypre_F90_PassObj(HYPRE_SStructGrid, grid), hypre_F90_PassInt(part), hypre_F90_PassIntArray(index), hypre_F90_PassInt(nvars), hypre_F90_PassIntArray(vartypes)); }
void hypre_F90_IFACE(hypre_sstructvectoraddtoboxvalu, HYPRE_SSTRUCTVECTORADDTOBOXVALU) (hypre_F90_Obj *vector, hypre_F90_Int *part, hypre_F90_IntArray *ilower, hypre_F90_IntArray *iupper, hypre_F90_Int *var, hypre_F90_DblArray *values, hypre_F90_Int *ierr) { *ierr = (hypre_F90_Int) (HYPRE_SStructVectorAddToBoxValues( hypre_F90_PassObj (HYPRE_SStructVector, vector), hypre_F90_PassInt (part), hypre_F90_PassIntArray (ilower), hypre_F90_PassIntArray (iupper), hypre_F90_PassInt (var), hypre_F90_PassDblArray (values) ) ); }
void hypre_F90_IFACE(hypre_sstructgridsetnumghost, HYPRE_SSTRUCTGRIDSETNUMGHOST) (hypre_F90_Obj *grid, hypre_F90_IntArray *num_ghost, hypre_F90_Int *ierr) { *ierr = (hypre_F90_Int) HYPRE_SStructGridSetNumGhost( hypre_F90_PassObj (HYPRE_SStructGrid, grid), hypre_F90_PassIntArray (num_ghost) ); }
void hypre_F90_IFACE(hypre_sstructvectorgetboxvalues, HYPRE_SSTRUCTVECTORGETBOXVALUES) (hypre_F90_Obj *vector, hypre_F90_Int *part, hypre_F90_IntArray *ilower, hypre_F90_IntArray *iupper, hypre_F90_Int *var, hypre_F90_ComplexArray *values, hypre_F90_Int *ierr) { *ierr = (hypre_F90_Int) (HYPRE_SStructVectorGetBoxValues( (HYPRE_SStructVector ) *vector, hypre_F90_PassInt (part), hypre_F90_PassIntArray (ilower), hypre_F90_PassIntArray (iupper), hypre_F90_PassInt (var), hypre_F90_PassComplexArray (values) ) ); }
void hypre_F90_IFACE(hypre_sstructvectorsetboxvalues, HYPRE_SSTRUCTVECTORSETBOXVALUES) (hypre_F90_Obj *vector, hypre_F90_Int *part, hypre_F90_IntArray *ilower, hypre_F90_IntArray *iupper, hypre_F90_Int *var, hypre_F90_DblArray *values, hypre_F90_Int *ierr) { *ierr = (hypre_F90_Int) (HYPRE_SStructVectorSetBoxValues( hypre_F90_PassObj (HYPRE_SStructVector, vector), hypre_F90_PassInt (part), hypre_F90_PassIntArray (ilower), hypre_F90_PassIntArray (iupper), hypre_F90_PassInt (var), hypre_F90_PassDblArray (values) ) ); }
void hypre_F90_IFACE(hypre_parcsrhybridsetnumgridswe, HYPRE_PARCSRHYBRIDSETNUMGRIDSWE) (hypre_F90_Obj *solver, hypre_F90_IntArray *num_grid_sweeps, hypre_F90_Int *ierr) { *ierr = (hypre_F90_Int) (HYPRE_ParCSRHybridSetNumGridSweeps( hypre_F90_PassObj (HYPRE_Solver, solver), hypre_F90_PassIntArray (num_grid_sweeps) )); }
void hypre_F90_IFACE(hypre_structvectorsetnumghost, HYPRE_STRUCTVECTORSETNUMGHOST) ( hypre_F90_Obj *vector, hypre_F90_IntArray *num_ghost, hypre_F90_Int *ierr ) { *ierr = (hypre_F90_Int) ( HYPRE_StructVectorSetNumGhost( hypre_F90_PassObj (HYPRE_StructVector, vector), hypre_F90_PassIntArray (num_ghost) ) ); }
void hypre_F90_IFACE(hypre_schwarzsetdoffunc, HYPRE_SCHWARZSETDOFFUNC) (hypre_F90_Obj *solver, hypre_F90_IntArray *dof_func, hypre_F90_Int *ierr) { *ierr = (hypre_F90_Int) (HYPRE_SchwarzSetDofFunc( hypre_F90_PassObj (HYPRE_Solver, solver), hypre_F90_PassIntArray (dof_func) )); }
void hypre_F90_IFACE(hypre_parcsrhybridsetgridrelaxt, HYPRE_PARCSRHYBRIDSETGRIDRELAXT) (hypre_F90_Obj *solver, hypre_F90_IntArray *grid_relax_type, hypre_F90_Int *ierr) { *ierr = (hypre_F90_Int) (HYPRE_ParCSRHybridSetGridRelaxType( hypre_F90_PassObj (HYPRE_Solver, solver), hypre_F90_PassIntArray (grid_relax_type) )); }
void hypre_F90_IFACE(hypre_structgridsetperiodic, HYPRE_STRUCTGRIDSETPERIODIC) ( hypre_F90_Obj *grid, hypre_F90_IntArray *periodic, hypre_F90_Int *ierr) { *ierr = (hypre_F90_Int) ( HYPRE_StructGridSetPeriodic( hypre_F90_PassObj (HYPRE_StructGrid, grid), hypre_F90_PassIntArray (periodic)) ); }
void hypre_F90_IFACE(hypre_sstructgridsetfemordering, HYPRE_SSTRUCTGRIDSETFEMORDERING) (hypre_F90_Obj *grid, hypre_F90_Int *part, hypre_F90_IntArray *ordering, hypre_F90_Int *ierr) { *ierr = (hypre_F90_Int) HYPRE_SStructGridSetFEMOrdering( hypre_F90_PassObj (HYPRE_SStructGrid, grid), hypre_F90_PassInt (part), hypre_F90_PassIntArray (ordering) ); }
void hypre_F90_IFACE(hypre_sstructmatrixaddtovalues, HYPRE_SSTRUCTMATRIXADDTOVALUES) (hypre_F90_Obj *matrix, hypre_F90_Int *part, hypre_F90_IntArray *index, hypre_F90_Int *var, hypre_F90_Int *nentries, hypre_F90_IntArray *entries, hypre_F90_DblArray *values, hypre_F90_Int *ierr) { *ierr = (hypre_F90_Int) (HYPRE_SStructMatrixAddToValues( hypre_F90_PassObj (HYPRE_SStructMatrix, matrix), hypre_F90_PassInt (part), hypre_F90_PassIntArray (index), hypre_F90_PassInt (var), hypre_F90_PassInt (nentries), hypre_F90_PassIntArray (entries), hypre_F90_PassDblArray (values)) ); }
void hypre_F90_IFACE(hypre_structstencilsetelement, HYPRE_STRUCTSTENCILSETELEMENT) ( hypre_F90_Obj *stencil, hypre_F90_Int *element_index, hypre_F90_IntArray *offset, hypre_F90_Int *ierr ) { *ierr = (hypre_F90_Int) HYPRE_StructStencilSetElement( hypre_F90_PassObj (HYPRE_StructStencil, stencil), hypre_F90_PassInt (element_index), hypre_F90_PassIntArray (offset) ); }
void hypre_F90_IFACE(hypre_structvectorsetvalues, HYPRE_STRUCTVECTORSETVALUES) ( hypre_F90_Obj *vector, hypre_F90_IntArray *grid_index, hypre_F90_Complex *values, hypre_F90_Int *ierr ) { *ierr = (hypre_F90_Int) ( HYPRE_StructVectorSetValues( hypre_F90_PassObj (HYPRE_StructVector, vector), hypre_F90_PassIntArray (grid_index), hypre_F90_PassComplex (values) ) ); }
void hypre_F90_IFACE(hypre_sstructmaxwellzerovector, HYPRE_SSTRUCTMAXWELLZEROVECTOR) (hypre_F90_Obj *b, hypre_F90_IntArray *rows, hypre_F90_Int *nrows, hypre_F90_Int *ierr) { *ierr = (hypre_F90_Int) ( HYPRE_SStructMaxwellZeroVector( hypre_F90_PassObj (HYPRE_ParVector, b), hypre_F90_PassIntArray (rows), hypre_F90_PassInt (nrows) )); }
void hypre_F90_IFACE(hypre_sstructmaxwelleliminatero, HYPRE_SSTRUCTMAXWELLELIMINATERO) (hypre_F90_Obj *A, hypre_F90_Int *nrows, hypre_F90_IntArray *rows, hypre_F90_Int *ierr) { *ierr = (hypre_F90_Int) ( HYPRE_SStructMaxwellEliminateRowsCols( hypre_F90_PassObj (HYPRE_ParCSRMatrix, A), hypre_F90_PassInt (nrows), hypre_F90_PassIntArray (rows) )); }
void hypre_F90_IFACE(hypre_sstructmatrixgetboxvalues, HYPRE_SSTRUCTMATRIXGETBOXVALUES) (hypre_F90_Obj *matrix, hypre_F90_Int *part, hypre_F90_IntArray *ilower, hypre_F90_IntArray *iupper, hypre_F90_Int *var, hypre_F90_Int *nentries, hypre_F90_IntArray *entries, hypre_F90_DblArray *values, hypre_F90_Int *ierr) { *ierr = (hypre_F90_Int) (HYPRE_SStructMatrixGetBoxValues( hypre_F90_PassObj (HYPRE_SStructMatrix, matrix), hypre_F90_PassInt (part), hypre_F90_PassIntArray (ilower), hypre_F90_PassIntArray (iupper), hypre_F90_PassInt (var), hypre_F90_PassInt (nentries), hypre_F90_PassIntArray (entries), hypre_F90_PassDblArray (values))); }
void hypre_F90_IFACE(hypre_sstructgridsetvariables, HYPRE_SSTRUCTGRIDSETVARIABLES) (hypre_F90_Obj *grid, hypre_F90_Int *part, hypre_F90_Int *nvars, hypre_F90_IntArray *vartypes, hypre_F90_Int *ierr) { *ierr = (hypre_F90_Int) HYPRE_SStructGridSetVariables( hypre_F90_PassObj (HYPRE_SStructGrid, grid), hypre_F90_PassInt (part), hypre_F90_PassInt (nvars), hypre_F90_PassIntArray (vartypes) ); }
void hypre_F90_IFACE(hypre_sstructmatrixaddfemvalues, HYPRE_SSTRUCTMATRIXADDFEMVALUES) (hypre_F90_Obj *matrix, hypre_F90_Int *part, hypre_F90_IntArray *index, hypre_F90_DblArray *values, hypre_F90_Int *ierr) { *ierr = (hypre_F90_Int) (HYPRE_SStructMatrixAddFEMValues( hypre_F90_PassObj (HYPRE_SStructMatrix, matrix), hypre_F90_PassInt (part), hypre_F90_PassIntArray (index), hypre_F90_PassDblArray (values)) ); }
void hypre_F90_IFACE(hypre_parvectorcreate, HYPRE_PARVECTORCREATE) ( hypre_F90_Comm *comm, hypre_F90_Int *global_size, hypre_F90_IntArray *partitioning, hypre_F90_Obj *vector, hypre_F90_Int *ierr ) { *ierr = (hypre_F90_Int) HYPRE_ParVectorCreate( hypre_F90_PassComm (comm), hypre_F90_PassInt (global_size), hypre_F90_PassIntArray (partitioning), hypre_F90_PassObjRef (HYPRE_ParVector, vector) ); }
void hypre_F90_IFACE(hypre_sstructgridaddvariable, HYPRE_SSTRUCTGRIDADDVARIABLE) (hypre_F90_Obj *grid, hypre_F90_Int *part, hypre_F90_IntArray *index, hypre_F90_Int *var, hypre_F90_Int *vartype, hypre_F90_Int *ierr) { *ierr = (hypre_F90_Int) HYPRE_SStructGridAddVariable( hypre_F90_PassObj (HYPRE_SStructGrid, grid), hypre_F90_PassInt (part), hypre_F90_PassIntArray (index), hypre_F90_PassInt (var), hypre_F90_PassObj (HYPRE_SStructVariable, vartype) ); }
void hypre_F90_IFACE(hypre_amsconstructdiscretegradient, HYPRE_AMSCONSTRUCTDISCRETEGRADIENT) ( hypre_F90_Obj *A, hypre_F90_Obj *x_coord, hypre_F90_IntArray *edge_vertex, hypre_F90_Int *edge_orientation, hypre_F90_Obj *G, hypre_F90_Int *ierr) { *ierr = (hypre_F90_Int) ( HYPRE_AMSConstructDiscreteGradient( hypre_F90_PassObj (HYPRE_ParCSRMatrix, A), hypre_F90_PassObj (HYPRE_ParVector, x_coord), hypre_F90_PassIntArray (edge_vertex), hypre_F90_PassInt (edge_orientation), hypre_F90_PassObjRef (HYPRE_ParCSRMatrix, G) ) ); }
void hypre_F90_IFACE(hypre_sstructvectorsetvalues, HYPRE_SSTRUCTVECTORSETVALUES) (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_SStructVectorSetValues( hypre_F90_PassObj (HYPRE_SStructVector, vector), hypre_F90_PassInt (part), hypre_F90_PassIntArray (index), hypre_F90_PassInt (var), hypre_F90_PassDblRef (value) ) ); }
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_Complex *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_PassComplexRef (value) ) ); }
void hypre_F90_IFACE(hypre_sstructgridsetneighborpart, HYPRE_SSTRUCTGRIDSETNEIGHBORPART) (hypre_F90_Obj *grid, hypre_F90_Int *part, hypre_F90_IntArray *ilower, hypre_F90_IntArray *iupper, hypre_F90_Int *nbor_part, hypre_F90_IntArray *nbor_ilower, hypre_F90_IntArray *nbor_iupper, hypre_F90_IntArray *index_map, hypre_F90_IntArray *index_dir, hypre_F90_Int *ierr) { *ierr = (hypre_F90_Int) HYPRE_SStructGridSetNeighborPart( hypre_F90_PassObj (HYPRE_SStructGrid, grid), hypre_F90_PassInt (part), hypre_F90_PassIntArray (ilower), hypre_F90_PassIntArray (iupper), hypre_F90_PassInt (nbor_part), hypre_F90_PassIntArray (nbor_ilower), hypre_F90_PassIntArray (nbor_iupper), hypre_F90_PassIntArray (index_map), hypre_F90_PassIntArray (index_dir) ); }