Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Iker Martín Álvarez
MPICH_OFI_mpi_intercomm_merge_bug
Commits
d727986d
Commit
d727986d
authored
Jun 25, 2024
by
Iker Martín Álvarez
Browse files
Update BaseCode.c
parent
f612e0f0
Changes
1
Hide whitespace changes
Inline
Side-by-side
BaseCode.c
View file @
d727986d
...
...
@@ -2,9 +2,6 @@
#include <stdlib.h>
#include <mpi.h>
#define FIRST 0
#define SECOND 1
int
main
(
int
argc
,
char
*
argv
[])
{
MPI_Init
(
&
argc
,
&
argv
);
...
...
@@ -13,10 +10,10 @@ int main(int argc, char* argv[]) {
if
(
spawn
==
MPI_COMM_NULL
)
{
int
num_c
=
atoi
(
argv
[
1
]);
MPI_Comm_spawn
(
argv
[
0
],
MPI_ARGV_NULL
,
num_c
,
MPI_INFO_NULL
,
0
,
MPI_COMM_WORLD
,
&
spawn
,
MPI_ERRCODES_IGNORE
);
MPI_Intercomm_merge
(
spawn
,
FIRST
,
&
new_comm
);
MPI_Intercomm_merge
(
spawn
,
0
,
&
new_comm
);
}
else
{
MPI_Intercomm_merge
(
spawn
,
SECOND
,
&
new_comm
);
MPI_Intercomm_merge
(
spawn
,
1
,
&
new_comm
);
MPI_Barrier
(
MPI_COMM_WORLD
);
}
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment