mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-12-22 20:34:58 +01:00
Fixed usleep
This commit is contained in:
parent
1120d572fa
commit
edd2276b75
6
src/utils/c_funcs.c
Normal file
6
src/utils/c_funcs.c
Normal file
@ -0,0 +1,6 @@
|
|||||||
|
#include <unistd.h>
|
||||||
|
|
||||||
|
void usleep_c(int s)
|
||||||
|
{
|
||||||
|
usleep((useconds_t) s);
|
||||||
|
}
|
@ -2,7 +2,7 @@ module c_functions
|
|||||||
use iso_c_binding
|
use iso_c_binding
|
||||||
|
|
||||||
interface
|
interface
|
||||||
subroutine usleep_c(us) bind (C,name="usleep")
|
subroutine usleep_c(us) bind (C,name="usleep_c")
|
||||||
use iso_c_binding
|
use iso_c_binding
|
||||||
integer(c_int), value :: us
|
integer(c_int), value :: us
|
||||||
end subroutine usleep_c
|
end subroutine usleep_c
|
||||||
|
Loading…
Reference in New Issue
Block a user