-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathMORSMI.INC
286 lines (272 loc) · 10.2 KB
/
MORSMI.INC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
integer mo_rsmi_msk_rp_af_bt
integer mo_rsmi_msk_rp_run_bt
integer mo_rsmi_rec_inv_no_std
integer mo_rsmi_rec_inv_std
parameter (
& mo_rsmi_msk_rp_af_bt = bt1,
& mo_rsmi_msk_rp_run_bt = bt2)
parameter (
& mo_rsmi_rec_inv_no_std = 0,
& mo_rsmi_rec_inv_std = 1)
integer ca_iz_mo_rsmi_fg1, ca_iz_mo_rsmi_fg2
integer mo_rsmi_rp_cn, mo_rsmi_rp_msk, mo_rsmi_rec_inv
logical mo_rsmi_rec
common/ems_mo_rsmi_ct_vr_com/
& ca_iz_mo_rsmi_fg1, ca_iz_mo_rsmi_fg2,
& mo_rsmi_rp_cn, mo_rsmi_rp_msk, mo_rsmi_rec_inv,
& mo_rsmi_rec
integer mo_rsmi_nw_dvx_fwk_mx_n_rec
parameter (mo_rsmi_nw_dvx_fwk_mx_n_rec = 100)
integer nw_dvx_fwk_rec_n_si_it
integer nw_dvx_fwk_rec_n_dvx_it
integer nw_dvx_fwk_rec_dvx_it_lm
integer nw_dvx_fwk_i_rec_z
parameter (
& nw_dvx_fwk_rec_n_si_it = 1,
& nw_dvx_fwk_rec_n_dvx_it = nw_dvx_fwk_rec_n_si_it + 1,
& nw_dvx_fwk_rec_dvx_it_lm = nw_dvx_fwk_rec_n_dvx_it + 1,
& nw_dvx_fwk_i_rec_z = nw_dvx_fwk_rec_dvx_it_lm)
integer nw_dvx_fwk_rec_dvx_rao
integer nw_dvx_fwk_rec_dvx_rao_lm
integer nw_dvx_fwk_rl_rec_z
parameter (
& nw_dvx_fwk_rec_dvx_rao = 1,
& nw_dvx_fwk_rec_dvx_rao_lm = nw_dvx_fwk_rec_dvx_rao + 1,
& nw_dvx_fwk_rl_rec_z = nw_dvx_fwk_rec_dvx_rao_lm)
integer mo_rsmi_inv_mx_n_rec
parameter (mo_rsmi_inv_mx_n_rec = 100)
integer inv_rec_why
integer inv_rec_n_si_it
integer inv_rec_pre_n_eta
integer inv_rec_pre_n_ix
integer inv_rec_n_a_en
integer inv_rec_n_eta
integer inv_rec_n_ix
integer inv_i_rec_z
integer inv_rec_av_eta_dse
integer inv_rl_rec_z
parameter (
& inv_rec_why = 1,
& inv_rec_n_si_it = inv_rec_why + 1,
& inv_rec_pre_n_eta = inv_rec_n_si_it + 1,
& inv_rec_pre_n_ix = inv_rec_pre_n_eta + 1,
& inv_rec_n_a_en = inv_rec_pre_n_ix + 1,
& inv_rec_n_eta = inv_rec_n_a_en + 1,
& inv_rec_n_ix = inv_rec_n_eta + 1,
& inv_i_rec_z = inv_rec_n_ix)
parameter (
& inv_rec_av_eta_dse = 1,
& inv_rl_rec_z = inv_rec_av_eta_dse)
integer mo_rsmi_sing_bs_mx_n_rec
parameter (mo_rsmi_sing_bs_mx_n_rec = 100)
integer sing_bs_rec_n_si_it
integer sing_bs_rec_n_inv_sing
integer sing_bs_rec_z
parameter (
& sing_bs_rec_n_si_it = 1,
& sing_bs_rec_n_inv_sing = sing_bs_rec_n_si_it + 1,
& sing_bs_rec_z = sing_bs_rec_n_inv_sing)
integer mo_rsmi_reset_mx_n_rec
parameter (mo_rsmi_reset_mx_n_rec = 100)
integer reset_why_sing_bs
integer reset_why_op
parameter (
& reset_why_sing_bs = 0,
& reset_why_op = 1)
integer reset_rec_why
integer reset_rec_n_si_it
integer reset_rec_z
parameter (
& reset_rec_why = 1,
& reset_rec_n_si_it = reset_rec_why + 1,
& reset_rec_z = reset_rec_n_si_it)
integer mo_rsmi_re_pc_mx_n_rec
parameter (mo_rsmi_re_pc_mx_n_rec = 100)
integer re_pc_rec_why
integer re_pc_rec_n_si_it
integer re_pc_rec_z
parameter (
& re_pc_rec_why = 1,
& re_pc_rec_n_si_it = re_pc_rec_why + 1,
& re_pc_rec_z = re_pc_rec_n_si_it)
integer mo_rsmi_re_rhs_mx_n_rec
parameter (mo_rsmi_re_rhs_mx_n_rec = 100)
integer rq_re_rhs_no_rq_re_rhs
integer rq_re_rhs_reset
parameter (
& rq_re_rhs_no_rq_re_rhs = 0,
& rq_re_rhs_reset = 1)
integer re_rhs_rec_why
integer re_rhs_rec_n_si_it
integer re_rhs_rec_z
parameter (
& re_rhs_rec_why = 1,
& re_rhs_rec_n_si_it = re_rhs_rec_why + 1,
& re_rhs_rec_z = re_rhs_rec_n_si_it)
integer mo_rsmi_pv_er_mx_n_rec
parameter (mo_rsmi_pv_er_mx_n_rec = 100)
integer pv_er_rec_n_si_it
integer pv_er_i_rec_z
parameter (
& pv_er_rec_n_si_it = 1,
& pv_er_i_rec_z = pv_er_rec_n_si_it)
integer pv_er_rec_pv
integer pv_er_rec_rcp_alt_pv
integer pv_er_rec_pv_er
integer pv_er_rl_rec_z
parameter (
& pv_er_rec_pv = 1,
& pv_er_rec_rcp_alt_pv = pv_er_rec_pv + 1,
& pv_er_rec_pv_er = pv_er_rec_rcp_alt_pv + 1,
& pv_er_rl_rec_z = pv_er_rec_pv_er)
integer mo_rsmi_du_act_er_mx_n_rec
parameter (mo_rsmi_du_act_er_mx_n_rec = 100)
integer du_act_er_why_er
integer du_act_er_why_wg_sgn
parameter (
& du_act_er_why_er = 0,
& du_act_er_why_wg_sgn = 1)
integer du_act_er_rec_why
integer du_act_er_rec_n_si_it
integer du_act_er_i_rec_z
parameter (
& du_act_er_rec_why = 1,
& du_act_er_rec_n_si_it = du_act_er_rec_why + 1,
& du_act_er_i_rec_z = du_act_er_rec_n_si_it)
integer du_act_er_rec_du_act
integer du_act_er_rec_alt_du_act
integer du_act_er_rec_du_act_er
integer du_act_er_rl_rec_z
parameter (
& du_act_er_rec_du_act = 1,
& du_act_er_rec_alt_du_act = du_act_er_rec_du_act + 1,
& du_act_er_rec_du_act_er = du_act_er_rec_alt_du_act + 1,
& du_act_er_rl_rec_z = du_act_er_rec_du_act_er)
integer mo_rsmi_growth_mx_n_rec
parameter (mo_rsmi_growth_mx_n_rec = 1000)
integer growth_act_rp
integer growth_act_no
integer growth_act_refine_pv_c
integer growth_act_re_inv
integer growth_act_cg_tl
integer growth_act_mv_bd
integer growth_act_cg_act
integer growth_act_nr_growth
integer growth_f_act_ty
integer growth_l_act_ty
parameter (
& growth_act_rp = 0,
& growth_act_no = 1,
& growth_act_refine_pv_c = 2,
& growth_act_re_inv = 3,
& growth_act_cg_tl = 4,
& growth_act_mv_bd = 5,
& growth_act_cg_act = 6,
& growth_act_nr_growth = 7,
& growth_f_act_ty = 0,
& growth_l_act_ty = growth_act_nr_growth)
integer growth_rec_act
integer growth_rec_n_si_it
integer growth_rec_pv_r_n
integer growth_rec_vr_n
integer growth_rec_i_v
integer growth_i_rec_z
integer growth_rec_pv
integer growth_rec_aa
integer growth_rec_growth
integer growth_rec_rl_v
integer growth_rl_rec_z
parameter (
& growth_rec_act = 1,
& growth_rec_n_si_it = growth_rec_act + 1,
& growth_rec_pv_r_n = growth_rec_n_si_it + 1,
& growth_rec_vr_n = growth_rec_pv_r_n + 1,
& growth_rec_i_v = growth_rec_vr_n + 1,
& growth_i_rec_z = growth_rec_i_v)
parameter (
& growth_rec_pv = 1,
& growth_rec_aa = growth_rec_pv + 1,
& growth_rec_growth = growth_rec_aa + 1,
& growth_rec_rl_v = growth_rec_growth + 1,
& growth_rl_rec_z = growth_rec_rl_v)
integer mo_rsmi_n_nw_dvx_fwk, mo_rsmi_nw_dvx_fwk_n_rec
integer mo_rsmi_n_inv, mo_rsmi_inv_n_rec
integer mo_rsmi_n_reset, mo_rsmi_reset_n_rec
integer mo_rsmi_n_re_pc, mo_rsmi_re_pc_n_rec
integer mo_rsmi_n_re_rhs, mo_rsmi_re_rhs_n_rec
integer mo_rsmi_n_pv_er, mo_rsmi_pv_er_n_rec
integer mo_rsmi_n_du_act_er, mo_rsmi_du_act_er_n_rec
integer mo_rsmi_n_sing_bs, mo_rsmi_sing_bs_n_rec
integer mo_rsmi_n_growth, mo_rsmi_growth_n_rec
common/ems_mo_rsmi_n_rec_com/
& mo_rsmi_n_nw_dvx_fwk, mo_rsmi_nw_dvx_fwk_n_rec,
& mo_rsmi_n_inv, mo_rsmi_inv_n_rec,
& mo_rsmi_n_reset, mo_rsmi_reset_n_rec,
& mo_rsmi_n_re_pc, mo_rsmi_re_pc_n_rec,
& mo_rsmi_n_re_rhs, mo_rsmi_re_rhs_n_rec,
& mo_rsmi_n_pv_er, mo_rsmi_pv_er_n_rec,
& mo_rsmi_n_du_act_er, mo_rsmi_du_act_er_n_rec,
& mo_rsmi_n_sing_bs, mo_rsmi_sing_bs_n_rec,
& mo_rsmi_n_growth, mo_rsmi_growth_n_rec
logical mo_rsmi_nw_dvx_fwk_xa_rec
logical mo_rsmi_inv_xa_rec
logical mo_rsmi_reset_xa_rec
logical mo_rsmi_re_pc_xa_rec
logical mo_rsmi_re_rhs_xa_rec
logical mo_rsmi_pv_er_xa_rec
logical mo_rsmi_du_act_er_xa_rec
logical mo_rsmi_sing_bs_xa_rec
logical mo_rsmi_growth_xa_rec
common/ems_mo_rsmi_xa_rec_com/
& mo_rsmi_nw_dvx_fwk_xa_rec,
& mo_rsmi_inv_xa_rec,
& mo_rsmi_reset_xa_rec,
& mo_rsmi_re_pc_xa_rec,
& mo_rsmi_re_rhs_xa_rec,
& mo_rsmi_pv_er_xa_rec,
& mo_rsmi_du_act_er_xa_rec,
& mo_rsmi_sing_bs_xa_rec,
& mo_rsmi_growth_xa_rec
integer mo_rsmi_nw_dvx_fwk_i_rec(nw_dvx_fwk_i_rec_z,
& mo_rsmi_nw_dvx_fwk_mx_n_rec)
double precision mo_rsmi_nw_dvx_fwk_rl_rec(nw_dvx_fwk_rl_rec_z,
& mo_rsmi_nw_dvx_fwk_mx_n_rec)
integer mo_rsmi_inv_i_rec(inv_i_rec_z,
& mo_rsmi_inv_mx_n_rec)
double precision mo_rsmi_inv_rl_rec(inv_rl_rec_z,
& mo_rsmi_inv_mx_n_rec)
integer mo_rsmi_reset_rec(reset_rec_z,
& mo_rsmi_reset_mx_n_rec)
integer mo_rsmi_re_pc_rec(re_pc_rec_z,
& mo_rsmi_re_pc_mx_n_rec)
integer mo_rsmi_re_rhs_rec(re_rhs_rec_z,
& mo_rsmi_re_rhs_mx_n_rec)
integer mo_rsmi_pv_er_i_rec(pv_er_i_rec_z,
& mo_rsmi_pv_er_mx_n_rec)
double precision mo_rsmi_pv_er_rl_rec(pv_er_rl_rec_z,
& mo_rsmi_pv_er_mx_n_rec)
integer mo_rsmi_du_act_er_i_rec(du_act_er_i_rec_z,
& mo_rsmi_du_act_er_mx_n_rec)
double precision mo_rsmi_du_act_er_rl_rec(du_act_er_rl_rec_z,
& mo_rsmi_du_act_er_mx_n_rec)
integer mo_rsmi_growth_i_rec(growth_i_rec_z,
& mo_rsmi_growth_mx_n_rec)
double precision mo_rsmi_growth_rl_rec(growth_rl_rec_z,
& mo_rsmi_growth_mx_n_rec)
integer mo_rsmi_sing_bs_rec(sing_bs_rec_z,
& mo_rsmi_sing_bs_mx_n_rec)
common/ems_mo_rsmi_rec_com/
& mo_rsmi_nw_dvx_fwk_rl_rec,
& mo_rsmi_pv_er_rl_rec,
& mo_rsmi_du_act_er_rl_rec,
& mo_rsmi_growth_rl_rec,
& mo_rsmi_inv_rl_rec,
& mo_rsmi_nw_dvx_fwk_i_rec,
& mo_rsmi_inv_i_rec,
& mo_rsmi_reset_rec,
& mo_rsmi_re_pc_rec,
& mo_rsmi_re_rhs_rec,
& mo_rsmi_pv_er_i_rec,
& mo_rsmi_du_act_er_i_rec,
& mo_rsmi_growth_i_rec,
& mo_rsmi_sing_bs_rec