Changeset 768 in Sophya for trunk/SophyaProg/Tests/tfft.cc

Timestamp:

Mar 2, 2000, 6:19:19 PM (26 years ago)

Author:

ansari

Message:

Reorganisation - PeidaInit() -> SophyaInit() - Reza 2/3/2000

File:

• trunk/SophyaProg/Tests/tfft.cc (modified) (5 diffs)

trunk/SophyaProg/Tests/tfft.cc

@@ +1 @@
+#include "machdefs.h"
+
 #include <math.h>
 #include <iostream.h>
 
+#include "nbrandom.h"
 #include "fftpserver.h"
 #include "fftmserver.h"
-#include "sambainit.h"
+#include "fftwserver.h"
+#include "ntoolsinit.h"
 
 #include "timing.h"
 
+
+static bool inp_typ_random = false ;  // true -> random input
 
 template <class T>
@@ -37 +43 @@
   cout << " DBG/4 outc " << outc.NElts()  << endl; 
 
-  for (int i=0; i<num ; i++){
+  if (inp_typ_random) 
+    for (int i=0; i<num ; i++){
+      ino[i] = in[i] = GauRnd(0., 1.);
+      inc[i] = complex<T> (in[i], 0.);
+    }
+  else for (int i=0; i<num ; i++){
     ino[i] = in[i] = 0.5 + cos(2*M_PI*(double)i/(double)num) 
                          + 2*sin(4*M_PI*(double)i/(double)num);
@@ -158 +169 @@
 {
 
-  PeidaInit();
+  SophyaInit();
   InitTim();   // Initializing the CPU timer
 
   if (narg < 4) {
-    cout << "tfft/ args error - \n  Usage tfft size p/P/M f/d [NPrtFC NPrt] \n" 
-         << " p=FFTPackTest  P=FFTPack, M=FFTMayer, f=float, d=double " << endl;
+    cout << "tfft/ args error - \n  Usage tfft size px/Px/Mx/Wx f/d [NPrtFC NPrt] \n" 
+         << " p=FFTPackTest  P=FFTPack, M=FFTMayer, W= FFTWServer" 
+         << " x=0 -> Random input - f=float, d=double " << endl;
     exit(0);
   }
@@ -169 +181 @@
   FFTPackServer fftp;
   FFTMayerServer fftm;
+
+  FFTWServer fftw;
+
+  inp_typ_random = false;
+  if (arg[2][1] == '0')  inp_typ_random = true;
 
   int sz = atoi(arg[1]);
@@ -177 +194 @@
   FFTServerInterface * ffts;
   if (*arg[2] == 'M')  ffts = fftm.Clone();
+  else if (*arg[2] == 'W')  ffts = fftw.Clone();
   else ffts = fftp.Clone();