#include "hdf.h" int32 an_id, ann_id, file_id, stat; uint16 tag = DFTAG_NDG; uint16 ref = 2; ann_type type = AN_DATA_LABEL; file_id = Hopen("myfile", DFACC_WRITE, 0); an_id = ANstart(file_id); ann_id = ANcreate(an_id, tag, ref, type); ... stat = ANendaccess(ann_id); stat = ANend(an_id); Hclose(file_id);
FORTRAN
|
integer function afcreate(an_id, tag, ref, annot_type)
|
|
|
|
integer an_id, tag, ref, annot_type
|