-
Notifications
You must be signed in to change notification settings - Fork 2
/
SLAPCS.INC
106 lines (99 loc) · 4.21 KB
/
SLAPCS.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
CM
integer eta_fi_p_a_os_p_eta_grp
integer eta_fi_p_a_os_p_eta_v
integer eta_fi_p_a_os_p_eta_ix
integer eta_fi_p_a_os_p_eta_rec
integer eta_fi_p_a_rec_z
parameter (
& eta_fi_p_a_os_p_eta_grp = 0,
& eta_fi_p_a_os_p_eta_v = 1,
& eta_fi_p_a_os_p_eta_ix = 2,
& eta_fi_p_a_os_p_eta_rec = 3,
& eta_fi_p_a_rec_z = eta_fi_p_a_os_p_eta_rec + 1)
c cp_o_eta_fi_p_a_rec_z in EMSP.INC is identical to
c eta_fi_p_a_rec_z and is made to avoid having to include
c SLAPCS.INC in EMSP.INC just to get this value.
integer rl_si_da_os_du_act
integer rl_si_da_os_aa
integer rl_si_da_os_tl_pr_ifs
integer rl_si_da_rec_z
parameter (
& rl_si_da_os_du_act = 0,
& rl_si_da_os_aa = 1,
& rl_si_da_os_tl_pr_ifs = 2,
& rl_si_da_rec_z = rl_si_da_os_tl_pr_ifs + 1)
integer bs_cg_os_vr_t_en_bs
integer bs_cg_os_vr_t_lv_bs
integer bs_cg_rec_z
parameter (
& bs_cg_os_vr_t_en_bs = 0,
& bs_cg_os_vr_t_lv_bs = 1,
& bs_cg_rec_z = bs_cg_os_vr_t_lv_bs + 1)
c integer i_si_da_os_si_it_n
c integer i_si_da_os_fm_prcs_n
c integer i_si_da_os_vr_t_en_bs
c integer i_si_da_os_vr_t_lv_bs
c integer i_si_da_os_n_el
c integer i_si_da_os_n_cdd_r
c integer i_si_da_rec_z
c parameter (
c & i_si_da_os_si_it_n = 0,
c & i_si_da_os_fm_prcs_n = i_si_da_os_si_it_n + 1,
c & i_si_da_os_vr_t_en_bs = i_si_da_os_fm_prcs_n + 1,
c & i_si_da_os_vr_t_lv_bs = i_si_da_os_vr_t_en_bs + 1,
c & i_si_da_os_n_el = i_si_da_os_vr_t_lv_bs + 1,
c & i_si_da_os_n_cdd_r = i_si_da_os_n_el + 1,
c & i_si_da_rec_z = i_si_da_os_n_cdd_r + 1)
integer eta_grp_os_eta_grp_ty
integer eta_grp_os_sto_eta_v
integer eta_grp_os_mx_n_el
integer eta_grp_os_mx_n_eta
integer eta_grp_os_n_eta
integer eta_grp_os_f_si_it_n
integer eta_grp_os_n_v
integer eta_grp_os_mx_n_v
integer eta_grp_os_n_ix
integer eta_grp_os_mx_n_ix
integer eta_grp_os_n_rec
integer eta_grp_os_mx_n_rec
integer eta_grp_os_hdl_v
integer eta_grp_os_hdl_ix
integer eta_grp_os_hdl_rec
c integer eta_grp_os_hdl_bs_da
c integer eta_grp_os_hdl_cdd_r_ix
c integer eta_grp_os_hdl_rl_si_da
c integer eta_grp_os_hdl_i_si_da
parameter (
& eta_grp_os_eta_grp_ty = 0,
& eta_grp_os_sto_eta_v = eta_grp_os_eta_grp_ty + 1,
& eta_grp_os_mx_n_eta = eta_grp_os_sto_eta_v + 1,
& eta_grp_os_mx_n_el = eta_grp_os_mx_n_eta + 1,
& eta_grp_os_f_si_it_n = eta_grp_os_mx_n_el + 1,
& eta_grp_os_n_eta = eta_grp_os_f_si_it_n + 1,
& eta_grp_os_n_v = eta_grp_os_n_eta + 1,
& eta_grp_os_mx_n_v = eta_grp_os_n_v + 1,
& eta_grp_os_n_ix = eta_grp_os_mx_n_v + 1,
& eta_grp_os_mx_n_ix = eta_grp_os_n_ix + 1,
& eta_grp_os_n_rec = eta_grp_os_mx_n_ix + 1,
& eta_grp_os_mx_n_rec = eta_grp_os_n_rec + 1,
& eta_grp_os_hdl_v = eta_grp_os_mx_n_rec + 1,
& eta_grp_os_hdl_ix = eta_grp_os_hdl_v + hdl_z,
& eta_grp_os_hdl_rec = eta_grp_os_hdl_ix + hdl_z)
c & eta_grp_os_hdl_bs_da = eta_grp_os_hdl_rec + hdl_z,
c & eta_grp_os_hdl_cdd_r_ix = eta_grp_os_hdl_bs_da + hdl_z,
c & eta_grp_os_hdl_rl_si_da = eta_grp_os_hdl_cdd_r_ix + hdl_z,
c & eta_grp_os_hdl_i_si_da = eta_grp_os_hdl_rl_si_da + hdl_z)
integer rsmi_eta_grp_ty
c integer parlp_eta_grp_ty
integer n_eta_grp_ty
parameter (
& rsmi_eta_grp_ty = 1,
c & parlp_eta_grp_ty = rsmi_eta_grp_ty + 1,
& n_eta_grp_ty = rsmi_eta_grp_ty)
integer rsmi_eta_grp_rec_z
integer parlp_eta_grp_rec_z
integer mx_eta_grp_rec_z
parameter (
& rsmi_eta_grp_rec_z = ((eta_grp_os_hdl_v + 3*hdl_z+1)/2)*2,
& parlp_eta_grp_rec_z = ((eta_grp_os_hdl_v + 7*hdl_z+1)/2)*2,
& mx_eta_grp_rec_z = parlp_eta_grp_rec_z)