5 |
{ int ierror, rank, size
-
MPI_Init(&argc, &argv); # Initialize
-
# In following Find Process Number
-
MPI_Comm_rank(MPI_COMM_WORLD, &rank);
-
if( rank == 0)
-
printf ("hello World!\n");
-
# In following, Find Total number of processes
-
ierror = MPI_Comm_size(MPI_COMM_WORLD, &size);
-
if( ierror != MPI_SUCCESS )
-
MPI_Abort(MPI_COMM_WORLD,ierror); # Abort
-
printf("I am processor %d out of total of %d\n", rank, size);
-
MPI_Finalize(); # Finalize }
|