From d1bb7ae144d499d9db554c51926e52aebb332228 Mon Sep 17 00:00:00 2001
From: ultramn <dchapm2@umbc.edu>
Date: Sat, 17 Dec 2016 21:32:47 -0800
Subject: Fixed a bug with dclapack.

---
 dave/dclapack_test.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'dave/dclapack_test.c')

diff --git a/dave/dclapack_test.c b/dave/dclapack_test.c
index 38ae651..b0667ef 100644
--- a/dave/dclapack_test.c
+++ b/dave/dclapack_test.c
@@ -11,7 +11,7 @@ int main()
     float Ainv[ORDER][ORDER];
     float Prod[ORDER][ORDER];
 
-    int i, j, n = 12;
+    int i, j, n = 3;
     srand(7779);
 
     for(i=0; i<n; i++) {
@@ -24,6 +24,7 @@ int main()
         INV(A,Ainv,n);
     }
 
+    PRINT(A,n,n);
     PRINT(Ainv,n,n);
     MUL(A,Ainv,Prod,n,n,n);
     PRINT(Prod,n,n);
-- 
cgit v1.2.3