2 + ibufsize, ttime, value, ierr)
45 if (newrec .ne. 0)
then
46 read (iunit,iostat=ierr) (buffer(i),i=1,ibufsize)
49 if (timeflag .eq. half_step)
then
51 value = buffer(ipoint*2+1)
52 elseif (timeflag .eq. whole_step)
then
54 value = buffer(ipoint*2+2)
subroutine read_outfile(iunit, newrec, timeflag, ipoint, ibufsize, ttime, value, ierr)
c *****************************************************************************c Common blocks for SCREAMER output and tabling c maxout