WSJT-X/libm65/rfile3a.f90

subroutine rfile3a(infile,ibuf,n,fcenter,ierr)

  character*(*) infile
  integer*8 ibuf(n)
  real*8 fcenter

  open(10,file=infile,access='stream',status='old',err=998)
  read(10,end=998) (ibuf(i),i=1,n/8),fcenter
  ierr=0
  go to 999
998 ierr=1002
999 close(10)
  return
end subroutine rfile3a
Set properties for native eol style and the "Rev" keyword. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@2464 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2012-05-22 17:09:48 +00:00			`subroutine rfile3a(infile,ibuf,n,fcenter,ierr)`

			`character() infile`
			`integer*8 ibuf(n)`
			`real*8 fcenter`

			`open(10,file=infile,access='stream',status='old',err=998)`
			`read(10,end=998) (ibuf(i),i=1,n/8),fcenter`
			`ierr=0`
			`go to 999`
			`998 ierr=1002`
			`999 close(10)`
			`return`
			`end subroutine rfile3a`