|
ann_id
|
IN:
|
Annotation identifier returned by ANcreate, ANcreatef or ANselect
|
|
label
|
IN:
|
Text to be written to the annotation
|
|
ann_length
|
IN:
|
Length, in bytes, of the annotation text pointed to by label
|
#include "hdf.h"
int32 an_id, stat;
char *label = "This is annotation text.";
file_id = Hopen("myfile", DFACC_WRITE, 0);
an_id = ANstart(file_id);
ann_id = ANcreate(an_id, tag, ref, type);
...
stat = ANwriteann(ann_id, label, sizeof(label));
...
stat = ANendaccess(ann_id);
stat = ANend(an_id);
Hclose(file_id);
FORTRAN integer function afwriteann(ann_id, label, ann_length)
integer ann_id, ann_length
character* (*) label