Scrambler  1
extended_hypre_wrapper.c File Reference

Provide a Fortran-friendly interface for C-based Hypre functions. More...

Go to the source code of this file.

Functions/Subroutines

void c_structgridcreate_ (long int *mpicomm, int *dim, long int *grid, int *ierr)
void c_structgridsetextents_ (long int *grid, int *lower, int *upper, int *ierr)
void c_structgridsetperiodic_ (long int *grid, int *periodicoffset, int *ierr)
void c_structgridassemble_ (long int *grid, int *ierr)
void c_structgriddestroy_ (long int *grid, int *ierr)
void c_structstencilcreate_ (int *dim, int *size, long int *stencil, int *ierr)
void c_structstencilsetelement_ (long int *stencil, int *entry, int *offset, int *ierr)
void c_structstencildestroy_ (long int *stencil, int *ierr)
void c_structmatrixcreate_ (long int *mpicomm, long int *grid, long int *stencil, long int *matrix, int *ierr)
void c_structmatrixinitialize_ (long int *matrix, int *ierr)
void c_structmatrixsetboxvalues_ (long int *matrix, int *lower, int *upper, int *nentries, int *entries, double *values, int *ierr)
void c_structmatrixassemble_ (long int *matrix, int *ierr)
void c_structmatrixdestroy_ (long int *matrix, int *ierr)
void c_structvectorcreate_ (long int *mpicomm, long int *grid, long int *vector, int *ierr)
void c_structvectorinitialize_ (long int *vector, int *ierr)
void c_structvectorsetboxvalues_ (long int *vector, int *lower, int *upper, double *values, int *ierr)
void c_structvectorgetboxvalues_ (long int *vector, int *lower, int *upper, double *values, int *ierr)
void c_structvectorassemble_ (long int *vector, int *ierr)
void c_structvectorprint_ (char *filename, long int *vector, int *var3, int *ierr)
void c_structmatrixprint_ (char *filename, long int *matrix, int *all, int *ierr)
void c_structvectordestroy_ (long int *vector, int *ierr)
void c_structpcgcreate_ (long int *mpicomm, long int *solver, int *ierr)
void c_structpcgsetup_ (long int *solver, long int *matrix, long int *bvector, long int *xvector, int *ierr)
void c_structpcgsolve_ (long int *solver, long int *matrix, long int *bvector, long int *xvector, int *ierr)
void c_structpcgsettol_ (long int *solver, double *tol, int *ierr)
void c_structpcgsetmaxiter_ (long int *solver, int *max_iter, int *ierr)
void c_structpcggetnumiterations_ (long int *solver, int *num_iter, int *ierr)
void c_structpcgsetprintlevel_ (long int *solver, int *level, int *ierr)
void c_structpcgdestroy_ (long int *solver, int *ierr)
void c_structgmrescreate_ (long int *comm, long int *solver, int *ierr)
void c_structgmresdestroy_ (long int *solver, int *ierr)
void c_structgmressetup_ (long int *solver, long int *matrix, long int *bvector, long int *xvector, int *ierr)
void c_structgmressolve_ (long int *solver, long int *matrix, long int *bvector, long int *xvector, int *ierr)
void c_structgmressettol_ (long int *solver, double *tol, int *ierr)
void c_structgmressetmaxiter_ (long int *solver, int *max_iter, int *ierr)
void c_structgmresgetnumiterations_ (long int *solver, int *num_iter, int *ierr)
void c_structgmressetprintlevel_ (long int *solver, int *level, int *ierr)
void c_sstructgridcreate_ (long int *mpicomm, int *dim, int *nparts, long int *grid, int *ierr)
void c_sstructgridsetextents_ (long int *grid, int *part, int *lower, int *upper, int *ierr)
void c_sstructgridsetvariables_ (long int *grid, int *part, int *nvars, int *ierr)
void c_sstructgridassemble_ (long int *grid, int *ierr)
void c_sstructgridsetperiodic_ (long int *grid, int *part, int *periodicoffset, int *ierr)
void c_sstructgriddestroy_ (long int *grid, int *ierr)
void c_sstructgridsetnumghost_ (long int *grid, int *num_ghost, int *ierr)
void c_sstructstencilcreate_ (int *dim, int *size, long int *stencil, int *ierr)
void c_sstructstencilsetentry_ (long int *stencil, int *entry, int *offset, int *var, int *ierr)
void c_sstructstencildestroy_ (long int *stencil, int *ierr)
void c_sstructgraphcreate_ (long int *mpicomm, long int *grid, long int *graph, int *ierr)
void c_sstructgraphsetstencil_ (long int *graph, int *part, int *var, long int *stencil, int *ierr)
void c_sstructgraphaddentries_ (long int *graph, int *part, int *index, int *var, int *to_part, int *to_index, int *to_var, int *ierr)
void c_sstructgraphassemble_ (long int *graph, int *ierr)
void c_sstructgraphdestroy_ (long int *graph, int *ierr)
void c_sstructmatrixcreate_ (long int *mpicomm, long int *graph, long int *matrix, int *ierr)
void c_sstructmatrixsetobjecttype_ (long int *matrix, int *obj_type, int *ierr)
void c_sstructmatrixgetobject_ (long int *matrix, long int *object, int *ierr)
void c_sstructmatrixinitialize_ (long int *matrix, int *ierr)
void c_sstructmatrixsetboxvalues_ (long int *matrix, int *part, int *lower, int *upper, int *var, int *nentries, int *entries, double *values, int *ierr)
void c_sstructmatrixsetvalues_ (long int *matrix, int *part, int *index, int *var, int *nentries, int *entries, double *values, int *ierr)
void c_sstructmatrixassemble_ (long int *matrix, int *ierr)
void c_sstructmatrixdestroy_ (long int *matrix, int *ierr)
void c_sstructmatrixprint_ (char *filename, long int *matrix, int *all, int *ierr)
void c_sstructvectorcreate_ (long int *mpicomm, long int *grid, long int *vector, int *ierr)
void c_sstructvectorinitialize_ (long int *vector, int *ierr)
void c_sstructvectorsetboxvalues_ (long int *vector, int *part, int *lower, int *upper, int *var, double *values, int *ierr)
void c_sstructvectorgetboxvalues_ (long int *vector, int *part, int *lower, int *upper, int *var, double *values, int *ierr)
void c_sstructvectorsetobjecttype_ (long int *vector, int *obj_type, int *ierr)
void c_sstructvectorgetobject_ (long int *vector, long int *object, int *ierr)
void c_sstructvectorgather_ (long int *vector, int *ierr)
void c_sstructvectorassemble_ (long int *vector, int *ierr)
void c_sstructvectorprint_ (char *filename, long int *vector, int *var3, int *ierr)
void c_sstructvectordestroy_ (long int *vector, int *ierr)
void c_sstructpcgcreate_ (long int *mpicomm, long int *solver, int *ierr)
void c_sstructpcgsetup_ (long int *solver, long int *matrix, long int *bvector, long int *xvector, int *ierr)
void c_sstructpcgsolve_ (long int *solver, long int *matrix, long int *bvector, long int *xvector, int *ierr)
void c_sstructpcgsettol_ (long int *solver, double *tol, int *ierr)
void c_sstructpcgsetprintlevel_ (long int *solver, int *level, int *ierr)
void c_sstructpcgdestroy_ (long int *solver, int *ierr)
void c_parcsrpcgcreate_ (long int *comm, long int *solver, int *ierr)
void c_parcsrpcgsettol_ (long int *solver, double *tol, int *ierr)
void c_parcsrpcgsetup_ (long int *solver, long int *matrix, long int *bvector, long int *xvector, int *ierr)
void c_parcsrpcgsolve_ (long int *solver, long int *matrix, long int *bvector, long int *xvector, int *ierr)
void c_parcsrpcgsetprintlevel_ (long int *solver, int *print_level, int *ierr)
void c_parcsrpcgdestroy_ (long int *solver, int *ierr)
void c_parcsrgotime_ (long int *matrix, long int *varvector, long int *solvector, double *tol, int *printlevel, int *ierr)
void c_sstructgmrescreate_ (long int *comm, long int *solver, int *ierr)
void c_sstructgmresdestroy_ (long int *solver, int *ierr)
void c_sstructgmressetup_ (long int *solver, long int *matrix, long int *bvector, long int *xvector, int *ierr)
void c_sstructgmressolve_ (long int *solver, long int *matrix, long int *bvector, long int *xvector, int *ierr)
void c_sstructgmressettol_ (long int *solver, double *tol, int *ierr)
void c_sstructgmressetprintlevel_ (long int *solver, int *level, int *ierr)
void c_sstructgmressetkdim_ (long int *solver, int *k_dim, int *ierr)

