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
Forgot to add this file. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@459 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2007-07-02 21:53:19 +00:00			`real function sec_midn()`
			`sec_midn=secnds(0.0)`
			`return`
			`end function sec_midn`

			`subroutine sleep_msec(n)`

Changed compile-time flag from "Win32" to "CVF", and a few other changes to enable compiling MAP65.EXE under Windows, using gcc and g95. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@594 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2007-12-21 18:40:47 +00:00			`#ifdef CVF`
Forgot to add this file. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@459 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2007-07-02 21:53:19 +00:00			`use dflib`
			`#endif`

Changed compile-time flag from "Win32" to "CVF", and a few other changes to enable compiling MAP65.EXE under Windows, using gcc and g95. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@594 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2007-12-21 18:40:47 +00:00			`#ifdef CVF`
Forgot to add this file. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@459 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2007-07-02 21:53:19 +00:00			`call sleepqq(n)`
			`#else`
Changed compile-time flag from "Win32" to "CVF", and a few other changes to enable compiling MAP65.EXE under Windows, using gcc and g95. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@594 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2007-12-21 18:40:47 +00:00			`call usleep(1000*n)`
Forgot to add this file. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@459 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2007-07-02 21:53:19 +00:00			`#endif`

			`return`
			`end subroutine sleep_msec`