Changeset 2440 in Sophya for trunk/SophyaProg/Tests/tpipe.cc

Timestamp:

Oct 2, 2003, 11:59:27 AM (22 years ago)

Author:

ansari

Message:

Correction de la logique de verification du flot de donnees ds tpipe.cc - Reza 02/10/2003

File:

• trunk/SophyaProg/Tests/tpipe.cc (modified) (3 diffs)

trunk/SophyaProg/Tests/tpipe.cc

@@ -62 +62 @@
   if (proc_or_thread == 'T') cout << " ----> avec Threads " << endl;
   else cout << " ----> avec fork() / process  " << endl;
-  cout << " -- NSample= " << NSample << " NBlk1=" << NBlk2
+  cout << " -- NSample= " << NSample << " NBlk1=" << NBlk1
        << " NBlk2=" << NBlk2 << endl;
   cout << " ============================================================\n" << endl;
@@ -160 +160 @@
   int nwait = 0;
   cout << " ====> fonction read_frpipe : START read from pipe ... " << endl;
+  int kkr = -1;
   for(int k=0; k<NSample; k+=NBlk2) {
     for(int ii=0; ii<NBlk2; ii++) d[ii] = -2.;
@@ -177 +178 @@
     }
     ns += nrd;
-    int kkr = d[0];
-    for(int i=1; i<nrd; i++) {
+    for(int i=0; i<nrd; i++) {
+      if ((k+i)%NBlk1 == 0)  { kkr = d[i]; continue; }
       double xp = cos((k+i)*DeltaX)+log((k+i)*DeltaX*100.+0.1);
-      if (i == kkr) xp *= 3.;
+      if (((k+i)%NBlk1) == kkr) xp *= 3.;
       if (fabs(d[i]-xp) > 1.e-39)  nerr++ ;
     }