Ejemplos de hypre_F90_PassReal en C++ (Cpp)

Ejemplo n.º 1

Archivo: F90_HYPRE_ams.c Proyecto: 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) ) );
}

Ejemplo n.º 2

Archivo: F90_HYPRE_parcsr_Euclid.c Proyecto: ducpdx/hypre

void
hypre_F90_IFACE(hypre_euclidsetsparsea, HYPRE_EUCLIDSETSPARSEA)
   (hypre_F90_Obj *solver,
    hypre_F90_Real *spa,
    hypre_F90_Int *ierr)
{
   *ierr = (hypre_F90_Int) HYPRE_EuclidSetSparseA(
      hypre_F90_PassObj (HYPRE_Solver, solver),
      hypre_F90_PassReal (spa) );
}

Ejemplo n.º 3

Archivo: F90_HYPRE_parcsr_Euclid.c Proyecto: ducpdx/hypre

void
hypre_F90_IFACE(hypre_euclidsetilut, HYPRE_EUCLIDSETILUT)
   (hypre_F90_Obj *solver,
    hypre_F90_Real *drop_tol,
    hypre_F90_Int *ierr)
{
   *ierr = (hypre_F90_Int) HYPRE_EuclidSetILUT(
      hypre_F90_PassObj (HYPRE_Solver, solver),
      hypre_F90_PassReal (drop_tol) );
}

Ejemplo n.º 4

Archivo: F90_HYPRE_parcsr_hybrid.c Proyecto: ducpdx/hypre

void
hypre_F90_IFACE(hypre_parcsrhybridsetrelaxwt, HYPRE_PARCSRHYBRIDSETRELAXWT)
   (hypre_F90_Obj *solver,
    hypre_F90_Real *relax_wt,
    hypre_F90_Int *ierr)
{
   *ierr = (hypre_F90_Int)
      (HYPRE_ParCSRHybridSetRelaxWt(
          hypre_F90_PassObj (HYPRE_Solver, solver),
          hypre_F90_PassReal (relax_wt) ));
}

Ejemplo n.º 5

Archivo: F90_HYPRE_parcsr_pcg.c Proyecto: Chang-Liu-0520/hypre

void
hypre_F90_IFACE(hypre_parcsrpcgsetatol, HYPRE_PARCSRPCGSETATOL)
   ( hypre_F90_Obj *solver,
     hypre_F90_Real *tol,
     hypre_F90_Int *ierr    )
{
   *ierr = (hypre_F90_Int)
      ( HYPRE_ParCSRPCGSetAbsoluteTol(
           hypre_F90_PassObj (HYPRE_Solver, solver),
           hypre_F90_PassReal (tol)     ) );
}

Ejemplo n.º 6

Archivo: F90_HYPRE_parcsr_hybrid.c Proyecto: ducpdx/hypre

void
hypre_F90_IFACE(hypre_parcsrhybridsetmaxrowsum, HYPRE_PARCSRHYBRIDSETMAXROWSUM)
   (hypre_F90_Obj *solver,
    hypre_F90_Real *max_row_sum,
    hypre_F90_Int *ierr)
{
   *ierr = (hypre_F90_Int)
      (HYPRE_ParCSRHybridSetMaxRowSum(
          hypre_F90_PassObj (HYPRE_Solver, solver),
          hypre_F90_PassReal (max_row_sum)   ));
}

Ejemplo n.º 7

Archivo: F90_HYPRE_parcsr_hybrid.c Proyecto: ducpdx/hypre

void
hypre_F90_IFACE(hypre_parcsrhybridsetstrongthre, HYPRE_PARCSRHYBRIDSETSTRONGTHRE)
   (hypre_F90_Obj *solver,
    hypre_F90_Real *strong_threshold,
    hypre_F90_Int *ierr)
{
   *ierr = (hypre_F90_Int)
      (HYPRE_ParCSRHybridSetStrongThreshold(
          hypre_F90_PassObj (HYPRE_Solver, solver),
          hypre_F90_PassReal (strong_threshold) ));
}

Ejemplo n.º 8

Archivo: F90_HYPRE_parcsr_hybrid.c Proyecto: ducpdx/hypre

