Skip to content
Snippets Groups Projects

Gajdusek cleaning

Merged Pavel Gajdušek requested to merge gajdusek_clean into master
2 files
+ 42
40
Compare changes
  • Side-by-side
  • Inline
Files
2
@@ -70,31 +70,31 @@ $ mpif90 -v
Example program:
```cpp
// helloworld_mpi.c
#include <stdio.h>
// helloworld_mpi.c
#include <stdio.h>
#include<mpi.h>
#include<mpi.h>
int main(int argc, char **argv) {
int main(int argc, char **argv) {
int len;
int rank, size;
char node[MPI_MAX_PROCESSOR_NAME];
int len;
int rank, size;
char node[MPI_MAX_PROCESSOR_NAME];
// Initiate MPI
MPI_Init(&argc, &argv);
MPI_Comm_rank(MPI_COMM_WORLD,&rank);
MPI_Comm_size(MPI_COMM_WORLD,&size);
// Initiate MPI
MPI_Init(&argc, &argv);
MPI_Comm_rank(MPI_COMM_WORLD,&rank);
MPI_Comm_size(MPI_COMM_WORLD,&size);
// Get hostame and print
MPI_Get_processor_name(node,&len);
printf("Hello world! from rank %d of %d on host %sn",rank,size,node);
// Get hostame and print
MPI_Get_processor_name(node,&len);
printf("Hello world! from rank %d of %d on host %sn",rank,size,node);
// Finalize and exit
MPI_Finalize();
// Finalize and exit
MPI_Finalize();
return 0;
}
return 0;
}
```
Compile the above example with
Loading