/*
  Copyright (c) 2006-2015, The Regents of the University of California,
  through Lawrence Berkeley National Laboratory (subject to receipt of any
  required approvals from the U.S. Dept. of Energy) and the Paul Scherrer
  Institut (Switzerland).  All rights reserved.

  License: see file COPYING in top level of source distribution.
*/

/*
  Note:
  Running this example on more than one core is possible but the result
  might not be what you expect. Please read the HDF5 documentation about 
  the VFD core driver.
*/
#include "H5hut.h"

// name of output file
const char* fname = "example_core_vfd.h5";

// H5hut verbosity level
const h5_int64_t h5_verbosity = H5_VERBOSE_DEFAULT;

// number of particles we are going to write per core
const h5_int64_t num_particles = 32;

int
main (
        int argc,
	char* argv[]
        ){
	
        // initialize MPI & H5hut
        MPI_Init (&argc, &argv);
        MPI_Comm comm = MPI_COMM_WORLD;
        int comm_size = 1;
        MPI_Comm_size (comm, &comm_size);
        int comm_rank = 0;
        MPI_Comm_rank (comm, &comm_rank);
        H5AbortOnError ();
        H5SetVerbosityLevel (h5_verbosity);

        // open file and create first step
        h5_prop_t prop = H5CreateFileProp ();
        H5SetPropFileCoreVFD (prop);
        h5_file_t file = H5OpenFile (fname, H5_O_WRONLY, prop);
        H5SetStep (file, 0);

	// set number of particles this process is going to write
        H5PartSetNumParticles(file, num_particles);

        // create fake data
        h5_int32_t data[num_particles];
        for (int i = 0; i < num_particles; i++) {
                data[i] = i + comm_rank * num_particles;
        }

        // write the data
        H5PartWriteDataInt32 (file, "data", data);

	// cleanup
        H5CloseFile (file);
	MPI_Finalize ();
        return 0;
}