| /petsc/src/sys/classes/viewer/impls/ascii/ |
| H A D | vcreatea.c | 72 PetscMPIInt iflg; in PetscViewerASCIIGetStderr() local
79 PetscCallMPI(MPI_Comm_get_attr(ncomm, Petsc_Viewer_Stderr_keyval, (void **)viewer, &iflg)); in PetscViewerASCIIGetStderr()
80 if (!iflg) { /* PetscViewer not yet created */ in PetscViewerASCIIGetStderr()
188 PetscMPIInt iflg; in PetscViewerASCIIOpen() local
208 PetscCallMPI(MPI_Comm_get_attr(comm, Petsc_Viewer_keyval, (void **)&vlink, &iflg)); in PetscViewerASCIIOpen()
209 if (iflg) { in PetscViewerASCIIOpen()
228 if (!iflg) { in PetscViewerASCIIOpen()
231 PetscCallMPI(MPI_Comm_get_attr(comm, Petsc_Viewer_keyval, (void **)&vlink, &iflg)); in PetscViewerASCIIOpen()
|
| H A D | filev.c | 41 PetscMPIInt iflg; in PetscViewerDestroy_ASCII() local
51 …_Comm_get_attr(PetscObjectComm((PetscObject)viewer), Petsc_Viewer_keyval, (void **)&vlink, &iflg)); in PetscViewerDestroy_ASCII()
52 if (iflg) { in PetscViewerDestroy_ASCII()
74 …_attr(PetscObjectComm((PetscObject)viewer), Petsc_Viewer_Stdout_keyval, (void **)&aviewer, &iflg)); in PetscViewerDestroy_ASCII()
75 …if (iflg && aviewer == viewer) PetscCallMPI(MPI_Comm_delete_attr(PetscObjectComm((PetscObject)view… in PetscViewerDestroy_ASCII()
79 …_attr(PetscObjectComm((PetscObject)viewer), Petsc_Viewer_Stderr_keyval, (void **)&aviewer, &iflg)); in PetscViewerDestroy_ASCII()
80 …if (iflg && aviewer == viewer) PetscCallMPI(MPI_Comm_delete_attr(PetscObjectComm((PetscObject)view… in PetscViewerDestroy_ASCII()
637 PetscMPIInt iflg; in PetscViewerASCIIGetStdout() local
645 PetscCallMPI(MPI_Comm_get_attr(ncomm, Petsc_Viewer_Stdout_keyval, (void **)viewer, &iflg)); in PetscViewerASCIIGetStdout()
646 if (!iflg) { /* PetscViewer not yet created */ in PetscViewerASCIIGetStdout()
|
| /petsc/src/sys/tests/ |
| H A D | ex53.c | 14 PetscMPIInt key1, key2, attr1 = 100, attr2 = 200, *attr, iflg; in main() local
45 err = MPI_Comm_get_attr(newcomm, key1, &attr, &iflg); in main()
47 if (iflg) printf("Error: newcomm should not have attribute for keyval %d\n", key1); in main()
48 err = MPI_Comm_get_attr(MPI_COMM_WORLD, key1, &attr, &iflg); in main()
51 err = MPI_Comm_get_attr(newcomm, key2, &attr, &iflg); in main()
|
| /petsc/src/sys/classes/viewer/impls/ams/ |
| H A D | ams.c | 33 PetscMPIInt iflg; in PETSC_VIEWER_SAWS_() local
40 …ierr = (PetscErrorCode)MPI_Comm_get_attr(ncomm, Petsc_Viewer_SAWs_keyval, (void **)&viewer, &iflg); in PETSC_VIEWER_SAWS_()
45 if (!iflg) { /* PetscViewer not yet created */ in PETSC_VIEWER_SAWS_()
|
| /petsc/src/sys/fileio/ |
| H A D | fretrieve.c | 123 PetscMPIInt iflg; in PetscSharedTmp() local
148 PetscCallMPI(MPI_Comm_get_attr(comm, Petsc_SharedTmp_keyval, (void **)&tagvalp, &iflg)); in PetscSharedTmp()
149 if (!iflg) { in PetscSharedTmp()
242 PetscMPIInt iflg; in PetscSharedWorkingDirectory() local
267 PetscCallMPI(MPI_Comm_get_attr(comm, Petsc_SharedWD_keyval, (void **)&tagvalp, &iflg)); in PetscSharedWorkingDirectory()
268 if (!iflg) { in PetscSharedWorkingDirectory()
|
| /petsc/src/sys/utils/ |
| H A D | mpiu.c | 113 PetscMPIInt size, iflg; in PetscSequentialPhaseEnd() local
120 PetscCallMPI(MPI_Comm_get_attr(comm, Petsc_Seq_keyval, (void **)&addr_local_comm, &iflg)); in PetscSequentialPhaseEnd()
121 …PetscCheck(iflg, PETSC_COMM_SELF, PETSC_ERR_ARG_INCOMP, "Wrong MPI communicator; must pass in one … in PetscSequentialPhaseEnd()
|
| /petsc/src/dm/impls/plex/tests/ |
| H A D | ex69.c | 617 PetscMPIInt iflg; in CreateQuadMesh1() local
644 PetscCallMPI(MPI_Comm_get_attr((*dm)->hdr.comm, Petsc_CreationIdx_keyval, &get_tmp, &iflg)); in CreateQuadMesh1()
645 …PetscCheck(iflg, (*dm)->hdr.comm, PETSC_ERR_ARG_CORRUPT, "MPI_Comm does not have an object creatio… in CreateQuadMesh1()
748 PetscMPIInt iflg; in CreateHexMesh1() local
777 PetscCallMPI(MPI_Comm_get_attr((*dm)->hdr.comm, Petsc_CreationIdx_keyval, &get_tmp, &iflg)); in CreateHexMesh1()
778 …PetscCheck(iflg, (*dm)->hdr.comm, PETSC_ERR_ARG_CORRUPT, "MPI_Comm does not have an object creatio… in CreateHexMesh1()
|
| H A D | ex55.c | 91 DMPlexInterpolatedFlag iflg; in CheckInterpolated() local
97 PetscCall(DMPlexIsInterpolatedCollective(dm, &iflg)); in CheckInterpolated()
98 interpolated = (PetscBool)(iflg == DMPLEX_INTERPOLATED_FULL); in CheckInterpolated()
|
| /petsc/src/sys/classes/viewer/impls/matlab/ |
| H A D | vmatlab.c | 274 PetscMPIInt iflg; in PETSC_VIEWER_MATLAB_() local
282 PetscCallMPINull(MPI_Comm_get_attr(ncomm, Petsc_Viewer_Matlab_keyval, (void **)&viewer, &iflg)); in PETSC_VIEWER_MATLAB_()
283 if (!iflg) { /* PetscViewer not yet created */ in PETSC_VIEWER_MATLAB_()
|
| /petsc/src/sys/objects/ |
| H A D | garbage.c | 6 PetscMPIInt iflg; in GarbageGetHMap_Private() local
10 PetscCallMPI(MPI_Comm_get_attr(comm, Petsc_Garbage_HMap_keyval, garbage, &iflg)); in GarbageGetHMap_Private()
11 if (!iflg) { in GarbageGetHMap_Private()
|
| H A D | inherit.c | 38 PetscMPIInt iflg; in PetscHeaderCreate_Private() local
54 PetscCallMPI(MPI_Comm_get_attr(h->comm, Petsc_CreationIdx_keyval, &get_tmp, &iflg)); in PetscHeaderCreate_Private()
55 …PetscCheck(iflg, h->comm, PETSC_ERR_ARG_CORRUPT, "MPI_Comm does not have an object creation index"… in PetscHeaderCreate_Private()
|
| /petsc/src/sys/classes/matlabengine/ |
| H A D | matlab.c | 320 PetscMPIInt iflg; in PETSC_MATLAB_ENGINE_() local
331 ierr = MPI_Comm_get_attr(comm, Petsc_Matlab_Engine_keyval, (void **)&mengine, &iflg); in PETSC_MATLAB_ENGINE_()
336 if (!iflg) { /* viewer not yet created */ in PETSC_MATLAB_ENGINE_()
|
| /petsc/src/sys/classes/viewer/impls/socket/ |
| H A D | send.c | 507 PetscMPIInt iflg; local
514 PetscCallMPINull(MPI_Comm_get_attr(ncomm, Petsc_Viewer_Socket_keyval, (void **)&viewer, &iflg));
515 if (!iflg) { /* PetscViewer not yet created */
|
| /petsc/src/mat/impls/aij/mpi/superlu_dist/ |
| H A D | superlu_dist.c | 257 PetscMPIInt iflg; in MatDestroy_SuperLU_DIST() local
260 PetscCallMPI(MPI_Comm_get_attr(comm, Petsc_Superlu_dist_keyval, &context, &iflg)); in MatDestroy_SuperLU_DIST()
261 if (iflg) context->busy = PETSC_FALSE; in MatDestroy_SuperLU_DIST()
590 PetscMPIInt size, iflg; in MatLUFactorSymbolic_SuperLU_DIST() local
695 PetscCallMPI(MPI_Comm_get_attr(comm, Petsc_Superlu_dist_keyval, &context, &iflg)); in MatLUFactorSymbolic_SuperLU_DIST()
696 if (!iflg || context->busy) { /* additional options */ in MatLUFactorSymbolic_SuperLU_DIST()
697 if (!iflg) { in MatLUFactorSymbolic_SuperLU_DIST()
761 if (iflg) { in MatLUFactorSymbolic_SuperLU_DIST()
|
| /petsc/src/ksp/pc/impls/tfs/ |
| H A D | comm.c | 283 PetscMPIInt *maxval, iflg; in PCTFS_ssgl_radd() local
312 PetscCallMPI(MPI_Comm_get_attr(MPI_COMM_WORLD, MPI_TAG_UB, &maxval, &iflg)); in PCTFS_ssgl_radd()
313 …PetscCheck(iflg, PETSC_COMM_SELF, PETSC_ERR_LIB, "MPI error: MPI_Comm_get_attr() is not returning … in PCTFS_ssgl_radd()
|
| /petsc/src/sys/classes/viewer/impls/draw/ |
| H A D | drawv.c | 569 PetscMPIInt iflg; in PETSC_VIEWER_DRAW_() local
576 PetscCallMPINull(MPI_Comm_get_attr(ncomm, Petsc_Viewer_Draw_keyval, (void **)&viewer, &iflg)); in PETSC_VIEWER_DRAW_()
577 if (!iflg) { /* PetscViewer not yet created */ in PETSC_VIEWER_DRAW_()
|
| /petsc/src/vec/vec/utils/ |
| H A D | comb.c | 299 PetscMPIInt iflg; in PetscSplitReductionGet() local
313 PetscCallMPI(MPI_Comm_get_attr(comm, Petsc_Reduction_keyval, (void **)sr, &iflg)); in PetscSplitReductionGet()
314 if (!iflg) { /* doesn't exist yet so create it and put it in */ in PetscSplitReductionGet()
|
| /petsc/src/dm/impls/swarm/ |
| H A D | data_ex.c | 333 PetscMPIInt symm_nn = 0, *symm_procs = NULL, r0, n, st, rt, size, *maxtag, iflg; in DMSwarmDataExTopologyFinalize() local
356 PetscCallMPI(MPI_Comm_get_attr(MPI_COMM_WORLD, MPI_TAG_UB, &maxtag, &iflg)); in DMSwarmDataExTopologyFinalize()
357 …PetscCheck(iflg, d->comm, PETSC_ERR_LIB, "MPI error: MPI_Comm_get_attr() is not returning a MPI_TA… in DMSwarmDataExTopologyFinalize()
|
| /petsc/src/mat/impls/elemental/ |
| H A D | matelem.cxx | 1068 PetscMPIInt iflg; in MatDestroy_Elemental() local
1078 PetscCallMPI(MPI_Comm_get_attr(icomm, Petsc_Elemental_keyval, (void **)&commgrid, &iflg)); in MatDestroy_Elemental()
1338 PetscMPIInt iflg; in MatCreate_Elemental() local
1359 PetscCallMPI(MPI_Comm_get_attr(icomm, Petsc_Elemental_keyval, (void **)&commgrid, &iflg)); in MatCreate_Elemental()
1360 if (!iflg) { in MatCreate_Elemental()
|
| /petsc/src/sys/classes/viewer/impls/hdf5/ |
| H A D | hdf5v.c | 1680 PetscMPIInt iflg; in PETSC_VIEWER_HDF5_() local
1698 mpi_ierr = MPI_Comm_get_attr(ncomm, Petsc_Viewer_HDF5_keyval, (void **)&viewer, &iflg); in PETSC_VIEWER_HDF5_()
1703 if (!iflg) { /* PetscViewer not yet created */ in PETSC_VIEWER_HDF5_()
|
| /petsc/src/sys/classes/viewer/impls/binary/ |
| H A D | binv.c | 1619 PetscMPIInt iflg; in PETSC_VIEWER_BINARY_() local
1627 PetscCallMPINull(MPI_Comm_get_attr(ncomm, Petsc_Viewer_Binary_keyval, (void **)&viewer, &iflg)); in PETSC_VIEWER_BINARY_()
1628 if (!iflg) { /* PetscViewer not yet created */ in PETSC_VIEWER_BINARY_()
|
| /petsc/src/mat/impls/scalapack/ |
| H A D | matscalapack.c | 1250 PetscMPIInt iflg; in MatDestroy_ScaLAPACK() local
1258 PetscCallMPI(MPI_Comm_get_attr(icomm, Petsc_ScaLAPACK_keyval, (void **)&grid, &iflg)); in MatDestroy_ScaLAPACK()
1777 PetscMPIInt iflg; in MatCreate_ScaLAPACK() local
1804 PetscCallMPI(MPI_Comm_get_attr(icomm, Petsc_ScaLAPACK_keyval, (void **)&grid, &iflg)); in MatCreate_ScaLAPACK()
1805 if (!iflg) { in MatCreate_ScaLAPACK()
|
| /petsc/src/vec/is/is/interface/ |
| H A D | index.c | 317 ISInfoBool iflg = flg ? IS_INFO_TRUE : IS_INFO_FALSE; in ISSetInfo_Internal() local
324 is->info[itype][(int)info] = iflg; in ISSetInfo_Internal()
|