Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
clsoutbf.f
Go to the documentation of this file.
1  subroutine clear_outbuf
2 c
3 c-------Description-----------------------------------------------------
4 c
5 c Source File : clsoutbf.f
6 c
7 c Author/Date : Kelley Fugelso, 1265 (SEA) 01/90
8 c
9 c Purpose : This subroutine the three arrays used to process
10 c output requests.
11 c
12 c Called by : subroutine csvvals, subroutine filvals,
13 c subroutine pffvals, subroutine sfcvals,
14 c subroutine tabvals, subroutine ufovals
15 c
16 c Calls : None
17 c
18 c-------Include Files---------------------------------------------------
19 c
20  include 'zdemmax.h'
21  include 'zdemout.h'
22 c
23 c-------Input Parameters------------------------------------------------
24 c
25 c NONE
26 c
27 c-------Output Parameters-----------------------------------------------
28 c
29 c NONE
30 c
31 c-------Subroutine Body-------------------------------------------------
32 c
33 c Clear the INDICES array and the OUTDATA array
34 c
35  do i = 1, maxout
36  indices(i) = 0
37  do j = 1, max_plot_points
38  outdata(j,i) = 0.0
39  enddo
40  enddo
41 c
42 c Clear the TIMEOUT array
43 c
44  do i = 1, max_plot_points
45  timeout(i,1) = 0.0
46  timeout(i,2) = 0.0
47  enddo
48 c
49 c-------End of Subroutine-----------------------------------------------
50 c
51  return
52  end
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character timeout
Definition: zdemout.h:59
subroutine clear_outbuf
Definition: clsoutbf.f:1
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & outdata
Definition: zdemout.h:59
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character indices
Definition: zdemout.h:59
c *****************************************************************************c Common blocks for SCREAMER output and tabling c maxout
Definition: zdemout.h:40