5d330d5220
Add PMIx 2.0 Remove PMIx 1.1.4 Cleanup copying of component Add missing file Touchup a typo in the Makefile.am Update the pmix ext114 component Minor cleanups and resync to master Update to latest PMIx 2.x Update to the PMIx event notification branch latest changes
45 строки
787 B
C
45 строки
787 B
C
/* -*- C -*-
|
|
*
|
|
* $HEADER$
|
|
*
|
|
* The most basic of MPI applications
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <unistd.h>
|
|
|
|
#include "mpi.h"
|
|
|
|
int main(int argc, char* argv[])
|
|
{
|
|
int rank, size;
|
|
int errcode;
|
|
|
|
if (1 < argc) {
|
|
errcode = strtol(argv[1], NULL, 10);
|
|
} else {
|
|
errcode = 2;
|
|
}
|
|
|
|
MPI_Init(&argc, &argv);
|
|
MPI_Comm_rank(MPI_COMM_WORLD, &rank);
|
|
MPI_Comm_size(MPI_COMM_WORLD, &size);
|
|
|
|
printf("Hello, World, I am %d of %d\n", rank, size);
|
|
|
|
if (1 == size) {
|
|
MPI_Abort(MPI_COMM_WORLD, errcode);
|
|
} else {
|
|
if (1 == rank) {
|
|
MPI_Abort(MPI_COMM_WORLD, errcode);
|
|
} else {
|
|
errcode = 0;
|
|
sleep(99999999);
|
|
}
|
|
}
|
|
|
|
MPI_Finalize();
|
|
return errcode;
|
|
}
|