LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-30 23:25:39 +01:00
Code Releases Activity

Fixed usleep

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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);
}

2
src/utils/c_functions.f90
View File

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