void
hypre_F90_IFACE(hypre_parcsrhybridsetconvergenc, HYPRE_PARCSRHYBRIDSETCONVERGENC)
   (hypre_F90_Obj *solver,
    hypre_F90_Real *cf_tol,
    hypre_F90_Int *ierr)
{
   *ierr = (hypre_F90_Int)
      (HYPRE_ParCSRHybridSetConvergenceTol(
          hypre_F90_PassObj (HYPRE_Solver, solver),
          hypre_F90_PassReal (cf_tol) ) );
}

Ejemplo n.º 9

Archivo: F90_HYPRE_struct_bicgstab.c Proyecto: Chang-Liu-0520/hypre

void
hypre_F90_IFACE(hypre_structbicgstabsettol, HYPRE_STRUCTBICGSTABSETTOL)
   ( hypre_F90_Obj *solver,
     hypre_F90_Real *tol,
     hypre_F90_Int *ierr   )
{
   *ierr = (hypre_F90_Int)
      ( HYPRE_StructBiCGSTABSetTol(
           hypre_F90_PassObj (HYPRE_StructSolver, solver),
           hypre_F90_PassReal (tol) ) );
}

Ejemplo n.º 10

Archivo: F90_HYPRE_parcsr_bicgstab.c Proyecto: ducpdx/hypre

void
hypre_F90_IFACE(hypre_parcsrbicgstabsettol, HYPRE_PARCSRBICGSTABSETTOL)
   ( hypre_F90_Obj *solver,
     hypre_F90_Real *tol,
     hypre_F90_Int *ierr    )
{
   *ierr = (hypre_F90_Int)
      ( HYPRE_ParCSRBiCGSTABSetTol(
           hypre_F90_PassObj (HYPRE_Solver, solver),
           hypre_F90_PassReal (tol)     ) );
}

Ejemplo n.º 11

Archivo: F90_HYPRE_ams.c Proyecto: ducpdx/hypre

void
hypre_F90_IFACE(hypre_amssettol, HYPRE_AMSSETTOL)
   ( hypre_F90_Obj *solver,
     hypre_F90_Real *tol,
     hypre_F90_Int *ierr)
{
   *ierr = (hypre_F90_Int)
      ( HYPRE_AMSSetTol(
           hypre_F90_PassObj (HYPRE_Solver, solver),
           hypre_F90_PassReal (tol) ) );
}

Ejemplo n.º 12

Archivo: F90_HYPRE_struct_pcg.c Proyecto: ducpdx/hypre

void
hypre_F90_IFACE(hypre_structpcgsetabstol, HYPRE_STRUCTPCGSETABSTOL)
   ( hypre_F90_Obj *solver,
     hypre_F90_Real *tol,
     hypre_F90_Int *ierr   )
{
   *ierr = (hypre_F90_Int)
      ( HYPRE_StructPCGSetAbsoluteTol(
           hypre_F90_PassObj (HYPRE_StructSolver, solver),
           hypre_F90_PassReal (tol) ) );
}

Ejemplo n.º 13

Archivo: F90_HYPRE_parcsr_gmres.c Proyecto: ducpdx/hypre

void
hypre_F90_IFACE(hypre_parcsrgmressetabsolutetol, HYPRE_PARCSRGMRESSETABSOLUTETOL)
   ( hypre_F90_Obj *solver,
     hypre_F90_Real *tol,
     hypre_F90_Int *ierr    )
{
   *ierr = (hypre_F90_Int)
      ( HYPRE_ParCSRGMRESSetAbsoluteTol(
           hypre_F90_PassObj (HYPRE_Solver, solver),
           hypre_F90_PassReal (tol)     ) );
}

Ejemplo n.º 14

Archivo: F90_HYPRE_parcsr_pilut.c Proyecto: Chang-Liu-0520/hypre

void 
hypre_F90_IFACE(hypre_parcsrpilutsetdroptoleran, HYPRE_PARCSRPILUTSETDROPTOLERAN)
   ( hypre_F90_Obj *solver,
     hypre_F90_Real *tol,
     hypre_F90_Int *ierr    )
{
   *ierr = (hypre_F90_Int)
      ( HYPRE_ParCSRPilutSetDropTolerance(
           hypre_F90_PassObj (HYPRE_Solver, solver), 
           hypre_F90_PassReal (tol)     ) );
}

Ejemplo n.º 15

Archivo: F90_HYPRE_parcsr_hybrid.c Proyecto: ducpdx/hypre

