Lines Matching refs:icntl
126 MUMPS_INT *icntl; member
183 outer->icntl = inner->icntl; \
507 #define ICNTL(I) icntl[(I) - 1]
2603 PetscMUMPSInt icntl = 0, size, *listvar_schur; in MatSetFromOptions_MUMPS() local
2606 …PetscBool schur = mumps->id.icntl ? (PetscBool)(mumps->id.ICNTL(26) == -1) : (PetscBool)(mumps… in MatSetFromOptions_MUMPS()
2696 …for (icntl = 0; icntl < nICNTL_pre; ++icntl) mumps->id.ICNTL(mumps->ICNTL_pre[1 + 2 * icntl]) = mu… in MatSetFromOptions_MUMPS()
2697 …for (icntl = 0; icntl < nCNTL_pre; ++icntl) ID_CNTL_SET(mumps->id, (PetscInt)mumps->CNTL_pre[1 + 2… in MatSetFromOptions_MUMPS()
2727 PetscCallMPI(MPI_Bcast(mumps->id.icntl, 40, MPI_INT, 0, mumps->omp_comm)); in MatSetFromOptions_MUMPS()
2733 …icntl_1", "ICNTL(1): output stream for error messages", "None", mumps->id.ICNTL(1), &icntl, &flg)); in MatSetFromOptions_MUMPS()
2734 if (flg) mumps->id.ICNTL(1) = icntl; in MatSetFromOptions_MUMPS()
2735 …ream for diagnostic printing, statistics, and warning", "None", mumps->id.ICNTL(2), &icntl, &flg)); in MatSetFromOptions_MUMPS()
2736 if (flg) mumps->id.ICNTL(2) = icntl; in MatSetFromOptions_MUMPS()
2737 … stream for global information, collected on the host", "None", mumps->id.ICNTL(3), &icntl, &flg)); in MatSetFromOptions_MUMPS()
2738 if (flg) mumps->id.ICNTL(3) = icntl; in MatSetFromOptions_MUMPS()
2740 …mumps_icntl_4", "ICNTL(4): level of printing (0 to 4)", "None", mumps->id.ICNTL(4), &icntl, &flg)); in MatSetFromOptions_MUMPS()
2741 if (flg) mumps->id.ICNTL(4) = icntl; in MatSetFromOptions_MUMPS()
2744 …a zero-free diagonal and/or scale the matrix (0 to 7)", "None", mumps->id.ICNTL(6), &icntl, &flg)); in MatSetFromOptions_MUMPS()
2745 if (flg) mumps->id.ICNTL(6) = icntl; in MatSetFromOptions_MUMPS()
2747 …=Scotch, 4=PORD, 5=Metis, 6=QAMD, and 7=auto(default)", "None", mumps->id.ICNTL(7), &icntl, &flg)); in MatSetFromOptions_MUMPS()
2749 …PetscCheck(icntl != 1 && icntl >= 0 && icntl <= 7, PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "Val… in MatSetFromOptions_MUMPS()
2750 mumps->id.ICNTL(7) = icntl; in MatSetFromOptions_MUMPS()
3279 if (mumps->id.icntl) mumps->id.ICNTL(26) = -1; in MatFactorSetSchurIS_MUMPS()
3324 static PetscErrorCode MatMumpsSetIcntl_MUMPS(Mat F, PetscInt icntl, PetscInt ival) in MatMumpsSetIcntl_MUMPS() argument
3332 if (mumps->ICNTL_pre[1 + 2 * i] == icntl) break; /* is this ICNTL already cached? */ in MatMumpsSetIcntl_MUMPS()
3338 mumps->ICNTL_pre[1 + 2 * i] = (PetscMUMPSInt)icntl; in MatMumpsSetIcntl_MUMPS()
3340 } else PetscCall(PetscMUMPSIntCast(ival, &mumps->id.ICNTL(icntl))); in MatMumpsSetIcntl_MUMPS()
3344 static PetscErrorCode MatMumpsGetIcntl_MUMPS(Mat F, PetscInt icntl, PetscInt *ival) in MatMumpsGetIcntl_MUMPS() argument
3353 if (mumps->ICNTL_pre[1 + 2 * i] == icntl) *ival = mumps->ICNTL_pre[2 + 2 * i]; in MatMumpsGetIcntl_MUMPS()
3355 } else *ival = mumps->id.ICNTL(icntl); in MatMumpsGetIcntl_MUMPS()
3379 PetscErrorCode MatMumpsSetIcntl(Mat F, PetscInt icntl, PetscInt ival) in MatMumpsSetIcntl() argument
3384 PetscValidLogicalCollectiveInt(F, icntl, 2); in MatMumpsSetIcntl()
3386 …icntl >= 1 && icntl <= 38) || icntl == 48 || icntl == 49 || icntl == 56 || icntl == 58, PetscObjec… in MatMumpsSetIcntl()
3387 PetscTryMethod(F, "MatMumpsSetIcntl_C", (Mat, PetscInt, PetscInt), (F, icntl, ival)); in MatMumpsSetIcntl()
3407 PetscErrorCode MatMumpsGetIcntl(Mat F, PetscInt icntl, PetscInt *ival) in MatMumpsGetIcntl() argument
3412 PetscValidLogicalCollectiveInt(F, icntl, 2); in MatMumpsGetIcntl()
3414 …icntl >= 1 && icntl <= 38) || icntl == 48 || icntl == 49 || icntl == 56 || icntl == 58, PetscObjec… in MatMumpsGetIcntl()
3415 PetscUseMethod(F, "MatMumpsGetIcntl_C", (Mat, PetscInt, PetscInt *), (F, icntl, ival)); in MatMumpsGetIcntl()
3419 static PetscErrorCode MatMumpsSetCntl_MUMPS(Mat F, PetscInt icntl, PetscReal val) in MatMumpsSetCntl_MUMPS() argument
3427 if (mumps->CNTL_pre[1 + 2 * i] == icntl) break; in MatMumpsSetCntl_MUMPS()
3433 mumps->CNTL_pre[1 + 2 * i] = icntl; in MatMumpsSetCntl_MUMPS()
3435 } else ID_CNTL_SET(mumps->id, icntl, val); in MatMumpsSetCntl_MUMPS()
3439 static PetscErrorCode MatMumpsGetCntl_MUMPS(Mat F, PetscInt icntl, PetscReal *val) in MatMumpsGetCntl_MUMPS() argument
3448 if (mumps->CNTL_pre[1 + 2 * i] == icntl) *val = mumps->CNTL_pre[2 + 2 * i]; in MatMumpsGetCntl_MUMPS()
3450 } else *val = ID_CNTL_GET(mumps->id, icntl); in MatMumpsGetCntl_MUMPS()
3531 PetscErrorCode MatMumpsSetCntl(Mat F, PetscInt icntl, PetscReal val) in MatMumpsSetCntl() argument
3536 PetscValidLogicalCollectiveInt(F, icntl, 2); in MatMumpsSetCntl()
3538 …PetscCheck(icntl >= 1 && icntl <= 7, PetscObjectComm((PetscObject)F), PETSC_ERR_ARG_WRONG, "Unsupp… in MatMumpsSetCntl()
3539 PetscTryMethod(F, "MatMumpsSetCntl_C", (Mat, PetscInt, PetscReal), (F, icntl, val)); in MatMumpsSetCntl()
3559 PetscErrorCode MatMumpsGetCntl(Mat F, PetscInt icntl, PetscReal *val) in MatMumpsGetCntl() argument
3564 PetscValidLogicalCollectiveInt(F, icntl, 2); in MatMumpsGetCntl()
3566 …PetscCheck(icntl >= 1 && icntl <= 7, PetscObjectComm((PetscObject)F), PETSC_ERR_ARG_WRONG, "Unsupp… in MatMumpsGetCntl()
3567 PetscUseMethod(F, "MatMumpsGetCntl_C", (Mat, PetscInt, PetscReal *), (F, icntl, val)); in MatMumpsGetCntl()
3571 static PetscErrorCode MatMumpsGetInfo_MUMPS(Mat F, PetscInt icntl, PetscInt *info) in MatMumpsGetInfo_MUMPS() argument
3576 *info = mumps->id.INFO(icntl); in MatMumpsGetInfo_MUMPS()
3580 static PetscErrorCode MatMumpsGetInfog_MUMPS(Mat F, PetscInt icntl, PetscInt *infog) in MatMumpsGetInfog_MUMPS() argument
3585 *infog = mumps->id.INFOG(icntl); in MatMumpsGetInfog_MUMPS()
3589 static PetscErrorCode MatMumpsGetRinfo_MUMPS(Mat F, PetscInt icntl, PetscReal *rinfo) in MatMumpsGetRinfo_MUMPS() argument
3594 *rinfo = ID_RINFO_GET(mumps->id, icntl); in MatMumpsGetRinfo_MUMPS()
3598 static PetscErrorCode MatMumpsGetRinfog_MUMPS(Mat F, PetscInt icntl, PetscReal *rinfog) in MatMumpsGetRinfog_MUMPS() argument
3603 *rinfog = ID_RINFOG_GET(mumps->id, icntl); in MatMumpsGetRinfog_MUMPS()
3814 PetscErrorCode MatMumpsGetInfo(Mat F, PetscInt icntl, PetscInt *ival) in MatMumpsGetInfo() argument
3820 PetscUseMethod(F, "MatMumpsGetInfo_C", (Mat, PetscInt, PetscInt *), (F, icntl, ival)); in MatMumpsGetInfo()
3840 PetscErrorCode MatMumpsGetInfog(Mat F, PetscInt icntl, PetscInt *ival) in MatMumpsGetInfog() argument
3846 PetscUseMethod(F, "MatMumpsGetInfog_C", (Mat, PetscInt, PetscInt *), (F, icntl, ival)); in MatMumpsGetInfog()
3866 PetscErrorCode MatMumpsGetRinfo(Mat F, PetscInt icntl, PetscReal *val) in MatMumpsGetRinfo() argument
3872 PetscUseMethod(F, "MatMumpsGetRinfo_C", (Mat, PetscInt, PetscReal *), (F, icntl, val)); in MatMumpsGetRinfo()
3892 PetscErrorCode MatMumpsGetRinfog(Mat F, PetscInt icntl, PetscReal *val) in MatMumpsGetRinfog() argument
3898 PetscUseMethod(F, "MatMumpsGetRinfog_C", (Mat, PetscInt, PetscReal *), (F, icntl, val)); in MatMumpsGetRinfog()