Scrambler
1
|
Header file for extended_hypre_wrapper.c. More...
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 *) |
Header file for extended_hypre_wrapper.c.
Definition in file extended_hypre_wrapper.h.
void c_structgridcreate_ | ( | long int * | , |
int * | , | ||
long int * | , | ||
int * | |||
) |
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 * | , |
int * | , | ||
int * | , | ||
int * | |||
) |
Definition at line 75 of file extended_hypre_wrapper.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.c.
{ HYPRE_StructSolver csolver = (HYPRE_StructSolver)(*solver); *ierr = HYPRE_StructPCGSetTol(csolver, *tol); }
void c_structpcgsetprintlevel_ | ( | long int * | , |
int * | , | ||
int * | |||
) |
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 * | , |
int * | |||
) |
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 * | , |
long int * | , | ||
int * | |||
) |
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 * | , |
int * | |||
) |
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 * | , |
long int * | , | ||
long int * | , | ||
long int * | , | ||
int * | |||
) |
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 * | , |
long int * | , | ||
long int * | , | ||
long int * | , | ||
int * | |||
) |
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 * | , |
double * | , | ||
int * | |||
) |
Definition at line 361 of file extended_hypre_wrapper.c.
{ HYPRE_StructSolver csolver = (HYPRE_StructSolver)(*solver); *ierr = HYPRE_StructGMRESSetTol(csolver, *tol); }
void c_structgmressetprintlevel_ | ( | long int * | , |
int * | , | ||
int * | |||
) |
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 * | , |
int * | , | ||
int * | , | ||
int * | , | ||
int * | |||
) |
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_sstructgridsetperiodic_ | ( | long int * | , |
int * | , | ||
int * | , | ||
int * | |||
) |
Definition at line 433 of file extended_hypre_wrapper.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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); }