Darray Continued

MPI_Type_create_darray(6, rank, 2, gsizes, distribs, dargs,

psizes, MPI_ORDER_C, MPI_FLOAT, &filetype);

MPI_Type_commit(&filetype);

MPI_File_open(MPI_COMM_WORLD, "/pfs/datafile",

MPI_MODE_CREATE | MPI_MODE_WRONLY,

MPI_INFO_NULL, &fh);

MPI_File_set_view(fh, 0, MPI_FLOAT, filetype, "native",

MPI_INFO_NULL);

local_array_size = num_local_rows * num_local_cols;

MPI_File_write_all(fh, local_array, local_array_size,

MPI_FLOAT, &status);

MPI_File_close(&fh);