Lines Matching refs:n_I

20     PetscInt n_I, size_schur;  in PCBDDCReuseSolversBenignAdapt()  local
24 PetscCall(VecGetSize(v, &n_I)); in PCBDDCReuseSolversBenignAdapt()
25 n_I = n_I - size_schur; in PCBDDCReuseSolversBenignAdapt()
28 PetscCall(VecPlaceArray(ctx->benign_dummy_schur_vec, array + n_I)); in PCBDDCReuseSolversBenignAdapt()
93 PetscInt n_I, size_schur; in PCBDDCReuseSolversBenignAdapt() local
97 PetscCall(VecGetSize(v, &n_I)); in PCBDDCReuseSolversBenignAdapt()
98 n_I = n_I - size_schur; in PCBDDCReuseSolversBenignAdapt()
108 PetscCall(VecPlaceArray(ctx->benign_dummy_schur_vec, array + n_I)); in PCBDDCReuseSolversBenignAdapt()
273 PetscInt n_I; in PCBDDCComputeExplicitSchur() local
293 PetscCall(MatGetSize(B, &n_I, NULL)); in PCBDDCComputeExplicitSchur()
294 if (n_I) { in PCBDDCComputeExplicitSchur()
365 if (n_I) { in PCBDDCComputeExplicitSchur()
507 PetscInt n_I, n_B, n_local_dofs, n_prev_added, j, layer, *local_numbering; in PCBDDCSubSchursSetUp() local
511 PetscCall(ISGetLocalSize(sub_schurs->is_I, &n_I)); in PCBDDCSubSchursSetUp()
514 PetscCall(PetscMalloc1(n_I + n_B, &local_numbering)); in PCBDDCSubSchursSetUp()
515 PetscCall(PetscBTCreate(n_I + n_B, &touched)); in PCBDDCSubSchursSetUp()
516 PetscCall(PetscBTMemzero(n_I + n_B, touched)); in PCBDDCSubSchursSetUp()
529 if (n_local_dofs == n_I + n_B) break; in PCBDDCSubSchursSetUp()
530n_I + n_B, PETSC_COMM_SELF, PETSC_ERR_PLIB, "Error querying layer %" PetscInt_FMT ". Out of bound … in PCBDDCSubSchursSetUp()
553 PetscInt n_I; in PCBDDCSubSchursSetUp() local
561 PetscCall(ISGetSize(sub_schurs->is_I, &n_I)); in PCBDDCSubSchursSetUp()
562 PetscCall(ISCreateStride(PetscObjectComm((PetscObject)sub_schurs->is_I), n_I, 0, 1, &is_I)); in PCBDDCSubSchursSetUp()
843 PetscInt n, n_I, size_schur, size_active_schur, cum, cum2; in PCBDDCSubSchursSetUp() local
854 n_I = 0; in PCBDDCSubSchursSetUp()
855 if (is_I_layer) PetscCall(ISGetLocalSize(is_I_layer, &n_I)); in PCBDDCSubSchursSetUp()
858 if (cum != n_I) economic = PETSC_TRUE; in PCBDDCSubSchursSetUp()
883 cum = n_I + size_active_schur; in PCBDDCSubSchursSetUp()
915 size_schur = cum - n_I; in PCBDDCSubSchursSetUp()
933 PetscCall(ISCreateStride(PETSC_COMM_SELF, size_schur, n_I, 1, &is_schur)); in PCBDDCSubSchursSetUp()
943 for (PetscInt j = 0; j < n_I; j++) in PCBDDCSubSchursSetUp()
946 for (PetscInt j = n_I; j < n_I + size_schur; j++) in PCBDDCSubSchursSetUp()
949 idx_sub[n + size_schur_sub++] = j - n_I; in PCBDDCSubSchursSetUp()
996 …[i * size_schur + j] = (PetscRealPart(array[j + n_I]) / nz + PETSC_i * (PetscImaginaryPart(array[j… in PCBDDCSubSchursSetUp()
998 cs_AIB[i * size_schur + j] = array[j + n_I] / nz; in PCBDDCSubSchursSetUp()
1031 if (n_I && !multi_element) { in PCBDDCSubSchursSetUp()
1073 PetscCall(ISCreateStride(PETSC_COMM_SELF, n_I, 0, 1, &is)); in PCBDDCSubSchursSetUp()
1077 PetscCall(ISCreateStride(PETSC_COMM_SELF, size_schur, n_I, 1, &is)); in PCBDDCSubSchursSetUp()
1178 PetscCall(VecCreateSeqWithArray(PETSC_COMM_SELF, 1, size_schur, array + n_I, &vv)); in PCBDDCSubSchursSetUp()
1201 …if (B_n) PetscCallBLAS("BLASsyr2k", BLASsyr2k_("L", "N", &B_n, &B_k, &sum, array + n_I, &B_n, cs_A… in PCBDDCSubSchursSetUp()
1202 … PetscCallBLAS("BLASsyr2k", BLASsyr2k_("L", "N", &B_n, &B_k, &sum, array + n_I, &B_n, cs_AIB + i *… in PCBDDCSubSchursSetUp()
1406 …PetscCall(ISCreateGeneral(PetscObjectComm((PetscObject)is_A_all), dual, idxs + n_I, PETSC_COPY_VAL… in PCBDDCSubSchursSetUp()