cdf.c#727clonedimset(NCDAPCOMMONnccommNClistdimsetCDFnodevar)
#732    for(i=0;i<nclistlength(dimset);i++) {
#737        dim = (CDFnode*)nclistget(dimset,i);
#748    NClistdimset = NULL;
#753        dimset = nclistclone(node->array.dimset0);
#756        if(dimset == NULLdimset = nclistnew();
#758        nclistpush(dimset,(void*)clone);
#761        if(dimset == NULLdimset = nclistnew();
#763        nclistpush(dimset,(void*)clone);
#765    node->array.dimsetplus = dimset;
constraints.c#148 NClistdimset = NULL;
#151        dimset = cdfnode->array.dimsetplus;
#152        seg->rank = nclistlength(dimset);
#156     CDFnodedim = (CDFnode*)nclistget(dimset,j);
#464    NClistdimset = NULL;
#470    dimset = ((CDFnode*)seg->annotation)->array.dimset0;
#471    rank = nclistlength(dimset);
#474 CDFnodedim = (CDFnode*)nclistget(dimset,i);
#708        NClistdimset;
#715 dimset = n->array.dimsetplus;
#720     dim = (CDFnode*)nclistget(dimset,j);
dapdump.c#312    NClistdimset = NULL;
#352    if(nclistlength(root->array.dimsetplus) > 0) dimset = root->array.dimsetplus;
#353    else if(nclistlength(root->array.dimset0) > 0) dimset = root->array.dimset0;
#354    if(dimset != NULL) {
#355 for(i=0;i<nclistlength(dimset);i++) {
#356     CDFnodedim = (CDFnode*)nclistget(dimset,i);
dvar.c#300   int dimset[NC_MAX_VAR_DIMS];
#307   status = nc_inq_vardimid(ncid,varid,dimset);
#309   status = nc_inq_dim(ncid,dimset[0],NULL,nrecs);
#311   return (dimset[0] == unlimid ? 1: 0);
#336   int dimset[NC_MAX_VAR_DIMS];
#364     status = nc_inq_vardimid(ncidvariddimset);
#371  if(dimset[dim] == unlimids[recdim]) {
#380   status = nc_inq_vardimid(ncidvariddimset);
#382   if(dimset[0] == unlimid) {
genbin.c#106     if (vsym->typ.dimset.ndims > 0) { /* a dimensioned variable */
#109 for(idim=0;idim<vsym->typ.dimset.ndims;idim++)
#110     dimids[idim] = vsym->typ.dimset.dimsyms[idim]->ncid;
#114            vsym->typ.dimset.ndims,
#121            vsym->typ.dimset.ndims,
#321     if(efield->typ.dimset.ndims == 0){
#332 for(j=0;j<efield->typ.dimset.ndims;j++) {
#333      unsigned int size = efield->typ.dimset.dimsyms[j]->dim.declsize;
#342 efield->typ.dimset.ndims,
genc.c#196      if(vsym->typ.dimset.ndims > maxdims)
#197 maxdims = vsym->typ.dimset.ndims;
#214     vsym->typ.dimset.ndims);
#222 if (vsym->typ.dimset.ndims > 0) {
#333     Dimsetdimset = &vsym->typ.dimset;
#335     if(dimset->ndims > 0) {
#336         for(idim = 0; idim < dimset->ndimsidim++) {
#337     Symboldsym = dimset->dimsyms[idim];
#352 (dimset->ndims == 0?"0":poolcat(cname(vsym),"_dims")),
#747     if(efield->typ.dimset.ndims > 0) {
#749         for(j=0;j<efield->typ.dimset.ndims;j++) {
#753     dim = efield->typ.dimset.dimsyms[j];
#856     if(efield->typ.dimset.ndims == 0) continue;
#859 cname(efield),efield->typ.dimset.ndims);
#860     for(j=0;j<efield->typ.dimset.ndims;j++) {
#862         Symbole = efield->typ.dimset.dimsyms[j];
#881     if(efield->typ.dimset.ndims > 0){
#889     efield->typ.dimset.ndims,
genchar.c#57gen_chararray(Dimsetdimset, int dimindexDatalistdataBytebuffercharbufDatalistfillsrc)
#60    int rank = rankfor(dimset);
#61    int firstunlim = findunlimited(dimset,0);
#62    int nunlim = countunlimited(dimset);
#67 gen_leafchararray(dimset,0,data,charbuf,fillchar);
#72    gen_leafchararray(dimset,dimindex,data,charbuf,fillchar);
#78gen_chararrayr(Dimsetdimset, int dimindex,
#83    size_t dimsize = declsizefor(dimset,dimindex);
#84    int rank = dimset->ndims;
#85    int firstunlim = findunlimited(dimset,0);
#86    int lastunlimited = findlastunlimited(dimset);
#87    int nextunlimited = findunlimited(dimset,dimindex+1);
#217gen_leafchararray(Dimsetdimset, int dimindexDatalistdata,
#222    int rank = rankfor(dimset);
#225    ASSERT((findlastunlimited(dimset) == rank
#226            || findlastunlimited(dimset) == dimindex));
#290    xproduct = crossproduct(dimset,dimindex,rank-1);
#298        expectedsize = (xproduct * declsizefor(dimset,rank-1));
#299    } else if(isunlimited(dimset,rank-1)) {/* last dimension is unlimited */
#301        expectedsize = (xproduct*declsizefor(dimset,rank-1));
#303 unitsize =  declsizefor(dimset,rank-1);
generate.c#80    Dimsetdimset = &vsym->typ.dimset;
#81    int rank = dimset->ndims;
#103        odom = newodometer(dimset,NULL,NULL);
#135    Dimsetdimset = &vsym->typ.dimset;
#136    int rank = dimset->ndims;
#141    int firstunlim = findunlimited(dimset,1);
#142    int nunlim = countunlimited(dimset);
#151            gen_chararray(dimset,0,vsym->data,charbuf,filler);
#154            odom = newodometer(dimset,NULL,NULL);
#166            odom = newodometer(dimset,NULL,NULL);
#186        odom = newodometer(dimset,NULL,NULL);
#224    Dimsetdimset = &vsym->typ.dimset;
#225    int rank = dimset->ndims;
#226    int lastunlimited = findlastunlimited(dimset);
#227    int nextunlimited = findunlimited(dimset,dimindex+1);
#239            gen_chararray(dimset,dimindex,list,charbuf,filler);
#244            subodom = newsubodometer(odom,dimset,dimindex,rank);
#262        ASSERT((isunlimited(dimset,nextunlimited)));
#264        subodom = newsubodometer(odom,dimset,dimindex,nextunlimited);
#385        if(tsym->typ.dimset.ndims > 0) {
#389            generate_fieldarray(tsym->typ.basetype,con,&tsym->typ.dimset,codebuf,filler,generator);
#401generate_fieldarray(SymbolbasetypeNCConstantconDimsetdimset,
#407    int rank = rankfor(dimset);
#409    ASSERT(dimset->ndims > 0);
#418        gen_chararray(dimset,0,data,charbuf,filler);
#423        size_t xproduct = crossproduct(dimset,0,rank); /* compute total number of elements */
genf77.c#121     vsym->typ.dimset.ndims);
#128     if(vsym->typ.dimset.ndims > 0) {
#142     if(vsym->typ.dimset.ndims == 0) {/* scalar */
#146     } else if(vsym->typ.dimset.dimsyms[0]->dim.declsize != NC_UNLIMITED) {
#149 Dimsetdimset = &vsym->typ.dimset;
#151                for(i=dimset->ndims-1;i>=0;i--) {
#153             Symboldsym = dimset->dimsyms[i];
#252     Dimsetdimset = &vsym->typ.dimset;
#254     if(dimset->ndims > 0) {
#256         for(idim = 0; idim < dimset->ndimsidim++) {
#257     int reverse = (dimset->ndims - idim) - 1;
#258     Symboldsym = dimset->dimsyms[reverse];
#272 (dimset->ndims == 0?"0":poolcat(f77name(vsym),"_dims")),
#326                if(vsym->typ.dimset.ndims == 0)
#343                    && vsym->typ.dimset.ndims > 0) {
#721    Dimsetdimset = &vsym->typ.dimset;
#812 for(i=0;i<dimset->ndims;i++) {
#813     int reverse = (dimset->ndims - i) - 1;
#820 for(i=0;i<dimset->ndims;i++) {
#821     int reverse = (dimset->ndims - i) - 1;
genj.c#92      if(vsym->typ.dimset.ndims > maxdims)
#93 maxdims = vsym->typ.dimset.ndims;
#136            Dimsetdimset = &vsym->typ.dimset;
#141            if(dimset->ndims > 0) {
#142                for(idim = 0; idim < dimset->ndimsidim++) {
#143                    Symboldsym = dimset->dimsyms[idim];
#431    Dimsetdimset = &vsym->typ.dimset;
#462            Symboldsym = dimset->dimsyms[i];
genlib.h#100extern int nounlimited(Dimsetdimset, int from);
#101extern int lastunlimited(Dimsetdimset);
getfill.c#15static void fillarray(SymboltsymDimsetdimset, int indexDatalist*);
#67     if(field->typ.dimset.ndims > 0) {
#68                fillarray(field->typ.basetype,&field->typ.dimset,0,filler);
#118fillarray(SymbolbasetypeDimsetdimset, int indexDatalistarraylist)
#121    Symboldim = dimset->dimsyms[index];
#124    int lastdim = (index == (dimset->ndims - 1));
#134     fillarray(basetype->typ.basetype,dimset,index+1,sublist);
#141         fillarray(basetype->typ.basetype,dimset,index+1,sublist);
nc_iter.c#209    if(ndimsp) *ndimsp = sym->typ.dimset.ndims;
#217    int ndims = sym->typ.dimset.ndims;
#219 Symboldim = sym->typ.dimset.dimsyms[i];
ncd2dispatch.c#659    NClistdimset = NULL;
#665    dimset = dapcomm->cdf.ddsroot->tree->dimnodes;
#669 int last = nclistlength(dimset) - 1;
#672     CDFnodedim1 = (CDFnode*)nclistget(dimset,i);
#673     CDFnodedim2 = (CDFnode*)nclistget(dimset,i+1);
#675 nclistset(dimset,i,(void*)dim2);
#676 nclistset(dimset,i+1,(void*)dim1);
#707    for(i=0;i<nclistlength(dimset);i++) {
#708 CDFnodedim = (CDFnode*)nclistget(dimset,i);
#725    for(i=0;i<nclistlength(dimset);i++) {
#726 CDFnodedim = (CDFnode*)nclistget(dimset,i);
#732    nclistfree(dimset);
#1329    NClistdimset = var->array.dimsetall;
#1330    for(i=0;i<nclistlength(dimset);i++) {
#1331 CDFnodecandidate = (CDFnode*)nclistget(dimset,i);
#1369getalldimsa(NClistdimsetNClistalldims)
#1372    for(i=0;i<nclistlength(dimset);i++) {
#1373 CDFnodedim = (CDFnode*)nclistget(dimset,i);
ncdap.h#99extern NCerror collectvardefdims(NCDAPCOMMONdrnoCDFnodevarNClistdimset);
ncgen.h#165        Dimset          dimset;     /* for NC_VAR/NC_FIELD/NC_ATT*/
ncgeny.c#2203     Dimset dimset;
#2212               dimset.ndims = count;
#2214     if(dimset.ndims > 0) {
#2217     dimset.dimsyms[i] = dsym;
#2219 (yyvsp[(1) - (2)].sym)->typ.dimset = dimset;
#2277 Dimset dimset;
#2286           dimset.ndims = count;
#2291         dimset.dimsyms[i] = dsym;
#2293     (yyvsp[(1) - (2)].sym)->typ.dimset = dimset;
odom.c#15newodometer(Dimsetdimset, size_t* startp, size_t* countp)
#19    ASSERT(dimset != NULL);
#20    ASSERT(dimset->ndims > 0);
#25    odom->rank = dimset->ndims;
#28 odom->declsize[i] = dimset->dimsyms[i]->dim.declsize;
#41newsubodometer(OdometeroriginDimsetdimset, int start, int stop)
#44    ASSERT(dimset != NULL);
#45    ASSERT(dimset->ndims > 0 && dimset->ndims >= stop);
semantics.c#658     if(tsym->typ.dimset.ndims > 0) {
#660         totaldimsize = crossproduct(&tsym->typ.dimset,0,rankfor(&tsym->typ.dimset));
#694 for(j=0;j<vsym->typ.dimset.ndims;j++) {
#697     if(vsym->typ.dimset.dimsyms[j]->dim.declsize == NC_UNLIMITED) {
#1082computeunlimitedsizes(Dimsetdimset, int dimindexDatalistdata, int ischar)
#1087    Symbolthisunlim = dimset->dimsyms[dimindex];
#1091    nextunlim = findunlimited(dimset,dimindex+1);
#1092    lastunlim = (nextunlim == dimset->ndims);
#1094    xproduct = crossproduct(dimset,dimindex+1,nextunlim);
#1117     computeunlimitedsizes(dimset,nextunlim,con->value.compoundv,ischar);
#1172 Dimsetdimset = &var->typ.dimset;
#1173 if(dimset->ndims == 0) continue; /* ignore scalars */
#1176 first = findunlimited(dimset,0);
#1177 if(first == dimset->ndims) continue; /* no unlimited dims */
#1179     computeunlimitedsizes(dimset,first,var->data,ischar);
#1187             computeunlimitedsizes(dimset,first,con->value.compoundv,ischar);
util.c#213hasunlimited(Dimsetdimset)
#216    for(i=0;i<dimset->ndims;i++) {
#217 Symboldim = dimset->dimsyms[i];
#225isunlimited0(Dimsetdimset)
#227   return (dimset->ndims > 0 && dimset->dimsyms[0]->dim.declsize == NC_UNLIMITED);
#234classicunlimited(Dimsetdimset)
#238    for(i=0;i<dimset->ndims;i++) {
#239 Symboldim = dimset->dimsyms[i];
#247isbounded(Dimsetdimset)
#250    for(i=0;i<dimset->ndims;i++) {
#251 Symboldim = dimset->dimsyms[i];
#591crossproduct(Dimsetdimset, int start, int stop)
#596 totalsize = totalsize * dimset->dimsyms[i]->dim.declsize;
#607prefixarraylength(Dimsetdimset, int last)
#609    return crossproduct(dimset,0,last+1);
#645findunlimited(Dimsetdimset, int start)
#647    for(;start<dimset->ndims;start++) {
#648 if(dimset->dimsyms[start]->dim.isunlimited)
#651    return dimset->ndims;
#660findlastunlimited(Dimsetdimset)
#663    for(i=dimset->ndims-1;i>=0;i--) {
#664 if(dimset->dimsyms[i]->dim.isunlimited)
#667    return dimset->ndims;
#674countunlimited(Dimsetdimset)
#677    for(count=0,i=dimset->ndims-1;i>=0;i--) {
#678 if(dimset->dimsyms[i]->dim.isunlimited)
util.h#22extern int hasunlimited(Dimsetdimset);
#23extern int classicunlimited(Dimsetdimset);
#24extern int isbounded(Dimsetdimset);
#53extern size_t crossproduct(Dimsetdimset, int start, int stop);
#54extern int findunlimited(Dimsetdimset, int start);
#55extern int findlastunlimited(Dimsetdimset);
#56extern int countunlimited(Dimsetdimset);
#67#define isunlimited(dimset,i) ((dimset)->dimsyms[i]->dim.isunlimited)
#68#define declsizefor(dimset,i) ((dimset)->dimsyms[i]->dim.declsize)
#69#define rankfor(dimset) ((dimset)->ndims)


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