C++ (Cpp) hypre_F90_PassIntArray Beispiele

Beispiel #1

Datei: F90_HYPRE_struct_grid.c Projekt: tpatki/rapl-old-data

void
hypre_F90_IFACE(hypre_structgridsetextents, HYPRE_STRUCTGRIDSETEXTENTS)
   ( hypre_F90_Obj *grid,
     hypre_F90_IntArray *ilower,
     hypre_F90_IntArray *iupper,
     hypre_F90_Int *ierr )
{
   *ierr = (hypre_F90_Int)
      ( HYPRE_StructGridSetExtents(
           hypre_F90_PassObj (HYPRE_StructGrid, grid),
           hypre_F90_PassIntArray (ilower),
           hypre_F90_PassIntArray (iupper) ) );
}

Beispiel #2

Datei: F90_HYPRE_sstruct_grid.c Projekt: Chang-Liu-0520/hypre

void
hypre_F90_IFACE(hypre_sstructgridsetsharedpart, HYPRE_SSTRUCTGRIDSETSHAREDPART)
   (hypre_F90_Obj      *grid,
    hypre_F90_Int      *part,
    hypre_F90_IntArray *ilower,
    hypre_F90_IntArray *iupper,
    hypre_F90_IntArray *offset,
    hypre_F90_Int      *shared_part,
    hypre_F90_IntArray *shared_ilower,
    hypre_F90_IntArray *shared_iupper,
    hypre_F90_IntArray *shared_offset,
    hypre_F90_IntArray *index_map,
    hypre_F90_IntArray *index_dir,
    hypre_F90_Int      *ierr)
{
   *ierr = (hypre_F90_Int) HYPRE_SStructGridSetSharedPart(
      hypre_F90_PassObj      (HYPRE_SStructGrid, grid),
      hypre_F90_PassInt      (part),
      hypre_F90_PassIntArray (ilower),
      hypre_F90_PassIntArray (iupper),
      hypre_F90_PassIntArray (offset),
      hypre_F90_PassInt      (shared_part),
      hypre_F90_PassIntArray (shared_ilower),
      hypre_F90_PassIntArray (shared_iupper),
      hypre_F90_PassIntArray (shared_offset),
      hypre_F90_PassIntArray (index_map),
      hypre_F90_PassIntArray (index_dir) );
}

Beispiel #3

Datei: F90_HYPRE_struct_vector.c Projekt: ducpdx/hypre

void 
hypre_F90_IFACE(hypre_structvectorsetboxvalues, HYPRE_STRUCTVECTORSETBOXVALUES)
   ( hypre_F90_Obj *vector,
     hypre_F90_IntArray *ilower,
     hypre_F90_IntArray *iupper,
     hypre_F90_ComplexArray *values,
     hypre_F90_Int *ierr   )
{
   *ierr = (hypre_F90_Int)
      ( HYPRE_StructVectorSetBoxValues(
           hypre_F90_PassObj (HYPRE_StructVector, vector),
           hypre_F90_PassIntArray (ilower),
           hypre_F90_PassIntArray (iupper),
           hypre_F90_PassComplexArray (values)  ) );
}

Beispiel #4

Datei: F90_HYPRE_struct_vector.c Projekt: ducpdx/hypre

void 
hypre_F90_IFACE(hypre_structvectoraddtoboxvalue, HYPRE_STRUCTVECTORADDTOBOXVALUE)
   ( hypre_F90_Obj *vector,
     hypre_F90_IntArray *ilower,
     hypre_F90_IntArray *iupper,
     hypre_F90_ComplexArray *values,
     hypre_F90_Int *ierr   )
{
   *ierr = (hypre_F90_Int)
      ( HYPRE_StructVectorAddToBoxValues(
           hypre_F90_PassObj (HYPRE_StructVector, vector),
           hypre_F90_PassIntArray (ilower),
           hypre_F90_PassIntArray (iupper),
           hypre_F90_PassComplexArray (values)  ) );
}

Beispiel #5

Datei: F90_HYPRE_sstruct_grid.c Projekt: Chang-Liu-0520/hypre

