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

2013-07-15 09:56:19 +08:00
parent fd0c388681
commit 2a7503e563
1 changed files with 4 additions and 1 deletions
--- 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)){