Detailed Description

Provide a Fortran-friendly interface for C-based Hypre functions.

Definition in file extended_hypre_wrapper.c.


Function/Subroutine Documentation

void c_structgridcreate_ ( long int *  mpicomm,
int *  dim,
long int *  grid,
int *  ierr 
)

Definition at line 66 of file extended_hypre_wrapper.c.

                                                                                     {

    HYPRE_StructGrid cgrid;

    *ierr = HYPRE_StructGridCreate(MPI_COMM_WORLD, *dim, &cgrid);

    *grid = (long int)cgrid;
}
void c_structgridsetextents_ ( long int *  grid,
int *  lower,
int *  upper,
int *  ierr 
)

Definition at line 75 of file extended_hypre_wrapper.c.

                                                                                    {

    HYPRE_StructGrid cgrid = (HYPRE_StructGrid)(*grid);

    *ierr = HYPRE_StructGridSetExtents(cgrid, lower, upper);
}
void c_structgridsetperiodic_ ( long int *  grid,
int *  periodicoffset,
int *  ierr 
)

Definition at line 82 of file extended_hypre_wrapper.c.

                                                                                 {

    HYPRE_StructGrid cgrid = (HYPRE_StructGrid)(*grid);
    
    *ierr = HYPRE_StructGridSetPeriodic(cgrid, periodicoffset);
}
void c_structgridassemble_ ( long int *  grid,
int *  ierr 
)

Definition at line 90 of file extended_hypre_wrapper.c.

                                                        {

    HYPRE_StructGrid cgrid = (HYPRE_StructGrid)(*grid);

    *ierr = HYPRE_StructGridAssemble(cgrid);
}
void c_structgriddestroy_ ( long int *  grid,
int *  ierr 
)

Definition at line 97 of file extended_hypre_wrapper.c.

                                                       {

    HYPRE_StructGrid cgrid = (HYPRE_StructGrid)(*grid);

    *ierr = HYPRE_StructGridDestroy(cgrid);
}
void c_structstencilcreate_ ( int *  dim,
int *  size,
long int *  stencil,
int *  ierr 
)

Definition at line 108 of file extended_hypre_wrapper.c.

                                                                                   {

    HYPRE_StructStencil cstencil;

    *ierr = HYPRE_StructStencilCreate(*dim, *size, &cstencil);

    *stencil = (long int)cstencil;
}
void c_structstencilsetelement_ ( long int *  stencil,
int *  entry,
int *  offset,
int *  ierr 
)

Definition at line 117 of file extended_hypre_wrapper.c.

                                                                                         {

    HYPRE_StructStencil cstencil = (HYPRE_StructStencil)(*stencil);

    *ierr = HYPRE_StructStencilSetElement(cstencil, *entry, offset);
}
void c_structstencildestroy_ ( long int *  stencil,
int *  ierr 
)

Definition at line 124 of file extended_hypre_wrapper.c.

                                                             {

    HYPRE_StructStencil cstencil = (HYPRE_StructStencil)(*stencil);

    *ierr = HYPRE_StructStencilDestroy(cstencil);
}
void c_structmatrixcreate_ ( long int *  mpicomm,
long int *  grid,
long int *  stencil,
long int *  matrix,
int *  ierr 
)

Definition at line 135 of file extended_hypre_wrapper.c.

                                                                                                                   {
 
    HYPRE_StructGrid cgrid = (HYPRE_StructGrid)(*grid);
    HYPRE_StructStencil cstencil = (HYPRE_StructStencil)(*stencil);
    HYPRE_StructMatrix cmatrix;

    *ierr = HYPRE_StructMatrixCreate(MPI_COMM_WORLD, cgrid, cstencil, &cmatrix);

    *matrix = (long int)cmatrix;
}
void c_structmatrixinitialize_ ( long int *  matrix,
int *  ierr 
)

Definition at line 146 of file extended_hypre_wrapper.c.

                                                              {

    HYPRE_StructMatrix cmatrix = (HYPRE_StructMatrix)(*matrix);

    *ierr = HYPRE_StructMatrixInitialize(cmatrix);
}
void c_structmatrixsetboxvalues_ ( long int *  matrix,
int *  lower,
int *  upper,
int *  nentries,
int *  entries,
double *  values,
int *  ierr 
)

