mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-08-30 15:53:42 +02: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
|