File View Code

MPI_Datatype etype, filetype, contig;

MPI_Offset disp;

MPI_Type_contiguous(2, MPI_INT, &contig);

lb = 0; extent = 6 * sizeof(int);

MPI_Type_create_resized(contig, lb, extent, &filetype);

MPI_Type_commit(&filetype);

disp = 5 * sizeof(int); etype = MPI_INT;

MPI_File_open(MPI_COMM_WORLD, "/pfs/datafile",

MPI_MODE_CREATE | MPI_MODE_RDWR, MPI_INFO_NULL, &fh);

MPI_File_set_view(fh, disp, etype, filetype, "native",

MPI_INFO_NULL);

MPI_File_write(fh, buf, 1000, MPI_INT, MPI_STATUS_IGNORE);