void
hypre_F90_IFACE(hypre_sstructgridaddvariables, HYPRE_SSTRUCTGRIDADDVARIABLES)
   (hypre_F90_Obj      *grid,
    hypre_F90_Int      *part,
    hypre_F90_IntArray *index,
    hypre_F90_Int      *nvars,
    hypre_F90_IntArray *vartypes,
    hypre_F90_Int      *ierr)
{
   *ierr = (hypre_F90_Int) HYPRE_SStructGridAddVariables(
      hypre_F90_PassObj(HYPRE_SStructGrid, grid),
      hypre_F90_PassInt(part),
      hypre_F90_PassIntArray(index),
      hypre_F90_PassInt(nvars),
      hypre_F90_PassIntArray(vartypes));
}

Beispiel #6

Datei: F90_HYPRE_sstruct_vector.c Projekt: LLNL/COGENT

void
hypre_F90_IFACE(hypre_sstructvectoraddtoboxvalu, HYPRE_SSTRUCTVECTORADDTOBOXVALU)
   (hypre_F90_Obj *vector,
    hypre_F90_Int *part,
    hypre_F90_IntArray *ilower,
    hypre_F90_IntArray *iupper,
    hypre_F90_Int *var,
    hypre_F90_DblArray *values,
    hypre_F90_Int *ierr)
{
   *ierr = (hypre_F90_Int)
      (HYPRE_SStructVectorAddToBoxValues(
          hypre_F90_PassObj (HYPRE_SStructVector, vector),
          hypre_F90_PassInt (part),
          hypre_F90_PassIntArray (ilower),
          hypre_F90_PassIntArray (iupper),
          hypre_F90_PassInt (var),
          hypre_F90_PassDblArray (values) ) );
}

Beispiel #7

Datei: F90_HYPRE_sstruct_grid.c Projekt: Chang-Liu-0520/hypre

void
hypre_F90_IFACE(hypre_sstructgridsetnumghost, HYPRE_SSTRUCTGRIDSETNUMGHOST)
   (hypre_F90_Obj      *grid,
    hypre_F90_IntArray *num_ghost,
    hypre_F90_Int      *ierr)
{
   *ierr = (hypre_F90_Int) HYPRE_SStructGridSetNumGhost(
      hypre_F90_PassObj      (HYPRE_SStructGrid, grid),
      hypre_F90_PassIntArray (num_ghost) );
}

Beispiel #8

Datei: F90_HYPRE_sstruct_vector.c Projekt: ducpdx/hypre

void
hypre_F90_IFACE(hypre_sstructvectorgetboxvalues, HYPRE_SSTRUCTVECTORGETBOXVALUES)
   (hypre_F90_Obj *vector,
    hypre_F90_Int *part,
    hypre_F90_IntArray *ilower,
    hypre_F90_IntArray *iupper,
    hypre_F90_Int *var,
    hypre_F90_ComplexArray *values,
    hypre_F90_Int *ierr)
{
   *ierr = (hypre_F90_Int)
      (HYPRE_SStructVectorGetBoxValues(
          (HYPRE_SStructVector ) *vector,
          hypre_F90_PassInt (part),
          hypre_F90_PassIntArray (ilower),
          hypre_F90_PassIntArray (iupper),
          hypre_F90_PassInt (var),
          hypre_F90_PassComplexArray (values) ) );
}

Beispiel #9

Datei: F90_HYPRE_sstruct_vector.c Projekt: LLNL/COGENT

void
hypre_F90_IFACE(hypre_sstructvectorsetboxvalues, HYPRE_SSTRUCTVECTORSETBOXVALUES)
   (hypre_F90_Obj *vector,
    hypre_F90_Int *part,
    hypre_F90_IntArray *ilower,
    hypre_F90_IntArray *iupper,
    hypre_F90_Int *var,
    hypre_F90_DblArray *values,
    hypre_F90_Int *ierr)
{
   *ierr = (hypre_F90_Int)
      (HYPRE_SStructVectorSetBoxValues(
          hypre_F90_PassObj (HYPRE_SStructVector, vector),
          hypre_F90_PassInt (part),
          hypre_F90_PassIntArray (ilower),
          hypre_F90_PassIntArray (iupper),
          hypre_F90_PassInt (var),
          hypre_F90_PassDblArray (values) ) );
}

