WSJT-X/rfile3a.f90

!----------------------------------------------------- rfile3a
subroutine rfile3a(infile,ibuf,n,ierr)

  character*(*) infile
  integer*1 ibuf(n)

  open(10,file=infile,form='binary',status='old',err=998)
  read(10,end=998) ibuf
  ierr=0
  go to 999
998 ierr=1002
999 close(10)
  return
end subroutine rfile3a
Additional needed files git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@336 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2007-01-11 21:48:10 +00:00			`!----------------------------------------------------- rfile3a`
			`subroutine rfile3a(infile,ibuf,n,ierr)`

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() infile`
Additional needed files git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@336 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2007-01-11 21:48:10 +00:00			`integer*1 ibuf(n)`

			`open(10,file=infile,form='binary',status='old',err=998)`
			`read(10,end=998) ibuf`
			`ierr=0`
			`go to 999`
			`998 ierr=1002`
Basic waterfall now works. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@346 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2007-01-12 19:56:45 +00:00			`999 close(10)`
			`return`
Additional needed files git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@336 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2007-01-11 21:48:10 +00:00			`end subroutine rfile3a`