Refs #225. Fixed a bug in GEMM OpenMP threading.

diff --git a/driver/others/blas_server_omp.c b/driver/others/blas_server_omp.c
index c567ed6..0a484f3 100644 (file)
--- a/driver/others/blas_server_omp.c
+++ b/driver/others/blas_server_omp.c
@@ -231,7 +231,10 @@ static void exec_threads(blas_queue_t *queue){
       release_flag=1;
     }
 
-    if (sa == NULL) sa = (void *)((BLASLONG)buffer + GEMM_OFFSET_A);
+    if (sa == NULL) {
+      sa = (void *)((BLASLONG)buffer + GEMM_OFFSET_A);
+      queue->sa=sa;
+    }
     
     if (sb == NULL) {
       if (!(queue -> mode & BLAS_COMPLEX)){