fix data races in blas_server and level3_thread

Author: kumaraditya303

driver/level3/level3_thread.c

@@ -98,7 +98,11 @@
 #endif
 
 typedef struct {
+#ifdef HAVE_C11
+  _Atomic
+#else
   volatile
+#endif
    BLASLONG working[MAX_CPU_NUMBER][CACHE_LINE_SIZE * DIVIDE_RATE_MAX];
 } job_t;
 

driver/others/blas_server.c

@@ -631,7 +631,13 @@ int blas_thread_init(void){
      exec_blas       ... returns after jobs are finished.
 */
 
+#if   defined(USE_PTHREAD_LOCK)
+static pthread_mutex_t   exec_queue_lock = PTHREAD_MUTEX_INITIALIZER;
+#elif defined(USE_PTHREAD_SPINLOCK)
+static pthread_spinlock_t exec_queue_lock = 0;
+#else
 static BLASULONG exec_queue_lock = 0;
+#endif
 
 int exec_blas_async(BLASLONG pos, blas_queue_t *queue){
 
@@ -652,7 +658,7 @@ int exec_blas_async(BLASLONG pos, blas_queue_t *queue){
   fprintf(STDERR, "Exec_blas_async is called. Position = %d\n", pos);
 #endif
 
-  blas_lock(&exec_queue_lock);
+  LOCK_COMMAND(&exec_queue_lock);
 
     while (queue) {
       queue -> position  = pos;
@@ -717,7 +723,7 @@ int exec_blas_async(BLASLONG pos, blas_queue_t *queue){
 
     }
 
-    blas_unlock(&exec_queue_lock);
+    UNLOCK_COMMAND(&exec_queue_lock);
 
 #ifdef SMP_DEBUG
     fprintf(STDERR, "Done(Number of threads = %2ld).\n", exec_count);