Beispiel #10

Datei: F90_HYPRE_parcsr_hybrid.c Projekt: ducpdx/hypre

void
hypre_F90_IFACE(hypre_parcsrhybridsetnumgridswe, HYPRE_PARCSRHYBRIDSETNUMGRIDSWE)
   (hypre_F90_Obj *solver,
    hypre_F90_IntArray *num_grid_sweeps,
    hypre_F90_Int *ierr)
{
   *ierr = (hypre_F90_Int)
      (HYPRE_ParCSRHybridSetNumGridSweeps(
          hypre_F90_PassObj (HYPRE_Solver, solver),
          hypre_F90_PassIntArray (num_grid_sweeps) ));
}

Beispiel #11

Datei: F90_HYPRE_struct_vector.c Projekt: ducpdx/hypre

void
hypre_F90_IFACE(hypre_structvectorsetnumghost, HYPRE_STRUCTVECTORSETNUMGHOST)
   ( hypre_F90_Obj *vector,
     hypre_F90_IntArray *num_ghost,
     hypre_F90_Int *ierr      )
{
   *ierr = (hypre_F90_Int)
      ( HYPRE_StructVectorSetNumGhost(
           hypre_F90_PassObj (HYPRE_StructVector, vector),
           hypre_F90_PassIntArray (num_ghost) ) );
}

Beispiel #12

Datei: F90_HYPRE_parcsr_schwarz.c Projekt: LLNL/COGENT

void
hypre_F90_IFACE(hypre_schwarzsetdoffunc, HYPRE_SCHWARZSETDOFFUNC)
   (hypre_F90_Obj *solver,
    hypre_F90_IntArray *dof_func,
    hypre_F90_Int *ierr)
{
   *ierr = (hypre_F90_Int)
      (HYPRE_SchwarzSetDofFunc(
          hypre_F90_PassObj (HYPRE_Solver, solver),
          hypre_F90_PassIntArray (dof_func)  ));
}

Beispiel #13

Datei: F90_HYPRE_parcsr_hybrid.c Projekt: ducpdx/hypre

void
hypre_F90_IFACE(hypre_parcsrhybridsetgridrelaxt, HYPRE_PARCSRHYBRIDSETGRIDRELAXT)
   (hypre_F90_Obj *solver,
    hypre_F90_IntArray *grid_relax_type,
    hypre_F90_Int *ierr)
{
   *ierr = (hypre_F90_Int)
      (HYPRE_ParCSRHybridSetGridRelaxType(
          hypre_F90_PassObj (HYPRE_Solver, solver),
          hypre_F90_PassIntArray (grid_relax_type) ));
}

Beispiel #14

Datei: F90_HYPRE_struct_grid.c Projekt: tpatki/rapl-old-data

void
hypre_F90_IFACE(hypre_structgridsetperiodic, HYPRE_STRUCTGRIDSETPERIODIC)
   ( hypre_F90_Obj *grid,
     hypre_F90_IntArray *periodic,
     hypre_F90_Int *ierr)
{
   *ierr = (hypre_F90_Int)
      ( HYPRE_StructGridSetPeriodic(
           hypre_F90_PassObj (HYPRE_StructGrid, grid),
           hypre_F90_PassIntArray (periodic)) );
}

Beispiel #15

Datei: F90_HYPRE_sstruct_grid.c Projekt: Chang-Liu-0520/hypre

void
hypre_F90_IFACE(hypre_sstructgridsetfemordering, HYPRE_SSTRUCTGRIDSETFEMORDERING)
   (hypre_F90_Obj      *grid,
    hypre_F90_Int      *part,
    hypre_F90_IntArray *ordering,
    hypre_F90_Int      *ierr)
{
   *ierr = (hypre_F90_Int) HYPRE_SStructGridSetFEMOrdering(
      hypre_F90_PassObj      (HYPRE_SStructGrid, grid),
      hypre_F90_PassInt      (part),
      hypre_F90_PassIntArray (ordering) );
}

Beispiel #16

