Home
last modified time | relevance | path

Searched refs:PetscCallMPI (Results 1 – 25 of 1039) sorted by relevance

12345678910>>...42

/petsc/src/sys/objects/
H A Dtagm.c71 PetscCallMPI(MPI_Comm_get_attr(comm, Petsc_Counter_keyval, &counter, &flg)); in PetscCommGetNewTag()
76 PetscCallMPI(MPI_Comm_get_attr(MPI_COMM_WORLD, MPI_TAG_UB, &maxval, &flg)); in PetscCommGetNewTag()
86 PetscCallMPI(MPI_Barrier(comm)); in PetscCommGetNewTag()
120 PetscCallMPI(MPI_Comm_get_attr(comm_in, Petsc_Counter_keyval, &counter, &flg)); in PetscCommGetComm()
131 PetscCallMPI(MPI_Comm_dup(comm_in, comm_out)); in PetscCommGetComm()
158 PetscCallMPI(MPI_Comm_get_attr(comm_in, Petsc_Counter_keyval, &counter, &flg)); in PetscCommRestoreComm()
207 PetscCallMPI(MPI_Comm_get_attr(comm_in, Petsc_Counter_keyval, &counter, &flg)); in PetscCommDuplicate()
216 PetscCallMPI(MPI_Comm_get_attr(comm_in, Petsc_InnerComm_keyval, &ucomm, &flg)); in PetscCommDuplicate()
219 PetscCallMPI(MPI_Comm_dup(comm_in, comm_out)); in PetscCommDuplicate()
220 PetscCallMPI(MPI_Comm_get_attr(MPI_COMM_WORLD, MPI_TAG_UB, &maxval, &flg)); in PetscCommDuplicate()
[all …]
H A Dpinit.c239 … PetscCallMPI(MPI_Reduce_scatter_block((void *)array, &work, 1, MPIU_2INT, MPIU_MAXSUM_OP, comm)); in PetscMaxSum()
249 PetscCallMPI(MPI_Comm_size(comm, &size)); in PetscMaxSum()
250 PetscCallMPI(MPI_Comm_rank(comm, &rank)); in PetscMaxSum()
252 PetscCallMPI(MPIU_Allreduce((void *)array, work, size, MPIU_2INT, MPIU_MAXSUM_OP, comm)); in PetscMaxSum()
826 PetscCallMPI(MPI_Get_library_version(mpilibraryversion, &mpilibraryversionlength)); in PetscInitialize_Common()
891 PetscCallMPI(MPI_Comm_set_errhandler(PETSC_COMM_WORLD, MPI_ERRORS_RETURN)); in PetscInitialize_Common()
894 PetscCallMPI(MPI_Add_error_class(&PETSC_MPI_ERROR_CLASS)); in PetscInitialize_Common()
895 PetscCallMPI(MPI_Add_error_code(PETSC_MPI_ERROR_CLASS, &PETSC_MPI_ERROR_CODE)); in PetscInitialize_Common()
901 PetscCallMPI(MPI_Comm_rank(MPI_COMM_WORLD, &PetscGlobalRank)); in PetscInitialize_Common()
902 PetscCallMPI(MPI_Comm_size(MPI_COMM_WORLD, &PetscGlobalSize)); in PetscInitialize_Common()
[all …]
H A Dsubcomm.c111 PetscCallMPI(MPI_Comm_size(comm, &size)); in PetscSubcommView()
113 PetscCallMPI(MPI_Comm_rank(comm, &rank)); in PetscSubcommView()
114 PetscCallMPI(MPI_Comm_size(psubcomm->child, &subsize)); in PetscSubcommView()
115 PetscCallMPI(MPI_Comm_rank(psubcomm->child, &subrank)); in PetscSubcommView()
116 PetscCallMPI(MPI_Comm_rank(psubcomm->dupparent, &duprank)); in PetscSubcommView()
145 PetscCallMPI(MPI_Comm_size(comm, &size)); in PetscSubcommSetNumber()
205 PetscCallMPI(MPI_Comm_split(comm, color, subrank, &subcomm)); in PetscSubcommSetTypeGeneral()
209 PetscCallMPI(MPI_Comm_size(comm, &size)); in PetscSubcommSetTypeGeneral()
212 PetscCallMPI(MPI_Comm_rank(comm, &rank)); in PetscSubcommSetTypeGeneral()
213 PetscCallMPI(MPI_Comm_size(subcomm, &mysubsize)); in PetscSubcommSetTypeGeneral()
[all …]
H A Dgarbage.c10 PetscCallMPI(MPI_Comm_get_attr(comm, Petsc_Garbage_HMap_keyval, garbage, &iflg)); in GarbageGetHMap_Private()
15 PetscCallMPI(MPI_Comm_set_attr(comm, Petsc_Garbage_HMap_keyval, garbage->ptr)); in GarbageGetHMap_Private()
75 PetscCallMPI(MPI_Comm_size(comm, &size)); in PetscObjectDelayedDestroy()
147 PetscCallMPI(MPIU_Allreduce(entries, &max_entries, 1, MPIU_INT, MPI_MAX, comm)); in GarbageKeyAllReduceIntersect_Private()
155 PetscCallMPI(MPI_Type_contiguous(imax_entries + 1, MPIU_INT64, &keyset_type)); in GarbageKeyAllReduceIntersect_Private()
157 PetscCallMPI(MPI_Type_commit(&keyset_type)); in GarbageKeyAllReduceIntersect_Private()
160 …PetscCallMPI(MPIU_Allreduce(sendset, recvset, 1, keyset_type, Petsc_Garbage_SetIntersectOp, comm)); in GarbageKeyAllReduceIntersect_Private()
162 PetscCallMPI(MPI_Type_free(&keyset_type)); in GarbageKeyAllReduceIntersect_Private()
220 PetscCallMPI(MPI_Comm_delete_attr(comm, Petsc_Garbage_HMap_keyval)); in PetscGarbageCleanup()
242 PetscCallMPI(MPI_Comm_set_attr(comm, Petsc_Garbage_HMap_keyval, garbage.ptr)); in PetscGarbageCleanup()
[all …]
/petsc/src/sys/utils/
H A Dmpiu.c14 PetscCallMPI(MPI_Comm_size(comm, &size)); in PetscSequentialPhaseBegin_Private()
16 PetscCallMPI(MPI_Comm_rank(comm, &rank)); in PetscSequentialPhaseBegin_Private()
17 if (rank) PetscCallMPI(MPI_Recv(NULL, 0, MPI_INT, rank - 1, tag, comm, &status)); in PetscSequentialPhaseBegin_Private()
19 …if ((rank % ng) < ng - 1 && rank != size - 1) PetscCallMPI(MPI_Send(NULL, 0, MPI_INT, rank + 1, ta… in PetscSequentialPhaseBegin_Private()
29 PetscCallMPI(MPI_Comm_rank(comm, &rank)); in PetscSequentialPhaseEnd_Private()
30 PetscCallMPI(MPI_Comm_size(comm, &size)); in PetscSequentialPhaseEnd_Private()
34 …if ((rank % ng) == ng - 1 || rank == size - 1) PetscCallMPI(MPI_Send(NULL, 0, MPI_INT, (rank + 1) … in PetscSequentialPhaseEnd_Private()
35 if (rank == 0) PetscCallMPI(MPI_Recv(NULL, 0, MPI_INT, size - 1, tag, comm, &status)); in PetscSequentialPhaseEnd_Private()
78 PetscCallMPI(MPI_Comm_size(comm, &size)); in PetscSequentialPhaseBegin()
82 …if (Petsc_Seq_keyval == MPI_KEYVAL_INVALID) PetscCallMPI(MPI_Comm_create_keyval(MPI_COMM_NULL_COPY… in PetscSequentialPhaseBegin()
[all …]
H A Dpsplit.c35 PetscCallMPI(MPIU_Allreduce(n, N, 1, MPIU_INT, MPI_SUM, comm)); in PetscSplitOwnershipBlock()
38 PetscCallMPI(MPI_Comm_size(comm, &size)); in PetscSplitOwnershipBlock()
39 PetscCallMPI(MPI_Comm_rank(comm, &rank)); in PetscSplitOwnershipBlock()
77 PetscCallMPI(MPI_Comm_size(comm, &size)); in PetscSplitOwnership()
78 PetscCallMPI(MPIU_Allreduce(l, g, 2, MPI_INT, MPI_SUM, comm)); in PetscSplitOwnership()
84 PetscCallMPI(MPIU_Allreduce(n, N, 1, MPIU_INT, MPI_SUM, comm)); in PetscSplitOwnership()
86 PetscCallMPI(MPI_Comm_size(comm, &size)); in PetscSplitOwnership()
87 PetscCallMPI(MPI_Comm_rank(comm, &rank)); in PetscSplitOwnership()
91 PetscCallMPI(MPIU_Allreduce(n, &tmp, 1, MPIU_INT, MPI_SUM, comm)); in PetscSplitOwnership()
133 PetscCallMPI(MPI_Comm_size(comm, &size)); in PetscSplitOwnershipEqual()
[all …]
H A Dmpimesg.c38 PetscCallMPI(MPI_Comm_size(comm, &size)); in PetscGatherNumberOfMessages()
39 PetscCallMPI(MPI_Comm_rank(comm, &rank)); in PetscGatherNumberOfMessages()
54 PetscCallMPI(MPIU_Allreduce(iflags_local, recv_buf, size, MPI_INT, MPI_SUM, comm)); in PetscGatherNumberOfMessages()
97 PetscCallMPI(MPI_Comm_size(comm, &size)); in PetscGatherMessageLengths()
98 PetscCallMPI(MPI_Comm_rank(comm, &rank)); in PetscGatherMessageLengths()
107 …for (i = 0; i < nrecvs; i++) PetscCallMPI(MPIU_Irecv((*olengths) + i, 1, MPI_INT, MPI_ANY_SOURCE, … in PetscGatherMessageLengths()
112 PetscCallMPI(MPIU_Isend((void *)(ilengths + i), 1, MPI_INT, i, tag, comm, s_waits + j)); in PetscGatherMessageLengths()
118 if (nrecvs + nsends) PetscCallMPI(MPI_Waitall(nrecvs + nsends, r_waits, w_status)); in PetscGatherMessageLengths()
144 PetscCallMPI(MPI_Comm_size(comm, &size)); in PetscGatherNumberOfMessages_Private()
145 PetscCallMPI(MPI_Comm_rank(comm, &rank)); in PetscGatherNumberOfMessages_Private()
[all …]
H A Dmpits.c34 PetscCallMPI(MPIU_Allreduce(b1, b2, 2, MPI_INT, MPI_MAX, comm)); in PetscCommBuildTwoSidedSetType()
61 PetscCallMPI(MPI_Comm_size(comm, &size)); in PetscCommBuildTwoSidedGetType()
84 PetscCallMPI(MPI_Type_get_extent(dtype, &lb, &unitbytes)); in PetscCommBuildTwoSided_Ibarrier()
88 …for (i = 0; i < nto; i++) PetscCallMPI(MPI_Issend((void *)(tdata + count * unitbytes * i), count, … in PetscCommBuildTwoSided_Ibarrier()
100 PetscCallMPI(MPI_Iprobe(MPI_ANY_SOURCE, tag, comm, &flag, &status)); in PetscCommBuildTwoSided_Ibarrier()
107 PetscCallMPI(MPI_Recv(buf, count, dtype, status.MPI_SOURCE, tag, comm, MPI_STATUS_IGNORE)); in PetscCommBuildTwoSided_Ibarrier()
113 PetscCallMPI(MPI_Testall(nsends, sendreqs, &sent, MPI_STATUSES_IGNORE)); in PetscCommBuildTwoSided_Ibarrier()
115 PetscCallMPI(MPI_Ibarrier(comm, &barrier)); in PetscCommBuildTwoSided_Ibarrier()
120 PetscCallMPI(MPI_Test(&barrier, &done, MPI_STATUS_IGNORE)); in PetscCommBuildTwoSided_Ibarrier()
143 PetscCallMPI(MPI_Comm_size(comm, &size)); in PetscCommBuildTwoSided_Allreduce()
[all …]
H A Dmpishm.c77 PetscCallMPI(MPI_Comm_get_attr(globcomm, Petsc_Counter_keyval, &counter, &flg)); in PetscShmCommGet()
85 PetscCallMPI(MPI_Comm_get_attr(globcomm, Petsc_InnerComm_keyval, &ucomm, &flg)); in PetscShmCommGet()
101 PetscCallMPI(MPI_Comm_get_attr(globcomm, Petsc_ShmComm_keyval, pshmcomm, &flg)); in PetscShmCommGet()
107 …PetscCallMPI(MPI_Comm_split_type(globcomm, MPI_COMM_TYPE_SHARED, 0, MPI_INFO_NULL, &(*pshmcomm)->s… in PetscShmCommGet()
109 PetscCallMPI(MPI_Comm_size((*pshmcomm)->shmcomm, &(*pshmcomm)->shmsize)); in PetscShmCommGet()
110 PetscCallMPI(MPI_Comm_group(globcomm, &globgroup)); in PetscShmCommGet()
111 PetscCallMPI(MPI_Comm_group((*pshmcomm)->shmcomm, &shmgroup)); in PetscShmCommGet()
115 …PetscCallMPI(MPI_Group_translate_ranks(shmgroup, (*pshmcomm)->shmsize, shmranks, globgroup, (*pshm… in PetscShmCommGet()
117 PetscCallMPI(MPI_Group_free(&globgroup)); in PetscShmCommGet()
118 PetscCallMPI(MPI_Group_free(&shmgroup)); in PetscShmCommGet()
[all …]
H A Dpdisplay.c56 PetscCallMPI(MPI_Comm_rank(comm, &rank)); in PetscOptionsGetenv()
62 PetscCallMPI(MPI_Bcast(&flg, 1, MPI_C_BOOL, 0, comm)); in PetscOptionsGetenv()
63 PetscCallMPI(MPI_Bcast(env, (PetscMPIInt)len, MPI_CHAR, 0, comm)); in PetscOptionsGetenv()
88 PetscCallMPI(MPI_Bcast(roothostname, sizeof(roothostname), MPI_CHAR, 0, PETSC_COMM_WORLD)); in PetscWorldIsSingleHost()
93 PetscCallMPI(MPIU_Allreduce(&localmatch, &allmatch, 1, MPI_INT, MPI_LAND, PETSC_COMM_WORLD)); in PetscWorldIsSingleHost()
110 PetscCallMPI(MPI_Comm_size(PETSC_COMM_WORLD, &size)); in PetscSetDisplay()
111 PetscCallMPI(MPI_Comm_rank(PETSC_COMM_WORLD, &rank)); in PetscSetDisplay()
135 PetscCallMPI(MPI_Bcast(display, sizeof(display), MPI_CHAR, 0, PETSC_COMM_WORLD)); in PetscSetDisplay()
/petsc/src/mat/tests/
H A Dex33.c16 PetscCallMPI(MPI_Reduce(&mem, &max_mem, 1, MPI_DOUBLE, MPI_MAX, 0, MPI_COMM_WORLD)); in Print_memory()
17 PetscCallMPI(MPI_Reduce(&mem, &min_mem, 1, MPI_DOUBLE, MPI_MIN, 0, MPI_COMM_WORLD)); in Print_memory()
37 PetscCallMPI(MPI_Comm_size(MPI_COMM_WORLD, &size)); in TestMPIDerivedDataType()
39 PetscCallMPI(MPI_Comm_rank(MPI_COMM_WORLD, &rank)); in TestMPIDerivedDataType()
47 … PetscCallMPI(MPI_Type_create_indexed_block(2, 1, (const PetscMPIInt *)disp, MPIU_SCALAR, &type1)); in TestMPIDerivedDataType()
49 PetscCallMPI(MPI_Type_create_resized(type1, 0, 4 * sizeof(PetscScalar), &type2)); in TestMPIDerivedDataType()
50 PetscCallMPI(MPI_Type_commit(&type2)); in TestMPIDerivedDataType()
51 PetscCallMPI(MPI_Send(buffer, 6, type2, 1, 123, MPI_COMM_WORLD)); in TestMPIDerivedDataType()
58 …PetscCallMPI(MPI_Type_create_indexed_block(1, 2, (const PetscMPIInt *)disp, MPIU_SCALAR, &rtype1)); in TestMPIDerivedDataType()
59 PetscCallMPI(MPI_Type_create_resized(rtype1, 0, 4 * sizeof(PetscScalar), &rtype2)); in TestMPIDerivedDataType()
[all …]
/petsc/src/dm/partitioner/impls/multistage/
H A Dmspart.c68 PetscCallMPI(MPI_Comm_group(comm, &group)); in PetscPartitionerView_Multistage()
76 if (pcomm != MPI_COMM_NULL) PetscCallMPI(MPI_Comm_group(pcomm, &pgroup)); in PetscPartitionerView_Multistage()
86 PetscCallMPI(MPI_Group_size(group, &gr)); in PetscPartitionerView_Multistage()
89 PetscCallMPI(MPI_Group_translate_ranks(pgroup, 1, &gem, group, &gr)); in PetscPartitionerView_Multistage()
94 …PetscCallMPI(MPIU_Allreduce(MPI_IN_PLACE, &gem, 1, MPI_INT, MPI_SUM, PetscObjectComm((PetscObject)… in PetscPartitionerView_Multistage()
99 PetscCallMPI(MPI_Group_size(pgroup, &psize)); in PetscPartitionerView_Multistage()
112 PetscCallMPI(MPI_Group_size(pgroup, &size)); in PetscPartitionerView_Multistage()
115 PetscCallMPI(MPI_Group_translate_ranks(pgroup, size, ranks, group, granks)); in PetscPartitionerView_Multistage()
137 if (l && pgroup != MPI_GROUP_EMPTY) PetscCallMPI(MPI_Group_free(&pgroup)); in PetscPartitionerView_Multistage()
141 PetscCallMPI(MPI_Group_free(&group)); in PetscPartitionerView_Multistage()
[all …]
/petsc/src/sys/tutorials/
H A Dex4.c10 PetscCallMPI(MPI_Init(&argc, &argv)); in main()
15 PetscCallMPI(MPI_Comm_rank(MPI_COMM_WORLD, &rank)); in main()
16 PetscCallMPI(MPI_Comm_split(MPI_COMM_WORLD, rank % 2, 0, &PETSC_COMM_WORLD)); in main()
34 PetscCallMPI(MPI_Comm_size(PETSC_COMM_WORLD, &size)); in main()
35 PetscCallMPI(MPI_Comm_rank(PETSC_COMM_WORLD, &rank)); in main()
53 PetscCallMPI(MPI_Comm_free(&PETSC_COMM_WORLD)); in main()
58 PetscCallMPI(MPI_Finalize()); in main()
/petsc/src/ksp/pc/impls/tfs/
H A Dcomm.c36 PetscCallMPI(MPI_Comm_size(MPI_COMM_WORLD, &PCTFS_num_nodes)); in PCTFS_comm_init()
37 PetscCallMPI(MPI_Comm_rank(MPI_COMM_WORLD, &PCTFS_my_id)); in PCTFS_comm_init()
95 … PetscCallMPI(MPI_Send(vals, n, MPIU_INT, edge_not_pow_2, MSGTAG0 + PCTFS_my_id, MPI_COMM_WORLD)); in PCTFS_giop()
97 …PetscCallMPI(MPI_Recv(work, n, MPIU_INT, MPI_ANY_SOURCE, MSGTAG0 + edge_not_pow_2, MPI_COMM_WORLD,… in PCTFS_giop()
107 PetscCallMPI(MPI_Send(vals, n, MPIU_INT, dest, MSGTAG2 + PCTFS_my_id, MPI_COMM_WORLD)); in PCTFS_giop()
109 …PetscCallMPI(MPI_Recv(work, n, MPIU_INT, MPI_ANY_SOURCE, MSGTAG2 + dest, MPI_COMM_WORLD, &status)); in PCTFS_giop()
120 PetscCallMPI(MPI_Send(vals, n, MPIU_INT, dest, MSGTAG4 + PCTFS_my_id, MPI_COMM_WORLD)); in PCTFS_giop()
122 …PetscCallMPI(MPI_Recv(vals, n, MPIU_INT, MPI_ANY_SOURCE, MSGTAG4 + dest, MPI_COMM_WORLD, &status)); in PCTFS_giop()
130 …PetscCallMPI(MPI_Recv(vals, n, MPIU_INT, MPI_ANY_SOURCE, MSGTAG5 + edge_not_pow_2, MPI_COMM_WORLD,… in PCTFS_giop()
132 … PetscCallMPI(MPI_Send(vals, n, MPIU_INT, edge_not_pow_2, MSGTAG5 + PCTFS_my_id, MPI_COMM_WORLD)); in PCTFS_giop()
[all …]
/petsc/src/sys/utils/openmp/
H A Dmpmpishm.c66 PetscCallMPI(MPI_Bcast(pathname, PETSC_MAX_PATH_LEN, MPI_CHAR, 0, ctrl->omp_comm)); in PetscOmpCtrlCreateBarrier()
68 PetscCallMPI(MPI_Barrier(ctrl->omp_comm)); in PetscOmpCtrlCreateBarrier()
71 PetscCallMPI(MPI_Bcast(pathname, PETSC_MAX_PATH_LEN, MPI_CHAR, 0, ctrl->omp_comm)); in PetscOmpCtrlCreateBarrier()
77 PetscCallMPI(MPI_Barrier(ctrl->omp_comm)); in PetscOmpCtrlCreateBarrier()
81 …PetscCallMPI(MPI_Win_allocate_shared(size, 1, MPI_INFO_NULL, ctrl->omp_comm, &baseptr, &ctrl->omp_… in PetscOmpCtrlCreateBarrier()
82 PetscCallMPI(MPI_Win_shared_query(ctrl->omp_win, 0, &size, &disp_unit, &baseptr)); in PetscOmpCtrlCreateBarrier()
88 PetscCallMPI(MPI_Comm_size(ctrl->omp_comm, &ctrl->omp_comm_size)); in PetscOmpCtrlCreateBarrier()
96 PetscCallMPI(MPI_Barrier(ctrl->omp_comm)); in PetscOmpCtrlCreateBarrier()
105 PetscCallMPI(MPI_Barrier(ctrl->omp_comm)); in PetscOmpCtrlDestroyBarrier()
111 PetscCallMPI(MPI_Win_free(&ctrl->omp_win)); in PetscOmpCtrlDestroyBarrier()
[all …]
/petsc/src/vec/is/utils/
H A Dpsort.c32 …PetscCallMPI(MPI_Sendrecv(keys, n, MPIU_INT, partner, tag, buffer, n, MPIU_INT, partner, tag, comm… in PetscParallelSortInt_Bitonic_Merge()
84 PetscCallMPI(MPI_Comm_size(comm, &size)); in PetscParallelSortInt_Bitonic()
85 PetscCallMPI(MPI_Comm_rank(comm, &rank)); in PetscParallelSortInt_Bitonic()
101 PetscCallMPI(MPI_Comm_size(mapin->comm, &size)); in PetscParallelSampleSelect()
102 PetscCallMPI(MPI_Comm_rank(mapin->comm, &rank)); in PetscParallelSampleSelect()
154 …PetscCallMPI(MPI_Allgather(pivots, max_keys_per, MPIU_INT, finalpivots, max_keys_per, MPIU_INT, ma… in PetscParallelSampleSelect()
180 PetscCallMPI(MPI_Comm_size(map->comm, &size)); in PetscParallelRedistribute()
181 PetscCallMPI(MPI_Comm_rank(map->comm, &rank)); in PetscParallelRedistribute()
185 PetscCallMPI(MPI_Scan(&n, &nextOffset, 1, MPIU_INT, MPI_SUM, map->comm)); in PetscParallelRedistribute()
188 …if (total > 0) PetscCallMPI(MPIU_Irecv(arrayout, total, MPIU_INT, MPI_ANY_SOURCE, firsttag, map->c… in PetscParallelRedistribute()
[all …]
/petsc/src/vec/is/sf/impls/window/
H A Dsfwindow.c93 PetscCallMPI(MPI_Type_dup(unit, &link->unit)); in PetscSFWindowGetDataTypes()
111 PetscCallMPI(MPI_Type_create_indexed_block(rcount, 1, rmine, link->unit, &link->mine[i])); in PetscSFWindowGetDataTypes()
112 PetscCallMPI(MPI_Type_create_indexed_block(rcount, 1, rremote, link->unit, &link->remote[i])); in PetscSFWindowGetDataTypes()
116 PetscCallMPI(MPI_Type_commit(&link->mine[i])); in PetscSFWindowGetDataTypes()
117 PetscCallMPI(MPI_Type_commit(&link->remote[i])); in PetscSFWindowGetDataTypes()
317 if (w->info != MPI_INFO_NULL) PetscCallMPI(MPI_Info_free(&w->info)); in PetscSFWindowSetInfo_Window()
318 if (info != MPI_INFO_NULL) PetscCallMPI(MPI_Info_dup(info, &w->info)); in PetscSFWindowSetInfo_Window()
386 if (addr != NULL) PetscCallMPI(MPI_Win_attach(link->win, addr, wsize)); in PetscSFWindowAttach()
390 PetscCallMPI(MPI_Get_address(addr, &winaddr)); in PetscSFWindowAttach()
462 PetscCallMPI(MPIU_Allreduce(matches, all_matches, 2, MPIU_INT, MPI_MAX, wcomm)); in PetscSFGetWindow()
[all …]
/petsc/src/dm/impls/da/
H A Ddasub.c63 PetscCallMPI(MPIU_Allreduce(&D, &Dv, 1, MPIU_REAL, MPIU_MIN, PetscObjectComm((PetscObject)da))); in DMDAGetLogicalCoordinate()
71 PetscCallMPI(MPI_Comm_rank(PetscObjectComm((PetscObject)da), &rank)); in DMDAGetLogicalCoordinate()
74 PetscCallMPI(MPIU_Allreduce(&rank, &root, 1, MPI_INT, MPI_SUM, PetscObjectComm((PetscObject)da))); in DMDAGetLogicalCoordinate()
76 PetscCallMPI(MPI_Bcast(X, 1, MPIU_SCALAR, root, PetscObjectComm((PetscObject)da))); in DMDAGetLogicalCoordinate()
77 PetscCallMPI(MPI_Bcast(Y, 1, MPIU_SCALAR, root, PetscObjectComm((PetscObject)da))); in DMDAGetLogicalCoordinate()
114 PetscCallMPI(MPI_Comm_rank(PetscObjectComm((PetscObject)da), &rank)); in DMDAGetRay()
211 PetscCallMPI(MPI_Comm_size(PetscObjectComm((PetscObject)da), &size)); in DMDAGetProcessorSubset()
226 …PetscCallMPI(MPI_Allgather(&flag, 1, MPIU_INT, owners, 1, MPIU_INT, PetscObjectComm((PetscObject)d… in DMDAGetProcessorSubset()
237 PetscCallMPI(MPI_Comm_group(PetscObjectComm((PetscObject)da), &group)); in DMDAGetProcessorSubset()
238 PetscCallMPI(MPI_Group_incl(group, ict, ranks, &subgroup)); in DMDAGetProcessorSubset()
[all …]
/petsc/src/sys/fileio/
H A Dfretrieve.c128 PetscCallMPI(MPI_Comm_size(comm, &size)); in PetscSharedTmp()
146 …if (Petsc_SharedTmp_keyval == MPI_KEYVAL_INVALID) PetscCallMPI(MPI_Comm_create_keyval(MPI_COMM_NUL… in PetscSharedTmp()
148 PetscCallMPI(MPI_Comm_get_attr(comm, Petsc_SharedTmp_keyval, (void **)&tagvalp, &iflg)); in PetscSharedTmp()
154 PetscCallMPI(MPI_Comm_set_attr(comm, Petsc_SharedTmp_keyval, tagvalp)); in PetscSharedTmp()
164 PetscCallMPI(MPI_Comm_rank(comm, &rank)); in PetscSharedTmp()
176 PetscCallMPI(MPI_Barrier(comm)); in PetscSharedTmp()
187 PetscCallMPI(MPIU_Allreduce(&cnt, &sum, 1, MPI_INT, MPI_SUM, comm)); in PetscSharedTmp()
247 PetscCallMPI(MPI_Comm_size(comm, &size)); in PetscSharedWorkingDirectory()
265 …if (Petsc_SharedWD_keyval == MPI_KEYVAL_INVALID) PetscCallMPI(MPI_Comm_create_keyval(MPI_COMM_NULL… in PetscSharedWorkingDirectory()
267 PetscCallMPI(MPI_Comm_get_attr(comm, Petsc_SharedWD_keyval, (void **)&tagvalp, &iflg)); in PetscSharedWorkingDirectory()
[all …]
/petsc/src/dm/tutorials/
H A Dex51.c21 PetscCallMPI(MPI_Comm_rank(PETSC_COMM_WORLD, &rank)); in main()
32 PetscCallMPI(MPI_Comm_size(commX, &subsize)); in main()
33 PetscCallMPI(MPI_Comm_rank(commX, &subrank)); in main()
36 PetscCallMPI(MPI_Comm_size(commY, &subsize)); in main()
37 PetscCallMPI(MPI_Comm_rank(commY, &subrank)); in main()
58 PetscCallMPI(MPI_Comm_free(&commX)); in main()
59 PetscCallMPI(MPI_Comm_free(&commY)); in main()
/petsc/src/vec/is/sf/tests/
H A Dex25.c18 PetscCallMPI(MPI_Comm_rank(PETSC_COMM_WORLD, &rank)); in main()
19 PetscCallMPI(MPI_Comm_size(PETSC_COMM_WORLD, &size)); in main()
44 PetscCallMPI(MPI_Type_contiguous_c(m, MPI_INT, &newtype)); in main()
46 PetscCallMPI(MPI_Type_contiguous(m, MPI_INT, &newtype)); in main()
49 PetscCallMPI(MPI_Type_commit(&newtype)); in main()
56 PetscCallMPI(MPI_Type_free(&newtype)); in main()
/petsc/src/vec/is/ao/impls/memscalable/
H A Daomemscalable.c32 PetscCallMPI(MPI_Comm_rank(PetscObjectComm((PetscObject)ao), &rank)); in AOView_MemoryScalable()
33 PetscCallMPI(MPI_Comm_size(PetscObjectComm((PetscObject)ao), &size)); in AOView_MemoryScalable()
53 …PetscCallMPI(MPIU_Recv(app_loc, len, MPIU_INT, i, tag_app, PetscObjectComm((PetscObject)ao), &stat… in AOView_MemoryScalable()
54 …PetscCallMPI(MPIU_Recv(petsc_loc, len, MPIU_INT, i, tag_petsc, PetscObjectComm((PetscObject)ao), &… in AOView_MemoryScalable()
62 …PetscCallMPI(MPIU_Send((void *)aomems->app_loc, map->n, MPIU_INT, 0, tag_app, PetscObjectComm((Pet… in AOView_MemoryScalable()
63 …PetscCallMPI(MPIU_Send((void *)aomems->petsc_loc, map->n, MPIU_INT, 0, tag_petsc, PetscObjectComm(… in AOView_MemoryScalable()
108 PetscCallMPI(MPI_Comm_rank(comm, &rank)); in AOMap_MemoryScalable_private()
109 PetscCallMPI(MPI_Comm_size(comm, &size)); in AOMap_MemoryScalable_private()
157 …for (PetscMPIInt i = 0; i < nreceives; i++) PetscCallMPI(MPIU_Irecv(rindices + nmax * i, nmax, MPI… in AOMap_MemoryScalable_private()
183 …PetscCallMPI(MPIU_Isend(sindices + start[i], sizes[2 * i], MPIU_INT, i, tag1, comm, send_waits + c… in AOMap_MemoryScalable_private()
[all …]
/petsc/src/sys/tests/
H A Dex8.c29 PetscCallMPI(MPI_Type_create_struct(3, lengths, displs, dtypes, &tmptype)); in MakeDatatype()
30 PetscCallMPI(MPI_Type_commit(&tmptype)); in MakeDatatype()
31 PetscCallMPI(MPI_Type_create_resized(tmptype, 0, sizeof(Unit), dtype)); in MakeDatatype()
32 PetscCallMPI(MPI_Type_commit(dtype)); in MakeDatatype()
33 PetscCallMPI(MPI_Type_free(&tmptype)); in MakeDatatype()
36 PetscCallMPI(MPI_Type_get_extent(*dtype, &lb, &extent)); in MakeDatatype()
57 PetscCallMPI(MPI_Isend(&fctx->todata[tonum].rank, 1, MPIU_INT, rank, tag[0], comm, &req[0])); in FSend()
58 PetscCallMPI(MPI_Isend(&fctx->todata[tonum].value, 1, MPIU_SCALAR, rank, tag[1], comm, &req[1])); in FSend()
70 PetscCallMPI(MPI_Irecv(&buf->rank, 1, MPIU_INT, rank, tag[0], comm, &req[0])); in FRecv()
71 PetscCallMPI(MPI_Irecv(&buf->value, 1, MPIU_SCALAR, rank, tag[1], comm, &req[1])); in FRecv()
[all …]
/petsc/src/vec/is/sf/tutorials/
H A Dex3.c23 PetscCallMPI(MPI_Comm_rank(PETSC_COMM_WORLD, &rank)); in main()
24 PetscCallMPI(MPI_Comm_size(PETSC_COMM_WORLD, &size)); in main()
61 PetscCallMPI(MPI_Type_contiguous(4, MPIU_SCALAR, &contig)); in main()
62 PetscCallMPI(MPI_Type_commit(&contig)); in main()
66 PetscCallMPI(MPI_Type_dup(contig, &tmp)); in main()
67 PetscCallMPI(MPI_Type_free(&contig)); in main()
83 PetscCallMPI(MPI_Type_free(&contig)); in main()
/petsc/src/sys/classes/viewer/impls/ascii/
H A Dvcreatea.c78 …if (Petsc_Viewer_Stderr_keyval == MPI_KEYVAL_INVALID) PetscCallMPI(MPI_Comm_create_keyval(MPI_COMM… in PetscViewerASCIIGetStderr()
79 PetscCallMPI(MPI_Comm_get_attr(ncomm, Petsc_Viewer_Stderr_keyval, (void **)viewer, &iflg)); in PetscViewerASCIIGetStderr()
85 PetscCallMPI(MPI_Comm_set_attr(ncomm, Petsc_Viewer_Stderr_keyval, (void *)*viewer)); in PetscViewerASCIIGetStderr()
197 …if (Petsc_Viewer_keyval == MPI_KEYVAL_INVALID) PetscCallMPI(MPI_Comm_create_keyval(MPI_COMM_NULL_C… in PetscViewerASCIIOpen()
208 PetscCallMPI(MPI_Comm_get_attr(comm, Petsc_Viewer_keyval, (void **)&vlink, &iflg)); in PetscViewerASCIIOpen()
229 PetscCallMPI(MPI_Comm_set_attr(comm, Petsc_Viewer_keyval, nv)); in PetscViewerASCIIOpen()
231 PetscCallMPI(MPI_Comm_get_attr(comm, Petsc_Viewer_keyval, (void **)&vlink, &iflg)); in PetscViewerASCIIOpen()
236 PetscCallMPI(MPI_Comm_set_attr(comm, Petsc_Viewer_keyval, nv)); in PetscViewerASCIIOpen()

12345678910>>...42