zC_BPACK_wrapper.h

Go to the documentation of this file.

# 1 "zC_BPACK_wrapper.h"
# 1 "<built-in>"
# 1 "<command-line>"
# 31 "<command-line>"
# 1 "/usr/include/stdc-predef.h" 1 3 4
# 32 "<command-line>" 2
# 1 "zC_BPACK_wrapper.h"
# 33 "zC_BPACK_wrapper.h"
typedef void*F2Cptr;
typedef void*C2Fptr;



extern "C"{

void z_c_bpack_construct_element_compute(F2Cptr* ho_bf_for, F2Cptr* option,F2Cptr* stats,F2Cptr* msh,F2Cptr* ker,F2Cptr* ptree, void (*C_FuncZmn)(int*, int*, _Complex double *,C2Fptr),void (*C_FuncZmnBlock)(int*, int*, int*, int64_t*, int*, int*, _Complex double *, int*, int*, int*, int*, int*, C2Fptr), C2Fptr C_QuantApp);
void z_c_bpack_construct_init(int* Npo, int* Ndim, double* Locations, int* nns, int* nlevel, int* tree, int* perms, int* Npo_loc, F2Cptr* ho_bf_for, F2Cptr* option,F2Cptr* stats,F2Cptr* msh,F2Cptr* ker,F2Cptr* ptree, void (*C_FuncDistmn)(int*, int*, double*,C2Fptr), void (*C_FuncNearFar)(int*, int*, int*,C2Fptr), C2Fptr C_QuantApp);
void z_c_bpack_construct_init_gram(int* Npo, int* Ndim, double* Locations, int* nns, int* nlevel, int* tree, int* perms, int* Npo_loc, F2Cptr* ho_bf_for, F2Cptr* option,F2Cptr* stats,F2Cptr* msh,F2Cptr* ker,F2Cptr* ptree, void (*C_FuncZmn)(int*, int*, _Complex double *,C2Fptr),void (*C_FuncZmnBlock)(int*, int*, int*, int64_t*, int*, int*, _Complex double *, int*, int*, int*, int*, int*, C2Fptr), C2Fptr C_QuantApp);
void z_c_bpack_construct_matvec_compute(F2Cptr* ho_bf_for, F2Cptr* option,F2Cptr* stats,F2Cptr* msh,F2Cptr* ker,F2Cptr* ptree, void (*C_FuncHMatVec)(char const *, int*, int*, int*, _Complex double  const*,_Complex double *,C2Fptr), C2Fptr C_QuantApp);
void z_c_bpack_factor(F2Cptr*ho_bf_for, F2Cptr*option, F2Cptr*stats, F2Cptr*ptree, F2Cptr*msh);
void z_c_bpack_solve(_Complex double *x, _Complex double *b, int*Nloc, int*Nrhs, F2Cptr*ho_bf_for, F2Cptr*option, F2Cptr*stats, F2Cptr*ptree);
void z_c_bpack_tfqmr_noprecon(_Complex double *x, _Complex double *b, int*Nloc, int*Nrhs, F2Cptr*option, F2Cptr*stats, F2Cptr*ptree, F2Cptr*ker, void (*C_FuncHMatVec)(char const *, int*, int*, int*, _Complex double  const*,_Complex double *,C2Fptr), C2Fptr C_QuantApp);
void z_c_bpack_md_tfqmr_noprecon(int* Ndim, _Complex double  *x, _Complex double  *b, int*Nloc, int*Nrhs, F2Cptr*option, F2Cptr*stats, F2Cptr*ptree, F2Cptr*ker, void (*C_FuncHMatVec_MD)(int*, char const *, int*, int*, int*, _Complex double  const*,_Complex double  *,C2Fptr), C2Fptr C_QuantApp);
void z_c_bpack_md_construct_init(int* Ns, int* Nmax, int* Ndim, double* Locations, int* perms, int* Ns_loc, F2Cptr* ho_bf_for, F2Cptr* option,F2Cptr* stats,F2Cptr* msh,F2Cptr* ker,F2Cptr* ptree, void (*C_FuncNearFar_MD)(int*, int*, int*, int*,C2Fptr), C2Fptr C_QuantApp);
void z_c_bpack_md_construct_element_compute(int* Ndim, F2Cptr* ho_bf_for, F2Cptr* option,F2Cptr* stats,F2Cptr* msh,F2Cptr* ker,F2Cptr* ptree, void (*C_FuncZmn_MD)(int*, int*, int*, _Complex double  *,C2Fptr), C2Fptr C_QuantApp);

void z_c_bpack_md_mult(int* Ndim, char const * trans, _Complex double  const * xin, _Complex double  * xout, int* Ninloc, int* Noutloc, int* Ncol, F2Cptr* ho_bf_for,F2Cptr* option,F2Cptr* stats,F2Cptr* ptree,F2Cptr* msh);
void z_c_bpack_md_solve(int* Ndim, _Complex double  *x, _Complex double  *b, int*Nloc, int*Nrhs, F2Cptr*ho_bf_for, F2Cptr*option, F2Cptr*stats, F2Cptr*ptree,F2Cptr* msh);
void z_c_bpack_md_new2old(int* Ndim, F2Cptr* msh, int* newidx_loc, int* oldidx);
void z_c_bpack_singleindex_to_multiindex(int* Ndim, int* dims, int* single_index_in, int* multi_index);
void z_c_bpack_multiindex_to_singleindex(int* Ndim, int* dims, int* single_index_in, int* multi_index);
void z_c_bpack_mult(char const * trans, _Complex double  const * xin, _Complex double * xout, int* Ninloc, int* Noutloc, int* Ncol, F2Cptr* ho_bf_for,F2Cptr* option,F2Cptr* stats,F2Cptr* ptree);
void z_c_bpack_extractelement(F2Cptr* ho_bf_for,F2Cptr* option,F2Cptr* msh,F2Cptr* stats,F2Cptr* ptree, int* Ninter, int* Nallrows, int* Nallcols, int64_t* Nalldat_loc, int* allrows,int* allcols, _Complex double * alldat_loc, int* rowidx, int* colidx, int* pgidx, int* Npmap, int* pmaps);
void z_c_bpack_inv_mult(char const * trans, _Complex double  const * xin, _Complex double * xout, int* Ninloc, int* Noutloc, int* Ncol, F2Cptr* ho_bf_for,F2Cptr* option,F2Cptr* stats,F2Cptr* ptree);
void z_c_bpack_createptree(int*nmpi, int*groupmembers, int*MPIcomm, F2Cptr*ptree);
void z_c_bpack_createptree(int*nmpi, int*groupmembers, int* MPIcomm, F2Cptr*ptree);
void z_c_bpack_createstats(F2Cptr*stats);
void z_c_bpack_new2old(F2Cptr* msh, int* newidx_loc, int* oldidx);
void z_c_bpack_printstats(F2Cptr*stats, F2Cptr*ptree);
void z_c_bpack_getstats(F2Cptr*stats, char const*nam, double*val_d);
void z_c_bpack_createoption(F2Cptr*option);
void z_c_bpack_setoption(F2Cptr*option, char const*nam, C2Fptr val);
void z_c_bpack_getoption(F2Cptr*option, char const*nam, double*val_d);
void z_c_bpack_readoption(F2Cptr*option, F2Cptr*ptree, int*ii);
void z_c_bpack_copyoption(F2Cptr*option, F2Cptr*option1);
void z_c_bpack_printoption(F2Cptr*option, F2Cptr*ptree);
void z_c_bpack_getversionnumber(int*v_major, int*v_minor, int*v_bugfix);
void z_c_bpack_treeindex_merged2child(int*idx_merge, int*idx_child);
void z_c_bpack_deletestats(F2Cptr*stats);
void z_c_bpack_deleteproctree(F2Cptr*ptree);
void z_c_bpack_deletemesh(F2Cptr*msh);
void z_c_bpack_deletekernelquant(F2Cptr*ker);
void z_c_bpack_delete(F2Cptr*ho_bf);
void z_c_bpack_deleteoption(F2Cptr*option);
inline void z_c_bpack_set_I_option(F2Cptr*option, char const*nam, int val) {
z_c_bpack_setoption(option, nam, (C2Fptr) &val);
}
inline void z_c_bpack_set_D_option(F2Cptr*option, char const*nam, double val) {
z_c_bpack_setoption(option, nam, (C2Fptr) &val);
}

void z_c_bf_extractelement(F2Cptr* blocks,F2Cptr* option,F2Cptr* msh,F2Cptr* stats,F2Cptr* ptree, int* Ninter, int* Nallrows, int* Nallcols, int64_t* Nalldat_loc, int* allrows,int* allcols, _Complex double * alldat_loc, int* rowidx, int* colidx, int* pgidx, int* Npmap, int* pmaps);
void z_c_bf_construct_init(int* M, int* N,int* M_loc,int* N_loc, int* nnsr, int* nnsc, F2Cptr* mshr,F2Cptr* mshc,F2Cptr* bf, F2Cptr* option,F2Cptr* stats,F2Cptr* msh,F2Cptr* ker,F2Cptr* ptree, void (*C_FuncDistmn)(int*, int*, double*,C2Fptr), void (*C_FuncNearFar)(int*, int*, int*,C2Fptr), C2Fptr C_QuantApp);
void z_c_bf_construct_element_compute(F2Cptr* bf, F2Cptr* option,F2Cptr* stats,F2Cptr* msh,F2Cptr* ker,F2Cptr* ptree, void (*C_FuncZmn)(int*, int*, _Complex double *,C2Fptr), void (*C_FuncZmnBlock)(int*, int*, int*, int64_t*, int*, int*, _Complex double *, int*, int*, int*, int*, int*, C2Fptr), C2Fptr C_QuantApp);
void z_c_bf_construct_matvec_compute(F2Cptr* bf, F2Cptr* option,F2Cptr* stats,F2Cptr* msh,F2Cptr* ker,F2Cptr* ptree,void (*C_FuncBMatVec)(char const *, int*, int*, int*, _Complex double  const*,_Complex double *,C2Fptr,_Complex double *, _Complex double *), C2Fptr C_QuantApp);
void z_c_bf_deletebf(F2Cptr*bf);
void z_c_bf_mult(char const * trans, _Complex double  const * xin, _Complex double * xout, int* Ninloc, int* Noutloc, int* Ncol, F2Cptr* bf,F2Cptr* option,F2Cptr* stats,F2Cptr* ptree);
void z_c_bf_new2old_row(F2Cptr* mshr, int* newidx_loc, int* oldidx);
void z_c_bf_new2old_col(F2Cptr* mshc, int* newidx_loc, int* oldidx);



}