mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-11-07 05:53:37 +01:00
20 lines
357 B
Fortran
20 lines
357 B
Fortran
module c_functions
|
|
use iso_c_binding
|
|
|
|
interface
|
|
subroutine usleep_c(us) bind (C,name="usleep")
|
|
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
|
|
call usleep_c(int(us,c_int))
|
|
end
|