From 9694173a652f3084ca8ce7c1f493969e28899968 Mon Sep 17 00:00:00 2001
From: "J.A. de Jong - Redu-Sone B.V., ASCEE V.O.F" <j.a.dejong@ascee.nl>
Date: Tue, 19 Oct 2021 11:30:39 +0200
Subject: [PATCH] Bugfix in fft, set Blas vendor to openblas

---
 CMakeLists.txt    | 2 ++
 lasp/c/lasp_fft.c | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/CMakeLists.txt b/CMakeLists.txt
index 7f874e8..8cd7597 100644
--- a/CMakeLists.txt
+++ b/CMakeLists.txt
@@ -37,6 +37,8 @@ else()
 endif()
 
 if(LASP_USE_BLAS)
+    # link openblas
+    set(BLA_VENDOR OpenBLAS)
     find_package(BLAS REQUIRED)
 endif()
 
diff --git a/lasp/c/lasp_fft.c b/lasp/c/lasp_fft.c
index 46eeec5..310897d 100644
--- a/lasp/c/lasp_fft.c
+++ b/lasp/c/lasp_fft.c
@@ -215,7 +215,7 @@ void Fft_fft_single(const Fft* fft,const vd* timedata,vc* result) {
 
     /* For an even fft, the imaginary part of the Nyquist frequency
      * bin equals zero.*/
-    if(likely(nfft%2 == 0)) {
+    if(islikely(nfft%2 == 0)) {
         result_ptr[nfft+1] = 0;
     }
     check_overflow_vx(fft->fft_work);