You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
31 lines
898 B
31 lines
898 B
5 years ago
|
#include <mpi.h>
|
||
|
|
#include <stdio.h>
|
||
|
|
|
||
|
|
int main(int argc, char** argv) {
|
||
|
|
// Initialize the MPI environment. The two arguments to MPI Init are not
|
||
|
|
// currently used by MPI implementations, but are there in case future
|
||
|
|
// implementations might need the arguments.
|
||
|
|
MPI_Init(NULL, NULL);
|
||
|
|
|
||
|
|
// Get the number of processes
|
||
|
|
int world_size;
|
||
|
|
MPI_Comm_size(MPI_COMM_WORLD, &world_size);
|
||
|
|
|
||
|
|
// Get the rank of the process
|
||
|
|
int world_rank;
|
||
|
|
MPI_Comm_rank(MPI_COMM_WORLD, &world_rank);
|
||
|
|
|
||
|
|
// Get the name of the processor
|
||
|
|
char processor_name[MPI_MAX_PROCESSOR_NAME];
|
||
|
|
int name_len;
|
||
|
|
MPI_Get_processor_name(processor_name, &name_len);
|
||
|
|
|
||
|
|
// Print off a hello world message
|
||
|
|
printf("Hello world from processor %s, rank %d out of %d processors\n",
|
||
|
|
processor_name, world_rank, world_size);
|
||
|
|
|
||
|
|
// Finalize the MPI environment. No more MPI calls can be made after this
|
||
|
|
MPI_Finalize();
|
||
|
|
}
|
||
|
|
|