rfile.f90

subroutine rfile(lu,ibuf,n,ierr)

  integer*1 ibuf(n)

  call cs_lock('rfile')
  read(lu,end=998) ibuf
  ierr=0
  go to 999
998 ierr=1002
999 continue
  call cs_unlock
  return
end subroutine rfile
- Set prop svn:eol-style native on files. 2009-04-23 19:02:43 +00:00			`subroutine rfile(lu,ibuf,n,ierr)`

			`integer*1 ibuf(n)`

Finished(?) inserting mutex lockouts. 2009-07-26 16:31:11 +00:00			`call cs_lock('rfile')`
- Set prop svn:eol-style native on files. 2009-04-23 19:02:43 +00:00			`read(lu,end=998) ibuf`
			`ierr=0`
			`go to 999`
			`998 ierr=1002`
Finished(?) inserting mutex lockouts. 2009-07-26 16:31:11 +00:00			`999 continue`
			`call cs_unlock`
			`return`
- Set prop svn:eol-style native on files. 2009-04-23 19:02:43 +00:00			`end subroutine rfile`