Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
zdemclr.f
Go to the documentation of this file.
1  subroutine clrarry
2 c
3 c Subroutine created to clear all common arrays prior to run
4 c to prevent potential data from being used from prior run
5 c
6 cc include the files with the various keywords and integer flags.
7 c
8  include 'zdemparm.h'
9 c
10 c include the files specifying the array dimensions and the common blocks.
11 c
12  include 'zdemmax.h'
13  include 'zdemcomm.h'
14  include 'zdemwork.h'
15 
16 
17  do i=1,max_elem_parms
18  do j=1,max_blocks
19  do k=1,max_branches
20  pin(i,j,k)= 0.0
21  end do
22  end do
23  end do
24 
25  do i=1,max_elem_parms
26  do j=1,max_blocks
27  do k=1,max_branches
28  iin(i,j,k)= 0
29  end do
30  end do
31  end do
32 
33  do i=1,max_var_parms
34  do j=1,max_var_elem
35  var_model(i,j)= 0.0
36  end do
37  end do
38 
39  do i=1,max_var_elem
40  ivar_type(i) = 0
41  num_var_parms(i) = 0
42  ivar_block(i) = 0
43  ivar_block_num(i) = 0
44  num_tablem_vals(i) = 0
45  end do
46 
47  do i=1,max_init_cond
48  value_init(i) = 0.0
49  end do
50 
51  do i=1,max_volt_source
52  ivoltf(i) = 0
53  num_voltf_parms(i) = 0
54  end do
55 
56  do i=1,max_volt_func_parms
57  do j=1,max_volt_source
58  voltf_parms(i,j) = 0.0
59  end do
60  end do
61 
62  do i=1,max_branches
63  ivbranch_end(i) = 0
64  nbk(i) = 0
65  icbranch_end(i) = 0
66  itypcend(i) = 0
67  end do
68 
69  do i=1,max_curr_source
70  icurrf(i) = 0
71  num_currf_parms(i) = 0
72  end do
73 
74  do i=1,max_curr_func_parms
75  do j=1,max_curr_source
76  currf_parms(i,j) = 0.0
77  end do
78  end do
79 
80  do i=1,max_trline
81  itrl_type(i) = 0
82  end do
83 
84  do i=1,max_mitl
85  imitl_type(i) = 0
86  end do
87 
88  do i=1,max_tablem_vals
89  do j=1,max_var_elem
90  tablem_vals(i,j) = 0.0
91  end do
92  end do
93 
94  do i=1,max_nodes
95  do j=1,max_branches
96  v(i,j) = 0.0
97  vold(i,j) = 0.0
98  vn(i,j) = 0.0
99  zir(i,j) = 0.0
100  zirn(i,j) = 0.0
101  zirold(i,j) = 0.0
102  zib(i,j) = 0.0
103  g(i,j) = 0.0
104  c(i,j) = 0.0
105  rr(i,j) = 0.0
106  gdot(i,j) = 0.0
107  rrdot(i,j) = 0.0
108  zlrechk(i,j) = 0.0
109  cechk(i,j) = 0.0
110  iflg(i,j) = 0
111  end do
112  end do
113 
114 
115  do i=1,max_branches
116  vsour(i) = 0.0
117  nbe(i) = 0.0
118  nr(i) = 0.0
119  nadd_array(i) = 0.0
120  end do
121 
122  do i=1,max_blocks
123  do j=1,max_branches
124  do k=1,max_uservars
125  uservars(i,j,k) = 0.0
126  end do
127  end do
128  end do
129 
130  do i=1,2
131  do j=1,max_branches
132  indexb(i,j) = 0
133  end do
134  end do
135 
136  do i=1,3
137  do j=1,max_var_elem
138  indexv(i,j) = 0
139  end do
140  end do
141 
142 c works below
143  do i=1,2
144  do j=1,max_volt_source
145  indexvs(i,j) = 0
146  end do
147  end do
148 
149  do i=1,2
150  do j=1,max_curr_source
151  indexcs(i,j) = 0
152  end do
153  end do
154 
155  do i=1,5
156  do j=1,max_mitl
157  indexmitl(i,j) = 0
158  end do
159  end do
160 
161  do i=1,5
162  do j=1,max_transformer
163  indextrnf(i,j) = 0
164  end do
165  end do
166 
167  do i=1,max_volt_source
168  lastvoltf_time(i) = 0.0
169  end do
170 
171  do i=1,max_curr_source
172  lastcurrf_time(i) = 0.0
173  end do
174 
175  do i=1,max_var_elem
176  lasttabm_time(i) = 0.0
177  end do
178 
179 
180  end subroutine
subroutine clrarry
Definition: zdemclr.f:1
c *****************************************************************************c Various format statements for read_screamer_data output c To get these into made format to be characters c for each line c
Definition: zdemfmt.h:7