#include "hdf.h" int32 an_id, ann_id, file_id, *ann_list, 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); ann_list = HDmalloc(num_ann * sizeof(int32)); num_ann = ANannlist(an_id, annot_type, obj_tag, obj_ref, ann_list); ... stat = ANend(an_id); Hclose(file_id);
FORTRAN
|
integer function afannlist(an_id, annot_type, obj_tag, obj_ref, ann_list)
|
|
integer ann_list(*)
|
|
integer an_id, obj_tag, obj_ref, annot_type
|