void hypre_F90_IFACE(hypre_euclidcreate, HYPRE_EUCLIDCREATE) (hypre_F90_Comm *comm, hypre_F90_Obj *solver, hypre_F90_Int *ierr) { *ierr = (hypre_F90_Int) HYPRE_EuclidCreate( hypre_F90_PassComm (comm), hypre_F90_PassObjRef (HYPRE_Solver, solver) ); }
void hypre_F90_IFACE(hypre_sstructgmrescreate, HYPRE_SSTRUCTGMRESCREATE) (hypre_F90_Comm *comm, hypre_F90_Obj *solver, hypre_F90_Int *ierr) { *ierr = (hypre_F90_Int) HYPRE_SStructGMRESCreate( hypre_F90_PassComm(comm), hypre_F90_PassObjRef(HYPRE_SStructSolver,solver)); }
void hypre_F90_IFACE(hypre_sstructsplitcreate, HYPRE_SSTRUCTSPLITCREATE) (hypre_F90_Comm *comm, hypre_F90_Obj *solver_ptr, hypre_F90_Int *ierr) { *ierr = (hypre_F90_Int) (HYPRE_SStructSplitCreate( hypre_F90_PassComm (comm), hypre_F90_PassObjRef (HYPRE_SStructSolver, solver_ptr) ) ); }
void hypre_F90_IFACE(hypre_structsmgcreate, HYPRE_STRUCTSMGCREATE) ( hypre_F90_Comm *comm, hypre_F90_Obj *solver, hypre_F90_Int *ierr ) { *ierr = (hypre_F90_Int) ( HYPRE_StructSMGCreate( hypre_F90_PassComm (comm), hypre_F90_PassObjRef (HYPRE_StructSolver, solver) ) ); }
void hypre_F90_IFACE(hypre_parcsrbicgstabcreate, HYPRE_PARCSRBICGSTABCREATE) ( hypre_F90_Comm *comm, hypre_F90_Obj *solver, hypre_F90_Int *ierr ) { *ierr = (hypre_F90_Int) ( HYPRE_ParCSRBiCGSTABCreate( hypre_F90_PassComm (comm), hypre_F90_PassObjRef (HYPRE_Solver, solver) ) ); }
void hypre_F90_IFACE(hypre_structbicgstabcreate, HYPRE_STRUCTBICGSTABCREATE) ( hypre_F90_Comm *comm, hypre_F90_Obj *solver, hypre_F90_Int *ierr ) { *ierr = (hypre_F90_Int) ( HYPRE_StructBiCGSTABCreate( hypre_F90_PassComm (comm), hypre_F90_PassObjRef (HYPRE_StructSolver, solver) ) ); }
void hypre_F90_IFACE(hypre_structhybridcreate, HYPRE_STRUCTHYBRIDCREATE) ( hypre_F90_Comm *comm, hypre_F90_Obj *solver, hypre_F90_Int *ierr ) { *ierr = (hypre_F90_Int) ( HYPRE_StructHybridCreate( hypre_F90_PassComm (comm), hypre_F90_PassObjRef (HYPRE_StructSolver, solver) ) ); }
void hypre_F90_IFACE(hypre_sstructmaxwellcreate, HYPRE_SSTRUCTMAXWELLCREATE) (hypre_F90_Comm *comm, hypre_F90_Obj *solver, hypre_F90_Int *ierr) { *ierr = (hypre_F90_Int) (HYPRE_SStructMaxwellCreate( hypre_F90_PassComm (comm), hypre_F90_PassObjRef (HYPRE_SStructSolver, solver)) ); }
void hypre_F90_IFACE(hypre_structjacobicreate, HYPRE_STRUCTJACOBICREATE) ( hypre_F90_Comm *comm, hypre_F90_Obj *solver, hypre_F90_Int *ierr ) { *ierr = (hypre_F90_Int) ( HYPRE_StructJacobiCreate( hypre_F90_PassComm (comm), hypre_F90_PassObjRef (HYPRE_StructSolver, solver) ) ); }
void hypre_F90_IFACE(hypre_parcsrgmrescreate, HYPRE_PARCSRGMRESCREATE) ( hypre_F90_Comm *comm, hypre_F90_Obj *solver, hypre_F90_Int *ierr ) { *ierr = (hypre_F90_Int) ( HYPRE_ParCSRGMRESCreate( hypre_F90_PassComm (comm), hypre_F90_PassObjRef (HYPRE_Solver, solver) ) ); }
void hypre_F90_IFACE(hypre_parcsrpilutcreate, HYPRE_PARCSRPILUTCREATE) ( hypre_F90_Comm *comm, hypre_F90_Obj *solver, hypre_F90_Int *ierr ) { *ierr = (hypre_F90_Int) ( HYPRE_ParCSRPilutCreate( hypre_F90_PassComm (comm), hypre_F90_PassObjRef (HYPRE_Solver, solver) ) ); }
void hypre_F90_IFACE(hypre_parreadvector, HYPRE_PARREADVECTOR) (hypre_F90_Comm *comm, char *file, hypre_F90_Int *ierr) { *ierr = 0; (void*) (hypre_ParReadVector( hypre_F90_PassComm (comm), (char *) file )); }
void hypre_F90_IFACE(hypre_sstructvectorcreate, HYPRE_SSTRUCTVECTORCREATE) (hypre_F90_Comm *comm, hypre_F90_Obj *grid, hypre_F90_Obj *vector_ptr, hypre_F90_Int *ierr) { *ierr = (hypre_F90_Int) (HYPRE_SStructVectorCreate( hypre_F90_PassComm (comm), hypre_F90_PassObj (HYPRE_SStructGrid, grid), hypre_F90_PassObjRef (HYPRE_SStructVector, vector_ptr) ) ); }
void hypre_F90_IFACE(hypre_sstructmatrixcreate, HYPRE_SSTRUCTMATRIXCREATE) (hypre_F90_Comm *comm, hypre_F90_Obj *graph, hypre_F90_Obj *matrix_ptr, hypre_F90_Int *ierr) { *ierr = (hypre_F90_Int) (HYPRE_SStructMatrixCreate( hypre_F90_PassComm (comm), hypre_F90_PassObj (HYPRE_SStructGraph, graph), hypre_F90_PassObjRef (HYPRE_SStructMatrix, matrix_ptr) ) ); }
void hypre_F90_IFACE(hypre_structgridcreate, HYPRE_STRUCTGRIDCREATE) ( hypre_F90_Comm *comm, hypre_F90_Int *dim, hypre_F90_Obj *grid, hypre_F90_Int *ierr ) { *ierr = (hypre_F90_Int) ( HYPRE_StructGridCreate( hypre_F90_PassComm (comm), hypre_F90_PassInt (dim), hypre_F90_PassObjRef (HYPRE_StructGrid, grid) ) ); }
void hypre_F90_IFACE(hypre_sstructgridcreate, HYPRE_SSTRUCTGRIDCREATE) (hypre_F90_Comm *comm, hypre_F90_Int *ndim, hypre_F90_Int *nparts, hypre_F90_ObjRef *grid_ptr, hypre_F90_Int *ierr) { *ierr = (hypre_F90_Int) HYPRE_SStructGridCreate( hypre_F90_PassComm (comm), hypre_F90_PassInt (ndim), hypre_F90_PassInt (nparts), hypre_F90_PassObjRef (HYPRE_SStructGrid, grid_ptr) ); }
void hypre_F90_IFACE(hypre_parcsrmultivectorread, HYPRE_PARCSRMULTIVECTORREAD) (hypre_F90_Comm *comm, hypre_F90_Obj *ii, char *file, hypre_F90_Int *ierr) { *ierr = 0; (void *) hypre_ParCSRMultiVectorRead( hypre_F90_PassComm (comm), (void *) ii, (char *) file ); }
void hypre_F90_IFACE(hypre_parvectorread, HYPRE_PARVECTORREAD) ( hypre_F90_Comm *comm, hypre_F90_Obj *vector, char *file_name, hypre_F90_Int *ierr ) { *ierr = (hypre_F90_Int) ( HYPRE_ParVectorRead( hypre_F90_PassComm (comm), (char *) file_name, hypre_F90_PassObjRef (HYPRE_ParVector, vector) ) ); }
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) ); }