+
+ MPI_File_seek_shared( fh, 0, MPI_SEEK_SET );
+ MPI_Barrier(comm);
+
+ memset( &status, 0xff, sizeof(MPI_Status) );
+ MPI_File_write_shared( fh, buf, 1, MPI_INT, &status );
+ MPI_Get_count( &status, MPI_INT, &count );
+ if (count != 1) {
+ errs++;
+ fprintf( stderr, "Count not one (%d) on write\n", count );fflush(stderr);
+ }
+