qp2/src/utils/c_functions.f90

module c_functions
  use iso_c_binding

  interface
    subroutine usleep_c(us) bind (C,name="usleep_c")
      use iso_c_binding
      integer(c_int), value :: us
    end subroutine usleep_c
  end interface

end module

subroutine usleep(us)
  use c_functions
  use iso_c_binding
  implicit none
  integer, intent(in) :: us
  integer(c_int) :: u
  u = us
  call usleep_c(u)
end