From 6a53e44e9bed0bf6aa40f24c1fc13a25889ef727 Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Tue, 4 Jul 2023 01:43:44 +0200
Subject: [PATCH] Fast MKL on AMD

---
 src/ezfio_files/NEED        | 1 +
 src/ezfio_files/ezfio.irp.f | 7 ++++++-
 src/utils/c_functions.f90   | 7 ++++++-
 3 files changed, 13 insertions(+), 2 deletions(-)

diff --git a/src/ezfio_files/NEED b/src/ezfio_files/NEED
index d06d604c..1766924f 100644
--- a/src/ezfio_files/NEED
+++ b/src/ezfio_files/NEED
@@ -1,2 +1,3 @@
 mpi
 zmq
+utils
diff --git a/src/ezfio_files/ezfio.irp.f b/src/ezfio_files/ezfio.irp.f
index 4f53b173..e18b2378 100644
--- a/src/ezfio_files/ezfio.irp.f
+++ b/src/ezfio_files/ezfio.irp.f
@@ -7,6 +7,8 @@ BEGIN_PROVIDER [ character*(1024), ezfio_filename ]
 
   PROVIDE mpi_initialized
 
+  integer :: i
+
   ! Get the QPACKAGE_INPUT environment variable
   call getenv('QPACKAGE_INPUT',ezfio_filename)
   if (ezfio_filename == '') then
@@ -44,11 +46,14 @@ BEGIN_PROVIDER [ character*(1024), ezfio_filename ]
 END_PROVIDER
 
 BEGIN_PROVIDER [ character*(1024), ezfio_work_dir ]
+ use c_functions
  implicit none
  BEGIN_DOC
  ! EZFIO/work/
  END_DOC
- call ezfio_set_work_empty(.False.)
+ logical :: b
+ b = mkl_serv_intel_cpu_true() /= 1
+ call ezfio_set_work_empty(b)
  ezfio_work_dir = trim(ezfio_filename)//'/work/'
 END_PROVIDER
 
diff --git a/src/utils/c_functions.f90 b/src/utils/c_functions.f90
index 65d4ad62..a9c8900b 100644
--- a/src/utils/c_functions.f90
+++ b/src/utils/c_functions.f90
@@ -57,6 +57,12 @@ module c_functions
      end subroutine sscanf_sd_c
   end interface
 
+  interface
+    integer(kind=c_int) function mkl_serv_intel_cpu_true() bind(C)
+      use iso_c_binding
+    end function
+  end interface
+
 contains
 
   integer function atoi(a)
@@ -131,4 +137,3 @@ subroutine usleep(us)
   call usleep_c(u)
 end subroutine usleep
 
-