ГОСТ Р ИСОГГС 10303-26—2015
GOTO_ERR;
} else {
if(rstat - H50read(mydataset, mydataset_datatype,
mydataset_filespace, mydataset_filespace, H5P_DEFAULT, mybuffer))
GOTO_ERR;
)
/ /
// Handle each element according to its datatype
/ /
for(ix - 0; ix< mydataset_noel; ix++) (
if<!dump_in_aggr_mode>{
fprir.tf(rep_file,"\n— (%d)",ix);
}
switch(mydataset_datatype_class)(
case H5T_1NTEGER:
memcpy(&myinteger,mybuffer,sizeof(long));
mybuffer — sizeof(long);
indent ();
fprintf (rep_file,’’klu",myir.teger);
break;
case H5T_KLOAT:
memcpy(imyreal,mybuffer,sizeof(double));
mybuffer *- sizeof (double);
indent();
fprintf <rep_file,"%f",myreal);
break;
case H5T_STR1NG:
indent();
fprintf <rep_file,"%s",mybuffer);
mybuffer *- sizeof (char*);
break;
case H5T_COMPOUND:
-+level;
indent 0;
if<rstat - dump_compound(mydataset_datatype,0,mybuffer))
GOTO_ERR;
mybuffer ♦- mydataset_datatype_size;
— level;
break;
case H5T_VLEN;
memcpy(imyvlen,mybuffer,sizeof(hvl_t) );
mybuffer — sizeof(hvl_t);
if(rstat - dump_vlen_data<mydataset_datatype,myvlen.len,
myvlen.p)) GOTO_ERR;
break;
default:
indent();
fprintf (repfile,"OOPS! L’nhandled datatype");
)
)
err:
return (rstat);
)
//--------------------------------------------------------- ...................................................
// Dump Compound type instance
/ / - - --------------------------------------------------------------------------------------- ..................- .................................................................................
long dump_compound(hid_t mycompound_type, hsize_t curr_offset,
58