WSJT-X/getfile.F90

!----------------------------------------------------- getfile
subroutine getfile(fname,len)
  character*(*) fname
  character*80 fname80
  parameter (NSMAX=60*96000)          !Samples per 60 s file
  integer*2 id(4,NSMAX)               !46 MB: raw data from Linrad timf2
  common/datcom/nutc,newdat2,id,fname80,nlen

  fname80=fname
  nlen=len
  newdat2=1

  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 17:07:54 +00:00			`!----------------------------------------------------- getfile`
			`subroutine getfile(fname,len)`
			`character() fname`
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-14 00:44:34 +00:00			`character*80 fname80`
			`parameter (NSMAX=60*96000) !Samples per 60 s file`
			`integer*2 id(4,NSMAX) !46 MB: raw data from Linrad timf2`
			`common/datcom/nutc,newdat2,id,fname80,nlen`
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 17:07:54 +00: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-14 00:44:34 +00:00			`fname80=fname`
			`nlen=len`
			`newdat2=1`
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 17:07:54 +00:00
			`return`
			`end subroutine getfile`