1 files changed, 60 insertions, 0 deletions
diff --git a/HDF5Examples/C/H5PAR/ph5_file_create.c b/HDF5Examples/C/H5PAR/ph5_file_create.c
new file mode 100644
index 0000000..a3bd0a8
--- /dev/null
+++ b/HDF5Examples/C/H5PAR/ph5_file_create.c
@@ -0,0 +1,60 @@
+/*
+ *  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;
+}