#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