C++ (Cpp) hypre_F90_PassInt Exemples

Exemple #1

Fichier : F90_HYPRE_sstruct_grid.c Projet : 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) );
}

Exemple #2

Fichier : F90_HYPRE_error.c Projet : quinoacomputing/HYPRE

void
hypre_F90_IFACE(hypre_checkerror, HYPRE_CHECKERROR)
(hypre_F90_Int *ierr,
 hypre_F90_Int *hypre_error_code,
 hypre_F90_Int *result)
{
    *result = (hypre_F90_Int) HYPRE_CheckError(
                  hypre_F90_PassInt(ierr),
                  hypre_F90_PassInt(hypre_error_code));
}

Exemple #3

Fichier : F90_HYPRE_sstruct_grid.c Projet : Chang-Liu-0520/hypre

void
hypre_F90_IFACE(hypre_sstructgridaddunstructure, HYPRE_SSTRUCTGRIDADDUNSTRUCTURE)
   (hypre_F90_Obj *grid,
    hypre_F90_Int *ilower,
    hypre_F90_Int *iupper,
    hypre_F90_Int *ierr)
{
   *ierr = (hypre_F90_Int) HYPRE_SStructGridAddUnstructuredPart(
      hypre_F90_PassObj (HYPRE_SStructGrid, grid),
      hypre_F90_PassInt (ilower),
      hypre_F90_PassInt (iupper) );
}

Exemple #4

Fichier : F90_HYPRE_struct_stencil.c Projet : Chang-Liu-0520/hypre

void
hypre_F90_IFACE(hypre_structstencilcreate, HYPRE_STRUCTSTENCILCREATE)
   ( hypre_F90_Int *dim,
     hypre_F90_Int *size,
     hypre_F90_Obj *stencil,
     hypre_F90_Int *ierr    )
{
   *ierr = (hypre_F90_Int) HYPRE_StructStencilCreate(
      hypre_F90_PassInt (dim),
      hypre_F90_PassInt (size),
      hypre_F90_PassObjRef (HYPRE_StructStencil, stencil) );
}

Exemple #5

Fichier : F90_HYPRE_parcsr_hybrid.c Projet : ducpdx/hypre

void
hypre_F90_IFACE(hypre_parcsrhybridsetcyclerelax, HYPRE_PARCSRHYBRIDSETCYCLERELAX)
   (hypre_F90_Obj *solver,
    hypre_F90_Int *relax_type,
    hypre_F90_Int *k,
    hypre_F90_Int *ierr)
{
   *ierr = (hypre_F90_Int)
      (HYPRE_ParCSRHybridSetCycleRelaxType(
          hypre_F90_PassObj (HYPRE_Solver, solver),
          hypre_F90_PassInt (relax_type),
          hypre_F90_PassInt (k) ));
}

Exemple #6

Fichier : F90_HYPRE_parcsr_hybrid.c Projet : ducpdx/hypre

void
hypre_F90_IFACE(hypre_parcsrhybridsetcyclenumsw, HYPRE_PARCSRHYBRIDSETCYCLENUMSW)
   (hypre_F90_Obj *solver,
    hypre_F90_Int *num_sweeps,
    hypre_F90_Int *k,
    hypre_F90_Int *ierr)
{
   *ierr = (hypre_F90_Int)
      (HYPRE_ParCSRHybridSetCycleNumSweeps(
          hypre_F90_PassObj (HYPRE_Solver, solver),
          hypre_F90_PassInt (num_sweeps),
          hypre_F90_PassInt (k) ));
}

Exemple #7

Fichier : F90_HYPRE_sstruct_grid.c Projet : Chang-Liu-0520/hypre

void
hypre_F90_IFACE(hypre_sstructgridcreate, HYPRE_SSTRUCTGRIDCREATE)
   (hypre_F90_Comm   *comm,
    hypre_F90_Int    *ndim,
    hypre_F90_Int    *nparts,
    hypre_F90_ObjRef *grid_ptr,
    hypre_F90_Int    *ierr)
{
   *ierr = (hypre_F90_Int) HYPRE_SStructGridCreate(
      hypre_F90_PassComm   (comm),
      hypre_F90_PassInt    (ndim),
      hypre_F90_PassInt    (nparts),
      hypre_F90_PassObjRef (HYPRE_SStructGrid, grid_ptr) );
}

Exemple #8

Fichier : F90_HYPRE_sstruct_grid.c Projet : 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) );
}

Exemple #9

Fichier : F90_HYPRE_sstruct_grid.c Projet : 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));
}

Exemple #10

Fichier : F90_HYPRE_sstruct_grid.c Projet : 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) );
}

Exemple #11

Fichier : F90_HYPRE_sstruct_grid.c Projet : apc-llc/hypre

