nc4info.c#18
#define HCHECK(expr) {if((expr)<0) {ncstat = NC_EHDFERR; goto done;}}
#127
        HCHECK((ntype = H5Tget_native_type(atype, H5T_DIR_ASCEND)));
#128
        HCHECK((H5Aread(attid, ntype, text)));
#136
    if(attid >= 0) HCHECK((H5Aclose(attid)));
#137
    if(aspace >= 0) HCHECK((H5Sclose(aspace)));
#138
    if(ntype >= 0) HCHECK((H5Tclose(ntype)));
#139
    if(atype >= 0) HCHECK((H5Tclose(atype)));
#168
      HCHECK((atype = H5Tcopy(H5T_C_S1)));
#169
      HCHECK((H5Tset_cset(atype, H5T_CSET_ASCII)));
#170
      HCHECK((H5Tset_size(atype, strlen(text)+1))); /*keep nul term */
#171
      HCHECK((aspace = H5Screate(H5S_SCALAR)));
#172
      HCHECK((attid = H5Acreate(grp, NCPROPS, atype, aspace, H5P_DEFAULT)));
#173
      HCHECK((H5Awrite(attid, atype, text)));
#184
    if(attid >= 0) HCHECK((H5Aclose(attid)));
#185
    if(aspace >= 0) HCHECK((H5Sclose(aspace)));
#186
    if(atype >= 0) HCHECK((H5Tclose(atype)));

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