1subroutine sleep_msec(n)
2  call usleep(n*1000)
3  return
4end subroutine sleep_msec
5