lib/sec_midn.f90

real function sec_midn()
  sec_midn=secnds(0.0)
  return
end function sec_midn

subroutine sleep_msec(n)

  call usleep(1000*n)

  return
end subroutine sleep_msec
- Set prop svn:eol-style native on files. 2009-04-23 19:02:43 +00:00			`real function sec_midn()`
			`sec_midn=secnds(0.0)`
			`return`
			`end function sec_midn`

			`subroutine sleep_msec(n)`

			`call usleep(1000*n)`

			`return`
			`end subroutine sleep_msec`