1real function sec_midn()
2  sec_midn=secnds(0.0)
3  return
4end function sec_midn
5
6subroutine sleep_msec(n)
7
8  call usleep(1000*n)
9
10  return
11end subroutine sleep_msec
12