Searched refs:mpardiso (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/mat/impls/aij/seq/mkl_pardiso/ |
| H A D | mkl_pardiso.c | 237 Mat_MKL_PARDISO *mpardiso = (Mat_MKL_PARDISO *)F->data; in MatMKLPardisoSolveSchur_Private() local
244 PetscCall(MatCreateSeqDense(PETSC_COMM_SELF, mpardiso->schur_size, mpardiso->nrhs, B, &Bmat)); in MatMKLPardisoSolveSchur_Private()
245 PetscCall(MatCreateSeqDense(PETSC_COMM_SELF, mpardiso->schur_size, mpardiso->nrhs, X, &Xmat)); in MatMKLPardisoSolveSchur_Private()
254 …PetscCheck(mpardiso->iparm[12 - 1] != 1, PetscObjectComm((PetscObject)F), PETSC_ERR_SUP, "Hermitia… in MatMKLPardisoSolveSchur_Private()
259 if (!mpardiso->iparm[12 - 1]) { in MatMKLPardisoSolveSchur_Private()
267 if (!mpardiso->iparm[12 - 1]) { in MatMKLPardisoSolveSchur_Private()
289 Mat_MKL_PARDISO *mpardiso = (Mat_MKL_PARDISO *)F->data; in MatFactorSetSchurIS_MKL_PARDISO() local
302 PetscCall(PetscFree(mpardiso->schur_work)); in MatFactorSetSchurIS_MKL_PARDISO()
303 PetscCall(PetscBLASIntCast(PetscMax(mpardiso->n, 2 * size), &mpardiso->schur_work_size)); in MatFactorSetSchurIS_MKL_PARDISO()
304 PetscCall(PetscMalloc1(mpardiso->schur_work_size, &mpardiso->schur_work)); in MatFactorSetSchurIS_MKL_PARDISO()
[all …]
|