vartests.c#257    int idieiv;
#283 for (ie = 0; ie < neie++) { /* for each of ne points */
#287 elm[ie].val.by = (char) (ie+1);
#288 voidp = (void *) &elm[ie].val.by;
#292 elm[ie].val.sh = (short) (ie-1);
#293 voidp = (void *) &elm[ie].val.sh;
#297 elm[ie].val.lo = (nclong) (ie-3);
#298 voidp = (void *) &elm[ie].val.lo;
#302 elm[ie].val.fl = (float) (ie+1);
#303 voidp = (void *) &elm[ie].val.fl;
#307 elm[ie].val.db = (double) (ie-1);
#308 voidp = (void *) &elm[ie].val.db;
#314     if(ncvarput1 (cdfidivelm[ie].coordsvoidp) == -1) {
#316       pnameietest.vars[iv].name);
#319     add_data(&testivelm[ie].coordsedges); /* keep test in sync */
#321     if(ncvarget1 (cdfidivelm[ie].coordstmpp) == -1) {
#323       pnameietest.vars[iv].name);
#329 if (elm[ie].val.by != chval) {
#331   pnamechvalelm[ie].val.by);
#336 if (elm[ie].val.sh != shval) {
#338   pnameshvalelm[ie].val.sh);
#343 if (elm[ie].val.lo != loval) {
#345   pname, (long)loval, (long)elm[ie].val.lo);
#350 if (elm[ie].val.fl != flval) {
#352   pnameflvalelm[ie].val.fl);
#357 if (elm[ie].val.db != dbval) {
#359   pnamedbvalelm[ie].val.db);
vputget.c#42    int idieiv; /* loop indices */
#52 for (ie = 0; ie < neie++)
#53   nel[ie] = 1; /* to compute space for hypercube values */
#77 for (ie = 0; ie < neie++) { /* for each of ne points */
#80     hc[ie].vals = emalloc(nel[ie]*nctypelen(test.vars[iv].type) + 8);
#81     tmp.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)
#89   pnameietest.vars[iv].name);
#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)
#108       pnameietest.vars[iv].name);
#112 if (val_cmp(test.vars[iv].typenel[ie],
#113     hc[ie].valstmp.vals) != 0) {
#121     free (hc[ie].vals);
vputgetg.c#42    int id = 0, ie = 0, iv = 0; /* loop indices */
#56 for (ie = 0; ie < neie++)
#57 nel[ie] = 1; /* to compute space for hypercube values */
#111 for (ie = 0; ie < neie++) { /* for each test */
#112     int nelms = (int)nel[ie]*nctypelen(test.vars[iv].type) + 8;
#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)
#125       pnameietest.vars[iv].name);
#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)
#160   pnameietest.vars[iv].name);
#164     if (val_cmp(test.vars[iv].typenel[ie],
#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