Scrambler
1
|
Go to the source code of this file.
Functions/Subroutines | |
void | c_structgridcreate (long int *, int *, long int *, int *) |
void | c_structgridsetextents (long int *, int *, int *, int *) |
void | c_structgridassemble (long int *, int *) |
void | c_structgriddestroy (long int *, int *) |
void | c_structstencilcreate (int *, int *, long int *, int *) |
void | c_structstencilsetelement (long int *, int *, int *, int *) |
void | c_structstencildestroy (long int *, int *) |
void | c_structmatrixcreate (long int *, long int *, long int *, long int *, int *) |
void | c_structmatrixinitialize (long int *, int *) |
void | c_structmatrixsetboxvalues (long int *, int *, int *, int *, int *, double *, int *) |
void | c_structmatrixassemble (long int *, int *) |
void | c_structmatrixdestroy (long int *, int *) |
void | c_structvectorcreate (long int *, long int *, long int *, int *) |
void | c_structvectorinitialize (long int *, int *) |
void | c_structvectorsetboxvalues (long int *, int *, int *, double *, int *) |
void | c_structvectorgetboxvalues (long int *, int *, int *, double *, int *) |
void | c_structvectorassemble (long int *, int *) |
void | c_structvectordestroy (long int *, int *) |
void | c_structpcgcreate (long int *, long int *, int *) |
void | c_structpcgsetup (long int *, long int *, long int *, long int *, int *) |
void | c_structpcgsolve (long int *, long int *, long int *, long int *, int *) |
void | c_structpcgsettol (long int *, double *, int *) |
void | c_structpcgsetprintlevel (long int *, int *, int *) |
void | c_structpcgdestroy (long int *, int *) |
void | c_structgmrescreate (long int *, long int *, int *) |
void | c_structgmresdestroy (long int *, int *) |
void | c_structgmressetup (long int *, long int *, long int *, long int *, int *) |
void | c_structgmressolve (long int *, long int *, long int *, long int *, int *) |
void | c_structgmressettol (long int *, double *, int *) |
void | c_structgmressetprintlevel (long int *, int *, int *) |
void | c_sstructgridcreate (long int *, int *, int *, long int *, int *) |
void | c_sstructgridsetextents (long int *, int *, int *, int *, int *) |
void | c_sstructgridsetperiodic (long int *, int *, int *, int *) |
void | c_sstructgridsetvariables (long int *, int *, int *, int *) |
void | c_sstructgridassemble (long int *, int *) |
void | c_sstructgriddestroy (long int *, int *) |
void | c_sstructgridsetnumghost (long int *, int *, int *) |
void | c_sstructstencilcreate (int *, int *, long int *, int *) |
void | c_sstructstencilsetentry (long int *, int *, int *, int *, int *) |
void | c_sstructstencildestroy (long int *, int *) |
void | c_sstructgraphcreate (long int *, long int *, long int *, int *) |
void | c_sstructgraphsetstencil (long int *, int *, int *, long int *, int *) |
void | c_sstructgraphaddentries (long int *, int *, int *, int *, int *, int *, int *, int *) |
void | c_sstructgraphassemble (long int *, int *) |
void | c_sstructgraphdestroy (long int *, int *) |
void | c_sstructmatrixcreate (long int *, long int *, long int *, int *) |
void | c_sstructmatrixsetobjecttype (long int *, int *, int *) |
void | c_sstructmatrixgetobject (long int *, long int *, int *) |
void | c_sstructmatrixinitialize (long int *, int *) |
void | c_sstructmatrixsetboxvalues (long int *, int *, int *, int *, int *, int *, int *, double *, int *) |
void | c_sstructmatrixsetvalues (long int *, int *, int *, int *, int *, int *, double *, int *) |
void | c_sstructmatrixassemble (long int *, int *) |
void | c_sstructmatrixdestroy (long int *, int *) |
void | c_sstructmatrixprint (char *, long int *, int *, int *) |
void | c_sstructvectorcreate (long int *, long int *, long int *, int *) |
void | c_sstructvectorinitialize (long int *, int *) |
void | c_sstructvectorsetboxvalues (long int *, int *, int *, int *, int *, double *, int *) |
void | c_sstructvectorgetboxvalues (long int *, int *, int *, int *, int *, double *, int *) |
void | c_sstructvectorsetbobjecttype (long int *, int *, int *) |
void | c_sstructvectorgetobject (long int *, long int *, int *) |
void | c_sstructvectorgather (long int *, int *) |
void | c_sstructvectorassemble (long int *, int *) |
void | c_sstructvectordestroy (long int *, int *) |
void | c_sstructpcgcreate (long int *, long int *, int *) |
void | c_sstructpcgsetup (long int *, long int *, long int *, long int *, int *) |
void | c_sstructpcgsolve (long int *, long int *, long int *, long int *, int *) |
void | c_sstructpcgsettol (long int *, double *, int *) |
void | c_sstructpcgsetprintlevel (long int *, int *, int *) |
void | c_sstructpcgdestroy (long int *, int *) |
void | c_parcsrpcgcreate (long int *, long int *, int *) |
void | c_parcsrpcgsettol (long int *, double *, int *) |
void | c_parcsrpcgsetup (long int *, long int *, long int *, long int *, int *) |
void | c_parcsrpcgsolve (long int *, long int *, long int *, long int *, int *) |
void | c_parcsrpcgsetprintlevel (long int *, int *, int *) |
void | c_parcsrpcgdestroy (long int *, int *) |
void | c_parcsrgotime (long int *, long int *, long int *, double *, int *, int *) |
void | c_sstructgmrescreate (long int *, long int *, int *) |
void | c_sstructgmresdestroy (long int *, int *) |
void | c_sstructgmressetup (long int *, long int *, long int *, long int *, int *) |
void | c_sstructgmressolve (long int *, long int *, long int *, long int *, int *) |
void | c_sstructgmressettol (long int *, double *, int *) |
void | c_sstructgmressetprintlevel (long int *, int *, int *) |
void | c_sstructgmressetkdim (long int *, int *, int *) |
void c_structgridcreate | ( | long int * | , |
int * | , | ||
long int * | , | ||
int * | |||
) |
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 * | , |
int * | , | ||
int * | , | ||
int * | |||
) |
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_structgridassemble | ( | long int * | , |
int * | |||
) |
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 * | , |
int * | |||
) |
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 * | , |
int * | , | ||
long int * | , | ||
int * | |||
) |
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 * | , |
int * | , | ||
int * | , | ||
int * | |||
) |
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 * | , |
int * | |||
) |
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 * | , |
long int * | , | ||
long int * | , | ||
long int * | , | ||
int * | |||
) |
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 * | , |
int * | |||
) |
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 * | , |
int * | , | ||
int * | , | ||
int * | , | ||
int * | , | ||
double * | , | ||
int * | |||
) |
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 * | , |
int * | |||
) |
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 * | , |
int * | |||
) |
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 * | , |
long int * | , | ||
long int * | , | ||
int * | |||
) |
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 * | , |
int * | |||
) |
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 * | , |
int * | , | ||
int * | , | ||
double * | , | ||
int * | |||
) |
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 * | , |
int * | , | ||
int * | , | ||
double * | , | ||
int * | |||
) |
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 * | , |
int * | |||
) |
Definition at line 219 of file extended_hypre_wrapper.bg.c.
{ HYPRE_StructVector cvector = (HYPRE_StructVector)(*vector); *ierr = HYPRE_StructVectorAssemble(cvector); }
void c_structvectordestroy | ( | long int * | , |
int * | |||
) |
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 * | , |
long int * | , | ||
int * | |||
) |
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 * | , |
long int * | , | ||
long int * | , | ||
long int * | , | ||
int * | |||
) |
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 * | , |
long int * | , | ||
long int * | , | ||
long int * | , | ||
int * | |||
) |
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 * | , |
double * | , | ||
int * | |||
) |
Definition at line 281 of file extended_hypre_wrapper.bg.c.
{ HYPRE_StructSolver csolver = (HYPRE_StructSolver)(*solver); *ierr = HYPRE_StructPCGSetTol(csolver, *tol); }
void c_structpcgsetprintlevel | ( | long int * | , |
int * | , | ||
int * | |||
) |
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 * | , |
int * | |||
) |
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 * | , |
long int * | , | ||
int * | |||
) |
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 * | , |
int * | |||
) |
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 * | , |
long int * | , | ||
long int * | , | ||
long int * | , | ||
int * | |||
) |
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 * | , |
long int * | , | ||
long int * | , | ||
long int * | , | ||
int * | |||
) |
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 * | , |
double * | , | ||
int * | |||
) |
Definition at line 360 of file extended_hypre_wrapper.bg.c.
{ HYPRE_StructSolver csolver = (HYPRE_StructSolver)(*solver); *ierr = HYPRE_StructGMRESSetTol(csolver, *tol); }
void c_structgmressetprintlevel | ( | long int * | , |
int * | , | ||
int * | |||
) |
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 * | , |
int * | , | ||
int * | , | ||
int * | , | ||
int * | |||
) |
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_sstructgridsetperiodic | ( | long int * | , |
int * | , | ||
int * | , | ||
int * | |||
) |
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_sstructgridsetvariables | ( | long int * | , |
int * | , | ||
int * | , | ||
int * | |||
) |
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 * | , |
int * | |||
) |
Definition at line 426 of file extended_hypre_wrapper.bg.c.
{ HYPRE_SStructGrid cgrid = (HYPRE_SStructGrid)(*grid); *ierr = HYPRE_SStructGridAssemble(cgrid); }
void c_sstructgriddestroy | ( | long int * | , |
int * | |||
) |
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 * | , |
int * | , | ||
int * | |||
) |
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 * | , |
int * | , | ||
long int * | , | ||
int * | |||
) |
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 * | , |
int * | , | ||
int * | , | ||
int * | , | ||
int * | |||
) |
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 * | , |
int * | |||
) |
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 * | , |
long int * | , | ||
long int * | , | ||
int * | |||
) |
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 * | , |
int * | , | ||
int * | , | ||
long int * | , | ||
int * | |||
) |
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 * | , |
int * | , | ||
int * | , | ||
int * | , | ||
int * | , | ||
int * | , | ||
int * | , | ||
int * | |||
) |
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 * | , |
int * | |||
) |
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 * | , |
int * | |||
) |
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 * | , |
long int * | , | ||
long int * | , | ||
int * | |||
) |
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 * | , |
int * | , | ||
int * | |||
) |
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 * | , |
long int * | , | ||
int * | |||
) |
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 * | , |
int * | |||
) |
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 * | , |
int * | , | ||
int * | , | ||
int * | , | ||
int * | , | ||
int * | , | ||
int * | , | ||
double * | , | ||
int * | |||
) |
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 * | , |
int * | , | ||
int * | , | ||
int * | , | ||
int * | , | ||
int * | , | ||
double * | , | ||
int * | |||
) |
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 * | , |
int * | |||
) |
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 * | , |
int * | |||
) |
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 * | , |
long int * | , | ||
int * | , | ||
int * | |||
) |
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 * | , |
long int * | , | ||
long int * | , | ||
int * | |||
) |
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 * | , |
int * | |||
) |
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 * | , |
int * | , | ||
int * | , | ||
int * | , | ||
int * | , | ||
double * | , | ||
int * | |||
) |
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 * | , |
int * | , | ||
int * | , | ||
int * | , | ||
int * | , | ||
double * | , | ||
int * | |||
) |
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_sstructvectorsetbobjecttype | ( | long int * | , |
int * | , | ||
int * | |||
) |
void c_sstructvectorgetobject | ( | long int * | , |
long int * | , | ||
int * | |||
) |
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 * | , |
int * | |||
) |
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 * | , |
int * | |||
) |
Definition at line 721 of file extended_hypre_wrapper.bg.c.
{ HYPRE_SStructVector cvector = (HYPRE_SStructVector)(*vector); *ierr = HYPRE_SStructVectorAssemble(cvector); }
void c_sstructvectordestroy | ( | long int * | , |
int * | |||
) |
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 * | , |
long int * | , | ||
int * | |||
) |
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 * | , |
long int * | , | ||
long int * | , | ||
long int * | , | ||
int * | |||
) |
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 * | , |
long int * | , | ||
long int * | , | ||
long int * | , | ||
int * | |||
) |
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 * | , |
double * | , | ||
int * | |||
) |
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 * | , |
int * | , | ||
int * | |||
) |
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 * | , |
int * | |||
) |
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 * | , |
long int * | , | ||
int * | |||
) |
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 * | , |
double * | , | ||
int * | |||
) |
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 * | , |
long int * | , | ||
long int * | , | ||
long int * | , | ||
int * | |||
) |
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 * | , |
long int * | , | ||
long int * | , | ||
long int * | , | ||
int * | |||
) |
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 * | , |
int * | , | ||
int * | |||
) |
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 * | , |
int * | |||
) |
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 * | , |
long int * | , | ||
long int * | , | ||
double * | , | ||
int * | , | ||
int * | |||
) |
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 * | , |
long int * | , | ||
int * | |||
) |
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 * | , |
int * | |||
) |
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 * | , |
long int * | , | ||
long int * | , | ||
long int * | , | ||
int * | |||
) |
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 * | , |
long int * | , | ||
long int * | , | ||
long int * | , | ||
int * | |||
) |
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 * | , |
double * | , | ||
int * | |||
) |
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 * | , |
int * | , | ||
int * | |||
) |
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 * | , |
int * | , | ||
int * | |||
) |
Definition at line 945 of file extended_hypre_wrapper.bg.c.
{ HYPRE_SStructSolver csolver = (HYPRE_SStructSolver)(*solver); *ierr = HYPRE_SStructGMRESSetKDim(csolver, *k_dim); }