Definition at line 153 of file extended_hypre_wrapper.c.

                                                                                                                                          {

    HYPRE_StructMatrix cmatrix = (HYPRE_StructMatrix)(*matrix);

    /*    printf("matrix is %d\n",*matrix);
    printf("lower is %d %d %d\n",lower[0],lower[1],lower[2]);
    printf("upper is %d %d %d\n",upper[0],upper[1],upper[2]);
    printf("nentries is %d\n",*nentries);
    printf("entries is %d %d %d %d %d\n",entries[0],entries[1],entries[2],entries[3],entries[4]);

    printf("the first few entries in the matrix are %lf %lf %lf %lf %lf %lf %lf %lf %lf",values[0],values[1],values[2],values[3],values[4],values[5],values[6],values[7],values[8],values[9]); */
    *ierr = HYPRE_StructMatrixSetBoxValues (cmatrix, lower, upper, *nentries, entries, values);

}
void c_structmatrixassemble_ ( long int *  matrix,
int *  ierr 
)

Definition at line 168 of file extended_hypre_wrapper.c.

                                                            {

    HYPRE_StructMatrix cmatrix = (HYPRE_StructMatrix)(*matrix);

    *ierr = HYPRE_StructMatrixAssemble(cmatrix);
}
void c_structmatrixdestroy_ ( long int *  matrix,
int *  ierr 
)

Definition at line 175 of file extended_hypre_wrapper.c.

                                                           {

    HYPRE_StructMatrix cmatrix = (HYPRE_StructMatrix)(*matrix);

    *ierr = HYPRE_StructMatrixDestroy(cmatrix);
}
void c_structvectorcreate_ ( long int *  mpicomm,
long int *  grid,
long int *  vector,
int *  ierr 
)

Definition at line 186 of file extended_hypre_wrapper.c.

                                                                                               {

    HYPRE_StructGrid cgrid = (HYPRE_StructGrid)(*grid);
    HYPRE_StructVector cvector;
    
    *ierr = HYPRE_StructVectorCreate (MPI_COMM_WORLD, cgrid, &cvector);

    *vector = (long int)cvector;
}
void c_structvectorinitialize_ ( long int *  vector,
int *  ierr 
)

Definition at line 196 of file extended_hypre_wrapper.c.

                                                              {

    HYPRE_StructVector cvector = (HYPRE_StructVector)(*vector);

    *ierr = HYPRE_StructVectorInitialize(cvector);

}
void c_structvectorsetboxvalues_ ( long int *  vector,
int *  lower,
int *  upper,
double *  values,
int *  ierr 
)

Definition at line 204 of file extended_hypre_wrapper.c.

                                                                                                           {

    HYPRE_StructVector cvector = (HYPRE_StructVector)(*vector);

    *ierr = HYPRE_StructVectorSetBoxValues (cvector, lower, upper, values);
}
void c_structvectorgetboxvalues_ ( long int *  vector,
int *  lower,
int *  upper,
double *  values,
int *  ierr 
)

Definition at line 211 of file extended_hypre_wrapper.c.

                                                                                                           {

    HYPRE_StructVector cvector = (HYPRE_StructVector)(*vector);

    *ierr = HYPRE_StructVectorGetBoxValues(cvector, lower, upper, values);
}
void c_structvectorassemble_ ( long int *  vector,
int *  ierr 
)

Definition at line 219 of file extended_hypre_wrapper.c.

                                                            {

    HYPRE_StructVector cvector = (HYPRE_StructVector)(*vector);

    *ierr = HYPRE_StructVectorAssemble(cvector);

}
void c_structvectorprint_ ( char *  filename,
long int *  vector,
int *  var3,
int *  ierr 
)

Definition at line 227 of file extended_hypre_wrapper.c.

                                                                                      {

    HYPRE_StructVector cvector = (HYPRE_StructVector)(*vector);

    *ierr = HYPRE_StructVectorPrint(filename, cvector, *var3);

}
void c_structmatrixprint_ ( char *  filename,
long int *  matrix,
int *  all,
int *  ierr 
)

Definition at line 235 of file extended_hypre_wrapper.c.

                                                                                     {
    HYPRE_StructMatrix cmatrix = (HYPRE_StructMatrix)(*matrix);
    *ierr = HYPRE_StructMatrixPrint(filename, cmatrix, *all);
}
void c_structvectordestroy_ ( long int *  vector,
int *  ierr 
)

Definition at line 241 of file extended_hypre_wrapper.c.

                                                           {

    HYPRE_StructVector cvector = (HYPRE_StructVector)(*vector);

    *ierr = HYPRE_StructVectorDestroy(cvector);
}
void c_structpcgcreate_ ( long int *  mpicomm,
long int *  solver,
int *  ierr 
)

Definition at line 252 of file extended_hypre_wrapper.c.

                                                                           {

    HYPRE_StructSolver csolver;

    *ierr = HYPRE_StructPCGCreate(MPI_COMM_WORLD, &csolver);

    *solver = (long int)csolver;
}
void c_structpcgsetup_ ( long int *  solver,
long int *  matrix,
long int *  bvector,
long int *  xvector,
int *  ierr 
)

Definition at line 261 of file extended_hypre_wrapper.c.

                                                                                                                {

    HYPRE_StructSolver csolver = (HYPRE_StructSolver)(*solver);
    HYPRE_StructMatrix cmatrix = (HYPRE_StructMatrix)(*matrix);
    HYPRE_StructVector c_bvector = (HYPRE_StructVector)(*bvector);
    HYPRE_StructVector c_xvector = (HYPRE_StructVector)(*xvector);

    *ierr = HYPRE_StructPCGSetup(csolver, cmatrix, c_bvector, c_xvector);
}
void c_structpcgsolve_ ( long int *  solver,
long int *  matrix,
long int *  bvector,
long int *  xvector,
int *  ierr 
)

Definition at line 271 of file extended_hypre_wrapper.c.

                                                                                                                {

    HYPRE_StructSolver csolver = (HYPRE_StructSolver)(*solver);
    HYPRE_StructMatrix cmatrix = (HYPRE_StructMatrix)(*matrix);
    HYPRE_StructVector c_bvector = (HYPRE_StructVector)(*bvector);
    HYPRE_StructVector c_xvector = (HYPRE_StructVector)(*xvector);

    *ierr = HYPRE_StructPCGSolve(csolver, cmatrix, c_bvector, c_xvector);
}
void c_structpcgsettol_ ( long int *  solver,
double *  tol,
int *  ierr 
)

Definition at line 281 of file extended_hypre_wrapper.c.

                                                                     {

    HYPRE_StructSolver csolver = (HYPRE_StructSolver)(*solver);

    *ierr = HYPRE_StructPCGSetTol(csolver, *tol);
}
void c_structpcgsetmaxiter_ ( long int *  solver,
int *  max_iter,
int *  ierr 
)

