Changeset 515 in Sophya for trunk/SophyaLib/NTools/fftserver.cc

Timestamp:

Oct 26, 1999, 2:44:44 PM (26 years ago)

Author:

ansari

Message:

Portage SGI-CC Reza 26/10/99

File:

• trunk/SophyaLib/NTools/fftserver.cc (modified) (6 diffs)

trunk/SophyaLib/NTools/fftserver.cc

@@ -92 +92 @@
   checkint_cfft(l);
   float* foo = new float[2*l];
-  for (int i=0;i<l;i++){
+  int i;
+  for (i=0;i<l;i++){
     foo[2*i]=inout[i].real();
     foo[2*i+1]=inout[i].imag();
@@ -98 +99 @@
   cfftf_(&l, foo, ws_cfft);
   inout[0]=complex<float> (foo[0],foo[1]);
-  for (int i=1;i<l;i++) inout[l-i]= complex<float> (foo[2*i], foo[2*i+1]);
+  for (i=1;i<l;i++) inout[l-i]= complex<float> (foo[2*i], foo[2*i+1]);
   delete[] foo;
 }
@@ -106 +107 @@
   checkint_cdfft(l);
   double* foo=new double[2*l];
-  for (int i=0;i<l;i++){
+  int i;
+  for (i=0;i<l;i++){
     foo[2*i]=inout[i].real();
     foo[2*i+1]=inout[i].imag();
@@ -112 +114 @@
   cdfftf_(&l, foo, ws_cdfft);
   inout[0]=complex<double> (foo[0],foo[1]);
-  for (int i=1;i<l;i++) {
+  for (i=1;i<l;i++) {
     inout[l-i]= complex<double> (foo[2*i],foo[2*i+1]);
   }
@@ -134 +136 @@
   checkint_cfft(l);
   float* foo = new float[2*l];
-  for (int i=0;i<l;i++){
+  int i;
+  for (i=0;i<l;i++){
     foo[2*i]=inout[i].real();
     foo[2*i+1]=inout[i].imag();
   }
   cfftf_(&l, foo, ws_cfft);
-  for (int i=0;i<l;i++) inout[i]=complex<float> (foo[2*i],foo[2*i+1]);
+  for (i=0;i<l;i++) inout[i]=complex<float> (foo[2*i],foo[2*i+1]);
   delete[] foo;
 }
@@ -147 +150 @@
   checkint_cdfft(l);
   double* foo = new double[2*l];
-  for (int i=0;i<l;i++){
+  int i;
+  for (i=0;i<l;i++){
     foo[2*i]=inout[i].real();
     foo[2*i+1]=inout[i].imag();
   }
   cdfftf_(&l, foo, ws_cdfft);
-  for (int i=0;i<l;i++) inout[i]=complex<double> (foo[2*i],foo[2*i+1]);
+  for (i=0;i<l;i++) inout[i]=complex<double> (foo[2*i],foo[2*i+1]);
   delete[] foo;
 }