Changeset 1223 for branches/4.2/bindings/idl/NeXusIDL-API.c

Timestamp:

08/04/09 14:21:26 (3 years ago)

Author:

Stuart Campbell

Message:

fixes #170

File:

• branches/4.2/bindings/idl/NeXusIDL-API.c (modified) (3 diffs)

branches/4.2/bindings/idl/NeXusIDL-API.c

@@ -1997 +1997 @@
   int iHandle, status;
   int rank,  datatype, n;
-  int start[NX_MAXRANK], size[NX_MAXRANK], dim[NX_MAXRANK];
+  IDL_MEMINT start[NX_MAXRANK], size[NX_MAXRANK], dim[NX_MAXRANK];
+  int istart[NX_MAXRANK], isize[NX_MAXRANK];
   IDL_LONG *stDim, *szDim;
   IDL_ARRAY_DIM dimension;
@@ -2050 +2051 @@
   for(n = 0; n < rank; n++){
     start[n] = stDim[rank -n  -1];
+    istart[n] = stDim[rank -n  -1];
     size[n] = szDim[rank -n  -1];
+    isize[n] = szDim[rank -n  -1];
   }
 
@@ -2137 +2140 @@
 
   else {
-          status = NXgetslab (hHandle, data_buffer, start,size);
+          status = NXgetslab (hHandle, data_buffer, istart, isize);
           if(status == NX_ERROR)
                 {