Definition at line 288 of file extended_hypre_wrapper.c.

                                                                           {

    HYPRE_StructSolver csolver = (HYPRE_StructSolver)(*solver);

    *ierr = HYPRE_StructPCGSetMaxIter(csolver, *max_iter);
}
void c_structpcggetnumiterations_ ( long int *  solver,
int *  num_iter,
int *  ierr 
)

Definition at line 295 of file extended_hypre_wrapper.c.

                                                                                 {

    HYPRE_StructSolver csolver = (HYPRE_StructSolver)(*solver);

    *ierr = HYPRE_StructPCGGetNumIterations(csolver, num_iter);
}
void c_structpcgsetprintlevel_ ( long int *  solver,
int *  level,
int *  ierr 
)

Definition at line 303 of file extended_hypre_wrapper.c.

                                                                           {

    HYPRE_StructSolver csolver = (HYPRE_StructSolver)(*solver);

    *ierr = HYPRE_StructPCGSetPrintLevel(csolver, *level);

}
void c_structpcgdestroy_ ( long int *  solver,
int *  ierr 
)

Definition at line 311 of file extended_hypre_wrapper.c.

                                                        {

    HYPRE_StructSolver csolver = (HYPRE_StructSolver)(*solver);

    *ierr = HYPRE_StructPCGDestroy(csolver);
}
void c_structgmrescreate_ ( long int *  comm,
long int *  solver,
int *  ierr 
)

Definition at line 323 of file extended_hypre_wrapper.c.

                                                                          {

    MPI_Comm commval = (MPI_Comm)(*comm);
    HYPRE_StructSolver csolver;

    *ierr = HYPRE_StructGMRESCreate(MPI_COMM_WORLD, &csolver);

    *solver = (long int)csolver;

}
void c_structgmresdestroy_ ( long int *  solver,
int *  ierr 
)

Definition at line 334 of file extended_hypre_wrapper.c.

                                                          {

    HYPRE_StructSolver csolver = (HYPRE_StructSolver)(*solver);

    *ierr = HYPRE_StructGMRESDestroy(csolver);
}
void c_structgmressetup_ ( long int *  solver,
long int *  matrix,
long int *  bvector,
long int *  xvector,
int *  ierr 
)

Definition at line 341 of file extended_hypre_wrapper.c.

                                                                                                                  {

    HYPRE_StructSolver csolver = (HYPRE_StructSolver)(*solver);
    HYPRE_StructMatrix cmatrix = (HYPRE_StructMatrix)(*matrix);
    HYPRE_StructVector c_bvector = (HYPRE_StructVector)(*bvector);
    HYPRE_StructVector c_xvector = (HYPRE_StructVector)(*xvector);

    *ierr = HYPRE_StructGMRESSetup(csolver, cmatrix, c_bvector, c_xvector);
}
void c_structgmressolve_ ( long int *  solver,
long int *  matrix,
long int *  bvector,
long int *  xvector,
int *  ierr 
)

Definition at line 351 of file extended_hypre_wrapper.c.

                                                                                                                  {

    HYPRE_StructSolver csolver = (HYPRE_StructSolver)(*solver);
    HYPRE_StructMatrix cmatrix = (HYPRE_StructMatrix)(*matrix);
    HYPRE_StructVector c_bvector = (HYPRE_StructVector)(*bvector);
    HYPRE_StructVector c_xvector = (HYPRE_StructVector)(*xvector);

    *ierr = HYPRE_StructGMRESSolve(csolver, cmatrix, c_bvector, c_xvector);
}
void c_structgmressettol_ ( long int *  solver,
double *  tol,
int *  ierr 
)

Definition at line 361 of file extended_hypre_wrapper.c.

                                                                       {

    HYPRE_StructSolver csolver = (HYPRE_StructSolver)(*solver);

    *ierr = HYPRE_StructGMRESSetTol(csolver, *tol);
}
void c_structgmressetmaxiter_ ( long int *  solver,
int *  max_iter,
int *  ierr 
)

Definition at line 368 of file extended_hypre_wrapper.c.

                                                                             {

    HYPRE_StructSolver csolver = (HYPRE_StructSolver)(*solver);

    *ierr = HYPRE_StructGMRESSetMaxIter(csolver, *max_iter);
}
void c_structgmresgetnumiterations_ ( long int *  solver,
int *  num_iter,
int *  ierr 
)

Definition at line 375 of file extended_hypre_wrapper.c.

                                                                                   {

    HYPRE_StructSolver csolver = (HYPRE_StructSolver)(*solver);

    *ierr = HYPRE_StructGMRESGetNumIterations(csolver, num_iter);
}
void c_structgmressetprintlevel_ ( long int *  solver,
int *  level,
int *  ierr 
)

Definition at line 382 of file extended_hypre_wrapper.c.

                                                                             {

    HYPRE_StructSolver csolver = (HYPRE_StructSolver)(*solver);

    *ierr = HYPRE_StructGMRESSetPrintLevel(csolver, *level);

}
void c_sstructgridcreate_ ( long int *  mpicomm,
int *  dim,
int *  nparts,
long int *  grid,
int *  ierr 
)

==================================================================================== ============================= SEMI-STRUCTURED GRIDS ================================ ====================================================================================

Definition at line 401 of file extended_hypre_wrapper.c.

                                                                                                    {

    HYPRE_SStructGrid cgrid;

    *ierr = HYPRE_SStructGridCreate(MPI_COMM_WORLD, *dim, *nparts, &cgrid);

    *grid = (long int)cgrid;
}
void c_sstructgridsetextents_ ( long int *  grid,
int *  part,
int *  lower,
int *  upper,
int *  ierr 
)

Definition at line 410 of file extended_hypre_wrapper.c.

                                                                                                 {

    HYPRE_SStructGrid cgrid = (HYPRE_SStructGrid)(*grid);

    *ierr = HYPRE_SStructGridSetExtents(cgrid, *part, lower, upper);
}
void c_sstructgridsetvariables_ ( long int *  grid,
int *  part,
int *  nvars,
int *  ierr 
)

Definition at line 417 of file extended_hypre_wrapper.c.

                                                                                      {

    HYPRE_SStructGrid cgrid = (HYPRE_SStructGrid)(*grid);
    HYPRE_SStructVariable vartypes[1] = {HYPRE_SSTRUCT_VARIABLE_CELL};


    *ierr = HYPRE_SStructGridSetVariables(cgrid, *part, *nvars, vartypes);
}
void c_sstructgridassemble_ ( long int *  grid,
int *  ierr 
)

