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