#include "hdf.h"
int32 an_id, file_id, stat;
int32 n_data_label, n_data_desc, n_file_label, n_file_desc;
file_id = Hopen("myfile", DFACC_READ, 0);
an_id = ANstart(file_id);
stat = ANfileinfo(an_id, &n_file_label, &n_file_desc,
&n_data_label, &n_data_desc);
...
stat = ANend(an_id);
Hclose(file_id);
FORTRAN integer function affileinfo(an_id, n_file_label,
n_file_desc, n_data_label, n_data_desc)
integer an_id, n_file_label, n_file_desc
integer n_data_label, n_data_desc