Claps  Development
Namespaces | Macros | Functions | Variables
Claps_ConfigDefs.hpp File Reference
#include <Epetra_config.h>
#include <cstdlib>
#include <cstdio>
#include <cassert>
#include <string>
#include <iostream>
#include <cmath>
Include dependency graph for Claps_ConfigDefs.hpp:
This graph shows which files directly or indirectly include this file:

Namespaces

 Claps
 

Macros

#define __cplusplus
 
#define EPETRA_MAX(x, y)   (( (x) > (y) ) ? x : y) /* max function */
 
#define EPETRA_MIN(x, y)   (( (x) < (y) ) ? x : y) /* min function */
 
#define EPETRA_SGN(x)   (((x) < 0.0) ? -1.0 : 1.0) /* sign function */
 
#define EPETRA_CHK_ERR(a)
 
#define EPETRA_CHK_PTR(a)
 
#define EPETRA_CHK_REF(a)
 

Functions

string Claps::Claps_Version ()
 

Variables

const double Epetra_MinDouble = 1.0E-100
 
const double Epetra_MaxDouble = 1.0E+100
 
const double Epetra_Overflow = 1.79E308
 
const double Epetra_Underflow = 2.23E-308
 
const bool Epetra_FormatStdout = false
 
const int DefaultTracebackMode = 0
 

Macro Definition Documentation

◆ __cplusplus

#define __cplusplus

◆ EPETRA_CHK_ERR

#define EPETRA_CHK_ERR (   a)
Value:
{ { int epetra_err = a; \
if ((epetra_err < 0 && Epetra_Object::GetTracebackMode() > 0) || \
(epetra_err > 0 && Epetra_Object::GetTracebackMode() > 1)) { \
cerr << "Epetra ERROR " << epetra_err << ", " \
<< __FILE__ << ", line " << __LINE__ << endl; }\
if (epetra_err != 0) return(epetra_err); }\
}

◆ EPETRA_CHK_PTR

#define EPETRA_CHK_PTR (   a)
Value:
{ if (a == 0 && Epetra_Object::GetTracebackMode() > 0) { \
cerr << "Epetra returning zero pointer " << ", " \
<< __FILE__ << ", line " << __LINE__ << endl; } \
return(a); \
}

◆ EPETRA_CHK_REF

#define EPETRA_CHK_REF (   a)
Value:
{ if (Epetra_Object::GetTracebackMode() > 0) {\
cerr << "Epetra returning default reference " << ", " \
<< __FILE__ << ", line " << __LINE__ << endl; } \
return(a); \
}

◆ EPETRA_MAX

#define EPETRA_MAX (   x,
 
)    (( (x) > (y) ) ? x : y) /* max function */

◆ EPETRA_MIN

#define EPETRA_MIN (   x,
 
)    (( (x) < (y) ) ? x : y) /* min function */

◆ EPETRA_SGN

#define EPETRA_SGN (   x)    (((x) < 0.0) ? -1.0 : 1.0) /* sign function */

Variable Documentation

◆ DefaultTracebackMode

const int DefaultTracebackMode = 0

◆ Epetra_FormatStdout

const bool Epetra_FormatStdout = false

◆ Epetra_MaxDouble

const double Epetra_MaxDouble = 1.0E+100

◆ Epetra_MinDouble

const double Epetra_MinDouble = 1.0E-100

◆ Epetra_Overflow

const double Epetra_Overflow = 1.79E308

◆ Epetra_Underflow