Datei: F90_HYPRE_sstruct_matrix.c Projekt: LLNL/COGENT

void
hypre_F90_IFACE(hypre_sstructmatrixaddtovalues, HYPRE_SSTRUCTMATRIXADDTOVALUES)
   (hypre_F90_Obj *matrix,
    hypre_F90_Int *part,
    hypre_F90_IntArray *index,
    hypre_F90_Int *var,
    hypre_F90_Int *nentries,
    hypre_F90_IntArray *entries,
    hypre_F90_DblArray *values,
    hypre_F90_Int *ierr)
{
   *ierr = (hypre_F90_Int)
      (HYPRE_SStructMatrixAddToValues(
          hypre_F90_PassObj (HYPRE_SStructMatrix, matrix),
          hypre_F90_PassInt (part),
          hypre_F90_PassIntArray (index),
          hypre_F90_PassInt (var),
          hypre_F90_PassInt (nentries),
          hypre_F90_PassIntArray (entries),
          hypre_F90_PassDblArray (values)) );
}

Beispiel #17

Datei: F90_HYPRE_struct_stencil.c Projekt: Chang-Liu-0520/hypre

void
hypre_F90_IFACE(hypre_structstencilsetelement, HYPRE_STRUCTSTENCILSETELEMENT)
   ( hypre_F90_Obj *stencil,
     hypre_F90_Int *element_index,
     hypre_F90_IntArray *offset,
     hypre_F90_Int *ierr          )
{
   *ierr = (hypre_F90_Int) HYPRE_StructStencilSetElement(
      hypre_F90_PassObj (HYPRE_StructStencil, stencil),
      hypre_F90_PassInt (element_index),
      hypre_F90_PassIntArray (offset)       );
}

Beispiel #18

Datei: F90_HYPRE_struct_vector.c Projekt: ducpdx/hypre

void 
hypre_F90_IFACE(hypre_structvectorsetvalues, HYPRE_STRUCTVECTORSETVALUES)
   ( hypre_F90_Obj *vector,
     hypre_F90_IntArray *grid_index,
     hypre_F90_Complex *values,
     hypre_F90_Int *ierr       )
{
   *ierr = (hypre_F90_Int)
      ( HYPRE_StructVectorSetValues(
           hypre_F90_PassObj (HYPRE_StructVector, vector),
           hypre_F90_PassIntArray (grid_index),
           hypre_F90_PassComplex (values)     ) );
}

Beispiel #19

Datei: F90_HYPRE_sstruct_maxwell.c Projekt: Chang-Liu-0520/hypre

void
hypre_F90_IFACE(hypre_sstructmaxwellzerovector, HYPRE_SSTRUCTMAXWELLZEROVECTOR) 
   (hypre_F90_Obj *b, 
    hypre_F90_IntArray *rows,
    hypre_F90_Int *nrows,
    hypre_F90_Int *ierr)
{
   *ierr = (hypre_F90_Int)
      ( HYPRE_SStructMaxwellZeroVector(
           hypre_F90_PassObj (HYPRE_ParVector, b),
           hypre_F90_PassIntArray (rows),
           hypre_F90_PassInt (nrows) ));
}      

Beispiel #20

Datei: F90_HYPRE_sstruct_maxwell.c Projekt: Chang-Liu-0520/hypre

void
hypre_F90_IFACE(hypre_sstructmaxwelleliminatero, HYPRE_SSTRUCTMAXWELLELIMINATERO) 
   (hypre_F90_Obj *A, 
    hypre_F90_Int *nrows,
    hypre_F90_IntArray *rows,
    hypre_F90_Int *ierr)
{
   *ierr = (hypre_F90_Int)
      ( HYPRE_SStructMaxwellEliminateRowsCols(
           hypre_F90_PassObj (HYPRE_ParCSRMatrix, A),
           hypre_F90_PassInt (nrows),
           hypre_F90_PassIntArray (rows) ));
}      

Beispiel #21

Datei: F90_HYPRE_sstruct_matrix.c Projekt: LLNL/COGENT

