Changeset 2569 in Sophya for trunk/SophyaLib/TArray/tarray.cc

Timestamp:

Jul 27, 2004, 1:44:24 PM (21 years ago)

Author:

ansari

Message:

Corrections bug apres modifs methods Add/Sub/Mul/DivCst(x,res) - Reza 27 Juillet 2004

File:

• trunk/SophyaLib/TArray/tarray.cc (modified) (1 diff)

trunk/SophyaLib/TArray/tarray.cc

@@ -305 +305 @@
   if (pack) {
     sa_size_t siz[BASEARRAY_MAXNDIMS];
-    for(int ksz=0; ksz<BASEARRAY_MAXNDIMS; ksz++) siz[ksz] = a.Size(ksz);
+    int ksz;
+    for(ksz=0; ksz<a.NbDimensions(); ksz++) siz[ksz] = a.Size(ksz);
+    for(ksz=a.NbDimensions(); ksz<BASEARRAY_MAXNDIMS; ksz++) siz[ksz] = 1;
     if (!UpdateSizes(a.NbDimensions(), siz, 1, 0, exmsg))  throw( ParmError(exmsg) );
+    SetMemoryMapping(a.GetMemoryMapping());
     mNDBlock.ReSize(totsize_, fzero);        
   }