diff --git a/org/qmckl_blas.org b/org/qmckl_blas.org
index 4add69e..d6ebe9b 100644
--- a/org/qmckl_blas.org
+++ b/org/qmckl_blas.org
@@ -2827,9 +2827,20 @@ printf("qmckl_transpose ok\n");
 
      #+end_src
 
+* Utilities
+
+  Trick to make MKL efficient on AMD
+  
+  #+begin_src c :tabgle (eval c)
+int mkl_serv_intel_cpu_true() {
+  return 1;
+}
+  #+end_src
+
 * End of files                                                     :noexport:
 
 
+
   #+begin_src c :tangle (eval h_private_type)
 #endif
   #+end_src