femwind/fortran/module_msleep.f90

   1 module module_msleep
   2
   3 contains
   4
   5 subroutine call_msleep(m)
   6     ! sleep m miliseconds
   7     use, intrinsic :: iso_c_binding, only: c_long
   8
   9     implicit none
  10
  11     interface
  12         ! Correctly declare the C function as a subroutine in Fortran
  13         subroutine msleep(msec) bind(C, name="msleep")
  14             import :: c_long
  15             integer(c_long), value :: msec
  16         end subroutine msleep
  17     end interface
  18
  19     integer :: m                    ! argument
  20     integer(c_long) :: msec_c_long  ! local
  21
  22     ! Call the C subroutine
  23     msec_c_long = int(m, kind=c_long)
  24     call msleep(msec_c_long) ! Sleep for 1000 milliseconds or 1 second
  25 end subroutine call_msleep
  26
  27 end module module_msleep