9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-11-07 05:53:37 +01:00

Fixed usleep

This commit is contained in:
Anthony Scemama 2019-07-09 17:33:44 +02:00
parent 1120d572fa
commit edd2276b75
2 changed files with 7 additions and 1 deletions

6
src/utils/c_funcs.c Normal file
View File

@ -0,0 +1,6 @@
#include <unistd.h>
void usleep_c(int s)
{
usleep((useconds_t) s);
}

View File

@ -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