| /petsc/src/mat/tests/ |
| H A D | ex303.c | 9 Mat A2, B2; // diag, offdiag of mat2 in main() local
35 PetscCall(MatConvert(B, mat_type, MAT_INITIAL_MATRIX, &B2)); in main()
45 PetscCall(MatCreateMPIAIJWithSeqAIJ(PETSC_COMM_WORLD, M, N, A2, B2, garray_h, &mat2)); in main()
57 PetscCall(MatCreate(PETSC_COMM_SELF, &B2)); in main()
58 PetscCall(MatSetSizes(B2, m, N, m, N)); in main()
59 PetscCall(MatSetType(B2, mat_type)); in main()
60 PetscCall(MatSeqAIJSetPreallocation(B2, o_nz, NULL)); in main()
62 …for (int j = 0; j < bi[i + 1] - bi[i]; j++) PetscCall(MatSetValue(B2, i, garray[bj[bi[i] + j]], ba… in main()
64 PetscCall(MatAssemblyBegin(B2, MAT_FINAL_ASSEMBLY)); in main()
65 PetscCall(MatAssemblyEnd(B2, MAT_FINAL_ASSEMBLY)); in main()
[all …]
|
| H A D | ex32.c | 56 Mat B1, B2; in main() local
63 PetscCall(MatPtAP(B, A, MAT_INITIAL_MATRIX, PETSC_DETERMINE, &B2)); in main()
65 PetscCall(MatAXPY(B2, -1.0, B1, SAME_NONZERO_PATTERN)); in main()
66 PetscCall(MatNorm(B2, NORM_INFINITY, &r)); in main()
71 PetscCall(MatPtAP(B, A, MAT_REUSE_MATRIX, PETSC_DETERMINE, &B2)); in main()
72 PetscCall(MatAXPY(B2, -1.0, B1, SAME_NONZERO_PATTERN)); in main()
73 PetscCall(MatNorm(B2, NORM_INFINITY, &r)); in main()
77 PetscCall(MatDestroy(&B2)); in main()
|
| H A D | ex23.c | 11 Mat A, B, A2, B2, T; in main() local
285 PetscCall(MatConvert(A2, MATAIJ, MAT_INITIAL_MATRIX, &B2)); in main()
286 PetscCall(CheckMat(B, B2, PETSC_TRUE, "MatConvert_IS_XAIJ MAT_INITIAL_MATRIX")); in main()
287 PetscCall(MatConvert(A2, MATAIJ, MAT_REUSE_MATRIX, &B2)); in main()
288 PetscCall(CheckMat(B, B2, PETSC_TRUE, "MatConvert_IS_XAIJ MAT_REUSE_MATRIX")); in main()
292 PetscCall(MatDestroy(&B2)); in main()
294 PetscCall(MatDuplicate(B, MAT_COPY_VALUES, &B2)); in main()
295 PetscCall(MatConvert(B2, MATIS, MAT_INITIAL_MATRIX, &A2)); in main()
297 PetscCall(MatConvert(B2, MATIS, MAT_REUSE_MATRIX, &A2)); in main()
299 PetscCall(MatConvert(B2, MATIS, MAT_INPLACE_MATRIX, &B2)); in main()
[all …]
|
| H A D | ex70.c | 339 Mat B2, T3, T4; in main() local
341 PetscCall(MatDuplicate(B, MAT_COPY_VALUES, &B2)); in main()
344 PetscCall(MatAXPY(B2, 1.0, T4, SAME_NONZERO_PATTERN)); in main()
347 …PetscCall(MatDenseGetSubMatrix(B2, PETSC_DECIDE, PETSC_DECIDE, PetscMin(1, K - 1), PetscMin(2, K),… in main()
357 PetscCall(MatDenseRestoreSubMatrix(B2, &T3)); in main()
359 PetscCall(MatDestroy(&B2)); in main()
362 PetscCall(MatDuplicate(B, MAT_COPY_VALUES, &B2)); in main()
365 PetscCall(MatAXPY(B2, 1.0, T4, SAME_NONZERO_PATTERN)); in main()
368 … PetscCall(MatDenseGetSubMatrix(B2, N - 2, PETSC_DECIDE, PetscMin(1, K - 1), PetscMin(2, K), &T3)); in main()
378 PetscCall(MatDenseRestoreSubMatrix(B2, &T3)); in main()
[all …]
|
| /petsc/src/mat/impls/baij/seq/ |
| H A D | baij.h | 707 …__m256d S0, S1, S2, S3, S4, S5, S6, S7, S8, B0, B1, B2, B6, B7, B8, A0, A1, A2, A3, A4, A5, A6, A… in PetscKernel_A_gets_A_times_B_9() local
726 B2 = _mm256_broadcast_sd(B + 18); in PetscKernel_A_gets_A_times_B_9()
733 S6 = _mm256_fmadd_pd(A0, B2, S6); in PetscKernel_A_gets_A_times_B_9()
734 S7 = _mm256_fmadd_pd(A1, B2, S7); in PetscKernel_A_gets_A_times_B_9()
735 S8 = _mm256_fmadd_pd(A2, B2, S8); in PetscKernel_A_gets_A_times_B_9()
758 B2 = _mm256_broadcast_sd(B + 20); in PetscKernel_A_gets_A_times_B_9()
765 S6 = _mm256_fmadd_pd(A6, B2, S6); in PetscKernel_A_gets_A_times_B_9()
766 S7 = _mm256_fmadd_pd(A7, B2, S7); in PetscKernel_A_gets_A_times_B_9()
767 S8 = _mm256_fmadd_pd(A8, B2, S8); in PetscKernel_A_gets_A_times_B_9()
790 B2 = _mm256_broadcast_sd(B + 22); in PetscKernel_A_gets_A_times_B_9()
[all …]
|
| /petsc/src/ksp/pc/impls/bddc/ |
| H A D | bddcprivate.c | 5038 Mat B, B2; in PCBDDCSetUpCorrection() local
5067 …ix(pcbddc->coarse_phi_B, PETSC_DECIDE, PETSC_DECIDE, n_vertices, n_vertices + n_constraints, &B2)); in PCBDDCSetUpCorrection()
5068 PetscCall(MatDenseScatter_Private(pcbddc->R_to_B, B, B2, INSERT_VALUES, SCATTER_FORWARD)); in PCBDDCSetUpCorrection()
5069 PetscCall(MatDenseRestoreSubMatrix(pcbddc->coarse_phi_B, &B2)); in PCBDDCSetUpCorrection()
5071 …ix(pcbddc->coarse_phi_D, PETSC_DECIDE, PETSC_DECIDE, n_vertices, n_vertices + n_constraints, &B2)); in PCBDDCSetUpCorrection()
5072 PetscCall(MatDenseScatter_Private(pcbddc->R_to_D, B, B2, INSERT_VALUES, SCATTER_FORWARD)); in PCBDDCSetUpCorrection()
5074 …for (i = 0; i < n_constraints; i++) PetscCall(MatSetValues(B2, pcbddc->benign_n, p0_lidx_I, 1, &i,… in PCBDDCSetUpCorrection()
5076 PetscCall(MatDenseRestoreSubMatrix(pcbddc->coarse_phi_D, &B2)); in PCBDDCSetUpCorrection()
|
| /petsc/doc/ |
| H A D | petsc.bib | 22230 number = {B2},
|