From edd2276b75fb24a54e36ff86bce8f72a0ba98597 Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Tue, 9 Jul 2019 17:33:44 +0200
Subject: [PATCH] Fixed usleep

---
 src/utils/c_funcs.c       | 6 ++++++
 src/utils/c_functions.f90 | 2 +-
 2 files changed, 7 insertions(+), 1 deletion(-)
 create mode 100644 src/utils/c_funcs.c

diff --git a/src/utils/c_funcs.c b/src/utils/c_funcs.c
new file mode 100644
index 00000000..5b7035fb
--- /dev/null
+++ b/src/utils/c_funcs.c
@@ -0,0 +1,6 @@
+#include <unistd.h>
+
+void usleep_c(int s)
+{
+  usleep((useconds_t) s);
+}
diff --git a/src/utils/c_functions.f90 b/src/utils/c_functions.f90
index 52c01d12..425aafd6 100644
--- a/src/utils/c_functions.f90
+++ b/src/utils/c_functions.f90
@@ -2,7 +2,7 @@ module c_functions
   use iso_c_binding
 
   interface
-    subroutine usleep_c(us) bind (C,name="usleep")
+    subroutine usleep_c(us) bind (C,name="usleep_c")
       use iso_c_binding
       integer(c_int), value :: us
     end subroutine usleep_c