| /petsc/src/sys/classes/viewer/impls/ams/ |
| H A D | ams.c | 35 MPI_Comm ncomm; in PETSC_VIEWER_SAWS_() local
38 PetscCallNull(PetscCommDuplicate(comm, &ncomm, NULL)); in PETSC_VIEWER_SAWS_()
40 …ierr = (PetscErrorCode)MPI_Comm_get_attr(ncomm, Petsc_Viewer_SAWs_keyval, (void **)&viewer, &iflg); in PETSC_VIEWER_SAWS_()
42 …ierr = PetscError(ncomm, __LINE__, "PETSC_VIEWER_SAWS_", __FILE__, PETSC_ERR_MPI, PETSC_ERROR_INIT… in PETSC_VIEWER_SAWS_()
48 ierr = (PetscErrorCode)MPI_Comm_set_attr(ncomm, Petsc_Viewer_SAWs_keyval, (void *)viewer); in PETSC_VIEWER_SAWS_()
50 …ierr = PetscError(ncomm, __LINE__, "PETSC_VIEWER_SAWS_", __FILE__, PETSC_ERR_MPI, PETSC_ERROR_INIT… in PETSC_VIEWER_SAWS_()
54 PetscCallNull(PetscCommDestroy(&ncomm)); in PETSC_VIEWER_SAWS_()
|
| /petsc/src/sys/classes/viewer/impls/matlab/ |
| H A D | vmatlab.c | 277 MPI_Comm ncomm; in PETSC_VIEWER_MATLAB_() local
280 PetscCallNull(PetscCommDuplicate(comm, &ncomm, NULL)); in PETSC_VIEWER_MATLAB_()
282 PetscCallMPINull(MPI_Comm_get_attr(ncomm, Petsc_Viewer_Matlab_keyval, (void **)&viewer, &iflg)); in PETSC_VIEWER_MATLAB_()
284 …PetscCallNull(PetscOptionsGetenv(ncomm, "PETSC_VIEWER_MATLAB_FILENAME", fname, PETSC_MAX_PATH_LEN,… in PETSC_VIEWER_MATLAB_()
286 PetscCallNull(PetscViewerMatlabOpen(ncomm, fname, FILE_MODE_WRITE, &viewer)); in PETSC_VIEWER_MATLAB_()
288 PetscCallMPINull(MPI_Comm_set_attr(ncomm, Petsc_Viewer_Matlab_keyval, (void *)viewer)); in PETSC_VIEWER_MATLAB_()
290 PetscCallNull(PetscCommDestroy(&ncomm)); in PETSC_VIEWER_MATLAB_()
|
| /petsc/src/sys/classes/viewer/impls/ascii/ |
| H A D | vcreatea.c | 73 MPI_Comm ncomm; in PetscViewerASCIIGetStderr() local
77 PetscCall(PetscCommDuplicate(comm, &ncomm, NULL)); in PetscViewerASCIIGetStderr()
79 PetscCallMPI(MPI_Comm_get_attr(ncomm, Petsc_Viewer_Stderr_keyval, (void **)viewer, &iflg)); in PetscViewerASCIIGetStderr()
81 PetscCall(PetscViewerCreate(ncomm, viewer)); in PetscViewerASCIIGetStderr()
85 PetscCallMPI(MPI_Comm_set_attr(ncomm, Petsc_Viewer_Stderr_keyval, (void *)*viewer)); in PetscViewerASCIIGetStderr()
87 PetscCall(PetscCommDestroy(&ncomm)); in PetscViewerASCIIGetStderr()
|
| H A D | filev.c | 638 MPI_Comm ncomm; in PetscViewerASCIIGetStdout() local
643 PetscCall(PetscCommDuplicate(comm, &ncomm, NULL)); in PetscViewerASCIIGetStdout()
645 PetscCallMPI(MPI_Comm_get_attr(ncomm, Petsc_Viewer_Stdout_keyval, (void **)viewer, &iflg)); in PetscViewerASCIIGetStdout()
651 MPI_Fint fcomm = MPI_Comm_c2f(ncomm); in PetscViewerASCIIGetStdout()
660 PetscCall(PetscViewerCreate(ncomm, viewer)); in PetscViewerASCIIGetStdout()
667 PetscCallMPI(MPI_Comm_set_attr(ncomm, Petsc_Viewer_Stdout_keyval, (void *)*viewer)); in PetscViewerASCIIGetStdout()
669 PetscCall(PetscCommDestroy(&ncomm)); in PetscViewerASCIIGetStdout()
|
| /petsc/src/sys/objects/ |
| H A D | tagm.c | 154 struct PetscCommStash *pcomms, *ncomm; in PetscCommRestoreComm() local
161 PetscCall(PetscMalloc(sizeof(struct PetscCommStash), &ncomm)); in PetscCommRestoreComm()
162 ncomm->comm = *comm_out; in PetscCommRestoreComm()
163 ncomm->next = NULL; in PetscCommRestoreComm()
167 pcomms->next = ncomm; in PetscCommRestoreComm()
169 counter->comms = ncomm; in PetscCommRestoreComm()
|
| /petsc/src/sys/classes/viewer/impls/socket/ |
| H A D | send.c | 509 MPI_Comm ncomm; local
512 PetscCallNull(PetscCommDuplicate(comm, &ncomm, NULL));
514 PetscCallMPINull(MPI_Comm_get_attr(ncomm, Petsc_Viewer_Socket_keyval, (void **)&viewer, &iflg));
516 PetscCallNull(PetscViewerSocketOpen(ncomm, NULL, 0, &viewer));
518 PetscCallMPINull(MPI_Comm_set_attr(ncomm, Petsc_Viewer_Socket_keyval, (void *)viewer));
520 PetscCallNull(PetscCommDestroy(&ncomm));
|
| /petsc/src/dm/partitioner/impls/multistage/ |
| H A D | mspart.c | 148 MPI_Comm ncomm; in PetscPartitionerMultistage_CreateStages() local
182 PetscCallMPI(MPI_Comm_split(comm, color, rank, &ncomm)); in PetscPartitionerMultistage_CreateStages()
184 PetscCallMPI(MPI_Comm_dup(comm, &ncomm)); in PetscPartitionerMultistage_CreateStages()
188 PetscCallMPI(MPI_Comm_split_type(comm, MPI_COMM_TYPE_SHARED, rank, MPI_INFO_NULL, &ncomm)); in PetscPartitionerMultistage_CreateStages()
191 PetscCallMPI(MPI_Comm_dup(comm, &ncomm)); in PetscPartitionerMultistage_CreateStages()
195 PetscCallMPI(MPI_Comm_size(ncomm, &nsize)); in PetscPartitionerMultistage_CreateStages()
198 PetscCallMPI(MPI_Comm_group(ncomm, &lgroup[0])); in PetscPartitionerMultistage_CreateStages()
199 PetscCallMPI(MPI_Comm_free(&ncomm)); in PetscPartitionerMultistage_CreateStages()
212 PetscCallMPI(MPI_Comm_group(ncomm, &ngroup)); in PetscPartitionerMultistage_CreateStages()
229 PetscCallMPI(MPI_Comm_free(&ncomm)); in PetscPartitionerMultistage_CreateStages()
|
| /petsc/src/sys/classes/viewer/impls/draw/ |
| H A D | drawv.c | 571 MPI_Comm ncomm; in PETSC_VIEWER_DRAW_() local
574 PetscCallNull(PetscCommDuplicate(comm, &ncomm, NULL)); in PETSC_VIEWER_DRAW_()
576 PetscCallMPINull(MPI_Comm_get_attr(ncomm, Petsc_Viewer_Draw_keyval, (void **)&viewer, &iflg)); in PETSC_VIEWER_DRAW_()
578 …PetscCallNull(PetscViewerDrawOpen(ncomm, NULL, NULL, PETSC_DECIDE, PETSC_DECIDE, 300, 300, &viewer… in PETSC_VIEWER_DRAW_()
580 PetscCallMPINull(MPI_Comm_set_attr(ncomm, Petsc_Viewer_Draw_keyval, (void *)viewer)); in PETSC_VIEWER_DRAW_()
582 PetscCallNull(PetscCommDestroy(&ncomm)); in PETSC_VIEWER_DRAW_()
|
| /petsc/src/sys/classes/viewer/impls/hdf5/ |
| H A D | hdf5v.c | 1683 MPI_Comm ncomm; in PETSC_VIEWER_HDF5_() local
1686 ierr = PetscCommDuplicate(comm, &ncomm, NULL); in PETSC_VIEWER_HDF5_()
1698 mpi_ierr = MPI_Comm_get_attr(ncomm, Petsc_Viewer_HDF5_keyval, (void **)&viewer, &iflg); in PETSC_VIEWER_HDF5_()
1704 ierr = PetscOptionsGetenv(ncomm, "PETSC_VIEWER_HDF5_FILENAME", fname, PETSC_MAX_PATH_LEN, &flg); in PETSC_VIEWER_HDF5_()
1716 ierr = PetscViewerHDF5Open(ncomm, fname, FILE_MODE_WRITE, &viewer); in PETSC_VIEWER_HDF5_()
1726 mpi_ierr = MPI_Comm_set_attr(ncomm, Petsc_Viewer_HDF5_keyval, (void *)viewer); in PETSC_VIEWER_HDF5_()
1732 ierr = PetscCommDestroy(&ncomm); in PETSC_VIEWER_HDF5_()
|
| /petsc/src/sys/classes/viewer/impls/binary/ |
| H A D | binv.c | 1622 MPI_Comm ncomm; in PETSC_VIEWER_BINARY_() local
1625 PetscCallNull(PetscCommDuplicate(comm, &ncomm, NULL)); in PETSC_VIEWER_BINARY_()
1627 PetscCallMPINull(MPI_Comm_get_attr(ncomm, Petsc_Viewer_Binary_keyval, (void **)&viewer, &iflg)); in PETSC_VIEWER_BINARY_()
1629 …PetscCallNull(PetscOptionsGetenv(ncomm, "PETSC_VIEWER_BINARY_FILENAME", fname, PETSC_MAX_PATH_LEN,… in PETSC_VIEWER_BINARY_()
1631 PetscCallNull(PetscViewerBinaryOpen(ncomm, fname, FILE_MODE_WRITE, &viewer)); in PETSC_VIEWER_BINARY_()
1633 PetscCallMPINull(MPI_Comm_set_attr(ncomm, Petsc_Viewer_Binary_keyval, (void *)viewer)); in PETSC_VIEWER_BINARY_()
1635 PetscCallNull(PetscCommDestroy(&ncomm)); in PETSC_VIEWER_BINARY_()
|
| /petsc/src/dm/impls/plex/ |
| H A D | plex.c | 1532 MPI_Comm comm, ncomm = MPI_COMM_NULL; in DMPlexView_Ascii() local
1544 PetscCallMPI(MPI_Comm_split_type(comm, MPI_COMM_TYPE_SHARED, rank, MPI_INFO_NULL, &ncomm)); in DMPlexView_Ascii()
1546 if (ncomm != MPI_COMM_NULL) { in DMPlexView_Ascii()
1548 PetscCallMPI(MPI_Comm_group(ncomm, &ngroup)); in DMPlexView_Ascii()
1554 PetscCallMPI(MPI_Comm_free(&ncomm)); in DMPlexView_Ascii()
|