Definition at line 426 of file extended_hypre_wrapper.c.

                                                         {

    HYPRE_SStructGrid cgrid = (HYPRE_SStructGrid)(*grid);

    *ierr = HYPRE_SStructGridAssemble(cgrid);
}
void c_sstructgridsetperiodic_ ( long int *  grid,
int *  part,
int *  periodicoffset,
int *  ierr 
)

Definition at line 433 of file extended_hypre_wrapper.c.

                                                                                              {

    HYPRE_SStructGrid cgrid = (HYPRE_SStructGrid)(*grid);

    *ierr = HYPRE_SStructGridSetPeriodic(cgrid, *part, periodicoffset);
}
void c_sstructgriddestroy_ ( long int *  grid,
int *  ierr 
)

Definition at line 440 of file extended_hypre_wrapper.c.

                                                        {

    HYPRE_SStructGrid cgrid = (HYPRE_SStructGrid)(*grid);

    *ierr = HYPRE_SStructGridDestroy(cgrid);
}
void c_sstructgridsetnumghost_ ( long int *  grid,
int *  num_ghost,
int *  ierr 
)

Definition at line 447 of file extended_hypre_wrapper.c.

                                                                             {
    HYPRE_SStructGrid cgrid = (HYPRE_SStructGrid)(*grid);

    *ierr = HYPRE_SStructGridSetNumGhost(cgrid, num_ghost);
}
void c_sstructstencilcreate_ ( int *  dim,
int *  size,
long int *  stencil,
int *  ierr 
)

Definition at line 457 of file extended_hypre_wrapper.c.

                                                                                    {

    HYPRE_SStructStencil cstencil;

    *ierr = HYPRE_SStructStencilCreate(*dim, *size, &cstencil);

    *stencil = (long int)cstencil;
}
void c_sstructstencilsetentry_ ( long int *  stencil,
int *  entry,
int *  offset,
int *  var,
int *  ierr 
)

Definition at line 466 of file extended_hypre_wrapper.c.

                                                                                                   {

    HYPRE_SStructStencil cstencil = (HYPRE_SStructStencil)(*stencil);

    *ierr = HYPRE_SStructStencilSetEntry(cstencil, *entry, offset, *var);
}
void c_sstructstencildestroy_ ( long int *  stencil,
int *  ierr 
)

Definition at line 473 of file extended_hypre_wrapper.c.

                                                              {

    HYPRE_SStructStencil cstencil = (HYPRE_SStructStencil)(*stencil);

    *ierr = HYPRE_SStructStencilDestroy(cstencil);
}
void c_sstructgraphcreate_ ( long int *  mpicomm,
long int *  grid,
long int *  graph,
int *  ierr 
)

Definition at line 484 of file extended_hypre_wrapper.c.

                                                                                              { 

/*    MPI_Comm commval = (MPI_Comm)(*mpicomm);*/
    HYPRE_SStructGrid cgrid = (HYPRE_SStructGrid)(*grid);
    HYPRE_SStructGraph cgraph;

    *ierr = HYPRE_SStructGraphCreate(MPI_COMM_WORLD, cgrid, &cgraph);

    *graph = (long int)cgraph;
}
void c_sstructgraphsetstencil_ ( long int *  graph,
int *  part,
int *  var,
long int *  stencil,
int *  ierr 
)

Definition at line 495 of file extended_hypre_wrapper.c.

                                                                                                         {

    HYPRE_SStructGraph cgraph = (HYPRE_SStructGraph)(*graph);
    HYPRE_SStructStencil cstencil = (HYPRE_SStructStencil)(*stencil);

    *ierr = HYPRE_SStructGraphSetStencil(cgraph, *part, *var, cstencil);
}
void c_sstructgraphaddentries_ ( long int *  graph,
int *  part,
int *  index,
int *  var,
int *  to_part,
int *  to_index,
int *  to_var,
int *  ierr 
)

Definition at line 503 of file extended_hypre_wrapper.c.

                                                                                                                                              {

    HYPRE_SStructGraph cgraph = (HYPRE_SStructGraph)(*graph);
    int cfrom_index[3], cto_index[3];

    cfrom_index[0] = index[0];
    cfrom_index[1] = index[1];
    cfrom_index[2] = index[2];

    cto_index[0] = to_index[0];
    cto_index[1] = to_index[1];
    cto_index[2] = to_index[2];


/*printf("SStructGraphAddEntries([%d, %d, %d] => [%d, %d, %d].\n", index[0], index[1], index[2], to_index[0], to_index[1], to_index[2]);*/

/*if (((cto_index[0] == 1) && (cto_index[1] == 64)) || ((cfrom_index[0] == 1) && (cfrom_index[1] == 64))) {*/
/*printf("SStructGraphAddEntries[graph=%d, part=%d, index=[%d, %d, %d], var=%d, to_part=%d, to_index=[%d, %d, %d], to_var=%d.\n", *graph, *part, cfrom_index[0], cfrom_index[1], cfrom_index[2], *var, *to_part, cto_index[0], cto_index[1], cto_index[2], *to_var);
}*/
    *ierr = HYPRE_SStructGraphAddEntries(cgraph, *part, cfrom_index, *var, *to_part, cto_index, *to_var);

}
void c_sstructgraphassemble_ ( long int *  graph,
int *  ierr 
)

Definition at line 526 of file extended_hypre_wrapper.c.

                                                           {

    HYPRE_SStructGraph cgraph = (HYPRE_SStructGraph)(*graph);

    *ierr = HYPRE_SStructGraphAssemble(cgraph);
}
void c_sstructgraphdestroy_ ( long int *  graph,
int *  ierr 
)

Definition at line 533 of file extended_hypre_wrapper.c.

                                                          {

    HYPRE_SStructGraph cgraph = (HYPRE_SStructGraph)(*graph);

    *ierr = HYPRE_SStructGraphAssemble(cgraph);
}
void c_sstructmatrixcreate_ ( long int *  mpicomm,
long int *  graph,
long int *  matrix,
int *  ierr 
)

Definition at line 544 of file extended_hypre_wrapper.c.

                                                                                                 {

    HYPRE_SStructGraph cgraph = (HYPRE_SStructGraph)(*graph);
    HYPRE_SStructMatrix cmatrix;

    *ierr = HYPRE_SStructMatrixCreate(MPI_COMM_WORLD, cgraph, &cmatrix);

    *matrix = (long int)cmatrix;
}
void c_sstructmatrixsetobjecttype_ ( long int *  matrix,
int *  obj_type,
int *  ierr 
)

