WSJT-X/getfile.F90

!----------------------------------------------------- getfile
subroutine getfile(fname,len)
  character*(*) fname

  include 'datcom.f90'
  include 'gcom2.f90'

  fname80=fname
  nlen=len
  newdat2=1
  ierr=0

  return
end subroutine getfile
Split Audio.f90 into separate routines git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/WSJT/trunk@10 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2005-12-23 12:07:54 -05:00			`!----------------------------------------------------- getfile`
			`subroutine getfile(fname,len)`
			`character() fname`
It's basically working with multicast data now ... git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@396 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2007-06-21 13:38:30 -04:00
			`include 'datcom.f90'`
Many fixes to make it work on Linux. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@388 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2007-06-13 13:05:57 -04:00			`include 'gcom2.f90'`
Split Audio.f90 into separate routines git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/WSJT/trunk@10 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2005-12-23 12:07:54 -05:00
File opening and disk reading has been rationalized git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@350 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2007-01-13 19:44:34 -05:00			`fname80=fname`
			`nlen=len`
			`newdat2=1`
Many fixes to make it work on Linux. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@388 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2007-06-13 13:05:57 -04:00			`ierr=0`
Split Audio.f90 into separate routines git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/WSJT/trunk@10 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2005-12-23 12:07:54 -05:00
			`return`
			`end subroutine getfile`