11 call MPI_Comm_size( MPI_COMM_WORLD, size, ierr )
12 call MPI_Comm_rank( MPI_COMM_WORLD, rank, ierr )
13 call MPI_Attr_get( MPI_COMM_WORLD, MPI_TAG_UB, v, flag, ierr )
14 if (.not. flag .or. v .lt. 32767) then
16 print *, 'Could not get TAG_UB or got too-small value', v
19 call MPI_Attr_get( MPI_COMM_WORLD, MPI_HOST, v, flag, ierr )
20 if (.not. flag .or. ((v .lt. 0 .or. v .ge. size) .and.
21 * v .ne. MPI_PROC_NULL)) then
23 print *, 'Could not get HOST or got invalid value', v
26 call MPI_Attr_get( MPI_COMM_WORLD, MPI_IO, v, flag, ierr )
27 if (.not. flag .or. (( v .lt. 0 .or. v .gt. size) .and.
28 * v .ne. MPI_PROC_NULL .and.
29 * v .ne. MPI_ANY_SOURCE)) then
31 print *, 'Could not get IO or got invalid value', v
33 call MPI_Finalize( ierr )