Definition at line 554 of file extended_hypre_wrapper.c.

                                                                                  {

    int ctype;

    switch(*obj_type) {
        case F_HYPRE_STRUCT:
            ctype = HYPRE_STRUCT;
            break;
        case F_HYPRE_SSTRUCT:
            ctype = HYPRE_SSTRUCT;
            break;
        case F_HYPRE_PARCSR:
            ctype = HYPRE_PARCSR;
            break;
        default:
            printf("C_SStructMatrixSetObjectType error: invalid Fortran object code %d.\n", *obj_type);
    }
        
    HYPRE_SStructMatrix cmatrix = (HYPRE_SStructMatrix)(*matrix);

    *ierr = HYPRE_SStructMatrixSetObjectType(cmatrix, ctype);
}
void c_sstructmatrixgetobject_ ( long int *  matrix,
long int *  object,
int *  ierr 
)

Definition at line 577 of file extended_hypre_wrapper.c.

                                                                                 {

    HYPRE_SStructMatrix cmatrix = (HYPRE_SStructMatrix)(*matrix);
    HYPRE_ParCSRMatrix cobject;

    *ierr = HYPRE_SStructMatrixGetObject(cmatrix, (void **)&cobject);

    *object = (long int)(cobject);

}
void c_sstructmatrixinitialize_ ( long int *  matrix,
int *  ierr 
)

Definition at line 588 of file extended_hypre_wrapper.c.

                                                               {

    HYPRE_SStructMatrix cmatrix = (HYPRE_SStructMatrix)(*matrix);

    *ierr = HYPRE_SStructMatrixInitialize(cmatrix);
}
void c_sstructmatrixsetboxvalues_ ( long int *  matrix,
int *  part,
int *  lower,
int *  upper,
int *  var,
int *  nentries,
int *  entries,
double *  values,
int *  ierr 
)

Definition at line 595 of file extended_hypre_wrapper.c.

                                                                                                                                                                  {

    int dummy[1];
    HYPRE_SStructMatrix cmatrix = (HYPRE_SStructMatrix)(*matrix);

    *ierr = HYPRE_SStructMatrixSetBoxValues (cmatrix, *part, lower, upper, *var, *nentries, entries, values);
}
void c_sstructmatrixsetvalues_ ( long int *  matrix,
int *  part,
int *  index,
int *  var,
int *  nentries,
int *  entries,
double *  values,
int *  ierr 
)

Definition at line 603 of file extended_hypre_wrapper.c.

                                                                                                                                                  {

    HYPRE_SStructMatrix cmatrix = (HYPRE_SStructMatrix)(*matrix);
    int array_length = *nentries;
    int centries[*nentries];
    double cvalues[*nentries];
    int dummy[1];
    int i;

    for(i = 0; i < array_length; i++) {
        centries[i] = entries[i];
        cvalues[i] = values[i];
    }

/*
printf("SStructMatrixSetValues(%ld, %d, [%d, %d, %d], %d, %d, [%d, %d], [%f, %f]).\n", *matrix, *part, index[0], index[1], index[2], *var, *nentries, centries[0], centries[1], cvalues[0], cvalues[1]);
*/

    *ierr = HYPRE_SStructMatrixSetValues(cmatrix, *part, index, *var, *nentries, centries, cvalues);

}
void c_sstructmatrixassemble_ ( long int *  matrix,
int *  ierr 
)

Definition at line 625 of file extended_hypre_wrapper.c.

                                                             {
    
    HYPRE_SStructMatrix cmatrix = (HYPRE_SStructMatrix)(*matrix);

    *ierr = HYPRE_SStructMatrixAssemble(cmatrix);
}
void c_sstructmatrixdestroy_ ( long int *  matrix,
int *  ierr 
)

Definition at line 632 of file extended_hypre_wrapper.c.

                                                            {

    HYPRE_SStructMatrix cmatrix = (HYPRE_SStructMatrix)(*matrix);

    *ierr = HYPRE_SStructMatrixDestroy(cmatrix);
}
void c_sstructmatrixprint_ ( char *  filename,
long int *  matrix,
int *  all,
int *  ierr 
)

Definition at line 639 of file extended_hypre_wrapper.c.

                                                                                      {
    HYPRE_SStructMatrix cmatrix = (HYPRE_SStructMatrix)(*matrix);
    *ierr = HYPRE_SStructMatrixPrint(filename, cmatrix, *all);
}
void c_sstructvectorcreate_ ( long int *  mpicomm,
long int *  grid,
long int *  vector,
int *  ierr 
)

Definition at line 647 of file extended_hypre_wrapper.c.

                                                                                                {

    HYPRE_SStructGrid cgrid = (HYPRE_SStructGrid)(*grid);
    HYPRE_SStructVector cvector;
    
    *ierr = HYPRE_SStructVectorCreate (MPI_COMM_WORLD, cgrid, &cvector);

    *vector = (long int)cvector;
}
void c_sstructvectorinitialize_ ( long int *  vector,
int *  ierr 
)

Definition at line 657 of file extended_hypre_wrapper.c.

                                                               {

    HYPRE_SStructVector cvector = (HYPRE_SStructVector)(*vector);

    *ierr = HYPRE_SStructVectorInitialize(cvector);

}
void c_sstructvectorsetboxvalues_ ( long int *  vector,
int *  part,
int *  lower,
int *  upper,
int *  var,
double *  values,
int *  ierr 
)

Definition at line 665 of file extended_hypre_wrapper.c.

                                                                                                                                   {

    HYPRE_SStructVector cvector = (HYPRE_SStructVector)(*vector);

    *ierr = HYPRE_SStructVectorSetBoxValues (cvector, *part, lower, upper, *var, values);
}
void c_sstructvectorgetboxvalues_ ( long int *  vector,
int *  part,
int *  lower,
int *  upper,
int *  var,
double *  values,
int *  ierr 
)

Definition at line 672 of file extended_hypre_wrapper.c.

                                                                                                                                   {

    HYPRE_SStructVector cvector = (HYPRE_SStructVector)(*vector);

    *ierr = HYPRE_SStructVectorGetBoxValues(cvector, *part, lower, upper, *var, values);
}
void c_sstructvectorsetobjecttype_ ( long int *  vector,
int *  obj_type,
int *  ierr 
)

Definition at line 679 of file extended_hypre_wrapper.c.

                                                                                  {

    int ctype;

    HYPRE_SStructVector cvector = (HYPRE_SStructVector)(*vector);

    switch(*obj_type) {
        case F_HYPRE_STRUCT:
            ctype = HYPRE_STRUCT;
            break;
        case F_HYPRE_SSTRUCT:
            ctype = HYPRE_SSTRUCT;
            break;
        case F_HYPRE_PARCSR:
            ctype = HYPRE_PARCSR;
            break;
        default:
            printf("C_SStructVectorSetObjectType error: invalid Fortran object code %d.\n", *obj_type);
    }


    *ierr = HYPRE_SStructVectorSetObjectType(cvector, ctype);

}
void c_sstructvectorgetobject_ ( long int *  vector,
long int *  object,
int *  ierr 
)

