1 C -*- Mode: Fortran; -*-
3 C (C) 2003 by Argonne National Laboratory.
4 C See COPYRIGHT in top-level directory.
9 integer value, commsize
16 call mpi_comm_size( MPI_COMM_WORLD, commsize, ierr )
17 call mpi_attr_get( MPI_COMM_WORLD, MPI_UNIVERSE_SIZE, value, flag
19 ! MPI_UNIVERSE_SIZE need not be set
21 if (value .lt. commsize) then
22 print *, "MPI_UNIVERSE_SIZE is ", value, " less than world "
28 call mpi_attr_get( MPI_COMM_WORLD, MPI_LASTUSEDCODE, value, flag,
30 ! Last used code must be defined and >= MPI_ERR_LASTCODE
32 if (value .lt. MPI_ERR_LASTCODE) then
34 print *, "MPI_LASTUSEDCODE points to an integer
35 $ (", value, ") smaller than MPI_ERR_LASTCODE (",
36 $ MPI_ERR_LASTCODE, ")"
40 print *, "MPI_LASTUSECODE is not defined"
43 call mpi_attr_get( MPI_COMM_WORLD, MPI_APPNUM, value, flag, ierr )
44 ! appnum need not be set
46 if (value .lt. 0) then
48 print *, "MPI_APPNUM is defined as ", value,
49 $ " but must be nonnegative"
57 print *, " Found ", errs, " errors"
60 call MPI_Finalize( ierr )