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