diff --git a/src/utils/c_funcs.c b/src/utils/c_funcs.c new file mode 100644 index 00000000..5b7035fb --- /dev/null +++ b/src/utils/c_funcs.c @@ -0,0 +1,6 @@ +#include + +void usleep_c(int s) +{ + usleep((useconds_t) s); +} diff --git a/src/utils/c_functions.f90 b/src/utils/c_functions.f90 index 52c01d12..425aafd6 100644 --- a/src/utils/c_functions.f90 +++ b/src/utils/c_functions.f90 @@ -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