Home
last modified time | relevance | path

Searched refs:schur_idxs (Results 1 – 1 of 1) sorted by relevance

/petsc/src/mat/impls/aij/seq/mkl_pardiso/
H A Dmkl_pardiso.c93 PetscInt *schur_idxs; member
313 PetscCall(PetscFree(mpardiso->schur_idxs)); in MatFactorSetSchurIS_MKL_PARDISO()
314 PetscCall(PetscMalloc1(size, &mpardiso->schur_idxs)); in MatFactorSetSchurIS_MKL_PARDISO()
317 PetscCall(PetscArraycpy(mpardiso->schur_idxs, idxs, size)); in MatFactorSetSchurIS_MKL_PARDISO()
339 PetscCall(PetscFree(mat_mkl_pardiso->schur_idxs)); in MatDestroy_MKL_PARDISO()
360 for (j = 0; j < mpardiso->schur_size; j++) schur[p + j] = whole[m + mpardiso->schur_idxs[j]]; in MatMKLPardisoScatterSchur_Private()
368 for (j = 0; j < mpardiso->schur_size; j++) whole[m + mpardiso->schur_idxs[j]] = schur[p + j]; in MatMKLPardisoScatterSchur_Private()
424 for (i = 0; i < mat_mkl_pardiso->schur_size; i++) xarray[mat_mkl_pardiso->schur_idxs[i]] = 0.; in MatSolve_MKL_PARDISO()
559 … for (i = 0; i < mat_mkl_pardiso->schur_size; i++) xarray[mat_mkl_pardiso->schur_idxs[i] + m] = 0.; in MatMatSolve_MKL_PARDISO()