Changeset 294 for IO_handling
- Timestamp:
- 10/11/04 16:31:49 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
IO_handling/trunk/ppio/cdat-4.0b3-ppio_v0.3.patch
r293 r294 3104 3104 diff -Naur cdat-4.0b3/libcdms/src/cdunif/cdunifpp/cdunifpp_data.c cdat-4.0b3-pp/libcdms/src/cdunif/cdunifpp/cdunifpp_data.c 3105 3105 --- cdat-4.0b3/libcdms/src/cdunif/cdunifpp/cdunifpp_data.c 1970-01-01 01:00:00.000000000 +0100 3106 +++ cdat-4.0b3-pp/libcdms/src/cdunif/cdunifpp/cdunifpp_data.c 2004-11- 09 17:01:47.000000000 +00003106 +++ cdat-4.0b3-pp/libcdms/src/cdunif/cdunifpp/cdunifpp_data.c 2004-11-10 15:32:23.000000000 +0000 3107 3107 @@ -0,0 +1,185 @@ 3108 3108 +/* … … 3181 3181 + srcoffset=0; 3182 3182 + destoffset=0; 3183 + for (idim= ndim-1 ; idim>=0; idim--) {3183 + for (idim=0; idim < ndim ; idim++) { 3184 3184 + srcoffset *= size[idim]; 3185 3185 + destoffset *= count[idim]; … … 3196 3196 + 3197 3197 + /* increment indices */ 3198 + for (idim= 0; idim < ndim ; idim++) {3198 + for (idim=ndim-1 ; idim>=0; idim--) { 3199 3199 + indices[idim]++; 3200 3200 + if (indices[idim]==count[idim]) … … 3203 3203 + break; /* no internal carry */ 3204 3204 + } 3205 + if (idim ==ndim)3205 + if (idim<0) 3206 3206 + carryout=1; 3207 3207 + }
Note: See TracChangeset
for help on using the changeset viewer.