#include "hdf.h" int32 an_id, ann_id, file_id, stat; ann_type annot_type = AN_DATA_LABEL; uint16 obj_tag = DFTAG_NDG; uint16 obj_ref = 2; int num_ann; file_id = Hopen("myfile", DFACC_READ, 0); an_id = ANstart(file_id); num_ann = ANnumann(an_id, annot_type, obj_tag, obj_ref); ... stat = ANend(an_id); Hclose(file_id);
FORTRAN
|
integer function afnumann(an_id, annot_type, obj_tag, obj_ref)
|
|
integer an_id, obj_tag, obj_ref, annot_type
|