mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-08-30 20:53:42 +02:00
22 lines
378 B
Fortran
22 lines
378 B
Fortran
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
|