216
Appendix A. Computer Program Listing and
Instructions
HI(111)=20
L0(lll)=20
GO TO 190
G
58
60
HK13) «0
G
59
L0U3) =0
G
60
HIU7) =0
G
61
ΗΠ57) =0
G
62
ΗΠ101) =0
G
63
HI (111) = 0
G
64
LO(111)=0
GO TO 190
65
70
IF ( ·ΝΟΤ· OPTIMF) GO TO 80
G
66
HK15) =12
G
67
10(15) =12
G
68
HK59) =12
G
69
HK113) =12
G
70
LO(113)=12
GO TO 190
G
71
80
HK1S) =0
G
72
L0U5) =0
G
73
HI(59) =0
G
74
HK113) =0
G
75
L0(113)=0
GO TO 190
G
76
90
IF ( .NOT. OPTIMP) GO TO 100
G
77
HK1S) =10
G
78
LOU5) = 10
G
79
HK59) =10
G
80
HK113) =10
G
81
LO(113)=10
GO TO 190
G
82
100
HK15) =0
G
83
LO(15) =0
G
84
HI(59) =0
G
85
HK113) =0
G
86
LO(113)=0
GO TO 190
G
87
110
IF ( .NOT. OPTIMF) GO TO 120
G
88
HK15) =8
G
89
L0(15) =8
G
90
HK59) =8
G
91
HK113) =8
G
92
L0(113)=8
GO TO 190
G
93
120
HI(15) = 0
G
94
L0U5) =0
G
95
HI(59) =0
G
96
HK113) =0
G
97
LO(113)=0
GO TO 190
G
98
130
IF ( .NOT. OPTIMF) GO TO 140
G
99
HK17) =20
G 100
LO(17) =20
G 101
HK61) =20
G 102
HK115) =20
G 103
LO(115)=20
GO TO 190
G 104
140
HK17) =0
G 105
LO(17) =0
G 106
HK61) =0
G 107
HK115) =0
G 108
L0(115)=0