Scrambler  1
extended_hypre_wrapper.bg.c File Reference

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)

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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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 302 of file extended_hypre_wrapper.bg.c.

                                                                          {

    HYPRE_StructSolver csolver = (HYPRE_StructSolver)(*solver);

    *ierr = HYPRE_StructPCGSetPrintLevel(csolver, *level);

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

Definition at line 310 of file extended_hypre_wrapper.bg.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 322 of file extended_hypre_wrapper.bg.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 333 of file extended_hypre_wrapper.bg.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 340 of file extended_hypre_wrapper.bg.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 350 of file extended_hypre_wrapper.bg.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 360 of file extended_hypre_wrapper.bg.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 367 of file extended_hypre_wrapper.bg.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 374 of file extended_hypre_wrapper.bg.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 381 of file extended_hypre_wrapper.bg.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 400 of file extended_hypre_wrapper.bg.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 409 of file extended_hypre_wrapper.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.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.bg.c.

                                                                       {

    HYPRE_SStructSolver csolver = (HYPRE_SStructSolver)(*solver);

    *ierr = HYPRE_SStructGMRESSetKDim(csolver, *k_dim);

}
 All Classes Files Functions Variables