Skip to content
Snippets Groups Projects
Commit 04854a8f authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 04/12/2018: add modi_tools_c to interface with C functions (only sleep for the moment)

parent 330b4ec4
No related branches found
No related tags found
No related merge requests found
!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
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment