Adding octave test.

Prince781 · Dec 15, 2017 · 262efd5 · 262efd5
1 parent 79a0543
commit 262efd5
Showing 1 changed file with 20 additions and 0 deletions.
diff --git a/tests/octave/sgemm.m b/tests/octave/sgemm.m
@@ -0,0 +1,20 @@
+% computes GFLOPS
+
+N = 2;
+trials = 10;
+while N <= 16384
+    elapsedTime = 0;
+    for i = 1:(1 + trials)
+            A = single(rand(N,N));
+            B = single(rand(N,N));
+            start = clock();
+            C = A * B;
+            if (i > 1)
+                elapsedTime += etime(clock(), start);
+            endif
+    endfor
+    gFlops = 2*N*N*N/(elapsedTime * 1e+9);
+    printf('OCTAVE SGEMM[n=%d]: elapsed=%f s GFLOPS=%f\n', 
+        N, elapsedTime / trials, gFlops);
+    N = N * 2;
+end