void lis_matvect_f(LIS_MATRIX_F *A, LIS_VECTOR_F *x, LIS_VECTOR_F *y, LIS_INT *ierr)
{
LIS_DEBUG_FUNC_IN;
*ierr = lis_matvect((LIS_MATRIX)LIS_V2P(A),(LIS_VECTOR)LIS_V2P(x),(LIS_VECTOR)LIS_V2P(y));
LIS_DEBUG_FUNC_OUT;
return;
}
void lis_solve_f(LIS_MATRIX_F *A, LIS_VECTOR_F b, LIS_VECTOR_F x, LIS_SOLVER_F *solver, LIS_INT *ierr)
{
LIS_DEBUG_FUNC_IN;
*ierr = lis_solve((LIS_MATRIX)LIS_V2P(A), (LIS_VECTOR)LIS_V2P(b), (LIS_VECTOR)LIS_V2P(x), (LIS_SOLVER)LIS_V2P(solver));
if( *ierr ) return;
LIS_DEBUG_FUNC_OUT;
return;
}
void lis_solver_set_matrix_f(LIS_MATRIX_F *A, LIS_SOLVER_F *solver, LIS_INT *ierr)
{
LIS_DEBUG_FUNC_IN;
*ierr = lis_solver_set_matrix((LIS_MATRIX)LIS_V2P(A), (LIS_SOLVER)LIS_V2P(solver));
if( *ierr ) return;
LIS_DEBUG_FUNC_OUT;
return;
}
void lis_solve_kernel_f(LIS_MATRIX_F *A, LIS_VECTOR_F b, LIS_VECTOR_F x, LIS_SOLVER_F *solver, LIS_PRECON *precon, LIS_INT *ierr)
{
LIS_DEBUG_FUNC_IN;
*ierr = lis_solve_kernel((LIS_MATRIX)LIS_V2P(A), (LIS_VECTOR)LIS_V2P(b), (LIS_VECTOR)LIS_V2P(x), (LIS_SOLVER)LIS_V2P(solver), (LIS_PRECON)LIS_V2P(precon));
if( *ierr ) return;
LIS_DEBUG_FUNC_OUT;
return;
}
void lis_esolver_get_evectors_f(LIS_ESOLVER_F *esolver, LIS_MATRIX_F A, LIS_INT *ierr)
{
LIS_DEBUG_FUNC_IN;
*ierr = lis_esolver_get_evectors((LIS_ESOLVER)LIS_V2P(esolver),(LIS_MATRIX)LIS_V2P(A));
if( *ierr ) return;
LIS_DEBUG_FUNC_OUT;
return;
}
void lis_esolver_get_evalues_f(LIS_ESOLVER_F *esolver, LIS_VECTOR v, LIS_INT *ierr)
{
LIS_DEBUG_FUNC_IN;
*ierr = lis_esolver_get_evalues((LIS_ESOLVER)LIS_V2P(esolver),(LIS_VECTOR)LIS_V2P(v));
if( *ierr ) return;
LIS_DEBUG_FUNC_OUT;
return;
}
void lis_vector_nhdot_f(LIS_VECTOR_F *x, LIS_VECTOR_F *y, LIS_SCALAR *value, LIS_INT *ierr)
{
LIS_DEBUG_FUNC_IN;
*ierr = lis_vector_nhdot((LIS_VECTOR)LIS_V2P(x),(LIS_VECTOR)LIS_V2P(y),value);
if( *ierr ) return;
LIS_DEBUG_FUNC_OUT;
return;
}
void lis_vector_pdiv_f(LIS_VECTOR_F *x, LIS_VECTOR_F *y, LIS_VECTOR_F *z, LIS_INT *ierr)
{
LIS_DEBUG_FUNC_IN;
*ierr = lis_vector_pdiv((LIS_VECTOR)LIS_V2P(x),(LIS_VECTOR)LIS_V2P(y),(LIS_VECTOR)LIS_V2P(z));
if( *ierr ) return;
LIS_DEBUG_FUNC_OUT;
return;
}
void lis_vector_axpyz_f(LIS_SCALAR *alpha, LIS_VECTOR_F *x, LIS_VECTOR_F *y, LIS_VECTOR_F *z, LIS_INT *ierr)
{
LIS_DEBUG_FUNC_IN;
*ierr = lis_vector_axpyz(*alpha,(LIS_VECTOR)LIS_V2P(x),(LIS_VECTOR)LIS_V2P(y),(LIS_VECTOR)LIS_V2P(z));
if( *ierr ) return;
LIS_DEBUG_FUNC_OUT;
return;
}
void lis_vector_xpay_f(LIS_VECTOR_F *x, LIS_SCALAR *alpha, LIS_VECTOR_F *y, LIS_INT *ierr)
{
LIS_DEBUG_FUNC_IN;
*ierr = lis_vector_xpay((LIS_VECTOR)LIS_V2P(x),*alpha,(LIS_VECTOR)LIS_V2P(y));
if( *ierr ) return;
LIS_DEBUG_FUNC_OUT;
return;
}
void lis_esolve_f(LIS_MATRIX_F *A, LIS_VECTOR_F x, LIS_SCALAR *evalue0, LIS_ESOLVER_F *esolver, LIS_INT *ierr)
{
LIS_DEBUG_FUNC_IN;
*ierr = lis_esolve((LIS_MATRIX)LIS_V2P(A), (LIS_VECTOR)LIS_V2P(x), evalue0, (LIS_ESOLVER)LIS_V2P(esolver));
if( *ierr ) return;
LIS_DEBUG_FUNC_OUT;
return;
}
void lis_matrix_copy_f(LIS_MATRIX_F *Ain, LIS_MATRIX_F *Aout, LIS_INT *ierr)
{
LIS_MATRIX AAin,AAout;
LIS_DEBUG_FUNC_IN;
AAin = (LIS_MATRIX)LIS_V2P(Ain);
AAout = (LIS_MATRIX)LIS_V2P(Aout);
*ierr = lis_matrix_copy(AAin,AAout);
LIS_DEBUG_FUNC_OUT;
return;
}
void lis_matrix_get_diagonal_f(LIS_MATRIX_F *A, LIS_VECTOR_F *d, LIS_INT *ierr)
{
LIS_MATRIX AA;
LIS_VECTOR dd;
LIS_DEBUG_FUNC_IN;
AA = (LIS_MATRIX)LIS_V2P(A);
dd = (LIS_VECTOR)LIS_V2P(d);
*ierr = lis_matrix_get_diagonal(AA,dd);
LIS_DEBUG_FUNC_OUT;
return;
}
void lis_matrix_scaling_f(LIS_MATRIX_F *A, LIS_VECTOR_F *b, LIS_VECTOR_F *d, LIS_INT *action, LIS_INT *ierr)
{
LIS_MATRIX AA;
LIS_VECTOR dd,bb;
LIS_DEBUG_FUNC_IN;
AA = (LIS_MATRIX)LIS_V2P(A);
bb = (LIS_VECTOR)LIS_V2P(b);
dd = (LIS_VECTOR)LIS_V2P(d);
*ierr = lis_matrix_scaling(AA,bb,dd,*action);
LIS_DEBUG_FUNC_OUT;
return;
}
void lis_vector_is_null_f(LIS_VECTOR_F *vec, LIS_INT *ierr)
{
LIS_VECTOR v;
LIS_DEBUG_FUNC_IN;
v = (LIS_VECTOR)LIS_V2P(vec);
if( !lis_is_malloc(v) )
{
*ierr = LIS_TRUE;
}
else
{
if( v->status==LIS_VECTOR_NULL )
{
*ierr = LIS_TRUE;
}
else
{
*ierr = LIS_FALSE;
}
}
LIS_DEBUG_FUNC_OUT;
return;
}
void lis_matrix_destroy_f(LIS_MATRIX_F *Amat, LIS_INT *ierr)
{
LIS_DEBUG_FUNC_IN;
*ierr = lis_matrix_destroy((LIS_MATRIX)LIS_V2P(Amat));
LIS_DEBUG_FUNC_OUT;
return;
}
void lis_esolver_set_optionC_f(LIS_ESOLVER esolver, LIS_INT *ierr)
{
LIS_DEBUG_FUNC_IN;
*ierr = lis_esolver_set_optionC((LIS_ESOLVER)LIS_V2P(esolver));
LIS_DEBUG_FUNC_OUT;
return;
}
void lis_matrix_set_value_f(LIS_INT *flag, LIS_INT *i, LIS_INT *j, LIS_SCALAR *value, LIS_MATRIX_F *A, LIS_INT *ierr)
{
LIS_DEBUG_FUNC_IN;
*ierr = lis_matrix_set_value(*flag,*i,*j,*value,(LIS_MATRIX)LIS_V2P(A));
LIS_DEBUG_FUNC_OUT;
return;
}
void lis_solver_get_precon_f(LIS_SOLVER_F *solver, LIS_INT *nsol, LIS_INT *ierr)
{
LIS_DEBUG_FUNC_IN;
*ierr = lis_solver_get_precon((LIS_SOLVER)LIS_V2P(solver),nsol);
LIS_DEBUG_FUNC_OUT;
return;
}
void lis_matrix_set_coo_f(LIS_INT *nnz, LIS_INT *row, LIS_INT *col, LIS_SCALAR *value, LIS_MATRIX_F *A, LIS_INT *ierr)
{
LIS_DEBUG_FUNC_IN;
*ierr = lis_matrix_set_coo(*nnz,row,col,value,((LIS_MATRIX)LIS_V2P(A)));
LIS_DEBUG_FUNC_OUT;
return;
}
void lis_matrix_set_dia_f(LIS_INT *nnd, LIS_INT *index, LIS_SCALAR *value, LIS_MATRIX_F *A, LIS_INT *ierr)
{
LIS_DEBUG_FUNC_IN;
*ierr = lis_matrix_set_dia(*nnd,index,value,((LIS_MATRIX)LIS_V2P(A)));
LIS_DEBUG_FUNC_OUT;
return;
}
void lis_matrix_set_size_f(LIS_MATRIX_F *A, LIS_INT *local_n, LIS_INT *global_n, LIS_INT *ierr)
{
LIS_DEBUG_FUNC_IN;
*ierr = lis_matrix_set_size((LIS_MATRIX)LIS_V2P(A),*local_n,*global_n);
LIS_DEBUG_FUNC_OUT;
return;
}
void lis_matrix_set_ell_f(LIS_INT *maxnzr, LIS_INT *index, LIS_SCALAR *value, LIS_MATRIX_F *A, LIS_INT *ierr)
{
LIS_DEBUG_FUNC_IN;
*ierr = lis_matrix_set_ell(*maxnzr,index,value,((LIS_MATRIX)LIS_V2P(A)));
LIS_DEBUG_FUNC_OUT;
return;
}
void lis_matrix_set_jds_f(LIS_INT *nnz, LIS_INT *maxnzr, LIS_INT *perm, LIS_INT *ptr, LIS_INT *index, LIS_SCALAR *value, LIS_MATRIX_F *A, LIS_INT *ierr)
{
LIS_DEBUG_FUNC_IN;
*ierr = lis_matrix_set_jds(*nnz,*maxnzr,perm,ptr,index,value,((LIS_MATRIX)LIS_V2P(A)));
LIS_DEBUG_FUNC_OUT;
return;
}
void lis_matrix_set_dns_f(LIS_SCALAR *value, LIS_MATRIX_F *A, LIS_INT *ierr)
{
LIS_DEBUG_FUNC_IN;
*ierr = lis_matrix_set_dns(value,((LIS_MATRIX)LIS_V2P(A)));
LIS_DEBUG_FUNC_OUT;
return;
}
void lis_esolver_get_esolver_f(LIS_ESOLVER_F *esolver, LIS_INT *nsol, LIS_INT *ierr)
{
LIS_DEBUG_FUNC_IN;
*ierr = lis_esolver_get_esolver((LIS_ESOLVER)LIS_V2P(esolver),nsol);
LIS_DEBUG_FUNC_OUT;
return;
}
void lis_matrix_get_type_f(LIS_MATRIX_F *A, LIS_INT *matrix_type, LIS_INT *ierr)
{
LIS_DEBUG_FUNC_IN;
*ierr = lis_matrix_get_type((LIS_MATRIX)LIS_V2P(A),matrix_type);
LIS_DEBUG_FUNC_OUT;
return;
}
void lis_vector_print_f(LIS_VECTOR_F *v)
{
LIS_DEBUG_FUNC_IN;
lis_vector_print((LIS_VECTOR)LIS_V2P(v));
LIS_DEBUG_FUNC_OUT;
return;
}
void lis_matrix_set_bsc_f(LIS_INT *bnr, LIS_INT *bnc, LIS_INT *bnnz, LIS_INT *bptr, LIS_INT *bindex, LIS_SCALAR *value, LIS_MATRIX_F *A, LIS_INT *ierr)
{
LIS_DEBUG_FUNC_IN;
*ierr = lis_matrix_set_bsc(*bnr,*bnc,*bnnz,bptr,bindex,value,((LIS_MATRIX)LIS_V2P(A)));
LIS_DEBUG_FUNC_OUT;
return;
}
void lis_esolver_destroy_f(LIS_ESOLVER_F *esolver, LIS_INT *ierr)
{
LIS_DEBUG_FUNC_IN;
*ierr = lis_esolver_destroy((LIS_ESOLVER)LIS_V2P(esolver));
if( *ierr ) return;
LIS_DEBUG_FUNC_OUT;
return;
}