Changeset 1400 in Sophya for trunk/SophyaLib/NTools/fftservintf.cc

Timestamp:

Feb 13, 2001, 3:29:38 PM (25 years ago)

Author:

ansari

Message:

Modifs-debug FFTServerInterface FFTPackServer - Reza 13/2/2001

File:

• trunk/SophyaLib/NTools/fftservintf.cc (modified) (2 diffs)

trunk/SophyaLib/NTools/fftservintf.cc

@@ -164 +164 @@
     }
   sa_size_t sz[BASEARRAY_MAXNDIMS];
-  for(k=0; k<in.NbDimensions(); k++) 
-    sz[k] = in.Size(k)/2+1; 
-  //    sz[k] = (in.Size(k)%2 != 0) ? in.Size(k)/2+1 : in.Size(k)/2;
-
+  // 
+  if (ndg1 > 1) {
+    sz[0] = in.Size(0)/2+1; 
+    for(k=1; k<in.NbDimensions(); k++) 
+      sz[k] = in.Size(k); 
+  }
+  else {
+    for(k=0; k<BASEARRAY_MAXNDIMS; k++)  sz[k] = 1; 
+    sz[in.MaxSizeKA()] = in.Size(in.MaxSizeKA())/2+1;
+    //    sz[k] = in.Size(k)/2+1; 
+    //    sz[k] = (in.Size(k)%2 != 0) ? in.Size(k)/2+1 : in.Size(k)/2;
+  }
   out.ReSize(in.NbDimensions(), sz);
 
@@ -198 +206 @@
   sa_size_t sz[BASEARRAY_MAXNDIMS];
   if (ndg1 > 1) {
-    for(k=0; k<in.NbDimensions(); k++) 
-      sz[k] = in.Size(k)*2-1;
+    sz[0] = 2*in.Size(0)-1;
+    for(k=1; k<in.NbDimensions(); k++) 
+      sz[k] = in.Size(k);
+    //      sz[k] = in.Size(k)*2-1;
   }
   else {