WSJT-X/sec_midn.F90

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

subroutine sleep_msec(n)

#ifdef CVF
  use dflib
#endif

#ifdef CVF
  call sleepqq(n)
#else
  call usleep(1000*n)
#endif

  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)`

			`#ifdef CVF`
			`use dflib`
			`#endif`

			`#ifdef CVF`
			`call sleepqq(n)`
			`#else`
			`call usleep(1000*n)`
			`#endif`

			`return`
			`end subroutine sleep_msec`