Searched refs:ctrl (Results 1 – 2 of 2) sorted by relevance
| /petsc/src/sys/utils/openmp/ ! |
| H A D | mpmpishm.c | 39 static inline PetscErrorCode PetscOmpCtrlCreateBarrier(PetscOmpCtrl ctrl) in PetscOmpCtrlCreateBarrier() argument
55 if (ctrl->is_omp_master) { in PetscOmpCtrlCreateBarrier()
66 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()
80 size = ctrl->is_omp_master ? sizeof(pthread_barrier_t) : 0; 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()
84 ctrl->barrier = (pthread_barrier_t *)baseptr; in PetscOmpCtrlCreateBarrier()
[all …]
|
| /petsc/src/ts/tutorials/autodiff/ ! |
| H A D | adr_ex5adj.cxx | 81 PetscInt gxm, gym, i, dofs = 2, ctrl[3] = {0, 0, 0}; in main() local
165 jac_pat(1, adctx->m, adctx->n, u_vec, JP, ctrl); in main()
|