Home
last modified time | relevance | path

Searched refs:MPI_COMM_WORLD (Results 1 – 25 of 71) sorted by relevance

123

/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 …PI(MPI_Recv(work, n, MPIU_INT, MPI_ANY_SOURCE, MSGTAG0 + edge_not_pow_2, MPI_COMM_WORLD, &status)); 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 …PI(MPI_Recv(vals, n, MPIU_INT, MPI_ANY_SOURCE, MSGTAG5 + edge_not_pow_2, MPI_COMM_WORLD, &status)); 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/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()
20 …PetscCall(PetscPrintf(MPI_COMM_WORLD, " max and min memory across all processors %.4f Mb, %.4f Mb.… 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()
51 PetscCallMPI(MPI_Send(buffer, 6, type2, 1, 123, MPI_COMM_WORLD)); in TestMPIDerivedDataType()
62 PetscCallMPI(MPI_Recv(buffer, 6, rtype2, 0, 123, MPI_COMM_WORLD, &status)); in TestMPIDerivedDataType()
76 PetscCallMPI(MPI_Barrier(MPI_COMM_WORLD)); in TestMPIDerivedDataType()
100 PetscCall(PetscPrintf(MPI_COMM_WORLD, "Before start,")); in main()
108 PetscCall(PetscPrintf(MPI_COMM_WORLD, "After creating A,")); in main()
[all …]
H A Dex263.c25 …PetscCall(DMDACreate2d(MPI_COMM_WORLD, DM_BOUNDARY_NONE, DM_BOUNDARY_NONE, DMDA_STENCIL_STAR, n, n… in main()
88 PetscCall(PetscPrintf(MPI_COMM_WORLD, "Test Cholesky...\n")); in main()
93 PetscCall(PetscPrintf(MPI_COMM_WORLD, "Test LU...\n")); in main()
99 PetscCall(PetscPrintf(MPI_COMM_WORLD, "Test MatForwardSolve...\n")); in main()
101 PetscCall(PetscPrintf(MPI_COMM_WORLD, "Test MatBackwardSolve...\n")); in main()
H A Dex240.c42 PetscCall(PetscSynchronizedPrintf(MPI_COMM_WORLD, "[%d]Global colors \n", rank)); in main()
62 PetscCall(PetscSynchronizedPrintf(MPI_COMM_WORLD, "[%d] Compressed matrix \n", rank)); in main()
64 …for (j = 0; j < nc; j++) PetscCall(PetscSynchronizedPrintf(MPI_COMM_WORLD, "%12.4e ", (double)Pet… in main()
65 PetscCall(PetscSynchronizedPrintf(MPI_COMM_WORLD, "\n")); in main()
/petsc/src/sys/tests/
H A Dex53.c7 if (err) MPI_Abort(MPI_COMM_WORLD, err); \
26 err = MPI_Comm_dup(MPI_COMM_WORLD, &newcomm); in main()
37 err = MPI_Comm_dup(MPI_COMM_WORLD, &newcomm); in main()
39 if (MPI_COMM_WORLD == newcomm) printf("Error: wrong newcomm returned by MPI_Comm_dup()\n"); in main()
41 err = MPI_Comm_set_attr(MPI_COMM_WORLD, key1, &attr1); in main()
48 err = MPI_Comm_get_attr(MPI_COMM_WORLD, key1, &attr, &iflg); in main()
55 err = MPI_Comm_delete_attr(MPI_COMM_WORLD, key1); in main()
H A Dex26.c22 PetscCheck(initialized, MPI_COMM_WORLD, PETSC_ERR_PLIB, "Error in Elemental package processing"); in main()
31 … PetscCheck(initialized, MPI_COMM_WORLD, PETSC_ERR_PLIB, "Error in Elemental package processing"); in main()
37 PetscCheck(!initialized, MPI_COMM_WORLD, PETSC_ERR_PLIB, "Error in Elemental package processing"); in main()
42 … PetscCheck(initialized, MPI_COMM_WORLD, PETSC_ERR_PLIB, "Error in Elemental package processing"); in main()
47 … PetscCheck(!initialized, MPI_COMM_WORLD, PETSC_ERR_PLIB, "Error in Elemental package processing"); in main()
/petsc/include/petsc/mpiuni/
H A Dmpi.h191 #define MPI_COMM_WORLD 2 macro
414 …RG(datatype), MPIUNI_ARG(dest), MPIUNI_ARG(tag), MPIUNI_ARG(comm), MPIUni_Abort(MPI_COMM_WORLD, 0))
416 …RG(source), MPIUNI_ARG(tag), MPIUNI_ARG(comm), MPIUNI_ARG(status), MPIUni_Abort(MPI_COMM_WORLD, 0))
418 … (MPIUNI_ARG(status), MPIUNI_ARG(datatype), MPIUNI_ARG(count), MPIUni_Abort(MPI_COMM_WORLD, 0))
419 …RG(datatype), MPIUNI_ARG(dest), MPIUNI_ARG(tag), MPIUNI_ARG(comm), MPIUni_Abort(MPI_COMM_WORLD, 0))
420 …RG(datatype), MPIUNI_ARG(dest), MPIUNI_ARG(tag), MPIUNI_ARG(comm), MPIUni_Abort(MPI_COMM_WORLD, 0))
421 …RG(datatype), MPIUNI_ARG(dest), MPIUNI_ARG(tag), MPIUNI_ARG(comm), MPIUni_Abort(MPI_COMM_WORLD, 0))
424 …ARG(dest), MPIUNI_ARG(tag), MPIUNI_ARG(comm), MPIUNI_ARG(request), MPIUni_Abort(MPI_COMM_WORLD, 0))
425 …ARG(dest), MPIUNI_ARG(tag), MPIUNI_ARG(comm), MPIUNI_ARG(request), MPIUni_Abort(MPI_COMM_WORLD, 0))
426 …ARG(dest), MPIUNI_ARG(tag), MPIUNI_ARG(comm), MPIUNI_ARG(request), MPIUni_Abort(MPI_COMM_WORLD, 0))
[all …]
H A Dmpif.h7 MPIUNI_FInt MPI_COMM_WORLD
8 parameter (MPI_COMM_WORLD = 2)
/petsc/src/benchmarks/streams/
H A DMPIVersion.c24 PetscCallMPI(MPI_Comm_rank(MPI_COMM_WORLD, &rank)); in main()
25 PetscCallMPI(MPI_Comm_size(MPI_COMM_WORLD, &size)); in main()
28 PetscCall(PetscSplitOwnership(MPI_COMM_WORLD, &n, &NN)); in main()
37 PetscCallMPI(MPI_Barrier(MPI_COMM_WORLD)); in main()
48 PetscCallMPI(MPIU_Allreduce(MPI_IN_PLACE, times, NTIMES, MPI_DOUBLE, MPI_MAX, MPI_COMM_WORLD)); in main()
H A DCUDAVersion.cu456 PetscCallMPI(MPI_Barrier(MPI_COMM_WORLD)); in runStream()
464 PetscCallMPI(MPI_Barrier(MPI_COMM_WORLD)); in runStream()
473 PetscCallMPI(MPI_Barrier(MPI_COMM_WORLD)); in runStream()
482 PetscCallMPI(MPI_Barrier(MPI_COMM_WORLD)); in runStream()
492 PetscCallMPI(MPI_Barrier(MPI_COMM_WORLD)); in runStream()
506 PetscCallMPI(MPI_Barrier(MPI_COMM_WORLD)); in runStream()
515 PetscCallMPI(MPI_Barrier(MPI_COMM_WORLD)); in runStream()
524 PetscCallMPI(MPI_Barrier(MPI_COMM_WORLD)); in runStream()
671 PetscCallMPI(MPI_Barrier(MPI_COMM_WORLD)); in runStreamDouble()
682 PetscCallMPI(MPI_Barrier(MPI_COMM_WORLD)); in runStreamDouble()
[all …]
/petsc/src/mat/tutorials/
H A Dex11.c24 PetscCallMPI(MPI_Comm_size(MPI_COMM_WORLD, &size)); in main()
26 PetscCallMPI(MPI_Comm_rank(MPI_COMM_WORLD, &rank)); in main()
48 PetscCall(MatCreateMPIAdj(MPI_COMM_WORLD, ncells, Nvertices, ii, jj, NULL, &mesh)); in main()
52 PetscCall(MatPartitioningCreate(MPI_COMM_WORLD, &part)); in main()
/petsc/src/sys/tutorials/
H A Dex4f.F9024 PetscCallMPIA(MPI_Comm_rank(MPI_COMM_WORLD, rank, ierr))
25 PetscCallMPIA(MPI_Comm_split(MPI_COMM_WORLD, mod(rank, two), zero, PETSC_COMM_WORLD, ierr))
40 PetscCallMPIA(MPI_Comm_rank(MPI_COMM_WORLD, grank, ierr))
H A Dex16f.F9018 PetscCallMPIA(MPI_Comm_size(MPI_COMM_WORLD, size, ierr))
19 PetscCallMPIA(MPI_Comm_rank(MPI_COMM_WORLD, rank, ierr))
H A Dex4f90.F9023 PetscCallMPIA(MPI_Comm_rank(MPI_COMM_WORLD, rank, ierr))
24 PetscCallMPIA(MPI_Comm_split(MPI_COMM_WORLD, mod(rank, two), zero, PETSC_COMM_WORLD, ierr))
H A Dex4.c15 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()
H A Dex2f.F9018 PetscCallMPIA(MPI_Comm_size(MPI_COMM_WORLD, size, ierr))
19 PetscCallMPIA(MPI_Comm_rank(MPI_COMM_WORLD, rank, ierr))
/petsc/src/sys/mpiuni/
H A Dmpitime.c27 if (!QueryPerformanceCounter(&StartTime)) PETSCABORT(MPI_COMM_WORLD, PETSC_ERR_LIB); in MPI_Wtime()
28 if (!QueryPerformanceFrequency(&PerfFreq)) PETSCABORT(MPI_COMM_WORLD, PETSC_ERR_LIB); in MPI_Wtime()
39 if (!QueryPerformanceCounter(&CurTime)) PETSCABORT(MPI_COMM_WORLD, PETSC_ERR_LIB); in MPI_Wtime()
H A Dmpi.c151 attr[CommIdx(MPI_COMM_WORLD)][0].active = 1; in Keyval_setup()
152 attr[CommIdx(MPI_COMM_WORLD)][0].attribute_val = &mpi_tag_ub; in Keyval_setup()
171 if (num_attr >= MAX_ATTR) return MPIUni_Abort(MPI_COMM_WORLD, 1); in MPI_Comm_create_keyval()
394 MPI_Comm comm = MPI_COMM_WORLD; in MPI_Finalize()
681 *ierr = MPIUni_Abort(MPI_COMM_WORLD, 0); in petsc_mpi_send_()
686 *ierr = MPIUni_Abort(MPI_COMM_WORLD, 0); in petsc_mpi_recv_()
691 *ierr = MPIUni_Abort(MPI_COMM_WORLD, 0); in petsc_mpi_reduce_scatter_()
696 *ierr = MPIUni_Abort(MPI_COMM_WORLD, 0); in petsc_mpi_irecv_()
701 *ierr = MPIUni_Abort(MPI_COMM_WORLD, 0); in petsc_mpi_isend_()
711 *ierr = MPIUni_Abort(MPI_COMM_WORLD, 0); in petsc_mpi_test_()
[all …]
/petsc/src/dm/impls/network/tests/
H A Dex2.c160 PetscCall(PetscPrintf(MPI_COMM_WORLD, "\nCoordinatePrint, cdim %" PetscInt_FMT ":\n", cdim)); in CoordinatePrint()
161 PetscCall(PetscSynchronizedPrintf(MPI_COMM_WORLD, "[%d]\n", rank)); in CoordinatePrint()
167 …PetscCall(PetscSynchronizedPrintf(MPI_COMM_WORLD, "Vertex: %" PetscInt_FMT ", x = %f y = %f \n", … in CoordinatePrint()
170 …PetscCheck(cdim == 2, MPI_COMM_WORLD, PETSC_ERR_SUP, "Only supports Network embedding dimension of… in CoordinatePrint()
174 PetscCall(PetscSynchronizedFlush(MPI_COMM_WORLD, NULL)); in CoordinatePrint()
188 PetscCallMPI(MPI_Comm_rank(MPI_COMM_WORLD, &rank)); in main()
/petsc/src/sys/error/
H A Dfp.c133 PETSCABORT(MPI_COMM_WORLD, PETSC_ERR_FP); in PetscDefaultFPTrap()
255 PETSCABORT(MPI_COMM_WORLD, PETSC_ERR_FP); in PetscDefaultFPTrap()
306 PETSCABORT(MPI_COMM_WORLD, PETSC_ERR_FP);
373 PETSCABORT(MPI_COMM_WORLD, PETSC_ERR_FP);
408 PETSCABORT(MPI_COMM_WORLD, PETSC_ERR_FP);
509 PETSCABORT(MPI_COMM_WORLD, PETSC_ERR_FP);
579 PETSCABORT(MPI_COMM_WORLD, PETSC_ERR_FP);
622 PETSCABORT(MPI_COMM_WORLD, PETSC_ERR_FP);
/petsc/src/snes/tutorials/ex10d/
H A Dex10.c111 PetscCallMPI(MPI_Comm_rank(MPI_COMM_WORLD, &rank)); in main()
112 PetscCallMPI(MPI_Comm_size(MPI_COMM_WORLD, &size)); in main()
217 PetscCall(AOCreateBasic(MPI_COMM_WORLD, user.Nvlocal, user.gloInd, pordering, &ao)); in main()
347 PetscCall(VecCreate(MPI_COMM_WORLD, &x)); in main()
369 PetscCall(MatCreate(MPI_COMM_WORLD, &Jac)); in main()
384 PetscCall(SNESCreate(MPI_COMM_WORLD, &snes)); in main()
459 PetscCall(PetscPrintf(MPI_COMM_WORLD, "number of SNES iterations = %" PetscInt_FMT ", ", its)); in main()
460 …PetscCall(PetscPrintf(MPI_COMM_WORLD, "number of unsuccessful steps = %" PetscInt_FMT "\n", nfails… in main()
/petsc/src/dm/tests/
H A Dex47.c12 MPI_Comm comm = MPI_COMM_WORLD; in test_3d()
55 MPI_Comm comm = MPI_COMM_WORLD; in test_2d()
94 MPI_Comm comm = MPI_COMM_WORLD; in test_2d_nocoord()
132 MPI_Comm comm = MPI_COMM_WORLD; in test_3d_nocoord()
H A Dex42.c14 MPI_Comm comm = MPI_COMM_WORLD; in test_3d()
57 MPI_Comm comm = MPI_COMM_WORLD; in test_2d()
96 MPI_Comm comm = MPI_COMM_WORLD; in test_2d_nocoord()
134 MPI_Comm comm = MPI_COMM_WORLD; in test_3d_nocoord()
/petsc/src/sys/objects/cxx/elemental/
H A Delemental.cxx26 PetscCallMPI(MPI_Comm_compare(PETSC_COMM_WORLD, MPI_COMM_WORLD, &result)); in PetscElementalInitializePackage()
/petsc/src/ksp/ksp/tutorials/
H A Dex44f.F9018 …PetscCallA(DMDACreate1d(MPI_COMM_WORLD, DM_BOUNDARY_NONE, eight, one, one, PETSC_NULL_INTEGER_ARRA…
29 PetscCallA(KSPCreate(MPI_COMM_WORLD, ksp, ierr))

123