From 04854a8f96ec26218be17fbef57fb043da383f1e Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 4 Dec 2018 15:10:44 +0100
Subject: [PATCH] Philippe 04/12/2018: add modi_tools_c to interface with C
 functions (only sleep for the moment)

---
 src/MNH/tools_c.f90 | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 src/MNH/tools_c.f90

diff --git a/src/MNH/tools_c.f90 b/src/MNH/tools_c.f90
new file mode 100644
index 000000000..224b55f4b
--- /dev/null
+++ b/src/MNH/tools_c.f90
@@ -0,0 +1,33 @@
+!MNH_LIC Copyright 2018-2018 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!MNH_LIC for details. version 1.
+!-----------------------------------------------------------------
+
+!#############
+module modi_tools_c
+!#############
+!
+!!    Purpose
+!!    -------
+!
+!     The Purpose of this module is to provide interfaces
+!     to C functions
+!
+!    Authors
+!    -------
+!
+!     P. Wautelet 04/12/2018
+!
+  use, intrinsic :: iso_c_binding
+
+  implicit none
+
+  interface
+    subroutine sleep_c(ksec) bind(c, name="sleep")
+      import C_INT
+      integer(kind=C_INT), VALUE :: ksec
+    end subroutine sleep_c
+  end interface
+
+end module modi_tools_c
-- 
GitLab