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
7c91135e
Commit
7c91135e
authored
Oct 22, 2024
by
iker_martin
Browse files
Added Disconnects functions
parent
f612e0f0
Changes
1
Show whitespace changes
Inline
Side-by-side
BaseCode.c
View file @
7c91135e
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <mpi.h>
#define FIRST 0
...
...
@@ -14,11 +15,12 @@ int main(int argc, char* argv[]) {
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
);
}
else
{
MPI_Intercomm_merge
(
spawn
,
SECOND
,
&
new_comm
);
MPI_Barrier
(
MPI_COMM_WORLD
);
}
MPI_Comm_disconnect
(
&
spawn
);
MPI_Comm_disconnect
(
&
new_comm
);
MPI_Finalize
();
}
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