void
hypre_F90_IFACE(hypre_parcsrhybridsetouterwt, HYPRE_PARCSRHYBRIDSETOUTERWT)
   (hypre_F90_Obj *solver,
    hypre_F90_Real *outer_wt,
    hypre_F90_Int *ierr)
{
   *ierr = (hypre_F90_Int)
      (HYPRE_ParCSRHybridSetOuterWt(
          hypre_F90_PassObj (HYPRE_Solver, solver),
          hypre_F90_PassReal (outer_wt) ));
}

Ejemplo n.º 16

Archivo: F90_HYPRE_parcsr_hybrid.c Proyecto: ducpdx/hypre

void
hypre_F90_IFACE(hypre_parcsrhybridsettruncfacto, HYPRE_PARCSRHYBRIDSETTRUNCFACTO)
   (hypre_F90_Obj *solver,
    hypre_F90_Real *trunc_factor,
    hypre_F90_Int *ierr)
{
   *ierr = (hypre_F90_Int)
      (HYPRE_ParCSRHybridSetTruncFactor(
          hypre_F90_PassObj (HYPRE_Solver, solver),
          hypre_F90_PassReal (trunc_factor) ));
}

Ejemplo n.º 17

Archivo: F90_HYPRE_struct_smg.c Proyecto: Chang-Liu-0520/hypre

void
hypre_F90_IFACE(hypre_structsmgsettol, HYPRE_STRUCTSMGSETTOL)
   ( hypre_F90_Obj *solver,
     hypre_F90_Real *tol,
     hypre_F90_Int *ierr   )
{
   *ierr = (hypre_F90_Int)
      ( HYPRE_StructSMGSetTol(
           hypre_F90_PassObj (HYPRE_StructSolver, solver),
           hypre_F90_PassReal (tol) ) );
}

Ejemplo n.º 18

Archivo: F90_HYPRE_sstruct_gmres.c Proyecto: ducpdx/hypre

void
hypre_F90_IFACE(hypre_sstructgmressetabsolutetol, HYPRE_SSTRUCTGMRESSETABSOLUTETOL)
   (hypre_F90_Obj *solver,
    hypre_F90_Real *tol,
    hypre_F90_Int *ierr)
{
   *ierr = (hypre_F90_Int)
      (HYPRE_SStructGMRESSetAbsoluteTol(
          hypre_F90_PassObj (HYPRE_SStructSolver, solver),
          hypre_F90_PassReal (tol) ) );
}

Ejemplo n.º 19

Archivo: F90_HYPRE_struct_hybrid.c Proyecto: Chang-Liu-0520/hypre

void
hypre_F90_IFACE(hypre_structhybridsetpcgabsolut, HYPRE_STRUCTHYBRIDSETPCGABSOLUT)
   ( hypre_F90_Obj *solver,
     hypre_F90_Real *pcg_atolf,
     hypre_F90_Int *ierr        )
{
   *ierr = (hypre_F90_Int)
      ( HYPRE_StructHybridSetPCGAbsoluteTolFactor(
           hypre_F90_PassObj (HYPRE_StructSolver, solver),
           hypre_F90_PassReal (pcg_atolf) ) );
}

Ejemplo n.º 20

Archivo: F90_HYPRE_struct_hybrid.c Proyecto: Chang-Liu-0520/hypre

void
hypre_F90_IFACE(hypre_structhybridsettol, HYPRE_STRUCTHYBRIDSETTOL)
   ( hypre_F90_Obj *solver,
     hypre_F90_Real *tol,
     hypre_F90_Int *ierr   )
{
   *ierr = (hypre_F90_Int)
      ( HYPRE_StructHybridSetTol(
           hypre_F90_PassObj (HYPRE_StructSolver, solver),
           hypre_F90_PassReal (tol)    ) );
}

Ejemplo n.º 21

Archivo: F90_HYPRE_sstruct_maxwell.c Proyecto: Chang-Liu-0520/hypre

void
hypre_F90_IFACE(hypre_sstructmaxwellsettol, HYPRE_SSTRUCTMAXWELLSETTOL)
   (hypre_F90_Obj *solver,
    hypre_F90_Real *tol,
    hypre_F90_Int *ierr)
{
   *ierr = (hypre_F90_Int)
      ( HYPRE_SStructMaxwellSetTol(
           hypre_F90_PassObj (HYPRE_SStructSolver, solver),
           hypre_F90_PassReal (tol)    ));
}

Ejemplo n.º 22

Archivo: F90_HYPRE_struct_hybrid.c Proyecto: Chang-Liu-0520/hypre

