Mercurial > hg > minc-tools

changeset 47:eb100e2fca95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Modified creation of dimensions and dim width variables to create attribute MIspacing with value MI_REGULAR if no dimensions or value MI_IRREGULAR if dimensions.
author neelin <neelin>
date Tue, 15 Dec 1992 15:31:41 +0000
parents 9b28acf45ca2
children 7037bb9bca7c
files libsrc/minc_convenience.c
diffstat 1 files changed, 13 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/libsrc/minc_convenience.c
+++ b/libsrc/minc_convenience.c
@@ -23,7 +23,7 @@
 ---------------------------------------------------------------------------- */
 
 #ifndef lint
-static char rcsid[] = "$Header: /private-cvsroot/minc/libsrc/minc_convenience.c,v 1.10 1992-12-15 09:54:21 neelin Exp $ MINC (MNI)";
+static char rcsid[] = "$Header: /private-cvsroot/minc/libsrc/minc_convenience.c,v 1.11 1992-12-15 15:31:41 neelin Exp $ MINC (MNI)";
 #endif
 
 #include <minc_private.h>
@@ -340,7 +340,12 @@
    MI_CHK_ERR(miattputstr(cdfid, varid, MIversion, MI_CURRENT_VERSION))
 
    /* Dimension attributes */
-   MI_CHK_ERR(miattputstr(cdfid, varid, MIspacing, MI_REGULAR))
+   if (ndims==0) {
+      MI_CHK_ERR(miattputstr(cdfid, varid, MIspacing, MI_REGULAR))
+   }
+   else {
+      MI_CHK_ERR(miattputstr(cdfid, varid, MIspacing, MI_IRREGULAR))
+   }
    if (STRINGS_EQUAL(name, MItime))
       MI_CHK_ERR(miattputstr(cdfid, varid, MIalignment, MI_START))
    else
@@ -399,6 +404,12 @@
    MI_CHK_ERR(miattputstr(cdfid, varid, MIvarid, MI_STDVAR))
    MI_CHK_ERR(miattputstr(cdfid, varid, MIvartype, MI_DIM_WIDTH))
    MI_CHK_ERR(miattputstr(cdfid, varid, MIversion, MI_CURRENT_VERSION))
+   if (ndims==0) {
+      MI_CHK_ERR(miattputstr(cdfid, varid, MIspacing, MI_REGULAR))
+   }
+   else {
+      MI_CHK_ERR(miattputstr(cdfid, varid, MIspacing, MI_IRREGULAR))
+   }
    MI_CHK_ERR(miattputstr(cdfid, varid, MIfiltertype, MI_SQUARE))
 
    MI_RETURN(varid);