void
hypre_F90_IFACE(hypre_sstructmatrixgetboxvalues, HYPRE_SSTRUCTMATRIXGETBOXVALUES)
   (hypre_F90_Obj *matrix,
    hypre_F90_Int *part,
    hypre_F90_IntArray *ilower,
    hypre_F90_IntArray *iupper,
    hypre_F90_Int *var,
    hypre_F90_Int *nentries,
    hypre_F90_IntArray *entries,
    hypre_F90_DblArray *values,
    hypre_F90_Int *ierr)
{
   *ierr = (hypre_F90_Int)
      (HYPRE_SStructMatrixGetBoxValues(
          hypre_F90_PassObj (HYPRE_SStructMatrix, matrix),
          hypre_F90_PassInt (part),
          hypre_F90_PassIntArray (ilower),
          hypre_F90_PassIntArray (iupper),
          hypre_F90_PassInt (var),
          hypre_F90_PassInt (nentries),
          hypre_F90_PassIntArray (entries),
          hypre_F90_PassDblArray (values)));
}

Beispiel #22

Datei: F90_HYPRE_sstruct_grid.c Projekt: Chang-Liu-0520/hypre

void
hypre_F90_IFACE(hypre_sstructgridsetvariables, HYPRE_SSTRUCTGRIDSETVARIABLES)
   (hypre_F90_Obj      *grid,
    hypre_F90_Int      *part,
    hypre_F90_Int      *nvars,
    hypre_F90_IntArray *vartypes,
    hypre_F90_Int      *ierr)
{
   *ierr = (hypre_F90_Int) HYPRE_SStructGridSetVariables(
      hypre_F90_PassObj      (HYPRE_SStructGrid, grid),
      hypre_F90_PassInt      (part),
      hypre_F90_PassInt      (nvars),
      hypre_F90_PassIntArray (vartypes) );
}

Beispiel #23

Datei: F90_HYPRE_sstruct_matrix.c Projekt: LLNL/COGENT

void
hypre_F90_IFACE(hypre_sstructmatrixaddfemvalues, HYPRE_SSTRUCTMATRIXADDFEMVALUES)
   (hypre_F90_Obj *matrix,
    hypre_F90_Int *part,
    hypre_F90_IntArray *index,
    hypre_F90_DblArray *values,
    hypre_F90_Int *ierr)
{
   *ierr = (hypre_F90_Int)
      (HYPRE_SStructMatrixAddFEMValues(
          hypre_F90_PassObj (HYPRE_SStructMatrix, matrix),
          hypre_F90_PassInt (part),
          hypre_F90_PassIntArray (index),
          hypre_F90_PassDblArray (values)) );
}

Beispiel #24

Datei: F90_HYPRE_parcsr_vector.c Projekt: Chang-Liu-0520/hypre

void
hypre_F90_IFACE(hypre_parvectorcreate, HYPRE_PARVECTORCREATE)
   ( hypre_F90_Comm *comm,
     hypre_F90_Int *global_size,
     hypre_F90_IntArray *partitioning,
     hypre_F90_Obj *vector,
     hypre_F90_Int *ierr )
{
   *ierr = (hypre_F90_Int) HYPRE_ParVectorCreate(
      hypre_F90_PassComm (comm),
      hypre_F90_PassInt (global_size),
      hypre_F90_PassIntArray (partitioning),
      hypre_F90_PassObjRef (HYPRE_ParVector, vector) );

}

Beispiel #25

Datei: F90_HYPRE_sstruct_grid.c Projekt: apc-llc/hypre

void
hypre_F90_IFACE(hypre_sstructgridaddvariable, HYPRE_SSTRUCTGRIDADDVARIABLE)
   (hypre_F90_Obj      *grid,
    hypre_F90_Int      *part,
    hypre_F90_IntArray *index,
    hypre_F90_Int      *var,
    hypre_F90_Int      *vartype,
    hypre_F90_Int      *ierr)
{
   *ierr = (hypre_F90_Int) HYPRE_SStructGridAddVariable(
      hypre_F90_PassObj      (HYPRE_SStructGrid, grid),
      hypre_F90_PassInt      (part),
      hypre_F90_PassIntArray (index),
      hypre_F90_PassInt      (var),
      hypre_F90_PassObj      (HYPRE_SStructVariable, vartype) );
}

