57 lines
1.4 KiB
C
57 lines
1.4 KiB
C
/*
|
|
Copyright (c) 2006-2013, 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.
|
|
*/
|
|
|
|
#include "H5hut.h"
|
|
#include "examples.h"
|
|
|
|
#include <stdlib.h>
|
|
#include <assert.h>
|
|
|
|
#define FNAME "example_core_vfd"
|
|
#define DATASIZE 32
|
|
|
|
int
|
|
main (
|
|
int argc, char* argv[]
|
|
){
|
|
H5AbortOnError ();
|
|
H5SetVerbosityLevel (VERBOSITY);
|
|
|
|
h5_int32_t data[DATASIZE];
|
|
h5_int64_t stat;
|
|
h5_file_t file;
|
|
|
|
// initialize MPI
|
|
MPI_Init (&argc, &argv);
|
|
MPI_Comm_rank (MPI_COMM_WORLD, &rank);
|
|
MPI_Comm_size (MPI_COMM_WORLD, &nprocs);
|
|
|
|
char filename[32];
|
|
sprintf (filename, "%s.%d.h5", FNAME, rank);
|
|
file = H5OpenFile (filename, H5_O_WRONLY|H5_VFD_CORE, MPI_COMM_SELF);
|
|
|
|
H5SetStep (file, 0);
|
|
|
|
H5PartSetNumParticles(file, DATASIZE);
|
|
|
|
// create fake data
|
|
for (int i = 0; i < DATASIZE; i++) {
|
|
data[i] = i + rank * DATASIZE;
|
|
}
|
|
|
|
// write the data
|
|
H5PartWriteDataInt32 (file, "data", data);
|
|
|
|
H5CloseFile (file);
|
|
|
|
MPI_Finalize ();
|
|
return H5_SUCCESS;
|
|
}
|
|
|