Definition at line 704 of file extended_hypre_wrapper.c.

                                                                                 {

    HYPRE_SStructVector cvector = (HYPRE_SStructVector)(*vector);
    HYPRE_ParVector cobject;

    *ierr = HYPRE_SStructVectorGetObject(cvector, (void **)&cobject);

    *object = (long int)(*object);

}
void c_sstructvectorgather_ ( long int *  vector,
int *  ierr 
)

Definition at line 715 of file extended_hypre_wrapper.c.

                                                           {
    HYPRE_SStructVector cvector = (HYPRE_SStructVector)(*vector);

    *ierr = HYPRE_SStructVectorGather(cvector);
}
void c_sstructvectorassemble_ ( long int *  vector,
int *  ierr 
)

Definition at line 721 of file extended_hypre_wrapper.c.

                                                             {

    HYPRE_SStructVector cvector = (HYPRE_SStructVector)(*vector);

    *ierr = HYPRE_SStructVectorAssemble(cvector);

}
void c_sstructvectorprint_ ( char *  filename,
long int *  vector,
int *  var3,
int *  ierr 
)

Definition at line 729 of file extended_hypre_wrapper.c.

                                                                                       {

    HYPRE_SStructVector cvector = (HYPRE_SStructVector)(*vector);

    *ierr = HYPRE_SStructVectorPrint(filename, cvector, *var3);

}
void c_sstructvectordestroy_ ( long int *  vector,
int *  ierr 
)

Definition at line 737 of file extended_hypre_wrapper.c.

                                                            {

    HYPRE_SStructVector cvector = (HYPRE_SStructVector)(*vector);

    *ierr = HYPRE_SStructVectorDestroy(cvector);
}
void c_sstructpcgcreate_ ( long int *  mpicomm,
long int *  solver,
int *  ierr 
)

Definition at line 748 of file extended_hypre_wrapper.c.

                                                                            {

    HYPRE_SStructSolver csolver;

    *ierr = HYPRE_SStructPCGCreate(MPI_COMM_WORLD, &csolver);

    *solver = (long int)csolver;
}
void c_sstructpcgsetup_ ( long int *  solver,
long int *  matrix,
long int *  bvector,
long int *  xvector,
int *  ierr 
)

Definition at line 757 of file extended_hypre_wrapper.c.

                                                                                                                 {

    HYPRE_SStructSolver csolver = (HYPRE_SStructSolver)(*solver);
    HYPRE_SStructMatrix cmatrix = (HYPRE_SStructMatrix)(*matrix);
    HYPRE_SStructVector c_bvector = (HYPRE_SStructVector)(*bvector);
    HYPRE_SStructVector c_xvector = (HYPRE_SStructVector)(*xvector);

    *ierr = HYPRE_SStructPCGSetup(csolver, cmatrix, c_bvector, c_xvector);
}
void c_sstructpcgsolve_ ( long int *  solver,
long int *  matrix,
long int *  bvector,
long int *  xvector,
int *  ierr 
)

Definition at line 767 of file extended_hypre_wrapper.c.

                                                                                                                 {

    HYPRE_SStructSolver csolver = (HYPRE_SStructSolver)(*solver);
    HYPRE_SStructMatrix cmatrix = (HYPRE_SStructMatrix)(*matrix);
    HYPRE_SStructVector c_bvector = (HYPRE_SStructVector)(*bvector);
    HYPRE_SStructVector c_xvector = (HYPRE_SStructVector)(*xvector);

    *ierr = HYPRE_SStructPCGSolve(csolver, cmatrix, c_bvector, c_xvector);
}
void c_sstructpcgsettol_ ( long int *  solver,
double *  tol,
int *  ierr 
)

Definition at line 777 of file extended_hypre_wrapper.c.

                                                                      {

    HYPRE_SStructSolver csolver = (HYPRE_SStructSolver)(*solver);

    *ierr = HYPRE_SStructPCGSetTol(csolver, *tol);
}
void c_sstructpcgsetprintlevel_ ( long int *  solver,
int *  level,
int *  ierr 
)

Definition at line 784 of file extended_hypre_wrapper.c.

                                                                            {

    HYPRE_SStructSolver csolver = (HYPRE_SStructSolver)(*solver);

    *ierr = HYPRE_SStructPCGSetPrintLevel(csolver, *level);

}
void c_sstructpcgdestroy_ ( long int *  solver,
int *  ierr 
)

Definition at line 792 of file extended_hypre_wrapper.c.

                                                         {

    HYPRE_SStructSolver csolver = (HYPRE_SStructSolver)(*solver);

    *ierr = HYPRE_SStructPCGDestroy(csolver);
}
void c_parcsrpcgcreate_ ( long int *  comm,
long int *  solver,
int *  ierr 
)

Definition at line 804 of file extended_hypre_wrapper.c.

                                                                        {

    MPI_Comm commval = (MPI_Comm)(*comm);
    HYPRE_Solver csolver;

    *ierr = HYPRE_ParCSRPCGCreate(MPI_COMM_WORLD, &csolver);

    *solver = (long int)csolver;

}
void c_parcsrpcgsettol_ ( long int *  solver,
double *  tol,
int *  ierr 
)

Definition at line 815 of file extended_hypre_wrapper.c.

                                                                     {
    HYPRE_Solver csolver = (HYPRE_Solver)(*solver);

    *ierr = HYPRE_ParCSRPCGSetTol(csolver, *tol);
}
void c_parcsrpcgsetup_ ( long int *  solver,
long int *  matrix,
long int *  bvector,
long int *  xvector,
int *  ierr 
)

Definition at line 821 of file extended_hypre_wrapper.c.

                                                                                                                 {
    HYPRE_Solver csolver = (HYPRE_Solver)(*solver);
    HYPRE_ParCSRMatrix cmatrix = (HYPRE_ParCSRMatrix)(*matrix);
    HYPRE_ParVector cbvector = (HYPRE_ParVector)(*bvector);
    HYPRE_ParVector cxvector = (HYPRE_ParVector)(*xvector);

    *ierr = HYPRE_ParCSRPCGSetup(csolver, cmatrix, cbvector, cxvector);
}
void c_parcsrpcgsolve_ ( long int *  solver,
long int *  matrix,
long int *  bvector,
long int *  xvector,
int *  ierr 
)

