void pyne::Material::write_hdf5(char * fchar, char * gchar, char * nchar, float row, int chunksize)
{
std::string filename (fchar);
std::string groupname (gchar);
std::string nuclist (nchar);
write_hdf5(filename, groupname, nuclist, row, chunksize);
};
void write_hdf5_f_(int *iun, void *data, char *data_type, int *rank,
int *dimsf, char *name)
{
int i, dims_c[10];
/* We need to reverse the order of the array dimensions when going from
Fortran to C. */
for (i=0; i<*rank; i++) {
dims_c[i]=(hsize_t) dimsf[*rank-i-1];
}
/* Call C function */
write_hdf5(iun, data, data_type, rank, dims_c, name);
}
void pyne::Material::write_hdf5(char * filename, char * datapath, char * nucpath, float row, int chunksize) {
std::string fname (filename);
std::string groupname (datapath);
std::string nuclist (nucpath);
write_hdf5(fname, groupname, nuclist, row, chunksize);
};
