73
73
COMMON/HELUSERCHOICE/USERHEL
76
DATA (NHEL(I, 1),I=1,6) /-1,-1,-1,-1,-1,-1/
77
DATA (NHEL(I, 2),I=1,6) /-1,-1,-1,-1,-1, 1/
78
DATA (NHEL(I, 3),I=1,6) /-1,-1,-1,-1, 1,-1/
79
DATA (NHEL(I, 4),I=1,6) /-1,-1,-1,-1, 1, 1/
80
DATA (NHEL(I, 5),I=1,6) /-1,-1,-1, 1,-1,-1/
81
DATA (NHEL(I, 6),I=1,6) /-1,-1,-1, 1,-1, 1/
82
DATA (NHEL(I, 7),I=1,6) /-1,-1,-1, 1, 1,-1/
83
DATA (NHEL(I, 8),I=1,6) /-1,-1,-1, 1, 1, 1/
84
DATA (NHEL(I, 9),I=1,6) /-1,-1, 1,-1,-1,-1/
85
DATA (NHEL(I, 10),I=1,6) /-1,-1, 1,-1,-1, 1/
86
DATA (NHEL(I, 11),I=1,6) /-1,-1, 1,-1, 1,-1/
87
DATA (NHEL(I, 12),I=1,6) /-1,-1, 1,-1, 1, 1/
88
DATA (NHEL(I, 13),I=1,6) /-1,-1, 1, 1,-1,-1/
89
DATA (NHEL(I, 14),I=1,6) /-1,-1, 1, 1,-1, 1/
90
DATA (NHEL(I, 15),I=1,6) /-1,-1, 1, 1, 1,-1/
91
DATA (NHEL(I, 16),I=1,6) /-1,-1, 1, 1, 1, 1/
92
DATA (NHEL(I, 17),I=1,6) /-1, 1,-1,-1,-1,-1/
93
DATA (NHEL(I, 18),I=1,6) /-1, 1,-1,-1,-1, 1/
94
DATA (NHEL(I, 19),I=1,6) /-1, 1,-1,-1, 1,-1/
95
DATA (NHEL(I, 20),I=1,6) /-1, 1,-1,-1, 1, 1/
96
DATA (NHEL(I, 21),I=1,6) /-1, 1,-1, 1,-1,-1/
97
DATA (NHEL(I, 22),I=1,6) /-1, 1,-1, 1,-1, 1/
98
DATA (NHEL(I, 23),I=1,6) /-1, 1,-1, 1, 1,-1/
99
DATA (NHEL(I, 24),I=1,6) /-1, 1,-1, 1, 1, 1/
100
DATA (NHEL(I, 25),I=1,6) /-1, 1, 1,-1,-1,-1/
101
DATA (NHEL(I, 26),I=1,6) /-1, 1, 1,-1,-1, 1/
102
DATA (NHEL(I, 27),I=1,6) /-1, 1, 1,-1, 1,-1/
103
DATA (NHEL(I, 28),I=1,6) /-1, 1, 1,-1, 1, 1/
104
DATA (NHEL(I, 29),I=1,6) /-1, 1, 1, 1,-1,-1/
105
DATA (NHEL(I, 30),I=1,6) /-1, 1, 1, 1,-1, 1/
106
DATA (NHEL(I, 31),I=1,6) /-1, 1, 1, 1, 1,-1/
107
DATA (NHEL(I, 32),I=1,6) /-1, 1, 1, 1, 1, 1/
108
DATA (NHEL(I, 33),I=1,6) / 1,-1,-1,-1,-1,-1/
109
DATA (NHEL(I, 34),I=1,6) / 1,-1,-1,-1,-1, 1/
110
DATA (NHEL(I, 35),I=1,6) / 1,-1,-1,-1, 1,-1/
111
DATA (NHEL(I, 36),I=1,6) / 1,-1,-1,-1, 1, 1/
112
DATA (NHEL(I, 37),I=1,6) / 1,-1,-1, 1,-1,-1/
113
DATA (NHEL(I, 38),I=1,6) / 1,-1,-1, 1,-1, 1/
114
DATA (NHEL(I, 39),I=1,6) / 1,-1,-1, 1, 1,-1/
115
DATA (NHEL(I, 40),I=1,6) / 1,-1,-1, 1, 1, 1/
116
DATA (NHEL(I, 41),I=1,6) / 1,-1, 1,-1,-1,-1/
117
DATA (NHEL(I, 42),I=1,6) / 1,-1, 1,-1,-1, 1/
118
DATA (NHEL(I, 43),I=1,6) / 1,-1, 1,-1, 1,-1/
119
DATA (NHEL(I, 44),I=1,6) / 1,-1, 1,-1, 1, 1/
120
DATA (NHEL(I, 45),I=1,6) / 1,-1, 1, 1,-1,-1/
121
DATA (NHEL(I, 46),I=1,6) / 1,-1, 1, 1,-1, 1/
122
DATA (NHEL(I, 47),I=1,6) / 1,-1, 1, 1, 1,-1/
123
DATA (NHEL(I, 48),I=1,6) / 1,-1, 1, 1, 1, 1/
124
DATA (NHEL(I, 49),I=1,6) / 1, 1,-1,-1,-1,-1/
125
DATA (NHEL(I, 50),I=1,6) / 1, 1,-1,-1,-1, 1/
126
DATA (NHEL(I, 51),I=1,6) / 1, 1,-1,-1, 1,-1/
127
DATA (NHEL(I, 52),I=1,6) / 1, 1,-1,-1, 1, 1/
128
DATA (NHEL(I, 53),I=1,6) / 1, 1,-1, 1,-1,-1/
129
DATA (NHEL(I, 54),I=1,6) / 1, 1,-1, 1,-1, 1/
130
DATA (NHEL(I, 55),I=1,6) / 1, 1,-1, 1, 1,-1/
131
DATA (NHEL(I, 56),I=1,6) / 1, 1,-1, 1, 1, 1/
132
DATA (NHEL(I, 57),I=1,6) / 1, 1, 1,-1,-1,-1/
133
DATA (NHEL(I, 58),I=1,6) / 1, 1, 1,-1,-1, 1/
134
DATA (NHEL(I, 59),I=1,6) / 1, 1, 1,-1, 1,-1/
135
DATA (NHEL(I, 60),I=1,6) / 1, 1, 1,-1, 1, 1/
136
DATA (NHEL(I, 61),I=1,6) / 1, 1, 1, 1,-1,-1/
137
DATA (NHEL(I, 62),I=1,6) / 1, 1, 1, 1,-1, 1/
138
DATA (NHEL(I, 63),I=1,6) / 1, 1, 1, 1, 1,-1/
139
DATA (NHEL(I, 64),I=1,6) / 1, 1, 1, 1, 1, 1/
76
DATA (NHEL(I, 1),I=1,6) / 1,-1,-1, 1,-1, 1/
77
DATA (NHEL(I, 2),I=1,6) / 1,-1,-1, 1,-1,-1/
78
DATA (NHEL(I, 3),I=1,6) / 1,-1,-1, 1, 1, 1/
79
DATA (NHEL(I, 4),I=1,6) / 1,-1,-1, 1, 1,-1/
80
DATA (NHEL(I, 5),I=1,6) / 1,-1,-1,-1,-1, 1/
81
DATA (NHEL(I, 6),I=1,6) / 1,-1,-1,-1,-1,-1/
82
DATA (NHEL(I, 7),I=1,6) / 1,-1,-1,-1, 1, 1/
83
DATA (NHEL(I, 8),I=1,6) / 1,-1,-1,-1, 1,-1/
84
DATA (NHEL(I, 9),I=1,6) / 1,-1, 1, 1,-1, 1/
85
DATA (NHEL(I, 10),I=1,6) / 1,-1, 1, 1,-1,-1/
86
DATA (NHEL(I, 11),I=1,6) / 1,-1, 1, 1, 1, 1/
87
DATA (NHEL(I, 12),I=1,6) / 1,-1, 1, 1, 1,-1/
88
DATA (NHEL(I, 13),I=1,6) / 1,-1, 1,-1,-1, 1/
89
DATA (NHEL(I, 14),I=1,6) / 1,-1, 1,-1,-1,-1/
90
DATA (NHEL(I, 15),I=1,6) / 1,-1, 1,-1, 1, 1/
91
DATA (NHEL(I, 16),I=1,6) / 1,-1, 1,-1, 1,-1/
92
DATA (NHEL(I, 17),I=1,6) / 1, 1,-1, 1,-1, 1/
93
DATA (NHEL(I, 18),I=1,6) / 1, 1,-1, 1,-1,-1/
94
DATA (NHEL(I, 19),I=1,6) / 1, 1,-1, 1, 1, 1/
95
DATA (NHEL(I, 20),I=1,6) / 1, 1,-1, 1, 1,-1/
96
DATA (NHEL(I, 21),I=1,6) / 1, 1,-1,-1,-1, 1/
97
DATA (NHEL(I, 22),I=1,6) / 1, 1,-1,-1,-1,-1/
98
DATA (NHEL(I, 23),I=1,6) / 1, 1,-1,-1, 1, 1/
99
DATA (NHEL(I, 24),I=1,6) / 1, 1,-1,-1, 1,-1/
100
DATA (NHEL(I, 25),I=1,6) / 1, 1, 1, 1,-1, 1/
101
DATA (NHEL(I, 26),I=1,6) / 1, 1, 1, 1,-1,-1/
102
DATA (NHEL(I, 27),I=1,6) / 1, 1, 1, 1, 1, 1/
103
DATA (NHEL(I, 28),I=1,6) / 1, 1, 1, 1, 1,-1/
104
DATA (NHEL(I, 29),I=1,6) / 1, 1, 1,-1,-1, 1/
105
DATA (NHEL(I, 30),I=1,6) / 1, 1, 1,-1,-1,-1/
106
DATA (NHEL(I, 31),I=1,6) / 1, 1, 1,-1, 1, 1/
107
DATA (NHEL(I, 32),I=1,6) / 1, 1, 1,-1, 1,-1/
108
DATA (NHEL(I, 33),I=1,6) /-1,-1,-1, 1,-1, 1/
109
DATA (NHEL(I, 34),I=1,6) /-1,-1,-1, 1,-1,-1/
110
DATA (NHEL(I, 35),I=1,6) /-1,-1,-1, 1, 1, 1/
111
DATA (NHEL(I, 36),I=1,6) /-1,-1,-1, 1, 1,-1/
112
DATA (NHEL(I, 37),I=1,6) /-1,-1,-1,-1,-1, 1/
113
DATA (NHEL(I, 38),I=1,6) /-1,-1,-1,-1,-1,-1/
114
DATA (NHEL(I, 39),I=1,6) /-1,-1,-1,-1, 1, 1/
115
DATA (NHEL(I, 40),I=1,6) /-1,-1,-1,-1, 1,-1/
116
DATA (NHEL(I, 41),I=1,6) /-1,-1, 1, 1,-1, 1/
117
DATA (NHEL(I, 42),I=1,6) /-1,-1, 1, 1,-1,-1/
118
DATA (NHEL(I, 43),I=1,6) /-1,-1, 1, 1, 1, 1/
119
DATA (NHEL(I, 44),I=1,6) /-1,-1, 1, 1, 1,-1/
120
DATA (NHEL(I, 45),I=1,6) /-1,-1, 1,-1,-1, 1/
121
DATA (NHEL(I, 46),I=1,6) /-1,-1, 1,-1,-1,-1/
122
DATA (NHEL(I, 47),I=1,6) /-1,-1, 1,-1, 1, 1/
123
DATA (NHEL(I, 48),I=1,6) /-1,-1, 1,-1, 1,-1/
124
DATA (NHEL(I, 49),I=1,6) /-1, 1,-1, 1,-1, 1/
125
DATA (NHEL(I, 50),I=1,6) /-1, 1,-1, 1,-1,-1/
126
DATA (NHEL(I, 51),I=1,6) /-1, 1,-1, 1, 1, 1/
127
DATA (NHEL(I, 52),I=1,6) /-1, 1,-1, 1, 1,-1/
128
DATA (NHEL(I, 53),I=1,6) /-1, 1,-1,-1,-1, 1/
129
DATA (NHEL(I, 54),I=1,6) /-1, 1,-1,-1,-1,-1/
130
DATA (NHEL(I, 55),I=1,6) /-1, 1,-1,-1, 1, 1/
131
DATA (NHEL(I, 56),I=1,6) /-1, 1,-1,-1, 1,-1/
132
DATA (NHEL(I, 57),I=1,6) /-1, 1, 1, 1,-1, 1/
133
DATA (NHEL(I, 58),I=1,6) /-1, 1, 1, 1,-1,-1/
134
DATA (NHEL(I, 59),I=1,6) /-1, 1, 1, 1, 1, 1/
135
DATA (NHEL(I, 60),I=1,6) /-1, 1, 1, 1, 1,-1/
136
DATA (NHEL(I, 61),I=1,6) /-1, 1, 1,-1,-1, 1/
137
DATA (NHEL(I, 62),I=1,6) /-1, 1, 1,-1,-1,-1/
138
DATA (NHEL(I, 63),I=1,6) /-1, 1, 1,-1, 1, 1/
139
DATA (NHEL(I, 64),I=1,6) /-1, 1, 1,-1, 1,-1/