void
hypre_F90_IFACE(hypre_sstructgridsetvariable, HYPRE_SSTRUCTGRIDSETVARIABLE)
   (hypre_F90_Obj *grid,
    hypre_F90_Int *part,
    hypre_F90_Int *var,
    hypre_F90_Int *nvars,
    hypre_F90_Int *vartype,
    hypre_F90_Int *ierr)
{
   *ierr = (hypre_F90_Int) HYPRE_SStructGridSetVariable(
      hypre_F90_PassObj (HYPRE_SStructGrid, grid),
      hypre_F90_PassInt (part),
      hypre_F90_PassInt (var),
      hypre_F90_PassInt (nvars),
      hypre_F90_PassObj (HYPRE_SStructVariable, vartype) );
}

Exemple #12

Fichier : F90_HYPRE_sstruct_matrix.c Projet : LLNL/COGENT

void
hypre_F90_IFACE(hypre_sstructmatrixsetsymmetric, HYPRE_SSTRUCTMATRIXSETSYMMETRIC)
   (hypre_F90_Obj *matrix,
    hypre_F90_Int *part,
    hypre_F90_Int *var,
    hypre_F90_Int *to_var,
    hypre_F90_Int *symmetric,
    hypre_F90_Int *ierr)
{
   *ierr = (hypre_F90_Int)
      (HYPRE_SStructMatrixSetSymmetric(
          hypre_F90_PassObj (HYPRE_SStructMatrix, matrix),
          hypre_F90_PassInt (part),
          hypre_F90_PassInt (var),
          hypre_F90_PassInt (to_var),
          hypre_F90_PassInt (symmetric) ));
}

Exemple #13

Fichier : F90_HYPRE_sstruct_vector.c Projet : 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) ) );
}

Exemple #14

Fichier : F90_HYPRE_ams.c Projet : ducpdx/hypre

void
hypre_F90_IFACE(hypre_amssetsmoothingoptions, HYPRE_AMSSETSMOOTHINGOPTIONS)
   ( hypre_F90_Obj *solver,
     hypre_F90_Int *relax_type,
     hypre_F90_Int *relax_times,
     hypre_F90_Real *relax_weight,
     hypre_F90_Real *omega,
     hypre_F90_Int *ierr)
{
   *ierr = (hypre_F90_Int)
      ( HYPRE_AMSSetSmoothingOptions(
           hypre_F90_PassObj (HYPRE_Solver, solver),
           hypre_F90_PassInt (relax_type),
           hypre_F90_PassInt (relax_times),
           hypre_F90_PassReal (relax_weight),
           hypre_F90_PassReal (omega) ) );
}

Exemple #15

Fichier : F90_HYPRE_sstruct_vector.c Projet : 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) ) );
}

Exemple #16

Fichier : F90_HYPRE_error.c Projet : quinoacomputing/HYPRE

void
hypre_F90_IFACE(hypre_clearerror, HYPRE_CLEARERROR)
(hypre_F90_Int *hypre_error_code,
 hypre_F90_Int *result)
{
    *result = (hypre_F90_Int) HYPRE_ClearError(
                  hypre_F90_PassInt(hypre_error_code));
}

Exemple #17

Fichier : F90_HYPRE_parcsr_vector.c Projet : Chang-Liu-0520/hypre

void
hypre_F90_IFACE(hypre_parmultivectorcreate, HYPRE_PARMULTIVECTORCREATE)
   ( hypre_F90_Comm *comm,
     hypre_F90_Int *global_size,
     hypre_F90_IntArray *partitioning,
     hypre_F90_Int *number_vectors,
     hypre_F90_Obj *vector,
     hypre_F90_Int *ierr          )
{
   *ierr = (hypre_F90_Int) HYPRE_ParMultiVectorCreate(
      hypre_F90_PassComm (comm),
      hypre_F90_PassInt (global_size),
      hypre_F90_PassIntArray (partitioning),
      hypre_F90_PassInt (number_vectors),
      hypre_F90_PassObjRef (HYPRE_ParVector, vector) );

}

Exemple #18

Fichier : F90_HYPRE_sstruct_vector.c Projet : 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) ) );
}

Exemple #19

Fichier : F90_HYPRE_parcsr_Euclid.c Projet : ducpdx/hypre

void
hypre_F90_IFACE(hypre_euclidsetmem, HYPRE_EUCLIDSETMEM)
   (hypre_F90_Obj *solver,
    hypre_F90_Int *eu_mem,
    hypre_F90_Int *ierr)
{
   *ierr = (hypre_F90_Int) HYPRE_EuclidSetMem(
      hypre_F90_PassObj (HYPRE_Solver, solver),
      hypre_F90_PassInt (eu_mem) );
}

Exemple #20

Fichier : F90_HYPRE_sstruct_vector.c Projet : ducpdx/hypre

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_ComplexArray *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_PassComplexArray (values) ) );
}

Exemple #21

Fichier : F90_HYPRE_sstruct_vector.c Projet : 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) ) );
}

Exemple #22

Fichier : F90_HYPRE_parcsr_Euclid.c Projet : ducpdx/hypre

void
hypre_F90_IFACE(hypre_euclidsetlevel, HYPRE_EUCLIDSETLEVEL)
   (hypre_F90_Obj *solver,
    hypre_F90_Int *eu_level,
    hypre_F90_Int *ierr)
{
   *ierr = (hypre_F90_Int) HYPRE_EuclidSetLevel(
      hypre_F90_PassObj (HYPRE_Solver, solver),
      hypre_F90_PassInt (eu_level) );
}

