#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