Lines Matching refs:PetscCallMPI
93 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()
512 PetscCallMPI(MPI_Win_create(rootdata, wsize, (PetscMPIInt)bytes, w->info, wcomm, &link->win)); in PetscSFGetWindow()
517 PetscCallMPI(MPI_Win_create_dynamic(w->info, wcomm, &link->win)); in PetscSFGetWindow()
521 …PetscCallMPI(MPI_Win_allocate(wsize, (PetscMPIInt)bytes, w->info, wcomm, &link->addr, &link->win)); in PetscSFGetWindow()
527 …PetscCallMPI(MPI_Win_allocate_shared(wsize, (PetscMPIInt)bytes, w->info, wcomm, &link->addr, &link… in PetscSFGetWindow()
544 PetscCallMPI(MPI_Comm_rank(wcomm, &rank)); in PetscSFGetWindow()
545 …if (sync == PETSCSF_WINDOW_SYNC_LOCK) PetscCallMPI(MPI_Win_lock(MPI_LOCK_EXCLUSIVE, rank, MPI_MODE… in PetscSFGetWindow()
548 PetscCallMPI(MPI_Win_unlock(rank, *win)); in PetscSFGetWindow()
549 PetscCallMPI(MPI_Win_fence(0, *win)); in PetscSFGetWindow()
557 PetscCallMPI(MPI_Win_fence(fenceassert, *win)); in PetscSFGetWindow()
574 PetscCallMPI(MPI_Group_size(ingroup, &isize)); in PetscSFGetWindow()
575 PetscCallMPI(MPI_Group_size(outgroup, &osize)); in PetscSFGetWindow()
576 if (isize) PetscCallMPI(MPI_Win_post(ingroup, postassert, *win)); in PetscSFGetWindow()
577 if (osize) PetscCallMPI(MPI_Win_start(outgroup, startassert, *win)); in PetscSFGetWindow()
689 PetscCallMPI(MPI_Win_fence(fenceassert, *win)); in PetscSFRestoreWindow()
705 PetscCallMPI(MPI_Group_size(ingroup, &isize)); in PetscSFRestoreWindow()
706 PetscCallMPI(MPI_Group_size(outgroup, &osize)); in PetscSFRestoreWindow()
707 if (osize) PetscCallMPI(MPI_Win_complete(*win)); in PetscSFRestoreWindow()
708 if (isize) PetscCallMPI(MPI_Win_wait(*win)); in PetscSFRestoreWindow()
716 if (link->addr != NULL) PetscCallMPI(MPI_Win_detach(link->win, link->addr)); in PetscSFRestoreWindow()
721 …if (sync == PETSCSF_WINDOW_SYNC_LOCK) PetscCallMPI(MPI_Win_fence(MPI_MODE_NOPUT | MPI_MODE_NOSUCCE… in PetscSFRestoreWindow()
733 PetscCallMPI(MPI_Win_free(&link->win)); in PetscSFRestoreWindow()
762 PetscCallMPI(MPIU_Allreduce(MPI_IN_PLACE, &has_empty, 1, MPI_C_BOOL, MPI_LOR, comm)); in PetscSFSetUp_Window()
768 PetscCallMPI(MPI_Comm_rank(comm, &rank)); in PetscSFSetUp_Window()
769 PetscCallMPI(MPI_Comm_split(comm, w->is_empty ? 1 : 0, rank, &raw_comm)); in PetscSFSetUp_Window()
771 PetscCallMPI(MPI_Comm_free(&raw_comm)); in PetscSFSetUp_Window()
773 PetscCallMPI(MPI_Comm_rank(w->window_comm, &wcommrank)); in PetscSFSetUp_Window()
832 PetscCallMPI(MPI_Type_free(&link->unit)); in PetscSFReset_Window()
834 PetscCallMPI(MPI_Type_free(&link->mine[i])); in PetscSFReset_Window()
835 PetscCallMPI(MPI_Type_free(&link->remote[i])); in PetscSFReset_Window()
849 PetscCallMPI(MPI_Win_free(&wlink->win)); in PetscSFReset_Window()
855 if (w->info != MPI_INFO_NULL) PetscCallMPI(MPI_Info_free(&w->info)); in PetscSFReset_Window()
881 PetscCallMPI(MPI_Win_create_dynamic(w->info, wcomm, &link->win)); in PetscSFRegisterPersistent_Window()
922 PetscCallMPI(MPI_Win_detach(link->win, link->addr)); in PetscSFDeregisterPersistent_Window()
927 PetscCallMPI(MPI_Win_free(&link->win)); in PetscSFDeregisterPersistent_Window()
968 PetscCallMPI(MPI_Info_get_nkeys(w->info, &nkeys)); in PetscSFView_Window()
973 PetscCallMPI(MPI_Info_get_nthkey(w->info, k, key)); in PetscSFView_Window()
974 PetscCallMPI(MPI_Info_get(w->info, key, MPI_MAX_INFO_VAL, value, &flag)); in PetscSFView_Window()
1020 PetscCallMPI(MPI_Win_lock(MPI_LOCK_SHARED, ranks[i], MPI_MODE_NOCHECK, win)); in PetscSFBcastBegin_Window()
1022 PetscCallMPI(MPI_Rget(leafdata, 1, mine[i], ranks[i], tdp, 1, remote[i], win, &reqs[i])); in PetscSFBcastBegin_Window()
1024 PetscCallMPI(MPI_Get(leafdata, 1, mine[i], ranks[i], tdp, 1, remote[i], win)); in PetscSFBcastBegin_Window()
1028 PetscCallMPI(MPI_Get(leafdata, 1, mine[i], ranks[i], tdp, 1, remote[i], win)); in PetscSFBcastBegin_Window()
1043 if (reqs) PetscCallMPI(MPI_Waitall(sf->nranks, reqs, MPI_STATUSES_IGNORE)); in PetscSFBcastEnd_Window()
1050 for (PetscMPIInt i = 0; i < nranks; i++) PetscCallMPI(MPI_Win_unlock(ranks[i], win)); in PetscSFBcastEnd_Window()
1074 …if (w->sync == PETSCSF_WINDOW_SYNC_LOCK) PetscCallMPI(MPI_Win_lock(MPI_LOCK_SHARED, ranks[i], MPI_… in PetscSFReduceBegin_Window()
1075 … PetscCallMPI(MPI_Accumulate((void *)leafdata, 1, mine[i], ranks[i], tdp, 1, remote[i], op, win)); in PetscSFReduceBegin_Window()
1076 if (w->sync == PETSCSF_WINDOW_SYNC_LOCK) PetscCallMPI(MPI_Win_unlock(ranks[i], win)); in PetscSFReduceBegin_Window()
1089 if (reqs) PetscCallMPI(MPI_Waitall(sf->nranks, reqs, MPI_STATUSES_IGNORE)); in PetscSFReduceEnd_Window()
1124 PetscCallMPI(MPI_Win_lock(MPI_LOCK_EXCLUSIVE, ranks[i], 0, win)); in PetscSFFetchAndOpBegin_Window()
1125 PetscCallMPI(MPI_Get(leafupdate, 1, mine[i], ranks[i], tdp, 1, remote[i], win)); in PetscSFFetchAndOpBegin_Window()
1126 … PetscCallMPI(MPI_Accumulate((void *)leafdata, 1, mine[i], ranks[i], tdp, 1, remote[i], op, win)); in PetscSFFetchAndOpBegin_Window()
1127 PetscCallMPI(MPI_Win_unlock(ranks[i], win)); in PetscSFFetchAndOpBegin_Window()
1129 …if (w->sync == PETSCSF_WINDOW_SYNC_LOCK) PetscCallMPI(MPI_Win_lock(MPI_LOCK_SHARED, ranks[i], 0, w… in PetscSFFetchAndOpBegin_Window()
1130 …PetscCallMPI(MPI_Get_accumulate((void *)leafdata, 1, mine[i], leafupdate, 1, mine[i], ranks[i], td… in PetscSFFetchAndOpBegin_Window()
1131 if (w->sync == PETSCSF_WINDOW_SYNC_LOCK) PetscCallMPI(MPI_Win_unlock(ranks[i], win)); in PetscSFFetchAndOpBegin_Window()
1150 if (reqs) PetscCallMPI(MPI_Waitall(sf->nranks, reqs, MPI_STATUSES_IGNORE)); in PetscSFFetchAndOpEnd_Window()