1/* This is part of the netCDF package.
2   Copyright 2005 University Corporation for Atmospheric Research/Unidata
3   See COPYRIGHT file for conditions of use.
4
5   Use HDF5 to read c0.nc, a file created by ncdump. This check was
6   added to detect a problem in the early HDF5 1.8.0 releases.
7
8   $Id: tst_h_rdc0.c,v 1.5 2010/06/01 15:34:53 ed Exp $
9*/
10#include <nc_tests.h>
11#include "err_macros.h"
12#include <hdf5.h>
13
14#define FILE_NAME "c0.nc"
15#define MAX_NAME 1024
16
17int
18main()
19{
20   printf("\n*** Checking HDF5 file c0.nc.\n");
21   printf("*** Checking HDF5 objcts...");
22
23   {
24      hid_t fileidgrpid;
25      hsize_t num_obji;
26      char obj_name[MAX_NAME];
27
28      if ((fileid = H5Fopen(FILE_NAMEH5F_ACC_RDONLYH5P_DEFAULT)) < 0) ERR;
29      if ((grpid = H5Gopen(fileid, "/")) < 0) ERR;
30
31      /* Find the variables. Read their metadata and attributes. */
32      if (H5Gget_num_objs(grpid, &num_obj) < 0) ERR;
33      for (i=0; i<num_obji++)
34      {
35  /* Get the class (i.e. group, dataset, etc.), and the name of
36   * the object. */
37  if (H5Gget_objtype_by_idx(grpidi) < 0) ERR;
38  if (H5Gget_objname_by_idx(grpidiobj_nameMAX_NAME) < 0) ERR;
39      }
40
41      if (H5Gclose(grpid) < 0 ||
42   H5Fclose(fileid) < 0) ERR;
43   }
44   SUMMARIZE_ERR;
45
46   FINAL_RESULTS;
47}


HyperKWIC - Version 7.20DA executed at 11:37 on 27 Oct 2017 | Polyhedron Solutions - INTERNAL USE | COMMERCIAL (Any O/S) SN 4AKIed