-
Notifications
You must be signed in to change notification settings - Fork 2
/
EMSFI.INC
161 lines (152 loc) · 6.18 KB
/
EMSFI.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
integer ems_wr_fi_fmt_vers_n
integer ems_wr_fi_fmt_rv_n
parameter (
& ems_wr_fi_fmt_vers_n = 1,
& ems_wr_fi_fmt_rv_n = 0)
integer ems_fi_cmt_ky_n_ch
integer ems_fi_mps_ml_nm_ky_n_ch
integer ems_fi_fmt_ky_n_ch
integer ems_fi_mx_ky_n_ch
integer ems_fi_mn_ky_n_ch
integer ems_fi_n_r_ky_n_ch
integer ems_fi_n_c_ky_n_ch
integer ems_fi_n_mtx_el_ky_n_ch
integer ems_fi_r_ky_n_ch
integer ems_fi_c_ky_n_ch
integer ems_fi_mtx_ky_n_ch
integer ems_fi_c_bd_ky_n_ch
integer ems_fi_r_bd_ky_n_ch
integer ems_fi_c_co_ky_n_ch
integer ems_fi_nm_ky_n_ch
integer ems_fi_ob_fn_cs_ky_n_ch
integer ems_fi_r_co_ky_n_ch
integer ems_fi_pwl_ky_n_ch
integer ems_fi_bs_ky_n_ch
integer ems_fi_bs_in_alt_fmt_ky_n_ch
integer ems_fi_e_lin_ky_n_ch
integer ems_fi_ky_mx_n_ch
parameter (
& ems_fi_cmt_ky_n_ch = 1,
& ems_fi_mps_ml_nm_ky_n_ch = 4,
& ems_fi_fmt_ky_n_ch = 15,
& ems_fi_mx_ky_n_ch = 8,
& ems_fi_mn_ky_n_ch = 8,
& ems_fi_n_r_ky_n_ch = 6,
& ems_fi_n_c_ky_n_ch = 9,
& ems_fi_n_mtx_el_ky_n_ch = 17,
& ems_fi_r_ky_n_ch = 4,
& ems_fi_c_ky_n_ch = 7,
& ems_fi_mtx_ky_n_ch = 6,
& ems_fi_c_bd_ky_n_ch = 13,
& ems_fi_r_bd_ky_n_ch = 10,
& ems_fi_c_co_ky_n_ch = 12,
& ems_fi_nm_ky_n_ch = 5,
& ems_fi_ob_fn_cs_ky_n_ch = 18,
& ems_fi_r_co_ky_n_ch = 9,
& ems_fi_pwl_ky_n_ch = 16,
& ems_fi_bs_ky_n_ch = 5,
& ems_fi_bs_in_alt_fmt_ky_n_ch = 27,
& ems_fi_e_lin_ky_n_ch = 10,
& ems_fi_ky_mx_n_ch = ems_fi_bs_in_alt_fmt_ky_n_ch)
&
integer ml_nm_mx_n_ch
integer ml_nm_mx_n_rl
parameter (
& ml_nm_mx_n_ch = 32,
& ml_nm_mx_n_rl = (ml_nm_mx_n_ch+7)/8)
integer ems_fi_iz_com_fg1, ems_fi_iz_com_fg2
common/ems_ems_fi_iz_com_fg_com/
& ems_fi_iz_com_fg1, ems_fi_iz_com_fg2
integer ems_fi_mx_li_ln
parameter (ems_fi_mx_li_ln = 80)
character*(ems_fi_mx_li_ln) ems_fi_li
common/ems_ems_fi_li_com/ems_fi_li
character*(ems_fi_cmt_ky_n_ch) ems_fi_cmt_ky_1
character*(ems_fi_mps_ml_nm_ky_n_ch) ems_fi_mps_ml_nm_ky
character*(ems_fi_cmt_ky_n_ch) ems_fi_cmt_ky_2
character*(ems_fi_cmt_ky_n_ch) ems_fi_cmt_ky_3
character*(ems_fi_fmt_ky_n_ch) ems_fi_fmt_ky
character*(ems_fi_mx_ky_n_ch) ems_fi_mx_ky
character*(ems_fi_mn_ky_n_ch) ems_fi_mn_ky
character*(ems_fi_n_r_ky_n_ch) ems_fi_n_r_ky
character*(ems_fi_n_c_ky_n_ch) ems_fi_n_c_ky
character*(ems_fi_n_mtx_el_ky_n_ch) ems_fi_n_mtx_el_ky
character*(ems_fi_r_ky_n_ch) ems_fi_r_ky
character*(ems_fi_c_ky_n_ch) ems_fi_c_ky
character*(ems_fi_mtx_ky_n_ch) ems_fi_mtx_ky
character*(ems_fi_c_bd_ky_n_ch) ems_fi_c_bd_ky
character*(ems_fi_r_bd_ky_n_ch) ems_fi_r_bd_ky
character*(ems_fi_c_co_ky_n_ch) ems_fi_c_co_ky
character*(ems_fi_nm_ky_n_ch) ems_fi_nm_ky
character*(ems_fi_ob_fn_cs_ky_n_ch) ems_fi_ob_fn_cs_ky
character*(ems_fi_r_co_ky_n_ch) ems_fi_r_co_ky
character*(ems_fi_pwl_ky_n_ch) ems_fi_pwl_ky
character*(ems_fi_bs_ky_n_ch) ems_fi_bs_ky
character*(ems_fi_bs_in_alt_fmt_ky_n_ch) ems_fi_bs_in_alt_fmt_ky
character*(ems_fi_e_lin_ky_n_ch) ems_fi_e_lin_ky
common/ems_ems_fi_ky_com/
& ems_fi_cmt_ky_1, ems_fi_cmt_ky_2, ems_fi_cmt_ky_3,
& ems_fi_mps_ml_nm_ky,
& ems_fi_fmt_ky, ems_fi_mx_ky, ems_fi_mn_ky,
& ems_fi_n_r_ky, ems_fi_n_c_ky, ems_fi_n_mtx_el_ky,
& ems_fi_r_ky, ems_fi_c_ky,
& ems_fi_mtx_ky, ems_fi_c_bd_ky, ems_fi_r_bd_ky,
& ems_fi_c_co_ky, ems_fi_nm_ky,
& ems_fi_ob_fn_cs_ky, ems_fi_r_co_ky, ems_fi_pwl_ky,
& ems_fi_bs_ky, ems_fi_bs_in_alt_fmt_ky, ems_fi_e_lin_ky
character*8 ems_fi_ml_nm
common/ems_ems_fi_ml_nm_com/ems_fi_ml_nm
integer rd_ml_fi_rn_mps
integer rd_ml_fi_rn_basi
parameter (
& rd_ml_fi_rn_mps = 0,
& rd_ml_fi_rn_basi = 1)
integer wr_ml_fi_rn_bcdo
integer wr_ml_fi_rn_baso
parameter (
& wr_ml_fi_rn_bcdo = 0,
& wr_ml_fi_rn_baso = 1)
integer ems_fi_io_mtx_bt
integer ems_fi_io_c_lb_bt
integer ems_fi_io_c_ub_bt
integer ems_fi_io_r_lb_bt
integer ems_fi_io_r_ub_bt
integer ems_fi_io_c_co_bt
integer ems_fi_io_r_co_bt
integer ems_fi_io_c_nm_bt
integer ems_fi_io_r_nm_bt
integer ems_fi_io_pwl_bt
integer ems_fi_io_ct_vr_bt
integer ems_fi_io_bs_bt
integer ems_fi_io_bs_in_alt_fmt_bt
parameter (
& ems_fi_io_mtx_bt = bt1,
& ems_fi_io_c_lb_bt = bt2,
& ems_fi_io_c_ub_bt = bt3,
& ems_fi_io_r_lb_bt = bt4,
& ems_fi_io_r_ub_bt = bt5,
& ems_fi_io_c_co_bt = bt6,
& ems_fi_io_r_co_bt = bt7,
& ems_fi_io_c_nm_bt = bt8,
& ems_fi_io_r_nm_bt = bt9,
& ems_fi_io_pwl_bt = bt10,
& ems_fi_io_ct_vr_bt = bt11,
& ems_fi_io_bs_bt = bt12,
& ems_fi_io_bs_in_alt_fmt_bt = bt13)
integer ems_fi_io_c_bd_msk
integer ems_fi_io_r_bd_msk
integer ems_fi_io_bd_msk
integer ems_fi_io_co_msk
integer ems_fi_io_nm_msk
integer ems_fi_io_mn_ml_msk
parameter (
& ems_fi_io_c_bd_msk = ems_fi_io_c_lb_bt + ems_fi_io_c_ub_bt,
& ems_fi_io_r_bd_msk = ems_fi_io_r_lb_bt + ems_fi_io_r_ub_bt,
& ems_fi_io_bd_msk = ems_fi_io_c_bd_msk + ems_fi_io_r_bd_msk,
& ems_fi_io_co_msk = ems_fi_io_c_co_bt + ems_fi_io_r_co_bt,
& ems_fi_io_nm_msk = ems_fi_io_c_nm_bt + ems_fi_io_r_nm_bt,
& ems_fi_io_mn_ml_msk =
& ems_fi_io_mtx_bt + ems_fi_io_bd_msk + ems_fi_io_c_co_bt)
integer ems_fi_io_msk
common/ems_ems_fi_i_ct_vr_com/
& ems_fi_io_msk