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