From e822694a565f56adcab1726854d5a1830d807032 Mon Sep 17 00:00:00 2001
From: v1j4y <vijay.gopal.c@gmail.com>
Date: Tue, 9 Aug 2022 16:11:40 +0200
Subject: [PATCH] Protected qmckldgemm stuff with ifdefs.

---
 org/qmckl_blas.org | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/org/qmckl_blas.org b/org/qmckl_blas.org
index 9f82862..d42cc5f 100644
--- a/org/qmckl_blas.org
+++ b/org/qmckl_blas.org
@@ -889,7 +889,9 @@ integer function qmckl_dgemm_f(context, TransA, TransB, &
      m, n, k, alpha, A, LDA, B, LDB, beta, C, LDC) &
      result(info)
   use qmckl
+#ifdef HAVE_LIBQMCKLDGEMM
   use qmckl_dgemm_tiled_module
+#endif
   implicit none
   integer(qmckl_context), intent(in)  :: context
   character             , intent(in)  :: TransA, TransB
@@ -943,9 +945,7 @@ integer function qmckl_dgemm_f(context, TransA, TransB, &
      return
   endif
 
-  !call dgemm(transA, transB, int(m,4), int(n,4), int(k,4), &
-  !     alpha, A, int(LDA,4), B, int(LDB,4), beta, C, int(LDC,4))
-  
+#ifdef HAVE_LIBQMCKLDGEMM
   ! Copy A to A1
   allocate(A1(k,m))
   do j=1,m
@@ -984,6 +984,11 @@ integer function qmckl_dgemm_f(context, TransA, TransB, &
   end do
 
   deallocate(A1,B1,C1)
+#else
+  call dgemm(transA, transB, int(m,4), int(n,4), int(k,4), &
+       alpha, A, int(LDA,4), B, int(LDB,4), beta, C, int(LDC,4))
+#endif
+  
 
 end function qmckl_dgemm_f
     #+end_src