Exemple #23

Fichier : F90_HYPRE_parcsr_Euclid.c Projet : ducpdx/hypre

void
hypre_F90_IFACE(hypre_euclidsetbj, HYPRE_EUCLIDSETBJ)
   (hypre_F90_Obj *solver,
    hypre_F90_Int *bj,
    hypre_F90_Int *ierr)
{
   *ierr = (hypre_F90_Int) HYPRE_EuclidSetBJ(
      hypre_F90_PassObj (HYPRE_Solver, solver),
      hypre_F90_PassInt (bj) );
}

Exemple #24

Fichier : F90_HYPRE_parcsr_Euclid.c Projet : ducpdx/hypre

void
hypre_F90_IFACE(hypre_euclidsetstats, HYPRE_EUCLIDSETSTATS)
   (hypre_F90_Obj *solver,
    hypre_F90_Int *eu_stats,
    hypre_F90_Int *ierr)
{
   *ierr = (hypre_F90_Int) HYPRE_EuclidSetStats(
      hypre_F90_PassObj (HYPRE_Solver, solver),
      hypre_F90_PassInt (eu_stats) );
}

Exemple #25

Fichier : F90_HYPRE_parcsr_Euclid.c Projet : ducpdx/hypre

void
hypre_F90_IFACE(hypre_euclidsetrowscale, HYPRE_EUCLIDSETROWSCALE)
   (hypre_F90_Obj *solver,
    hypre_F90_Int *row_scale,
    hypre_F90_Int *ierr)
{
   *ierr = (hypre_F90_Int) HYPRE_EuclidSetRowScale(
      hypre_F90_PassObj (HYPRE_Solver, solver),
      hypre_F90_PassInt (row_scale) );
}

Exemple #26

Fichier : F90_HYPRE_struct_smg.c Projet : Chang-Liu-0520/hypre

void
hypre_F90_IFACE(hypre_structsmgsetmemoryuse, HYPRE_STRUCTSMGSETMEMORYUSE)
   ( hypre_F90_Obj *solver,
     hypre_F90_Int *memory_use,
     hypre_F90_Int *ierr       )
{
   *ierr = (hypre_F90_Int)
      ( HYPRE_StructSMGSetMemoryUse(
           hypre_F90_PassObj (HYPRE_StructSolver, solver),
           hypre_F90_PassInt (memory_use) ) );
}

Exemple #27

Fichier : F90_HYPRE_struct_smg.c Projet : Chang-Liu-0520/hypre

void
hypre_F90_IFACE(hypre_structsmgsetprintlevel, HYPRE_STRUCTSMGSETPRINTLEVEL)
   ( hypre_F90_Obj *solver,
     hypre_F90_Int *print_level,
     hypre_F90_Int *ierr    )
{
   *ierr = (hypre_F90_Int)
      ( HYPRE_StructSMGSetPrintLevel(
           hypre_F90_PassObj (HYPRE_StructSolver, solver),
           hypre_F90_PassInt (print_level)) );
}

Exemple #28

Fichier : F90_HYPRE_struct_smg.c Projet : Chang-Liu-0520/hypre

void
hypre_F90_IFACE(hypre_structsmgsetlogging, HYPRE_STRUCTSMGSETLOGGING)
   ( hypre_F90_Obj *solver,
     hypre_F90_Int *logging,
     hypre_F90_Int *ierr    )
{
   *ierr = (hypre_F90_Int)
      ( HYPRE_StructSMGSetLogging(
           hypre_F90_PassObj (HYPRE_StructSolver, solver),
           hypre_F90_PassInt (logging)) );
}

Exemple #29

Fichier : F90_HYPRE_struct_smg.c Projet : Chang-Liu-0520/hypre

void
hypre_F90_IFACE(hypre_structsmgsetnumpostrelax, HYPRE_STRUCTSMGSETNUMPOSTRELAX)
   ( hypre_F90_Obj *solver,
     hypre_F90_Int *num_post_relax,
     hypre_F90_Int *ierr           )
{
   *ierr = (hypre_F90_Int)
      ( HYPRE_StructSMGSetNumPostRelax(
           hypre_F90_PassObj (HYPRE_StructSolver, solver),
           hypre_F90_PassInt (num_post_relax)) );
}

Exemple #30

Fichier : F90_HYPRE_struct_smg.c Projet : Chang-Liu-0520/hypre

void
hypre_F90_IFACE(hypre_structsmgsetrelchange, HYPRE_STRUCTSMGSETRELCHANGE)
   ( hypre_F90_Obj *solver,
     hypre_F90_Int *rel_change,
     hypre_F90_Int *ierr       )
{
   *ierr = (hypre_F90_Int)
      ( HYPRE_StructSMGSetRelChange(
           hypre_F90_PassObj (HYPRE_StructSolver, solver),
           hypre_F90_PassInt (rel_change) ) );
}