Changeset 1098 in Sophya for trunk/Eval/Speed/tompCXX.cc

Timestamp:

Jul 26, 2000, 5:10:00 PM (25 years ago)

Author:

ansari

Message:

Extension test OpenMP 2 (tompCXX.cc) - Reza 26/7/2000

File:

• trunk/Eval/Speed/tompCXX.cc (modified) (3 diffs)

trunk/Eval/Speed/tompCXX.cc

@@ -37 +37 @@
 PrtTim("End of Init ");
 
-if (*arg[1] == 'p') { 
+if (*arg[1] == 'P') { 
   printf("Calling MultOMP2(N=%d, Size= %d) \n", N, M);
-  for(i=0; i<N; i++) MultOMP2(N, M, v1, v2, v3);
+  MultOMP2(N, M, v1, v2, v3);
 }
 else if (*arg[1] == 'p') { 
@@ -78 +78 @@
 int i;
 #pragma omp parallel default(shared)
+ {
 #pragma omp parallel for
 for(i=0; i<N; i++)
@@ -83 +84 @@
   for(k=0; k<n; k++)
      v3[k] = v1[k] * v2[k];
+ }
 }