nc4info.c#18#define HCHECK(expr) {if((expr)<0) {ncstat = NC_EHDFERR; goto done;}}
#127        HCHECK((ntype = H5Tget_native_type(atypeH5T_DIR_ASCEND)));
#128        HCHECK((H5Aread(attidntypetext)));
#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(atypeH5T_CSET_ASCII)));
#170      HCHECK((H5Tset_size(atype, strlen(text)+1))); /*keep nul term */
#171      HCHECK((aspace = H5Screate(H5S_SCALAR)));
#172      HCHECK((attid = H5Acreate(grpNCPROPSatypeaspaceH5P_DEFAULT)));
#173      HCHECK((H5Awrite(attidatypetext)));
#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