void
hypre_F90_IFACE(hypre_structhybridsetconvergenc, HYPRE_STRUCTHYBRIDSETCONVERGENC)
   ( hypre_F90_Obj *solver,
     hypre_F90_Real *cf_tol,
     hypre_F90_Int *ierr   )
{
   *ierr = (hypre_F90_Int)
      ( HYPRE_StructHybridSetConvergenceTol(
           hypre_F90_PassObj (HYPRE_StructSolver, solver),
           hypre_F90_PassReal (cf_tol)  ) );
}

Ejemplo n.º 23

Archivo: F90_HYPRE_struct_jacobi.c Proyecto: ducpdx/hypre

void
hypre_F90_IFACE(hypre_structjacobisettol, HYPRE_STRUCTJACOBISETTOL)
   ( hypre_F90_Obj *solver,
     hypre_F90_Real *tol,
     hypre_F90_Int *ierr   )
{
   *ierr = (hypre_F90_Int)
      ( HYPRE_StructJacobiSetTol(
           hypre_F90_PassObj (HYPRE_StructSolver, solver),
           hypre_F90_PassReal (tol) ) );
}

Ejemplo n.º 24

Archivo: F90_HYPRE_parcsr_hybrid.c Proyecto: ducpdx/hypre

void
hypre_F90_IFACE(hypre_parcsrhybridsettol, HYPRE_PARCSRHYBRIDSETTOL)
   (hypre_F90_Obj *solver,
    hypre_F90_Real *tol,
    hypre_F90_Int *ierr)
{
   *ierr = (hypre_F90_Int)
      (HYPRE_ParCSRHybridSetTol(
          hypre_F90_PassObj (HYPRE_Solver, solver),
          hypre_F90_PassReal (tol)    ) );
}

Ejemplo n.º 25

Archivo: F90_HYPRE_parcsr_hybrid.c Proyecto: ducpdx/hypre

void
hypre_F90_IFACE(hypre_parcsrhybridsetlevelrelax, HYPRE_PARCSRHYBRIDSETLEVELRELAX)
   (hypre_F90_Obj *solver,
    hypre_F90_Real *relax_wt,
    hypre_F90_Int *level,
    hypre_F90_Int *ierr)
{
   *ierr = (hypre_F90_Int)
      (HYPRE_ParCSRHybridSetLevelRelaxWt(
          hypre_F90_PassObj (HYPRE_Solver, solver),
          hypre_F90_PassReal (relax_wt),
          hypre_F90_PassInt (level) ));
}

Ejemplo n.º 26

Archivo: F90_HYPRE_parcsr_hybrid.c Proyecto: ducpdx/hypre

void
hypre_F90_IFACE(hypre_parcsrhybridsetlevelouter, HYPRE_PARCSRHYBRIDSETLEVELOUTER)
   (hypre_F90_Obj *solver,
    hypre_F90_Real *outer_wt,
    hypre_F90_Int *level,
    hypre_F90_Int *ierr)
{
   *ierr = (hypre_F90_Int)
      (HYPRE_ParCSRHybridSetLevelOuterWt(
          hypre_F90_PassObj (HYPRE_Solver, solver),
          hypre_F90_PassReal (outer_wt),
          hypre_F90_PassInt (level) ));
}

Ejemplo n.º 27

Archivo: F90_HYPRE_ams.c Proyecto: ducpdx/hypre

void
hypre_F90_IFACE(hypre_amssetbetaamgoptions, HYPRE_AMSSETBETAAMGOPTIONS)
   ( hypre_F90_Obj *solver,
     hypre_F90_Int *beta_coarsen_type,
     hypre_F90_Int *beta_agg_levels,
     hypre_F90_Int *beta_relax_type,
     hypre_F90_Real *beta_strength_threshold,
     hypre_F90_Int *beta_interp_type,
     hypre_F90_Int *beta_Pmax,
     hypre_F90_Int *ierr)

{
   *ierr = (hypre_F90_Int)
      ( HYPRE_AMSSetBetaAMGOptions(
           hypre_F90_PassObj (HYPRE_Solver, solver),
           hypre_F90_PassInt (beta_coarsen_type),
           hypre_F90_PassInt (beta_agg_levels),
           hypre_F90_PassInt (beta_relax_type),
           hypre_F90_PassReal (beta_strength_threshold),
           hypre_F90_PassInt (beta_interp_type),
           hypre_F90_PassInt (beta_Pmax) ) );
}