ГОСТ Р ИСОГГС 10303-26—2015
/ /
mydim[0] - 1;
mymem_space - H5Screate_simple(1, mydim, NULL);
dataset_datatype - H5Dget_type(dataset_tid);
datasec_datatype_size - H51’get_3ize(dataset_datatype) ;
dataset_buffer - (char*) malloc(dataset_datatype_3ize);
mydataset_filespace - H5Dget_space(dataset_tid);
0
mycoord[0^ [ 3 - ir.stance_index;
if(rstat - H5Sselect_elemer.ts(mydataset filespace, H5S_S£LECT_S£T,
1, (const hsize_t *)Smycoord)> GOTO_£RR;
if(rstat - H5Uread(dataset_tid, dataset_datatype, mymem_sPace»
mydataset_filespace, H5P_DEFAULT, dataset_buffer)) GOTO_ERR;
/ /
// Dump the instance from buffer
/ /
if(rstat - dumpcompound(dataset_datatype,0,dataset_buffer)) GOK>_ERR
free(dataset_buffer);
err:
return (rstat);
)
longrstat,i;
longsuper_size;
hid_tsuper_tid;
H5T_class_t superclass;
doublemyreal;
longmyinteger;
shortmyenumval;
enum color3_t mycolor;
hobj_ref_tobj_ref;
charenum_name(10];
hvl_tmyvlen;
char*p_myvlen;
/ / .........................................................................
// Dump VLEN data
/ / .........................................................................
long dump vlen data(hid t datatype, long members, char *vler. data)
rstat - 0;
p_myvlen - vler._data;
/ /
// Get type of VLEN data
/ /
super_tid - H5Tget_super(datatype);
super_class - H5Tget_class(super_tid);
super_size - H5Tget_size(super_tid);
-tlevel;■»-level;
indent();
fprintf <rep_file,"(");
/ /
// Branch on type for each element
/ /
for(i-0; i<members; +fiH
switch (superclass)(
case H5T_1NTEGER:
memcpy(imyinteger,p_myvlen»sizeof(long));
62