Definition at line 830 of file extended_hypre_wrapper.c.

                                                                                                                 {
    HYPRE_Solver csolver = (HYPRE_Solver)(*solver);
    HYPRE_ParCSRMatrix cmatrix = (HYPRE_ParCSRMatrix)(*matrix);
    HYPRE_ParVector cbvector = (HYPRE_ParVector)(*bvector);
    HYPRE_ParVector cxvector = (HYPRE_ParVector)(*xvector);

    *ierr = HYPRE_ParCSRPCGSolve(csolver, cmatrix, cbvector, cxvector);
}
void c_parcsrpcgsetprintlevel_ ( long int *  solver,
int *  print_level,
int *  ierr 
)

Definition at line 839 of file extended_hypre_wrapper.c.

                                                                                 {
    HYPRE_Solver csolver = (HYPRE_Solver)(*solver);

    *ierr = HYPRE_ParCSRPCGSetPrintLevel(csolver, *print_level);
}
void c_parcsrpcgdestroy_ ( long int *  solver,
int *  ierr 
)

Definition at line 845 of file extended_hypre_wrapper.c.

                                                        {
    HYPRE_Solver csolver = (HYPRE_Solver)(*solver);

    *ierr = HYPRE_ParCSRPCGDestroy(csolver);
}
void c_parcsrgotime_ ( long int *  matrix,
long int *  varvector,
long int *  solvector,
double *  tol,
int *  printlevel,
int *  ierr 
)

Definition at line 851 of file extended_hypre_wrapper.c.

                                                                                                                                {
   HYPRE_Solver          csolver;
   HYPRE_ParCSRMatrix    A;
   HYPRE_ParVector       b;
   HYPRE_ParVector       x;
   int commrank;

   *ierr = MPI_Comm_rank(MPI_COMM_WORLD, &commrank);

   HYPRE_SStructMatrix Amatrix = (HYPRE_SStructMatrix)(*matrix);
   HYPRE_SStructVector bvector = (HYPRE_SStructVector)(*varvector);
   HYPRE_SStructVector xvector = (HYPRE_SStructVector)(*solvector);

   *ierr = HYPRE_SStructMatrixGetObject(Amatrix, (void **) &A);
   *ierr = HYPRE_SStructVectorGetObject(bvector, (void **) &b);
   *ierr = HYPRE_SStructVectorGetObject(xvector, (void **) &x);

   *ierr = HYPRE_ParCSRPCGCreate(MPI_COMM_WORLD, &csolver);
   assert(*ierr == 0);

   *ierr = HYPRE_ParCSRPCGSetTol(csolver, *tol);
   assert(*ierr == 0);

   *ierr = HYPRE_ParCSRPCGSetPrintLevel(csolver, *printlevel);
   assert(*ierr == 0);

   *ierr = HYPRE_ParCSRPCGSetup(csolver, A, b, x);
   assert(*ierr == 0);
   
   *ierr = HYPRE_ParCSRPCGSolve(csolver, A, b, x);
   assert(*ierr == 0);

   *ierr = HYPRE_ParCSRPCGDestroy(csolver);
   assert(*ierr == 0);

}
void c_sstructgmrescreate_ ( long int *  comm,
long int *  solver,
int *  ierr 
)

Definition at line 892 of file extended_hypre_wrapper.c.

                                                                           {

    MPI_Comm commval = (MPI_Comm)(*comm);
    HYPRE_SStructSolver csolver;

    *ierr = HYPRE_SStructGMRESCreate(MPI_COMM_WORLD, &csolver);

    *solver = (long int)csolver;

}
void c_sstructgmresdestroy_ ( long int *  solver,
int *  ierr 
)

Definition at line 903 of file extended_hypre_wrapper.c.

                                                           {

    HYPRE_SStructSolver csolver = (HYPRE_SStructSolver)(*solver);

    *ierr = HYPRE_SStructGMRESDestroy(csolver);
}
void c_sstructgmressetup_ ( long int *  solver,
long int *  matrix,
long int *  bvector,
long int *  xvector,
int *  ierr 
)

Definition at line 910 of file extended_hypre_wrapper.c.

                                                                                                                   {

    HYPRE_SStructSolver csolver = (HYPRE_SStructSolver)(*solver);
    HYPRE_SStructMatrix cmatrix = (HYPRE_SStructMatrix)(*matrix);
    HYPRE_SStructVector c_bvector = (HYPRE_SStructVector)(*bvector);
    HYPRE_SStructVector c_xvector = (HYPRE_SStructVector)(*xvector);

    *ierr = HYPRE_SStructGMRESSetup(csolver, cmatrix, c_bvector, c_xvector);
}
void c_sstructgmressolve_ ( long int *  solver,
long int *  matrix,
long int *  bvector,
long int *  xvector,
int *  ierr 
)

Definition at line 920 of file extended_hypre_wrapper.c.

                                                                                                                   {

    HYPRE_SStructSolver csolver = (HYPRE_SStructSolver)(*solver);
    HYPRE_SStructMatrix cmatrix = (HYPRE_SStructMatrix)(*matrix);
    HYPRE_SStructVector c_bvector = (HYPRE_SStructVector)(*bvector);
    HYPRE_SStructVector c_xvector = (HYPRE_SStructVector)(*xvector);

    *ierr = HYPRE_SStructGMRESSolve(csolver, cmatrix, c_bvector, c_xvector);
}
void c_sstructgmressettol_ ( long int *  solver,
double *  tol,
int *  ierr 
)

Definition at line 930 of file extended_hypre_wrapper.c.

                                                                        {

    HYPRE_SStructSolver csolver = (HYPRE_SStructSolver)(*solver);

    *ierr = HYPRE_SStructGMRESSetTol(csolver, *tol);
}
void c_sstructgmressetprintlevel_ ( long int *  solver,
int *  level,
int *  ierr 
)

Definition at line 937 of file extended_hypre_wrapper.c.

                                                                              {

    HYPRE_SStructSolver csolver = (HYPRE_SStructSolver)(*solver);

    *ierr = HYPRE_SStructGMRESSetPrintLevel(csolver, *level);

}
void c_sstructgmressetkdim_ ( long int *  solver,
int *  k_dim,
int *  ierr 
)

Definition at line 945 of file extended_hypre_wrapper.c.

                                                                        {

    HYPRE_SStructSolver csolver = (HYPRE_SStructSolver)(*solver);

    *ierr = HYPRE_SStructGMRESSetKDim(csolver, *k_dim);

}
 All Classes Files Functions Variables