5 int main( int argc, char **argv)
13 MPI_Init( &argc, &argv );
14 MPI_Comm_size( MPI_COMM_WORLD, &size );
15 MPI_Comm_rank( MPI_COMM_WORLD, &rank );
16 MPI_Attr_get( MPI_COMM_WORLD, MPI_TAG_UB, &v, &flag );
17 if (!flag || (vval = *(int*)v)< 32767) {
19 fprintf( stderr, "Could not get TAG_UB or got too-small value\n" );
21 MPI_Attr_get( MPI_COMM_WORLD, MPI_HOST, &v, &flag );
23 if (!flag || ((vval < 0 || vval >= size) && vval != MPI_PROC_NULL)) {
25 fprintf( stderr, "Could not get HOST or got invalid value\n" );
27 MPI_Attr_get( MPI_COMM_WORLD, MPI_IO, &v, &flag );
29 if (!flag || ((vval < 0 || vval >= size) && vval != MPI_ANY_SOURCE &&
30 vval != MPI_PROC_NULL)) {
32 fprintf( stderr, "Could not get IO or got invalid value\n" );
34 MPI_Attr_get( MPI_COMM_WORLD, MPI_WTIME_IS_GLOBAL, &v, &flag );
36 /* Wtime need not be set */
38 if (vval < 0 || vval > 1) {
40 fprintf( stderr, "Invalid value for WTIME_IS_GLOBAL (got %d)\n",