Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
rdoutfl.f
Go to the documentation of this file.
1  subroutine read_outfile (iunit, newrec, timeflag, ipoint,
2  + ibufsize, ttime, value, ierr)
3 c
4 c-----Description-------------------------------------------------------
5 c
6 c Purpose: This subroutine reads one record from the SCREAMER output
7 c parameter file. Based on the time flag (timeflag) and
8 c the pointer to the appropriate parameter (ipoint), the
9 c appropriate ttime and value are returned to the calling
10 c routine.
11 c Author: K.L.Fugelso, 1265 (SEA), 12/89
12 c
13 c Calls: None
14 c Called by: FILVALS, IDRVALS, PLTVALS, PRTVALS, TABVALS, UFOVALS
15 c
16 c Modified 3/7/95, Mark Kiefer, change if test on newrec to be
17 c F77 compliant
18 c 2014-02-06 RBS: Changed real*4 to real
19 c
20 c-----Input Parameters--------------------------------------------------
21 c
22  integer iunit, ! Logical unit number of SCREAMER param file
23  + timeflag, ! Whole/Half step flag
24  + ipoint, ! Pointer to specific parameter
25  + ibufsize ! Size of record to read (# of words)
26  integer newrec
27 c
28 c-----Output Parameters-------------------------------------------------
29 c
30  real ttime, ! Time value of record read
31  + value ! Value of parameter specified by ipoint
32  integer ierr ! Error flag
33 c
34 c-----Include Files-----------------------------------------------------
35 c
36  include 'zdemmax.h'
37  include 'zdemparm.h'
38 c
39 c-----Local Variables---------------------------------------------------
40 c
41  real buffer(maxout*2+2)
42 c
43 c-----Subroutine Body---------------------------------------------------
44 c
45  if (newrec .ne. 0) then
46  read (iunit,iostat=ierr) (buffer(i),i=1,ibufsize)
47  endif
48  if (ierr .eq. 0) then
49  if (timeflag .eq. half_step) then
50  ttime = buffer(1)
51  value = buffer(ipoint*2+1)
52  elseif (timeflag .eq. whole_step) then
53  ttime = buffer(2)
54  value = buffer(ipoint*2+2)
55  endif
56  endif
57 c
58 c-----Return to Calling Routine-----------------------------------------
59 c
60  return
61  end
subroutine read_outfile(iunit, newrec, timeflag, ipoint, ibufsize, ttime, value, ierr)
Definition: rdoutfl.f:1
c *****************************************************************************c Common blocks for SCREAMER output and tabling c maxout
Definition: zdemout.h:40