Beispiel #26

Datei: F90_HYPRE_ams.c Projekt: ducpdx/hypre

void
hypre_F90_IFACE(hypre_amsconstructdiscretegradient, HYPRE_AMSCONSTRUCTDISCRETEGRADIENT)
   ( hypre_F90_Obj *A,
     hypre_F90_Obj *x_coord,
     hypre_F90_IntArray *edge_vertex,
     hypre_F90_Int *edge_orientation,
     hypre_F90_Obj *G,
     hypre_F90_Int *ierr)
{
   *ierr = (hypre_F90_Int)
      ( HYPRE_AMSConstructDiscreteGradient(
           hypre_F90_PassObj (HYPRE_ParCSRMatrix, A),
           hypre_F90_PassObj (HYPRE_ParVector, x_coord),
           hypre_F90_PassIntArray (edge_vertex),
           hypre_F90_PassInt (edge_orientation),
           hypre_F90_PassObjRef (HYPRE_ParCSRMatrix, G) ) );
}

Beispiel #27

Datei: F90_HYPRE_sstruct_vector.c Projekt: LLNL/COGENT

void
hypre_F90_IFACE(hypre_sstructvectorsetvalues, HYPRE_SSTRUCTVECTORSETVALUES)
   (hypre_F90_Obj *vector,
    hypre_F90_Int *part,
    hypre_F90_IntArray *index,
    hypre_F90_Int *var,
    hypre_F90_Dbl *value,
    hypre_F90_Int *ierr)
{
   *ierr = (hypre_F90_Int)
      (HYPRE_SStructVectorSetValues(
          hypre_F90_PassObj (HYPRE_SStructVector, vector),
          hypre_F90_PassInt (part),
          hypre_F90_PassIntArray (index),
          hypre_F90_PassInt (var),
          hypre_F90_PassDblRef (value) ) );
}

Beispiel #28

Datei: F90_HYPRE_sstruct_vector.c Projekt: ducpdx/hypre

void
hypre_F90_IFACE(hypre_sstructvectoraddtovalues, HYPRE_SSTRUCTVECTORADDTOVALUES)
   (hypre_F90_Obj *vector,
    hypre_F90_Int *part,
    hypre_F90_IntArray *index,
    hypre_F90_Int *var,
    hypre_F90_Complex *value,
    hypre_F90_Int *ierr)
{
   *ierr = (hypre_F90_Int)
      (HYPRE_SStructVectorAddToValues(
          hypre_F90_PassObj (HYPRE_SStructVector, vector),
          hypre_F90_PassInt (part),
          hypre_F90_PassIntArray (index),
          hypre_F90_PassInt (var),
          hypre_F90_PassComplexRef (value) ) );
}

Beispiel #29

Datei: F90_HYPRE_sstruct_grid.c Projekt: Chang-Liu-0520/hypre

void
hypre_F90_IFACE(hypre_sstructgridsetneighborpart, HYPRE_SSTRUCTGRIDSETNEIGHBORPART)
   (hypre_F90_Obj      *grid,
    hypre_F90_Int      *part,
    hypre_F90_IntArray *ilower,
    hypre_F90_IntArray *iupper,
    hypre_F90_Int      *nbor_part,
    hypre_F90_IntArray *nbor_ilower,
    hypre_F90_IntArray *nbor_iupper,
    hypre_F90_IntArray *index_map,
    hypre_F90_IntArray *index_dir,
    hypre_F90_Int      *ierr)
{
   *ierr = (hypre_F90_Int) HYPRE_SStructGridSetNeighborPart(
      hypre_F90_PassObj      (HYPRE_SStructGrid, grid),
      hypre_F90_PassInt      (part),
      hypre_F90_PassIntArray (ilower),
      hypre_F90_PassIntArray (iupper),
      hypre_F90_PassInt      (nbor_part),
      hypre_F90_PassIntArray (nbor_ilower),
      hypre_F90_PassIntArray (nbor_iupper),
      hypre_F90_PassIntArray (index_map),
      hypre_F90_PassIntArray (index_dir) );
}