- MPI_File_open( comm, (char*)"/scratch/lib/libsimgrid.so.3.6.2", MPI_MODE_RDWR | MPI_MODE_CREATE | MPI_MODE_DELETE_ON_CLOSE, MPI_INFO_NULL, &fh );
+ MPI_File_open( comm, (char*)"/scratch/testfile", MPI_MODE_RDWR | MPI_MODE_CREATE | MPI_MODE_DELETE_ON_CLOSE, MPI_INFO_NULL, &fh );
MPI_Comm_size( comm, &size );
MPI_Comm_rank( comm, &rank );
buf = (int *)malloc( 10* sizeof(int) );
buf[0] = rank;
MPI_Comm_size( comm, &size );
MPI_Comm_rank( comm, &rank );
buf = (int *)malloc( 10* sizeof(int) );
buf[0] = rank;
/* Write to file */
MPI_File_write_ordered( fh, buf, 10, MPI_INT, &status );
MPI_Get_count( &status, MPI_INT, &count );
/* Write to file */
MPI_File_write_ordered( fh, buf, 10, MPI_INT, &status );
MPI_Get_count( &status, MPI_INT, &count );
MPI_File_read_ordered( fh, buf, 10, MPI_INT, &status );
MPI_Barrier(comm);
MPI_File_read_ordered( fh, buf, 10, MPI_INT, &status );
MPI_Barrier(comm);