const double Epetra_Underflow = 2.23E-308
BLKSLVN_F77
#define BLKSLVN_F77
Definition: my_feti_sparse_solver.hpp:54
lnz
void int int int int int double * lnz
Definition: my_feti_sparse_solver.hpp:74
tmpsiz
void int int int int int & tmpsiz
Definition: my_feti_sparse_solver.hpp:71
asdef
void int int int int int double int int & asdef
Definition: my_feti_sparse_solver.hpp:74
SCLIP_solver::solve
void solve(double f[], double u[], int &number_iterations, int &SCLIP_status, int &max_added_corner)
CLAPS_sparse_lu::CLAPS_sparse_lu
CLAPS_sparse_lu()
EpetraExtCD::MatrixMatrix::Multiply
static int Multiply(const Epetra_CrsMatrix &A, const Epetra_CrsMatrix &B, Epetra_CrsMatrix *&C)
nrbm
void int int int int double int int & nrbm
Definition: my_feti_sparse_solver.hpp:94
preconditioner_crd.hpp
CRS_serial::get_rowbeg
int * get_rowbeg()
CRD_utils::tie_down_coarse
void tie_down_coarse(int n, int rowbeg[], int colidx[], double vals[], int ne, int scale_option, int &num_tied_down, int *&tied_down, CLAPS_sparse_lu *&AA, double *&Xvecs)
CLIP_solver2
Definition: CLIP_solver2.hpp:77
nnzl
void int int int int int int int int int & nnzl
Definition: my_feti_sparse_solver.hpp:61
CRD_utils.hpp
DefaultTracebackMode
const int DefaultTracebackMode
Definition: Claps_ConfigDefs.hpp:178
CLOP_sub::get_Phi_ptr
void get_Phi_ptr(double *&Phi_ptr)
CLAPS_sparse_lu2::factor
int factor(double *ANZ, int *COLPTR, int *ROWIDX, int N_, int scale_flag_=0)
Claps
Definition: Claps_ConfigDefs.hpp:131
CRD_utils::spmat_datfile
void spmat_datfile(int nrow, int rowbegp[], int colidxp[], double val[], char fname[])
CRD_utils::subspace_iteration
void subspace_iteration(int n, int rowbeg[], int colidx[], double vals[], bool bound_flag[], int scale_option, int &nextra, int *&extra_corner, CLAPS_sparse_lu *&A, double *&Xvecs, int ne=0)
CRD_utils::Graph_class
Definition: CRD_utils.hpp:92
SCLOP_solver::construct_H1
void construct_H1()
CRS_serial::get_ycoord
double * get_ycoord()
adj
void int int * adj
Definition: my_feti_sparse_solver.hpp:58
sparse_lu2.hpp
rhs
void int int int int double int int int int int int int int double * rhs
Definition: my_feti_sparse_solver.hpp:82
EpetraExtCD
Definition: EpetraExtCD_MatrixMatrix.hpp:49
CLOP_constraint::factor
int factor()
CLIP_solver2::dotprod
double dotprod(double a[], double b[], int n)
lindx
void int int int * lindx
Definition: my_feti_sparse_solver.hpp:88
krylov_crd
Definition: krylov_crd.hpp:58
CLOP_constraint
Definition: CLOP_constraint.hpp:58
CLAPS_sparse_lu::~CLAPS_sparse_lu
~CLAPS_sparse_lu()
CLOP_solver::mpcforces
void mpcforces(Epetra_Vector *uLocal, Epetra_Import *ImporterStLam2Loc)
CLOP_constraint.hpp
SCLIP_solver::MpcForces
void MpcForces(double *cvals)
solver_crd.hpp
CLAPS_sparse_lu2::~CLAPS_sparse_lu2
~CLAPS_sparse_lu2()
SCLIP_solver::CLIP_solver_init
void CLIP_solver_init(int cdof_option, double solver_tol, int maxiter, int atype, int ndim, int local_solver, int max_orthog, int prt_debug, int prt_summary, int chk_sub_singularity, int krylov_method, int scale_option, int num_rigid_mode)
SCLIP_solver::determine_ownership
void determine_ownership()
solver_crd::solver_crd
solver_crd()
Definition: solver_crd.hpp:51
CLOP_sub::correct
void correct(double Edof_sub[], int rbm, unsigned char nsubdof[], int ldof[], int lbound, int ubound)
CLAPS_sparse_lu2::cleanup
void cleanup()
CLOP_sub::sum_scalar_multiply
void sum_scalar_multiply(double Edof_sub[], int rbm, double alpha)
ORDMMD2_F77
#define ORDMMD2_F77
Definition: my_feti_sparse_solver.hpp:48
SCLOP_solver::MpcForces
void MpcForces(double *cvals)
SCLOP_solver::EPmat_datfile
void EPmat_datfile(Epetra_CrsMatrix *A, char fname[])
CRD_utils::find_index
int find_index(int a[], int n, int gdof)
CRS_serial::get_xcoord
double * get_xcoord()
perm
void int int int int * perm
Definition: my_feti_sparse_solver.hpp:58
SYMFCT_F77
#define SYMFCT_F77
Definition: my_feti_sparse_solver.hpp:50
ns
void int int int int double int int int int int int double * ns
Definition: my_feti_sparse_solver.hpp:94
xlindx
void int int * xlindx
Definition: my_feti_sparse_solver.hpp:88
nsub
void int int int int int int int int int int & nsub
Definition: my_feti_sparse_solver.hpp:61
SCLOP_solver::SCLOP_solver
SCLOP_solver(int nnode_, int nelem_, int neq_, int nadj_proc_, int ndofs_deleted_, int NumberMpc_, const int E1_[], const int E2_[], const int adj_proc_[], const int H1_global_[], const int H2_[], const MPI_Comm *mpicomm_, const int gnn_[], const unsigned short *dofmap_on_node_, const double x_[], const double y_[], const double z_[], const int rowbeg_KU_[], const int colidx_KU_[], const double KU_[], const int mapdof2row_[], const int bc_node_ids_[], const int bc_node_dof_[], const MpcLocal *MpcVector_)
CLOP_sub::normalpu
void normalpu(double Edof_sub[], unsigned char nsubdof[])
CRS_serial::get_nodebeg
int * get_nodebeg()
CRS_serial::get_nnode
int get_nnode()
lnx
void int int int int double * lnx
Definition: my_feti_sparse_solver.hpp:82
CRD_utils::Epetra_datfile
void Epetra_datfile(const Epetra_CrsMatrix *A, char fname[])
CRS_serial.hpp
solver_crd
Definition: solver_crd.hpp:48
iprow
void int int int int int double int int int int int double int * iprow
Definition: my_feti_sparse_solver.hpp:74
sol
void int int int int double int int int int int int int int double double * sol
Definition: my_feti_sparse_solver.hpp:82
Epetra_FormatStdout
const bool Epetra_FormatStdout
Definition: Claps_ConfigDefs.hpp:165
CRS_serial::~CRS_serial
~CRS_serial()
CRS_serial::multiply
void multiply(double *x, double *y)
Epetra_MaxDouble
const double Epetra_MaxDouble
Definition: Claps_ConfigDefs.hpp:56
SCLIP_solver::~SCLIP_solver
~SCLIP_solver()
CLIP_solver::tie_down_coarse
void tie_down_coarse(int n, int rowbeg[], int colidx[], double vals[], int ne, CLAPS_sparse_lu *&AA, double *&Xvecs)
CLAPS_sparse_lu2
Definition: sparse_lu2.hpp:53
defblk
void int int int int int int int & defblk
Definition: my_feti_sparse_solver.hpp:61
CLIP_solver2::~CLIP_solver2
~CLIP_solver2()
CLAPS_sparse_lu
Definition: sparse_lu.hpp:52
BLKSLV_F77
#define BLKSLV_F77
Definition: my_feti_sparse_solver.hpp:53
CLOP_constraint::CLOP_constraint
CLOP_constraint(const Epetra_CrsMatrix *A_, std::ofstream *fout_, const int print_flag_)
iflag
void int int int int int int int int & iflag
Definition: my_feti_sparse_solver.hpp:58
lrhs
void int int int int double int int int int int int int int int & lrhs
Definition: my_feti_sparse_solver.hpp:88
pnode
void int int * pnode
Definition: my_feti_sparse_solver.hpp:74
numZEM
void int int int int int double int int int & numZEM
Definition: my_feti_sparse_solver.hpp:74
CLOP_sub::construct_coarse1
void construct_coarse1(const Epetra_CrsMatrix *A, double rhs[], double sol[], double temp[], int rowbeg[], int colidx[], double K[], int imap[], unsigned char nsubdof[], int &csdimP, int &ndof_rot_)
CLOP_solver
Definition: CLOP_solver.hpp:69
CRS_serial::get_nnz
int get_nnz()
CLOP_graph::~CLOP_graph
~CLOP_graph()
CRD_utils::sort_and_cull
void sort_and_cull(int a[], int n, int &m)
snode
void int int int int int int int int int int int int int * snode
Definition: my_feti_sparse_solver.hpp:61
def
void int int int int int double int int int int int * def
Definition: my_feti_sparse_solver.hpp:74
EpetraExtCD::MatrixMatrix::~MatrixMatrix
virtual ~MatrixMatrix()
Definition: EpetraExtCD_MatrixMatrix.hpp:59
CRD_utils::scale_columns
void scale_columns(Epetra_CrsMatrix *A, const int norm_opt, const int blocksize)
CRS_serial::CRS_serial
CRS_serial(double *A_, int *rowbeg_, int *colidx_, int nrow_, int ncol_, int nnode_, int *nodebeg_, int *localdof_, double *x_, double *y_, double *z_)
CLIP_solver::solve
void solve(Epetra_Vector *uStand, const Epetra_Vector *fStand, int &num_iter, int &solver_status, int &max_added_cor)
CRS_serial
Definition: CRS_serial.hpp:46
Claps::Claps_Version
string Claps_Version()
CRS_serial::get_zcoord
double * get_zcoord()
lbdef
void int int int int int double int int int int & lbdef
Definition: my_feti_sparse_solver.hpp:74
CRS_serial::get_localdof
int * get_localdof()
maxsup
void int int int int int int & maxsup
Definition: my_feti_sparse_solver.hpp:61
CRS_serial::get_ncol
int get_ncol()
CLAPS_sparse_lu::factor
int factor(int N_, int NNZ_, int COLPTR[], int ROWIDX[], double ANZ[], int scale_flag_=0)
myzero.hpp
CLAPS_sparse_lu::cleanup
void cleanup()
CLOP_sub::statcond
void statcond(unsigned char nsubdof[], unsigned char on_sub_bound[], int imap[], int rowbeg[], int colidx[], double K[], double rhs[], double sol[], double temp[], const Epetra_CrsMatrix *A)
CLOP_graph::CLOP_graph
CLOP_graph(const Epetra_CrsMatrix *A_, const Epetra_IntVector *ND_, const int overlap_, const int partition_option_, const int atype_, const int ndim_, int iwork1[], int iwork2[], int *&dofpart1, int *&dofpart2, int &npart)
CRS_serial::get_nrow
int get_nrow()
CLOP_solver::CLOP_solver
CLOP_solver(const Epetra_CrsMatrix *AStandard_, const Epetra_IntVector *LDStandard_, const Epetra_MultiVector *CStandard_, const Epetra_Map *SubMap_, const Epetra_CrsMatrix *ConStandard_, const Epetra_IntVector *GNStandard_, const double *clop_params_)
SCLOP_solver::construct_K_base
void construct_K_base()
SCLIP_solver::construct_K_base
void construct_K_base()
CLOP_graph
Definition: CLOP_graph.hpp:59
CLOP_sub::getmatrix_nnz
void getmatrix_nnz(int subdofs_[], int ndof_sub, const Epetra_CrsMatrix *A, int imap[], const Epetra_Comm *Comm, int &nnz, int scale_option_)
CLOP_sub.hpp
BLKNS_F77
#define BLKNS_F77
Definition: my_feti_sparse_solver.hpp:55
preconditioner_crd
Definition: preconditioner_crd.hpp:57
myzero
void myzero(int *data, size_t num)
Definition: myzero.hpp:47
EpetraExtCD_MatrixMatrix.hpp
CLIP_solver2::CLIP_solver2
CLIP_solver2(CRS_serial *A_, const Epetra_Map *SubMap_, const Epetra_Map *OwnMap_, const double *clip_params_, const double *amg_params_)
CLOP_sub::subpre
void subpre(double rr[], double zz[], double rhs_work[], double sol_work[], double tmp_work[])
CLOP_sub::factormatrix
void factormatrix(const Epetra_CrsMatrix *A, int imap[], int rowbeg[], int colidx[], double K[])
EpetraExtCD::MatrixMatrix
Definition: EpetraExtCD_MatrixMatrix.hpp:56
CRD_utils::get_column_norm
void get_column_norm(Epetra_CrsMatrix *A, const int norm_opt, const int blocksize, double *col_norm)
CLOP_constraint::Tran
void Tran(Epetra_CrsMatrix *&Tran, Epetra_Map *&RowMapMyCon, int *&mycdof, int &nx2, int *&x2_dof, int &nsub_gdofs, int sub_gdofs[], Epetra_CrsMatrix *&CtT)
rwsize
void int int int int int int & rwsize
Definition: my_feti_sparse_solver.hpp:71
ipcol
void int int int int int double int int int int int double int int * ipcol
Definition: my_feti_sparse_solver.hpp:74
SCLOP_solver::determine_ownership
void determine_ownership()
temp
void int int int int int double int int int int int double int int int double * temp
Definition: my_feti_sparse_solver.hpp:74
CLIP_solver::~CLIP_solver
~CLIP_solver()
Epetra_Underflow
const double Epetra_Underflow
Definition: Claps_ConfigDefs.hpp:58
CRD_utils::Graph_class::~Graph_class
~Graph_class()
CLOP_graph.hpp
SCLOP_solver::solve
void solve(double f[], double u[], int &number_iterations, int &SCLOP_status)
CRD_utils::Graph_class::Components
void Components(int component_[], int &comp_num)
Claps_ConfigDefs.hpp
CLIP_solver2::initialize_solve
int initialize_solve(double u[], double r[])
CLAPS_sparse_lu2::solve
int solve(int NRHS, double RHS[], double SOL[], double TEMP[])
nnza
void int & nnza
Definition: my_feti_sparse_solver.hpp:61
invp
void int int int * invp
Definition: my_feti_sparse_solver.hpp:58
preconditioner_crd::~preconditioner_crd
virtual ~preconditioner_crd()
Definition: preconditioner_crd.hpp:61
ltemp
void int int int int double int int int int int int int int int int double int double int & ltemp
Definition: my_feti_sparse_solver.hpp:88
SCLIP_solver::construct_H1
void construct_H1()
BLKLDL_F77
#define BLKLDL_F77
Definition: my_feti_sparse_solver.hpp:52
CRS_serial::get_colidx
int * get_colidx()
Epetra_MinDouble
const double Epetra_MinDouble
Definition: Claps_ConfigDefs.hpp:55
metis_partgraphkway
void metis_partgraphkway(int *n, int xadj[], int adjncy[], int vwgt[], int adjwgt[], int *wgtflag, int *numflag, int *nparts, int options[], int *edgecut, int part[])
iwsize
void int int int int int & iwsize
Definition: my_feti_sparse_solver.hpp:58
CLOP_sub::get_cdof
void get_cdof(int cs_local[], int &csdimP, double &xcent_, double &ycent_, double &zcent_)
CRD_utils
Definition: CRD_utils.hpp:57
SCLOP_solver::~SCLOP_solver
~SCLOP_solver()
tol
void int int int int int double int int int int int double & tol
Definition: my_feti_sparse_solver.hpp:74
xlnz
void int int int int * xlnz
Definition: my_feti_sparse_solver.hpp:88
Epetra_Overflow
const double Epetra_Overflow
Definition: Claps_ConfigDefs.hpp:57
CLOP_sub::~CLOP_sub
~CLOP_sub()
CRD_utils::Graph_class::Graph_class
Graph_class(int N_, int A1_[], int A2_[])
xpanel
void int * xpanel
Definition: my_feti_sparse_solver.hpp:88
CRS_serial::get_vals
double * get_vals()
solver_crd::~solver_crd
virtual ~solver_crd()
Definition: solver_crd.hpp:52
CLIP_solver2::A_times_x
void A_times_x(double *x, double *Ax)
CLOP_solver::construct_transpose
void construct_transpose(Epetra_CrsMatrix *&A, Epetra_CrsMatrix *&AT)
nrhs
void int int int int double int int int int int int int int int int & nrhs
Definition: my_feti_sparse_solver.hpp:88
SCLIP_solver
Definition: SCLIP_solver.hpp:59
nofsub
void int int int int int int int & nofsub
Definition: my_feti_sparse_solver.hpp:58
CLOP_constraint::~CLOP_constraint
~CLOP_constraint()
preconditioner_crd::preconditioner_crd
preconditioner_crd()
Definition: preconditioner_crd.hpp:60
lsoln
void int int int int double int int int int int int int int int int double int & lsoln
Definition: my_feti_sparse_solver.hpp:88
SCLOP_solver::CLOP_solver_init
void CLOP_solver_init(int overlap, double solver_tol, int maxiter, int atype, int ndim, int local_solver, int max_orthog, int prt_debug, int prt_summary, int krylov_method, int scale_option, int num_rigid_mode)
CLIP_solver2::norm2
double norm2(double a[], int n)
CLOP_sub::genpu
void genpu(const Epetra_IntVector *LD, const Epetra_MultiVector *Coords, double rhs[], double sol[], double temp[], int atype_sub, int ndim_sub, double WORK[], int LWORK, double Edof_sub[], int &nneg)
nsuper
void int int int int int int int int int int int & nsuper
Definition: my_feti_sparse_solver.hpp:61
CLOP_sub::CLOP_sub
CLOP_sub()
CLIP_solver::mpcforces
void mpcforces(Epetra_Vector *uLocal, Epetra_Import *ImporterStLam2Loc)
CLIP_solver2::apply_preconditioner
void apply_preconditioner(const double r[], double z[])
CLOP_solver::solve
void solve(Epetra_Vector *uStand, const Epetra_Vector *fStand, int &num_iter, int &solver_status)
SCLIP_solver::EPmat_datfile
void EPmat_datfile(Epetra_CrsMatrix *A, char fname[])
BFINIT_F77
#define BFINIT_F77
Definition: my_feti_sparse_solver.hpp:51
SCLIP_solver::SCLIP_solver
SCLIP_solver(int nnode_, int nelem_, int neq_, int nadj_proc_, int ndofs_deleted_, int NumberMpc_, const int E1_[], const int E2_[], const int adj_proc_[], const int H1_global_[], const int H2_[], const MPI_Comm *mpicomm_, const int gnn_[], const unsigned short *dofmap_on_node_, const double x_[], const double y_[], const double z_[], const int rowbeg_KU_[], const int colidx_KU_[], const double KU_[], const int mapdof2row_[], const int bc_node_ids_[], const int bc_node_dof_[], const MpcLocal *MpcVector_)
CLIP_solver2::sum_vectors
void sum_vectors(double a[], int n, double a_sum[])
CLAPS_sparse_lu::sol
int sol(int NRHS, double RHS[], double SOL[], double TEMP[])
CLIP_solver
Definition: CLIP_solver.hpp:70
CLOP_solver.hpp
numUncon
void int int int int double int int int int int int double int & numUncon
Definition: my_feti_sparse_solver.hpp:94
SCLOP_solver
Definition: SCLOP_solver.hpp:59
CLIP_solver.hpp
CLAPS_sparse_lu2::CLAPS_sparse_lu2
CLAPS_sparse_lu2()
SFINIT_F77
#define SFINIT_F77
Definition: my_feti_sparse_solver.hpp:49
CLOP_sub
Definition: CLOP_sub.hpp:58
CLIP_solver::CLIP_solver
CLIP_solver(const Epetra_CrsMatrix *ASub_, const Epetra_IntVector *NodalDofs_, const Epetra_MultiVector *Coords_, const Epetra_CrsMatrix *ConStandard_, const double *clip_params_)
metis_partgraphrecursive
void metis_partgraphrecursive(int *n, int xadj[], int adjncy[], int vwgt[], int adjwgt[], int *wgtflag, int *numflag, int *nparts, int options[], int *edgecut, int part[])
sparse_lu.hpp
CLOP_solver::~CLOP_solver
~CLOP_solver()