Lines Matching refs:icntl
614 PetscInt icntl, bs, threads = 1; in MatSetFromOptions_MKL_PARDISO() local
623 …ure that must be kept in memory at the same time", "None", mat_mkl_pardiso->maxfct, &icntl, &flg)); in MatSetFromOptions_MKL_PARDISO()
624 if (flg) mat_mkl_pardiso->maxfct = icntl; in MatSetFromOptions_MKL_PARDISO()
626 …Indicates the actual matrix for the solution phase", "None", mat_mkl_pardiso->mnum, &icntl, &flg)); in MatSetFromOptions_MKL_PARDISO()
627 if (flg) mat_mkl_pardiso->mnum = icntl; in MatSetFromOptions_MKL_PARDISO()
629 …-mat_mkl_pardiso_68", "Message level information", "None", mat_mkl_pardiso->msglvl, &icntl, &flg)); in MatSetFromOptions_MKL_PARDISO()
630 if (flg) mat_mkl_pardiso->msglvl = icntl; in MatSetFromOptions_MKL_PARDISO()
632 …t("-mat_mkl_pardiso_69", "Defines the matrix type", "None", mat_mkl_pardiso->mtype, &icntl, &flg)); in MatSetFromOptions_MKL_PARDISO()
635 mat_mkl_pardiso->mtype = icntl; in MatSetFromOptions_MKL_PARDISO()
636 icntl = mat_mkl_pardiso->iparm[34]; in MatSetFromOptions_MKL_PARDISO()
644 mat_mkl_pardiso->iparm[34] = icntl; in MatSetFromOptions_MKL_PARDISO()
648 …mat_mkl_pardiso_1", "Use default values (if 0)", "None", mat_mkl_pardiso->iparm[0], &icntl, &flg)); in MatSetFromOptions_MKL_PARDISO()
649 if (flg) mat_mkl_pardiso->iparm[0] = icntl; in MatSetFromOptions_MKL_PARDISO()
651 …Fill-in reducing ordering for the input matrix", "None", mat_mkl_pardiso->iparm[1], &icntl, &flg)); in MatSetFromOptions_MKL_PARDISO()
652 if (flg) mat_mkl_pardiso->iparm[1] = icntl; in MatSetFromOptions_MKL_PARDISO()
654 …t("-mat_mkl_pardiso_4", "Preconditioned CGS/CG", "None", mat_mkl_pardiso->iparm[3], &icntl, &flg)); in MatSetFromOptions_MKL_PARDISO()
655 if (flg) mat_mkl_pardiso->iparm[3] = icntl; in MatSetFromOptions_MKL_PARDISO()
657 …onsInt("-mat_mkl_pardiso_5", "User permutation", "None", mat_mkl_pardiso->iparm[4], &icntl, &flg)); in MatSetFromOptions_MKL_PARDISO()
658 if (flg) mat_mkl_pardiso->iparm[4] = icntl; in MatSetFromOptions_MKL_PARDISO()
660 …Int("-mat_mkl_pardiso_6", "Write solution on x", "None", mat_mkl_pardiso->iparm[5], &icntl, &flg)); in MatSetFromOptions_MKL_PARDISO()
661 if (flg) mat_mkl_pardiso->iparm[5] = icntl; in MatSetFromOptions_MKL_PARDISO()
663 …mat_mkl_pardiso_8", "Iterative refinement step", "None", mat_mkl_pardiso->iparm[7], &icntl, &flg)); in MatSetFromOptions_MKL_PARDISO()
664 if (flg) mat_mkl_pardiso->iparm[7] = icntl; in MatSetFromOptions_MKL_PARDISO()
666 …("-mat_mkl_pardiso_10", "Pivoting perturbation", "None", mat_mkl_pardiso->iparm[9], &icntl, &flg)); in MatSetFromOptions_MKL_PARDISO()
667 if (flg) mat_mkl_pardiso->iparm[9] = icntl; in MatSetFromOptions_MKL_PARDISO()
669 …nsInt("-mat_mkl_pardiso_11", "Scaling vectors", "None", mat_mkl_pardiso->iparm[10], &icntl, &flg)); in MatSetFromOptions_MKL_PARDISO()
670 if (flg) mat_mkl_pardiso->iparm[10] = icntl; in MatSetFromOptions_MKL_PARDISO()
672 …h transposed or conjugate transposed matrix A", "None", mat_mkl_pardiso->iparm[11], &icntl, &flg)); in MatSetFromOptions_MKL_PARDISO()
673 if (flg) mat_mkl_pardiso->iparm[11] = icntl; in MatSetFromOptions_MKL_PARDISO()
675 …racy using (non-) symmetric weighted matching", "None", mat_mkl_pardiso->iparm[12], &icntl, &flg)); in MatSetFromOptions_MKL_PARDISO()
676 if (flg) mat_mkl_pardiso->iparm[12] = icntl; in MatSetFromOptions_MKL_PARDISO()
678 …kl_pardiso_18", "Numbers of non-zero elements", "None", mat_mkl_pardiso->iparm[17], &icntl, &flg)); in MatSetFromOptions_MKL_PARDISO()
679 if (flg) mat_mkl_pardiso->iparm[17] = icntl; in MatSetFromOptions_MKL_PARDISO()
681 …r of floating point operations (0 to disable)", "None", mat_mkl_pardiso->iparm[18], &icntl, &flg)); in MatSetFromOptions_MKL_PARDISO()
682 if (flg) mat_mkl_pardiso->iparm[18] = icntl; in MatSetFromOptions_MKL_PARDISO()
684 …, "Pivoting for symmetric indefinite matrices", "None", mat_mkl_pardiso->iparm[20], &icntl, &flg)); in MatSetFromOptions_MKL_PARDISO()
685 if (flg) mat_mkl_pardiso->iparm[20] = icntl; in MatSetFromOptions_MKL_PARDISO()
687 …_pardiso_24", "Parallel factorization control", "None", mat_mkl_pardiso->iparm[23], &icntl, &flg)); in MatSetFromOptions_MKL_PARDISO()
688 if (flg) mat_mkl_pardiso->iparm[23] = icntl; in MatSetFromOptions_MKL_PARDISO()
690 …25", "Parallel forward/backward solve control", "None", mat_mkl_pardiso->iparm[24], &icntl, &flg)); in MatSetFromOptions_MKL_PARDISO()
691 if (flg) mat_mkl_pardiso->iparm[24] = icntl; in MatSetFromOptions_MKL_PARDISO()
693 …onsInt("-mat_mkl_pardiso_27", "Matrix checker", "None", mat_mkl_pardiso->iparm[26], &icntl, &flg)); in MatSetFromOptions_MKL_PARDISO()
694 if (flg) mat_mkl_pardiso->iparm[26] = icntl; in MatSetFromOptions_MKL_PARDISO()
696 …g selected components of the solution vectors", "None", mat_mkl_pardiso->iparm[30], &icntl, &flg)); in MatSetFromOptions_MKL_PARDISO()
697 if (flg) mat_mkl_pardiso->iparm[30] = icntl; in MatSetFromOptions_MKL_PARDISO()
699 …ditional numerical reproducibility (CNR) mode", "None", mat_mkl_pardiso->iparm[33], &icntl, &flg)); in MatSetFromOptions_MKL_PARDISO()
700 if (flg) mat_mkl_pardiso->iparm[33] = icntl; in MatSetFromOptions_MKL_PARDISO()
702 …-mat_mkl_pardiso_60", "Intel MKL PARDISO mode", "None", mat_mkl_pardiso->iparm[59], &icntl, &flg)); in MatSetFromOptions_MKL_PARDISO()
703 if (flg) mat_mkl_pardiso->iparm[59] = icntl; in MatSetFromOptions_MKL_PARDISO()
888 static PetscErrorCode MatMkl_PardisoSetCntl_MKL_PARDISO(Mat F, PetscInt icntl, PetscInt ival) in MatMkl_PardisoSetCntl_MKL_PARDISO() argument
894 if (icntl <= 64) { in MatMkl_PardisoSetCntl_MKL_PARDISO()
895 mat_mkl_pardiso->iparm[icntl - 1] = ival; in MatMkl_PardisoSetCntl_MKL_PARDISO()
897 if (icntl == 65) PetscSetMKL_PARDISOThreads((int)ival); in MatMkl_PardisoSetCntl_MKL_PARDISO()
898 else if (icntl == 66) mat_mkl_pardiso->maxfct = ival; in MatMkl_PardisoSetCntl_MKL_PARDISO()
899 else if (icntl == 67) mat_mkl_pardiso->mnum = ival; in MatMkl_PardisoSetCntl_MKL_PARDISO()
900 else if (icntl == 68) mat_mkl_pardiso->msglvl = ival; in MatMkl_PardisoSetCntl_MKL_PARDISO()
901 else if (icntl == 69) { in MatMkl_PardisoSetCntl_MKL_PARDISO()
914 } else if (icntl == 70) mat_mkl_pardiso->solve_interior = (PetscBool)!!ival; in MatMkl_PardisoSetCntl_MKL_PARDISO()
936 PetscErrorCode MatMkl_PardisoSetCntl(Mat F, PetscInt icntl, PetscInt ival) in MatMkl_PardisoSetCntl() argument
939 PetscTryMethod(F, "MatMkl_PardisoSetCntl_C", (Mat, PetscInt, PetscInt), (F, icntl, ival)); in MatMkl_PardisoSetCntl()