Lines Matching full:e0
105 DATA SA, CA/0.3E0, (0.4E0,-0.7E0)/
106 DATA ((CV(I,J,1),I=1,8),J=1,5)/(0.1E0,0.1E0),
107 + (1.0E0,2.0E0), (1.0E0,2.0E0), (1.0E0,2.0E0),
108 + (1.0E0,2.0E0), (1.0E0,2.0E0), (1.0E0,2.0E0),
109 + (1.0E0,2.0E0), (0.3E0,-0.4E0), (3.0E0,4.0E0),
110 + (3.0E0,4.0E0), (3.0E0,4.0E0), (3.0E0,4.0E0),
111 + (3.0E0,4.0E0), (3.0E0,4.0E0), (3.0E0,4.0E0),
112 + (0.1E0,-0.3E0), (0.5E0,-0.1E0), (5.0E0,6.0E0),
113 + (5.0E0,6.0E0), (5.0E0,6.0E0), (5.0E0,6.0E0),
114 + (5.0E0,6.0E0), (5.0E0,6.0E0), (0.1E0,0.1E0),
115 + (-0.6E0,0.1E0), (0.1E0,-0.3E0), (7.0E0,8.0E0),
116 + (7.0E0,8.0E0), (7.0E0,8.0E0), (7.0E0,8.0E0),
117 + (7.0E0,8.0E0), (0.3E0,0.1E0), (0.1E0,0.4E0),
118 + (0.4E0,0.1E0), (0.1E0,0.2E0), (2.0E0,3.0E0),
119 + (2.0E0,3.0E0), (2.0E0,3.0E0), (2.0E0,3.0E0)/
120 DATA ((CV(I,J,2),I=1,8),J=1,5)/(0.1E0,0.1E0),
121 + (4.0E0,5.0E0), (4.0E0,5.0E0), (4.0E0,5.0E0),
122 + (4.0E0,5.0E0), (4.0E0,5.0E0), (4.0E0,5.0E0),
123 + (4.0E0,5.0E0), (0.3E0,-0.4E0), (6.0E0,7.0E0),
124 + (6.0E0,7.0E0), (6.0E0,7.0E0), (6.0E0,7.0E0),
125 + (6.0E0,7.0E0), (6.0E0,7.0E0), (6.0E0,7.0E0),
126 + (0.1E0,-0.3E0), (8.0E0,9.0E0), (0.5E0,-0.1E0),
127 + (2.0E0,5.0E0), (2.0E0,5.0E0), (2.0E0,5.0E0),
128 + (2.0E0,5.0E0), (2.0E0,5.0E0), (0.1E0,0.1E0),
129 + (3.0E0,6.0E0), (-0.6E0,0.1E0), (4.0E0,7.0E0),
130 + (0.1E0,-0.3E0), (7.0E0,2.0E0), (7.0E0,2.0E0),
131 + (7.0E0,2.0E0), (0.3E0,0.1E0), (5.0E0,8.0E0),
132 + (0.1E0,0.4E0), (6.0E0,9.0E0), (0.4E0,0.1E0),
133 + (8.0E0,3.0E0), (0.1E0,0.2E0), (9.0E0,4.0E0)/
134 DATA STRUE2/0.0E0, 0.5E0, 0.6E0, 0.7E0, 0.7E0/
135 DATA STRUE4/0.0E0, 0.7E0, 1.0E0, 1.3E0, 1.7E0/
136 DATA ((CTRUE5(I,J,1),I=1,8),J=1,5)/(0.1E0,0.1E0),
137 + (1.0E0,2.0E0), (1.0E0,2.0E0), (1.0E0,2.0E0),
138 + (1.0E0,2.0E0), (1.0E0,2.0E0), (1.0E0,2.0E0),
139 + (1.0E0,2.0E0), (-0.16E0,-0.37E0), (3.0E0,4.0E0),
140 + (3.0E0,4.0E0), (3.0E0,4.0E0), (3.0E0,4.0E0),
141 + (3.0E0,4.0E0), (3.0E0,4.0E0), (3.0E0,4.0E0),
142 + (-0.17E0,-0.19E0), (0.13E0,-0.39E0),
143 + (5.0E0,6.0E0), (5.0E0,6.0E0), (5.0E0,6.0E0),
144 + (5.0E0,6.0E0), (5.0E0,6.0E0), (5.0E0,6.0E0),
145 + (0.11E0,-0.03E0), (-0.17E0,0.46E0),
146 + (-0.17E0,-0.19E0), (7.0E0,8.0E0), (7.0E0,8.0E0),
147 + (7.0E0,8.0E0), (7.0E0,8.0E0), (7.0E0,8.0E0),
148 + (0.19E0,-0.17E0), (0.32E0,0.09E0),
149 + (0.23E0,-0.24E0), (0.18E0,0.01E0),
150 + (2.0E0,3.0E0), (2.0E0,3.0E0), (2.0E0,3.0E0),
151 + (2.0E0,3.0E0)/
152 DATA ((CTRUE5(I,J,2),I=1,8),J=1,5)/(0.1E0,0.1E0),
153 + (4.0E0,5.0E0), (4.0E0,5.0E0), (4.0E0,5.0E0),
154 + (4.0E0,5.0E0), (4.0E0,5.0E0), (4.0E0,5.0E0),
155 + (4.0E0,5.0E0), (-0.16E0,-0.37E0), (6.0E0,7.0E0),
156 + (6.0E0,7.0E0), (6.0E0,7.0E0), (6.0E0,7.0E0),
157 + (6.0E0,7.0E0), (6.0E0,7.0E0), (6.0E0,7.0E0),
158 + (-0.17E0,-0.19E0), (8.0E0,9.0E0),
159 + (0.13E0,-0.39E0), (2.0E0,5.0E0), (2.0E0,5.0E0),
160 + (2.0E0,5.0E0), (2.0E0,5.0E0), (2.0E0,5.0E0),
161 + (0.11E0,-0.03E0), (3.0E0,6.0E0),
162 + (-0.17E0,0.46E0), (4.0E0,7.0E0),
163 + (-0.17E0,-0.19E0), (7.0E0,2.0E0), (7.0E0,2.0E0),
164 + (7.0E0,2.0E0), (0.19E0,-0.17E0), (5.0E0,8.0E0),
165 + (0.32E0,0.09E0), (6.0E0,9.0E0),
166 + (0.23E0,-0.24E0), (8.0E0,3.0E0),
167 + (0.18E0,0.01E0), (9.0E0,4.0E0)/
168 DATA ((CTRUE6(I,J,1),I=1,8),J=1,5)/(0.1E0,0.1E0),
169 + (1.0E0,2.0E0), (1.0E0,2.0E0), (1.0E0,2.0E0),
170 + (1.0E0,2.0E0), (1.0E0,2.0E0), (1.0E0,2.0E0),
171 + (1.0E0,2.0E0), (0.09E0,-0.12E0), (3.0E0,4.0E0),
172 + (3.0E0,4.0E0), (3.0E0,4.0E0), (3.0E0,4.0E0),
173 + (3.0E0,4.0E0), (3.0E0,4.0E0), (3.0E0,4.0E0),
174 + (0.03E0,-0.09E0), (0.15E0,-0.03E0),
175 + (5.0E0,6.0E0), (5.0E0,6.0E0), (5.0E0,6.0E0),
176 + (5.0E0,6.0E0), (5.0E0,6.0E0), (5.0E0,6.0E0),
177 + (0.03E0,0.03E0), (-0.18E0,0.03E0),
178 + (0.03E0,-0.09E0), (7.0E0,8.0E0), (7.0E0,8.0E0),
179 + (7.0E0,8.0E0), (7.0E0,8.0E0), (7.0E0,8.0E0),
180 + (0.09E0,0.03E0), (0.03E0,0.12E0),
181 + (0.12E0,0.03E0), (0.03E0,0.06E0), (2.0E0,3.0E0),
182 + (2.0E0,3.0E0), (2.0E0,3.0E0), (2.0E0,3.0E0)/
183 DATA ((CTRUE6(I,J,2),I=1,8),J=1,5)/(0.1E0,0.1E0),
184 + (4.0E0,5.0E0), (4.0E0,5.0E0), (4.0E0,5.0E0),
185 + (4.0E0,5.0E0), (4.0E0,5.0E0), (4.0E0,5.0E0),
186 + (4.0E0,5.0E0), (0.09E0,-0.12E0), (6.0E0,7.0E0),
187 + (6.0E0,7.0E0), (6.0E0,7.0E0), (6.0E0,7.0E0),
188 + (6.0E0,7.0E0), (6.0E0,7.0E0), (6.0E0,7.0E0),
189 + (0.03E0,-0.09E0), (8.0E0,9.0E0),
190 + (0.15E0,-0.03E0), (2.0E0,5.0E0), (2.0E0,5.0E0),
191 + (2.0E0,5.0E0), (2.0E0,5.0E0), (2.0E0,5.0E0),
192 + (0.03E0,0.03E0), (3.0E0,6.0E0),
193 + (-0.18E0,0.03E0), (4.0E0,7.0E0),
194 + (0.03E0,-0.09E0), (7.0E0,2.0E0), (7.0E0,2.0E0),
195 + (7.0E0,2.0E0), (0.09E0,0.03E0), (5.0E0,8.0E0),
196 + (0.03E0,0.12E0), (6.0E0,9.0E0), (0.12E0,0.03E0),
197 + (8.0E0,3.0E0), (0.03E0,0.06E0), (9.0E0,4.0E0)/
241 CA = (0.0E0,0.0E0)
243 MWPCT(I) = (0.0E0,0.0E0)
244 MWPCS(I) = (1.0E0,1.0E0)
251 SA = 0.0E0
253 MWPCT(I) = (0.0E0,0.0E0)
254 MWPCS(I) = (1.0E0,1.0E0)
259 SA = 1.0E0
267 SA = -1.0E0
303 DATA CA/(0.4E0,-0.7E0)/
308 DATA CX1/(0.7E0,-0.8E0), (-0.4E0,-0.7E0),
309 + (-0.1E0,-0.9E0), (0.2E0,-0.8E0),
310 + (-0.9E0,-0.4E0), (0.1E0,0.4E0), (-0.6E0,0.6E0)/
311 DATA CY1/(0.6E0,-0.6E0), (-0.9E0,0.5E0),
312 + (0.7E0,-0.6E0), (0.1E0,-0.5E0), (-0.1E0,-0.2E0),
313 + (-0.5E0,-0.3E0), (0.8E0,-0.7E0)/
314 DATA ((CT8(I,J,1),I=1,7),J=1,4)/(0.6E0,-0.6E0),
315 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
316 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
317 + (0.32E0,-1.41E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
318 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
319 + (0.0E0,0.0E0), (0.32E0,-1.41E0),
320 + (-1.55E0,0.5E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
321 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
322 + (0.32E0,-1.41E0), (-1.55E0,0.5E0),
323 + (0.03E0,-0.89E0), (-0.38E0,-0.96E0),
324 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0)/
325 DATA ((CT8(I,J,2),I=1,7),J=1,4)/(0.6E0,-0.6E0),
326 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
327 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
328 + (0.32E0,-1.41E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
329 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
330 + (0.0E0,0.0E0), (-0.07E0,-0.89E0),
331 + (-0.9E0,0.5E0), (0.42E0,-1.41E0), (0.0E0,0.0E0),
332 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
333 + (0.78E0,0.06E0), (-0.9E0,0.5E0),
334 + (0.06E0,-0.13E0), (0.1E0,-0.5E0),
335 + (-0.77E0,-0.49E0), (-0.5E0,-0.3E0),
336 + (0.52E0,-1.51E0)/
337 DATA ((CT8(I,J,3),I=1,7),J=1,4)/(0.6E0,-0.6E0),
338 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
339 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
340 + (0.32E0,-1.41E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
341 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
342 + (0.0E0,0.0E0), (-0.07E0,-0.89E0),
343 + (-1.18E0,-0.31E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
344 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
345 + (0.78E0,0.06E0), (-1.54E0,0.97E0),
346 + (0.03E0,-0.89E0), (-0.18E0,-1.31E0),
347 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0)/
348 DATA ((CT8(I,J,4),I=1,7),J=1,4)/(0.6E0,-0.6E0),
349 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
350 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
351 + (0.32E0,-1.41E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
352 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
353 + (0.0E0,0.0E0), (0.32E0,-1.41E0), (-0.9E0,0.5E0),
354 + (0.05E0,-0.6E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
355 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.32E0,-1.41E0),
356 + (-0.9E0,0.5E0), (0.05E0,-0.6E0), (0.1E0,-0.5E0),
357 + (-0.77E0,-0.49E0), (-0.5E0,-0.3E0),
358 + (0.32E0,-1.16E0)/
359 DATA CT7/(0.0E0,0.0E0), (-0.06E0,-0.90E0),
360 + (0.65E0,-0.47E0), (-0.34E0,-1.22E0),
361 + (0.0E0,0.0E0), (-0.06E0,-0.90E0),
362 + (-0.59E0,-1.46E0), (-1.04E0,-0.04E0),
363 + (0.0E0,0.0E0), (-0.06E0,-0.90E0),
364 + (-0.83E0,0.59E0), (0.07E0,-0.37E0),
365 + (0.0E0,0.0E0), (-0.06E0,-0.90E0),
366 + (-0.76E0,-1.15E0), (-1.33E0,-1.82E0)/
367 DATA CT6/(0.0E0,0.0E0), (0.90E0,0.06E0),
368 + (0.91E0,-0.77E0), (1.80E0,-0.10E0),
369 + (0.0E0,0.0E0), (0.90E0,0.06E0), (1.45E0,0.74E0),
370 + (0.20E0,0.90E0), (0.0E0,0.0E0), (0.90E0,0.06E0),
371 + (-0.55E0,0.23E0), (0.83E0,-0.39E0),
372 + (0.0E0,0.0E0), (0.90E0,0.06E0), (1.04E0,0.79E0),
373 + (1.95E0,1.22E0)/
374 DATA ((CT10X(I,J,1),I=1,7),J=1,4)/(0.7E0,-0.8E0),
375 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
376 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
377 + (0.6E0,-0.6E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
378 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
379 + (0.0E0,0.0E0), (0.6E0,-0.6E0), (-0.9E0,0.5E0),
380 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
381 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.6E0,-0.6E0),
382 + (-0.9E0,0.5E0), (0.7E0,-0.6E0), (0.1E0,-0.5E0),
383 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0)/
384 DATA ((CT10X(I,J,2),I=1,7),J=1,4)/(0.7E0,-0.8E0),
385 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
386 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
387 + (0.6E0,-0.6E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
388 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
389 + (0.0E0,0.0E0), (0.7E0,-0.6E0), (-0.4E0,-0.7E0),
390 + (0.6E0,-0.6E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
391 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.8E0,-0.7E0),
392 + (-0.4E0,-0.7E0), (-0.1E0,-0.2E0),
393 + (0.2E0,-0.8E0), (0.7E0,-0.6E0), (0.1E0,0.4E0),
394 + (0.6E0,-0.6E0)/
395 DATA ((CT10X(I,J,3),I=1,7),J=1,4)/(0.7E0,-0.8E0),
396 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
397 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
398 + (0.6E0,-0.6E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
399 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
400 + (0.0E0,0.0E0), (-0.9E0,0.5E0), (-0.4E0,-0.7E0),
401 + (0.6E0,-0.6E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
402 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.1E0,-0.5E0),
403 + (-0.4E0,-0.7E0), (0.7E0,-0.6E0), (0.2E0,-0.8E0),
404 + (-0.9E0,0.5E0), (0.1E0,0.4E0), (0.6E0,-0.6E0)/
405 DATA ((CT10X(I,J,4),I=1,7),J=1,4)/(0.7E0,-0.8E0),
406 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
407 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
408 + (0.6E0,-0.6E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
409 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
410 + (0.0E0,0.0E0), (0.6E0,-0.6E0), (0.7E0,-0.6E0),
411 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
412 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.6E0,-0.6E0),
413 + (0.7E0,-0.6E0), (-0.1E0,-0.2E0), (0.8E0,-0.7E0),
414 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0)/
415 DATA ((CT10Y(I,J,1),I=1,7),J=1,4)/(0.6E0,-0.6E0),
416 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
417 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
418 + (0.7E0,-0.8E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
419 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
420 + (0.0E0,0.0E0), (0.7E0,-0.8E0), (-0.4E0,-0.7E0),
421 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
422 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.7E0,-0.8E0),
423 + (-0.4E0,-0.7E0), (-0.1E0,-0.9E0),
424 + (0.2E0,-0.8E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
425 + (0.0E0,0.0E0)/
426 DATA ((CT10Y(I,J,2),I=1,7),J=1,4)/(0.6E0,-0.6E0),
427 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
428 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
429 + (0.7E0,-0.8E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
430 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
431 + (0.0E0,0.0E0), (-0.1E0,-0.9E0), (-0.9E0,0.5E0),
432 + (0.7E0,-0.8E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
433 + (0.0E0,0.0E0), (0.0E0,0.0E0), (-0.6E0,0.6E0),
434 + (-0.9E0,0.5E0), (-0.9E0,-0.4E0), (0.1E0,-0.5E0),
435 + (-0.1E0,-0.9E0), (-0.5E0,-0.3E0),
436 + (0.7E0,-0.8E0)/
437 DATA ((CT10Y(I,J,3),I=1,7),J=1,4)/(0.6E0,-0.6E0),
438 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
439 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
440 + (0.7E0,-0.8E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
441 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
442 + (0.0E0,0.0E0), (-0.1E0,-0.9E0), (0.7E0,-0.8E0),
443 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
444 + (0.0E0,0.0E0), (0.0E0,0.0E0), (-0.6E0,0.6E0),
445 + (-0.9E0,-0.4E0), (-0.1E0,-0.9E0),
446 + (0.7E0,-0.8E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
447 + (0.0E0,0.0E0)/
448 DATA ((CT10Y(I,J,4),I=1,7),J=1,4)/(0.6E0,-0.6E0),
449 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
450 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
451 + (0.7E0,-0.8E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
452 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
453 + (0.0E0,0.0E0), (0.7E0,-0.8E0), (-0.9E0,0.5E0),
454 + (-0.4E0,-0.7E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
455 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.7E0,-0.8E0),
456 + (-0.9E0,0.5E0), (-0.4E0,-0.7E0), (0.1E0,-0.5E0),
457 + (-0.1E0,-0.9E0), (-0.5E0,-0.3E0),
458 + (0.2E0,-0.8E0)/
459 DATA CSIZE1/(0.0E0,0.0E0), (0.9E0,0.9E0),
460 + (1.63E0,1.73E0), (2.90E0,2.78E0)/
461 DATA CSIZE3/(0.0E0,0.0E0), (0.0E0,0.0E0),
462 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
463 + (0.0E0,0.0E0), (0.0E0,0.0E0), (1.17E0,1.17E0),
464 + (1.17E0,1.17E0), (1.17E0,1.17E0),
465 + (1.17E0,1.17E0), (1.17E0,1.17E0),
466 + (1.17E0,1.17E0), (1.17E0,1.17E0)/
467 DATA CSIZE2/(0.0E0,0.0E0), (0.0E0,0.0E0),
468 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
469 + (0.0E0,0.0E0), (0.0E0,0.0E0), (1.54E0,1.54E0),
470 + (1.54E0,1.54E0), (1.54E0,1.54E0),
471 + (1.54E0,1.54E0), (1.54E0,1.54E0),
472 + (1.54E0,1.54E0), (1.54E0,1.54E0)/
507 CALL CTEST(LENY,CY,CT10Y(1,KN,KI),CSIZE3,1.0E0)
511 CALL CTEST(LENX,CX,CT10X(1,KN,KI),CSIZE3,1.0E0)
512 CALL CTEST(LENY,CY,CT10Y(1,KN,KI),CSIZE3,1.0E0)
556 IF (SDIFF(ABS(SSIZE(I))+ABS(SFAC*SD),ABS(SSIZE(I))).EQ.0.0E0)