add.c#26add_dim (testidim) /* add the dimension idim to the netcdf test */
#28     struct cdfdim *idim;
#37    test->dims[test->ndims].size = idim->size;
#38    test->dims[test->ndims].name = (char *) emalloc(strlen(idim->name) + 1);
#39    (void) strcpy(test->dims[test->ndims].nameidim->name);
#40    if (idim->size == NC_UNLIMITED)
chunkspec.c#46    int idim;
#78    idim = 0;
#103     chunkspecs.dimids[idim] = dimid;
#123     chunkspecs.chunksizes[idim] = chunksize;
#124     idim++;
#139    int idim;
#140    for(idim = 0; idim < chunkspecs.ndimsidim++) {
#141 if(dimid == chunkspecs.dimids[idim]) {
#142     return chunkspecs.chunksizes[idim];
dumplib.c#1880 int ndimsidim, *dimidsnundims;
#1886 for(idim = 0; idim < ndimsidim++) {
#1887     (*is_unlim_p)[dimids[idim]] = 0;
#1892 for(idim = 0; idim < nundimsidim++) {
#1893     (*is_unlim_p)[dimids[idim]] = 1;
dvarget.c#328      int idim;
#349  for (idim = 0; idim <= maxidim; ++idim)
#351            if (stride[idim] == 0
#353                || ((unsigned long) stride[idim] >= X_INT_MAX))
#357     if(stride[idim] != 1) stride1 = 0;
#381      for (idim = maxidimidim >= 0; --idim)
#383  mystart[idim] = start != NULL
#384     ? start[idim]
#387  if (edges != NULL && edges[idim] == 0)
#394  myedges[idim] = edges != NULL
#395     ? edges[idim]
#396     : idim == 0 && isrecvar
#397     ? numrecs - mystart[idim]
#398     : varshape[idim] - mystart[idim];
#401     myedges[idim] = edges[idim];
#402  else if (idim == 0 && isrecvar)
#403     myedges[idim] = numrecs - mystart[idim];
#405     myedges[idim] = varshape[idim] - mystart[idim];
#408  mystride[idim] = stride != NULL
#409     ? stride[idim]
#415  mymap[idim] = (imapp != NULL
#416imapp[idim]
#417 : (idim == maxidim ? 1
#418    : mymap[idim + 1] * (ptrdiff_tmyedges[idim + 1]));
#421     mymap[idim] = imapp[idim];
#422  else if (idim == maxidim)
#423     mymap[idim] = 1;
#425     mymap[idim] =
#426        mymap[idim + 1] * (ptrdiff_tmyedges[idim + 1];
#428  iocount[idim] = 1;
#429  length[idim] = ((size_t)mymap[idim]) * myedges[idim];
#430  stop[idim] = (mystart[idim] + myedges[idim] * (size_t)mystride[idim]);
#436      for (idim = maxidimidim >= 0; --idim)
#439     idim == 0 && isrecvar
#441     : varshape[idim];
#442  if (mystart[idim] >= dimlen)
#448  if (mystart[idim] + myedges[idim] > dimlen)
#490  idim = maxidim;
#492  value += (((int)mymap[idim]) * memtypelen);
#493  mystart[idim] += (size_t)mystride[idim];
#494  if (mystart[idim] == stop[idim])
#496     size_t l = (length[idim] * (size_t)memtypelen);
#498     mystart[idim] = start[idim];
#499     if (--idim < 0)
dvarput.c#336      int idim;
#354  for (idim = 0; idim <= maxidim; ++idim) {
#355            if ((stride[idim] == 0)
#357                || ((unsigned long) stride[idim] >= X_INT_MAX))
#361     if(stride[idim] != 1) stride1 = 0;
#389      for (idim = maxidimidim >= 0; --idim)
#391  mystart[idim] = start != NULL
#392     ? start[idim]
#395  if (edges != NULL && edges[idim] == 0)
#401  myedges[idim] = edges != NULL
#402     ? edges[idim]
#403     : idim == 0 && isrecvar
#404             ? numrecs - mystart[idim]
#405         : varshape[idim] - mystart[idim];
#406  mystride[idim] = stride != NULL
#407     ? stride[idim]
#409  mymap[idim] = imapp != NULL
#410     ? imapp[idim]
#411     : idim == maxidim
#413         : mymap[idim + 1] * (ptrdiff_tmyedges[idim + 1];
#415  iocount[idim] = 1;
#416  length[idim] = ((size_t)mymap[idim]) * myedges[idim];
#417  stop[idim] = mystart[idim] + myedges[idim] * (size_t)mystride[idim];
#423      for (idim = isrecvaridim < maxidim; ++idim)
#425  if (mystart[idim] > varshape[idim])
#430  if (mystart[idim] + myedges[idim] > varshape[idim])
#471  idim = maxidim;
#473  value += (mymap[idim] * memtypelen);
#474  mystart[idim] += (size_t)mystride[idim];
#475  if (mystart[idim] == stop[idim])
#477     size_t l = (length[idim] * (size_t)memtypelen);
#479     mystart[idim] = start[idim];
#480     if (--idim < 0)
genbin.c#32    int idimivariatt;
#92        for(idim = 0; idim < ndimsidim++) {
#93            Symboldsym = (Symbol*)listget(dimdefs,idim);
#109 for(idim=0;idim<vsym->typ.dimset.ndims;idim++)
#110     dimids[idim] = vsym->typ.dimset.dimsyms[idim]->ncid;
genc.c#41    int idimivariattmaxdims;
#169 for(idim = 0; idim < ndimsidim++) {
#170     Symboldsym = (Symbol*)listget(dimdefs,idim);
#177 for(idim = 0; idim < ndimsidim++) {
#178     Symboldsym = (Symbol*)listget(dimdefs,idim);
#310        for(idim = 0; idim < ndimsidim++) {
#311            Symboldsym = (Symbol*)listget(dimdefs,idim);
#336         for(idim = 0; idim < dimset->ndimsidim++) {
#337     Symboldsym = dimset->dimsyms[idim];
#341     idim,
genf77.c#50    int idimivariatt;
#76 for(idim = 0; idim < ndimsidim++) {
#77     Symboldsym = (Symbol*)listget(dimdefs,idim);
#97 for(idim = 0; idim < ndimsidim++) {
#98     Symboldsym = (Symbol*)listget(dimdefs,idim);
#234        for(idim = 0; idim < ndimsidim++) {
#235            Symboldsym = (Symbol*)listget(dimdefs,idim);
#256         for(idim = 0; idim < dimset->ndimsidim++) {
#257     int reverse = (dimset->ndims - idim) - 1;
#262     idim+1,
genj.c#43    int idimivariattmaxdims;
#73 for(idim = 0; idim < ndimsidim++) {
#74     Symboldsym = (Symbol*)listget(dimdefs,idim);
#115        for(idim = 0; idim < ndimsidim++) {
#116            Symboldsym = (Symbol*)listget(dimdefs,idim);
#142                for(idim = 0; idim < dimset->ndimsidim++) {
#143                    Symboldsym = dimset->dimsyms[idim];
genlib.c#40    int idimivariatt;
#49    for (idim = 0; idim < ndimsidim++) {
#50 stat = nc_def_dim(nciddims[idim].namedims[idim].size, &dimid);
#209    int idimivariattjattmaxdims;
#239 for (idim = 0; idim < ndimsidim++) {
#240     sprintf(stmnt, "   int %s_dim;", dims[idim].lname);
#246 for (idim = 0; idim < ndimsidim++) {
#247     if (dims[idim].size == NC_UNLIMITED) {
#249 dims[idim].lname);
#252 dims[idim].lname,
#253 (unsigned long) dims[idim].size);
#349    for (idim = 0; idim < ndimsidim++) {
#352 dims[idim].namedims[idim].lnamedims[idim].lname);
#363     for (idim = 0; idim < vars[ivar].ndimsidim++) {
#367 idim,
#368 dims[vars[ivar].dims[idim]].lname);
#577    int idimivariattjattitypemaxdims;
#612 for (idim = 0; idim < ndimsidim++) {
#613     sprintf(stmnt, "integer  %s_dim", dims[idim].lname);
#618 for (idim = 0; idim < ndimsidim++) {
#619     sprintf(stmnt, "integer  %s_len", dims[idim].lname);
#622 for (idim = 0; idim < ndimsidim++) {
#623     if (dims[idim].size == NC_UNLIMITED) {
#625 dims[idim].lname);
#628 dims[idim].lname,
#629 (unsigned long) dims[idim].size);
#692 for (idim = v->ndims-1; idim >= 0; idim--) {
#694     dims[v->dims[idim]].lname);
#751    for (idim = 0; idim < ndimsidim++) {
#752 if (dims[idim].size == NC_UNLIMITED)
#754                    dims[idim].namedims[idim].lname);
#757                    dims[idim].name, (unsigned long) dims[idim].size,
#758 dims[idim].lname);
#767     for (idim = 0; idim < vars[ivar].ndimsidim++) {
#770 vars[ivar].ndims - idim, /* reverse dimensions */
#771 dims[vars[ivar].dims[idim]].lname);
#1283    int idim /* id of dimension */
#1291 if (vars[ivar].dims[jdim] == idim)
#1331     int idim;
#1413        for (idim = 0; idim < ndimsidim++) {
#1415            if (used_in_rec_var(idim) && dims[idim].size != NC_UNLIMITED) {
#1416                sprintf(stmnt, "integer  %s_len", dims[idim].lname);
#1419                        dims[idim].lname, (unsigned long) dims[idim].size);
#1476     for (idim = v->ndims-1; idim >= 0; idim--) {
#1477 if(v->dims[idim] == rec_dim) {
#1481     dims[v->dims[idim]].lname);
#1507                    for (idim = 1; idim < v->ndimsidim++) {
#1508                        rec_len *= dims[v->dims[idim]].size;
#1527 for (idim = 0; idim < v->ndimsidim++) {
#1528     sprintf(stmnt, "%s_start(%d) = 1", v->lnameidim+1);
#1531 for (idim = v->ndims-1; idim > 0; idim--) {
#1533     v->ndims - idimdims[v->dims[idim]].lname);
load.c#69    int  idimival;
#212     for (idim = 0; idim < vars[varnum].ndimsidim++) {
#215 idim);
#219     for (idim = 0; idim < vars[varnum].ndimsidim++) {
#222 idim,
#223 dims[vars[varnum].dims[idim]].lname);
#502    int idim;
#544    for (idim = 1; idim < vars[varnum].ndimsidim++) {
#545 start[idim] = 0;
#546 count[idim] = dims[vars[varnum].dims[idim]].size;
nccopy.c#503     int idim;
#510     for(idim = 0; idim < ndimsidim++) {
#511 int idimid = dimids[idim];
#515     chunkp[idim] = chunksize;
#517 csprod *= chunkp[idim];
slabs.c#137    int idimjdimkdimldim;
#147    for (idim = 0; idim < NDIMSidim++) {
#148 dimids[idim] = ncdimdef(cdfiddims[idim].namedims[idim].size);
#149 if (dimids[idim] == -1) {
#154 add_dim(&test, &dims[idim]);
#161 for (idim = 0; idim < va[iv].ndimsidim++)
#162   va[iv].dims[idim] = dimids[idim];
#200 for (idim = 0; idim < NDIMSidim++) {
#201     corner[idim] = 0;
#202     edge[idim] = dims[idim].size;
#218 for (idim=0; idim < NDIMSidim++) {
#219     corner[idim] = dims[idim].size/2;
#220     edge[idim] = 1;
#221     point[idim] = corner[idim];
#234 for (idim=0; idim < NDIMSidim++) {
#240     corner[idim] = 1; /* get vector along dimension idim */
#241     edge[idim] = dims[idim].size - 2;
#246     for (ii=(int)corner[idim]; ii <= edge[idim]; ii++) {
#247 point[idim] = ii;
#257 for (idim=0; idim < NDIMSidim++) {
#258     for (jdim=idim+1; jdim < NDIMSjdim++) {
#264 corner[idim] = 1; /* interior plane along dimensions idim jdim */
#266 edge[idim] = dims[idim].size - 2;
#272 for (ii=(int)corner[idim]; ii <= edge[idim]; ii++) {
#274 point[idim] = ii;
#281   idim,
#293 for (idim=0; idim < NDIMSidim++) {
#294     for (jdim=idim+1; jdim < NDIMSjdim++) {
#301     corner[idim] = 1; /* intr. cube along idim jdim kdim */
#304     edge[idim] = dims[idim].size - 2;
#311     for (ii=(int)corner[idim]; ii <= edge[idim]; ii++) {
#314 point[idim] = ii;
#324   idim,
test_nstride_cached.c#90    int idimndim;
#113    for (idim=0; idim<5; idim++) {
#114        start[idim] = 0;
#115        count[idim] = 1;
#116        stride[idim] = 1;
#157    for (idim=0; idim<ndimidim++)
#159 idim,start[idim],idim,count[idim],idim,stride[idim]);
#207    for (idim=0; idim<ndimidim++)
#209 idimstart[idim], idimcount[idim], idimstride[idim]);
#264    for (idim=0; idim<ndimidim++)
#266 idim,start[idim],idim,count[idim],idim,stride[idim]);
test_varm3.c#80    int idim;
#115    for (idim=0; idim<4; idim++) {
#116        start[idim] = 0;
#117        count[idim] = 1;
#118        stride[idim] = 1;
#119        imap[idim] = 1;
testnc3perf.c#225    int idimjdimkdimldim;
#230    for (idim = 0; idim < NDIMSidim++) {
#231 dims[idim].size = sizes[idim];
#232 dims[idim].name = dnames[idim];
#242    for (idim = 1; idim < NDIMSidim++) {
#243 dimids[idim] = ncdimdef(nciddims[idim].namedims[idim].size);
#244 if (dimids[idim] == -1) {
#254 for (idim = 0; idim < va[iv].ndimsidim++)
#255   va[iv].dims[idim] = dimids[idim];
#295 for (idim = 0; idim < NDIMSidim++) {
#296     corner[idim] = 0;
#297     edge[idim] = dims[idim].size;
#317 for (idim=0; idim < NDIMSidim++) {
#318     corner[idim] = dims[idim].size/2;
#319     edge[idim] = 1;
#320     point[idim] = corner[idim];
#336 for (idim=0; idim < NDIMSidim++) {
#342     corner[idim] = 0; /* get vector along dimension idim */
#343     edge[idim] = dims[idim].size;
#353     for (ii=corner[idim]; ii < edge[idim]; ii++) {
#354 point[idim] = ii;
#362 for (idim=0; idim < NDIMSidim++) {
#363     for (jdim=idim+1; jdim < NDIMSjdim++) {
#369 corner[idim] = 0; /* plane along dimensions idim jdim */
#371 edge[idim] = dims[idim].size;
#382 for (ii=corner[idim]; ii < edge[idim]; ii++) {
#384 point[idim] = ii;
#398 for (idim=0; idim < NDIMSidim++) {
#399     for (jdim=idim+1; jdim < NDIMSjdim++) {
#406     corner[idim] = 0; /* intr. cube along idim jdim kdim */
#409     edge[idim] = dims[idim].size;
#422     for (ii=corner[idim]; ii < edge[idim]; ii++) {
#425 point[idim] = ii;
#444 for(idim = 0; idim < NDIMSidim++) {
#445     corner[idim] = 0;
#446     edge[idim] = dims[idim].size;
vartests.c#115    int idim;
#150     for (idim = 0; idim < var.ndimsidim++)
#151       if (var.dims[idim] != test.vars[varid].dims[idim]) {
#153 pnameidimvar.dims[idim],
#154 test.vars[varid].dims[idim]);
#187     for (idim = 0; idim < var.ndimsidim++)
#188       if (var.dims[idim] != test.vars[varid].dims[idim]) {
#190 pnameidimvar.dims[idim],
#191 test.vars[varid].dims[idim]);
vputgetg.c#64# define EXTNPTS(varididim) \
#68# define STRIDE(idim) (idim + 2)
#69# define INTNPTS(extnptsidim) (1 + (extnpts - 1) / STRIDE(idim))


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