WSJT-X/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. - Remove alsa/oss from configure.ac and regenerate configure file. - Note it is MAP65 not WSJT. - rfile3a.f90 -> rfile3a.F90 for gfortran preprocessor. - Comment out compiler option that does not work on gfortran for now. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@1151 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2009-04-23 15:02:43 -04: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`