mirror of
https://github.com/HDFGroup/hdf5.git
synced 2025-01-12 15:04:59 +08:00
fc88fcde10
* Merge examples repo into library * Change grepTest to be more fault-tolerant * Update examples macro file * Exclude all Fortran examples from doxygen
61 lines
1.1 KiB
C
61 lines
1.1 KiB
C
/*
|
|
* This example creates an HDF5 file.
|
|
*/
|
|
|
|
#include "hdf5.h"
|
|
|
|
#define H5FILE_NAME "SDS_row.h5"
|
|
|
|
int
|
|
main(int argc, char **argv)
|
|
{
|
|
/*
|
|
* HDF5 APIs definitions
|
|
*/
|
|
hid_t file_id; /* file and dataset identifiers */
|
|
hid_t plist_id; /* property list identifier( access template) */
|
|
herr_t status;
|
|
|
|
/*
|
|
* MPI variables
|
|
*/
|
|
int mpi_size, mpi_rank;
|
|
MPI_Comm comm = MPI_COMM_WORLD;
|
|
MPI_Info info = MPI_INFO_NULL;
|
|
|
|
/*
|
|
* Initialize MPI
|
|
*/
|
|
MPI_Init(&argc, &argv);
|
|
MPI_Comm_size(comm, &mpi_size);
|
|
MPI_Comm_rank(comm, &mpi_rank);
|
|
|
|
/*
|
|
* Set up file access property list with parallel I/O access
|
|
*/
|
|
plist_id = H5Pcreate(H5P_FILE_ACCESS);
|
|
H5Pset_fapl_mpio(plist_id, comm, info);
|
|
|
|
/*
|
|
* Create a new file collectively.
|
|
*/
|
|
file_id = H5Fcreate(H5FILE_NAME, H5F_ACC_TRUNC, H5P_DEFAULT, plist_id);
|
|
|
|
/*
|
|
* Close property list.
|
|
*/
|
|
H5Pclose(plist_id);
|
|
|
|
/*
|
|
* Close the file.
|
|
*/
|
|
H5Fclose(file_id);
|
|
|
|
if (mpi_rank == 0)
|
|
printf("PHDF5 example finished with no errors\n");
|
|
|
|
MPI_Finalize();
|
|
|
|
return 0;
|
|
}
|