#include "hdf.h" int32 ri_id, gr_id, stat, attr_index; int32 *data_type, length; int32 attr_values[2]; char name[MAX_GR_NAME]; ... ri_id = GRselect(gr_id, 0); stat = GRattrinfo(gr_id, attr_index, name, data_type, length); stat = GRgetattr(ri_id, attr_index, attr_values) ...
FORTRAN
|
integer function mgatinf([ri, gr]_id, attr_index, name, data_type, length)
|
|
integer [ri, gr]_id, data_type, num_attrs, length
|
|
character* (*) name
|