varget.c#38    } hc; /* test hypercube */
#61     hc.cor[id] = 0;
#62     hc.edg[id] = 1;
#65 hc.vals = emalloc(nctypelen(test.vars[iv].type) + 8);
#68 tmp = hc.cor[id];
#69 hc.cor[id] = -1; /* try negative coordinate, should fail */
#70 if(ncvarget (cdfidivhc.corhc.edghc.vals) != -1) {
#74 hc.cor[id] = tmp;
#75 tmp = hc.edg[id];
#76 hc.edg[id] = -1; /* try negative edge, should fail */
#77 if(ncvarget (cdfidivhc.corhc.edghc.vals) != -1) {
#81 hc.edg[id] = tmp;
#87 tmp = hc.cor[mqv];
#88 hc.cor[mqv] = test.dims[dim].size; /* try big coordinate, should fail */
#89 if(ncvarget (cdfidivhc.corhc.edghc.vals) != -1) {
#93 hc.cor[mqv] = tmp;
#94 tmp = hc.edg[mqv];
#95 hc.edg[mqv] = test.dims[dim].size + 1; /* try big edge, should fail */
#96 if(ncvarget (cdfidivhc.corhc.edghc.vals) != -1) {
#100 hc.edg[mqv] = tmp;
#108 if(ncvarget (cdfidivhc.corhc.edghc.vals) != -1) {
#119    if(ncvarget (cdfid, -1, hc.corhc.edghc.vals) != -1) {
#128    if(ncvarget (cdfid, 0, hc.corhc.edghc.vals) != -1) {
#132    free (hc.vals);
vargetg.c#39    } hc; /* test hypercube */
#61     hc.cor[id] = 0;
#62     hc.edg[id] = 1;
#67 hc.vals = emalloc(nctypelen(test.vars[iv].type) + 8);
#70     (ncvarputg(cdfidvaridhc.corhc.edg, \
#71        strides, (long*)NULLhc.vals) != -1)
#74 tmp = hc.cor[id];
#75 hc.cor[id] = -1; /* try negative coordinate, should fail */
#80 hc.cor[id] = tmp;
#81 tmp = hc.edg[id];
#82 hc.edg[id] = -1; /* try negative edge, should fail */
#87 hc.edg[id] = tmp;
#88 tmp = hc.cor[id];
#89 hc.cor[id] = test.dims[id].size; /* try big coordinate, should fail */
#94 hc.cor[id] = tmp;
#95 tmp = hc.edg[id];
#96 hc.edg[id] = test.dims[id].size + 1; /* try big edge, should fail */
#101 hc.edg[id] = tmp;
#139    free (hc.vals);
varput.c#39    } hc; /* test hypercube */
#46    hc.cor[0] = 0 ;
#47    hc.edg[0] = 1 ;
#48    hc.vals = 0 ;
#65     hc.cor[id] = 0;
#66     hc.edg[id] = 1;
#69 hc.vals = emalloc(nctypelen(test.vars[iv].type));
#70 val_fill(test.vars[iv].type, 1, hc.vals);
#73 tmp = hc.cor[id];
#74 hc.cor[id] = -1; /* try negative coordinate, should fail */
#75 if(ncvarput (cdfidivhc.corhc.edghc.vals) != -1) {
#79 hc.cor[id] = tmp;
#80 tmp = hc.edg[id];
#81 hc.edg[id] = -1; /* try negative edge, should fail */
#82 if(ncvarput (cdfidivhc.corhc.edghc.vals) != -1) {
#86 hc.edg[id] = tmp;
#91 tmp = hc.cor[mqv];
#92 hc.cor[mqv] = test.dims[dim].size; /* try big coordinate, should fail */
#93 if(ncvarput (cdfidivhc.corhc.edghc.vals) != -1) {
#97 hc.cor[mqv] = tmp;
#99 tmp = hc.edg[mqv];
#100 hc.edg[mqv] = test.dims[dim].size + 1; /* try big edge, should fail */
#101 if(ncvarput (cdfidivhc.corhc.edghc.vals) != -1) {
#105 hc.edg[mqv] = tmp;
#113 if(ncvarput (cdfidivhc.corhc.edghc.vals) != -1) {
#125    if(ncvarput (cdfid, -1, hc.corhc.edghc.vals) != -1) {
#134    if(ncvarput (cdfid, 0, hc.corhc.edghc.vals) != -1) {
#138    if(hc.vals) free (hc.vals);
varputg.c#39    } hc; /* test hypercube */
#63     hc.cor[id] = 0;
#64     hc.edg[id] = 1;
#69 hc.vals = emalloc(nctypelen(test.vars[iv].type));
#70 val_fill(test.vars[iv].type, 1, hc.vals);
#73     (ncvarputg(cdfidvaridhc.corhc.edg, \
#74        strides, (long*)NULLhc.vals) != -1)
#77 tmp = hc.cor[id];
#78 hc.cor[id] = -1; /* try negative coordinate, should fail */
#83 hc.cor[id] = tmp;
#84 tmp = hc.edg[id];
#85 hc.edg[id] = -1; /* try negative edge, should fail */
#90 hc.edg[id] = tmp;
#91 tmp = hc.cor[id];
#92 hc.cor[id] = test.dims[id].size; /* try big coordinate, should fail */
#97 hc.cor[id] = tmp;
#98 tmp = hc.edg[id];
#99 hc.edg[id] = test.dims[id].size + 1; /* try big edge, should fail */
#104 hc.edg[id] = tmp;
#141    if(hc.vals != NULL) free (hc.vals);
vputget.c#48    } hc[3], tmp; /* test hypercubes */
#63     hc[0].cor[id] = 0;
#64     hc[0].edg[id] = dsize;
#65     nel[0] *= hc[0].edg[id];
#68     hc[1].cor[id] = dsize - 1;
#69     hc[1].edg[id] = 1;
#70     nel[1] *= hc[1].edg[id];
#73     hc[2].cor[id] = dsize/3;
#74     hc[2].edg[id] = max (dsize/3, 1);
#75     nel[2] *= hc[2].edg[id];
#80     hc[ie].vals = emalloc(nel[ie]*nctypelen(test.vars[iv].type) + 8);
#84     val_fill(test.vars[iv].typenel[ie], hc[ie].vals);
#86 if(ncvarput (cdfidivhc[ie].corhc[ie].edghc[ie].vals)
#94       (void)fprintf(stderr,"%ld%s",(long)hc[ie].cor[id],
#99       (void)fprintf(stderr,"%ld%s",(long)hc[ie].edg[id],
#104     add_data(&testivhc[ie].corhc[ie].edg); /* keep test in sync */
#105     if(ncvarget (cdfidivhc[ie].corhc[ie].edgtmp.vals)
#113     hc[ie].valstmp.vals) != 0) {
#121     free (hc[ie].vals);
vputgetg.c#51    } hc[3], tmp; /* test hypercubes */
#76     hc[0].cor[id] = 0;
#77     hc[0].npts[id] = EXTNPTS(ivid);
#78     hc[0].strd[id] = 1;
#79     hc[0].imap[id] = id == test.vars[iv].ndims-1
#81hc[0].imap[id+1] * hc[0].npts[id+1];
#82     nel[0] *= hc[0].npts[id];
#84 hc[0].offset = 0;
#87     hc[1].cor[id] = EXTNPTS(ivid) - 1;
#88     hc[1].npts[id] = 1;
#89     hc[1].strd[id] = 1;
#90     hc[1].imap[id] = id == test.vars[iv].ndims-1
#92hc[1].imap[id+1] * hc[1].npts[id+1];
#93     nel[1] *= hc[1].npts[id];
#95 hc[1].offset = 0;
#100     hc[2].cor[id] = EXTNPTS(ivid)/3;
#101     hc[2].npts[id] = INTNPTS(max(EXTNPTS(ivid)/3, 1), id);
#102     hc[2].strd[id] = STRIDE(id);
#103     hc[2].imap[id] = id == test.vars[iv].ndims-1
#105hc[2].imap[id+1] * hc[2].npts[id+1];
#106     nel[2] *= hc[2].npts[id];
#108 hc[2].offset = (nel[2]-1)*nctypelen(test.vars[iv].type);
#114     hc[ie].valsemalloc(nelms);
#118     val_fill(test.vars[iv].typenel[ie], hc[ie].vals);
#120     if(ncvarputg (cdfidivhc[ie].corhc[ie].npts,
#121   hc[ie].strdhc[ie].imap,
#122   (char*)hc[ie].vals+hc[ie].offset)
#130   (void)fprintf(stderr,"%ld%s",(long)hc[ie].cor[id],
#135   (void)fprintf(stderr,"%ld%s",(long)hc[ie].npts[id],
#140   (void)fprintf(stderr,"%ld%s",(long)hc[ie].strd[id],
#145   (void)fprintf(stderr,"%ld%s",(long)hc[ie].imap[id],
#153 add_data(&testivhc[ie].cordsize);
#155 if(ncvargetg (cdfidivhc[ie].corhc[ie].npts,
#156       hc[ie].strdhc[ie].imap,
#157       (char*)tmp.vals+hc[ie].offset)
#165 hc[ie].valstmp.vals) != 0) {
#174     free (hc[ie].vals);


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