Lines Matching full:e0
147 DATA SA, CA/0.3E0, (0.4E0,-0.7E0)/
148 DATA ((CV(I,J,1),I=1,8),J=1,5)/(0.1E0,0.1E0),
149 + (1.0E0,2.0E0), (1.0E0,2.0E0), (1.0E0,2.0E0),
150 + (1.0E0,2.0E0), (1.0E0,2.0E0), (1.0E0,2.0E0),
151 + (1.0E0,2.0E0), (0.3E0,-0.4E0), (3.0E0,4.0E0),
152 + (3.0E0,4.0E0), (3.0E0,4.0E0), (3.0E0,4.0E0),
153 + (3.0E0,4.0E0), (3.0E0,4.0E0), (3.0E0,4.0E0),
154 + (0.1E0,-0.3E0), (0.5E0,-0.1E0), (5.0E0,6.0E0),
155 + (5.0E0,6.0E0), (5.0E0,6.0E0), (5.0E0,6.0E0),
156 + (5.0E0,6.0E0), (5.0E0,6.0E0), (0.1E0,0.1E0),
157 + (-0.6E0,0.1E0), (0.1E0,-0.3E0), (7.0E0,8.0E0),
158 + (7.0E0,8.0E0), (7.0E0,8.0E0), (7.0E0,8.0E0),
159 + (7.0E0,8.0E0), (0.3E0,0.1E0), (0.5E0,0.0E0),
160 + (0.0E0,0.5E0), (0.0E0,0.2E0), (2.0E0,3.0E0),
161 + (2.0E0,3.0E0), (2.0E0,3.0E0), (2.0E0,3.0E0)/
162 DATA ((CV(I,J,2),I=1,8),J=1,5)/(0.1E0,0.1E0),
163 + (4.0E0,5.0E0), (4.0E0,5.0E0), (4.0E0,5.0E0),
164 + (4.0E0,5.0E0), (4.0E0,5.0E0), (4.0E0,5.0E0),
165 + (4.0E0,5.0E0), (0.3E0,-0.4E0), (6.0E0,7.0E0),
166 + (6.0E0,7.0E0), (6.0E0,7.0E0), (6.0E0,7.0E0),
167 + (6.0E0,7.0E0), (6.0E0,7.0E0), (6.0E0,7.0E0),
168 + (0.1E0,-0.3E0), (8.0E0,9.0E0), (0.5E0,-0.1E0),
169 + (2.0E0,5.0E0), (2.0E0,5.0E0), (2.0E0,5.0E0),
170 + (2.0E0,5.0E0), (2.0E0,5.0E0), (0.1E0,0.1E0),
171 + (3.0E0,6.0E0), (-0.6E0,0.1E0), (4.0E0,7.0E0),
172 + (0.1E0,-0.3E0), (7.0E0,2.0E0), (7.0E0,2.0E0),
173 + (7.0E0,2.0E0), (0.3E0,0.1E0), (5.0E0,8.0E0),
174 + (0.5E0,0.0E0), (6.0E0,9.0E0), (0.0E0,0.5E0),
175 + (8.0E0,3.0E0), (0.0E0,0.2E0), (9.0E0,4.0E0)/
176 DATA STRUE2/0.0E0, 0.5E0, 0.6E0, 0.7E0, 0.8E0/
177 DATA STRUE4/0.0E0, 0.7E0, 1.0E0, 1.3E0, 1.6E0/
178 DATA ((CTRUE5(I,J,1),I=1,8),J=1,5)/(0.1E0,0.1E0),
179 + (1.0E0,2.0E0), (1.0E0,2.0E0), (1.0E0,2.0E0),
180 + (1.0E0,2.0E0), (1.0E0,2.0E0), (1.0E0,2.0E0),
181 + (1.0E0,2.0E0), (-0.16E0,-0.37E0), (3.0E0,4.0E0),
182 + (3.0E0,4.0E0), (3.0E0,4.0E0), (3.0E0,4.0E0),
183 + (3.0E0,4.0E0), (3.0E0,4.0E0), (3.0E0,4.0E0),
184 + (-0.17E0,-0.19E0), (0.13E0,-0.39E0),
185 + (5.0E0,6.0E0), (5.0E0,6.0E0), (5.0E0,6.0E0),
186 + (5.0E0,6.0E0), (5.0E0,6.0E0), (5.0E0,6.0E0),
187 + (0.11E0,-0.03E0), (-0.17E0,0.46E0),
188 + (-0.17E0,-0.19E0), (7.0E0,8.0E0), (7.0E0,8.0E0),
189 + (7.0E0,8.0E0), (7.0E0,8.0E0), (7.0E0,8.0E0),
190 + (0.19E0,-0.17E0), (0.20E0,-0.35E0),
191 + (0.35E0,0.20E0), (0.14E0,0.08E0),
192 + (2.0E0,3.0E0), (2.0E0,3.0E0), (2.0E0,3.0E0),
193 + (2.0E0,3.0E0)/
194 DATA ((CTRUE5(I,J,2),I=1,8),J=1,5)/(0.1E0,0.1E0),
195 + (4.0E0,5.0E0), (4.0E0,5.0E0), (4.0E0,5.0E0),
196 + (4.0E0,5.0E0), (4.0E0,5.0E0), (4.0E0,5.0E0),
197 + (4.0E0,5.0E0), (-0.16E0,-0.37E0), (6.0E0,7.0E0),
198 + (6.0E0,7.0E0), (6.0E0,7.0E0), (6.0E0,7.0E0),
199 + (6.0E0,7.0E0), (6.0E0,7.0E0), (6.0E0,7.0E0),
200 + (-0.17E0,-0.19E0), (8.0E0,9.0E0),
201 + (0.13E0,-0.39E0), (2.0E0,5.0E0), (2.0E0,5.0E0),
202 + (2.0E0,5.0E0), (2.0E0,5.0E0), (2.0E0,5.0E0),
203 + (0.11E0,-0.03E0), (3.0E0,6.0E0),
204 + (-0.17E0,0.46E0), (4.0E0,7.0E0),
205 + (-0.17E0,-0.19E0), (7.0E0,2.0E0), (7.0E0,2.0E0),
206 + (7.0E0,2.0E0), (0.19E0,-0.17E0), (5.0E0,8.0E0),
207 + (0.20E0,-0.35E0), (6.0E0,9.0E0),
208 + (0.35E0,0.20E0), (8.0E0,3.0E0),
209 + (0.14E0,0.08E0), (9.0E0,4.0E0)/
210 DATA ((CTRUE6(I,J,1),I=1,8),J=1,5)/(0.1E0,0.1E0),
211 + (1.0E0,2.0E0), (1.0E0,2.0E0), (1.0E0,2.0E0),
212 + (1.0E0,2.0E0), (1.0E0,2.0E0), (1.0E0,2.0E0),
213 + (1.0E0,2.0E0), (0.09E0,-0.12E0), (3.0E0,4.0E0),
214 + (3.0E0,4.0E0), (3.0E0,4.0E0), (3.0E0,4.0E0),
215 + (3.0E0,4.0E0), (3.0E0,4.0E0), (3.0E0,4.0E0),
216 + (0.03E0,-0.09E0), (0.15E0,-0.03E0),
217 + (5.0E0,6.0E0), (5.0E0,6.0E0), (5.0E0,6.0E0),
218 + (5.0E0,6.0E0), (5.0E0,6.0E0), (5.0E0,6.0E0),
219 + (0.03E0,0.03E0), (-0.18E0,0.03E0),
220 + (0.03E0,-0.09E0), (7.0E0,8.0E0), (7.0E0,8.0E0),
221 + (7.0E0,8.0E0), (7.0E0,8.0E0), (7.0E0,8.0E0),
222 + (0.09E0,0.03E0), (0.15E0,0.00E0),
223 + (0.00E0,0.15E0), (0.00E0,0.06E0), (2.0E0,3.0E0),
224 + (2.0E0,3.0E0), (2.0E0,3.0E0), (2.0E0,3.0E0)/
225 DATA ((CTRUE6(I,J,2),I=1,8),J=1,5)/(0.1E0,0.1E0),
226 + (4.0E0,5.0E0), (4.0E0,5.0E0), (4.0E0,5.0E0),
227 + (4.0E0,5.0E0), (4.0E0,5.0E0), (4.0E0,5.0E0),
228 + (4.0E0,5.0E0), (0.09E0,-0.12E0), (6.0E0,7.0E0),
229 + (6.0E0,7.0E0), (6.0E0,7.0E0), (6.0E0,7.0E0),
230 + (6.0E0,7.0E0), (6.0E0,7.0E0), (6.0E0,7.0E0),
231 + (0.03E0,-0.09E0), (8.0E0,9.0E0),
232 + (0.15E0,-0.03E0), (2.0E0,5.0E0), (2.0E0,5.0E0),
233 + (2.0E0,5.0E0), (2.0E0,5.0E0), (2.0E0,5.0E0),
234 + (0.03E0,0.03E0), (3.0E0,6.0E0),
235 + (-0.18E0,0.03E0), (4.0E0,7.0E0),
236 + (0.03E0,-0.09E0), (7.0E0,2.0E0), (7.0E0,2.0E0),
237 + (7.0E0,2.0E0), (0.09E0,0.03E0), (5.0E0,8.0E0),
238 + (0.15E0,0.00E0), (6.0E0,9.0E0), (0.00E0,0.15E0),
239 + (8.0E0,3.0E0), (0.00E0,0.06E0), (9.0E0,4.0E0)/
283 CA = (0.0E0,0.0E0)
285 MWPCT(I) = (0.0E0,0.0E0)
286 MWPCS(I) = (1.0E0,1.0E0)
293 SA = 0.0E0
295 MWPCT(I) = (0.0E0,0.0E0)
296 MWPCS(I) = (1.0E0,1.0E0)
301 SA = 1.0E0
309 SA = -1.0E0
346 DATA CA/(0.4E0,-0.7E0)/
351 DATA CX1/(0.7E0,-0.8E0), (-0.4E0,-0.7E0),
352 + (-0.1E0,-0.9E0), (0.2E0,-0.8E0),
353 + (-0.9E0,-0.4E0), (0.1E0,0.4E0), (-0.6E0,0.6E0)/
354 DATA CY1/(0.6E0,-0.6E0), (-0.9E0,0.5E0),
355 + (0.7E0,-0.6E0), (0.1E0,-0.5E0), (-0.1E0,-0.2E0),
356 + (-0.5E0,-0.3E0), (0.8E0,-0.7E0)/
357 DATA ((CT8(I,J,1),I=1,7),J=1,4)/(0.6E0,-0.6E0),
358 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
359 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
360 + (0.32E0,-1.41E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
361 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
362 + (0.0E0,0.0E0), (0.32E0,-1.41E0),
363 + (-1.55E0,0.5E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
364 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
365 + (0.32E0,-1.41E0), (-1.55E0,0.5E0),
366 + (0.03E0,-0.89E0), (-0.38E0,-0.96E0),
367 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0)/
368 DATA ((CT8(I,J,2),I=1,7),J=1,4)/(0.6E0,-0.6E0),
369 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
370 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
371 + (0.32E0,-1.41E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
372 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
373 + (0.0E0,0.0E0), (-0.07E0,-0.89E0),
374 + (-0.9E0,0.5E0), (0.42E0,-1.41E0), (0.0E0,0.0E0),
375 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
376 + (0.78E0,0.06E0), (-0.9E0,0.5E0),
377 + (0.06E0,-0.13E0), (0.1E0,-0.5E0),
378 + (-0.77E0,-0.49E0), (-0.5E0,-0.3E0),
379 + (0.52E0,-1.51E0)/
380 DATA ((CT8(I,J,3),I=1,7),J=1,4)/(0.6E0,-0.6E0),
381 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
382 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
383 + (0.32E0,-1.41E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
384 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
385 + (0.0E0,0.0E0), (-0.07E0,-0.89E0),
386 + (-1.18E0,-0.31E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
387 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
388 + (0.78E0,0.06E0), (-1.54E0,0.97E0),
389 + (0.03E0,-0.89E0), (-0.18E0,-1.31E0),
390 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0)/
391 DATA ((CT8(I,J,4),I=1,7),J=1,4)/(0.6E0,-0.6E0),
392 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
393 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
394 + (0.32E0,-1.41E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
395 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
396 + (0.0E0,0.0E0), (0.32E0,-1.41E0), (-0.9E0,0.5E0),
397 + (0.05E0,-0.6E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
398 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.32E0,-1.41E0),
399 + (-0.9E0,0.5E0), (0.05E0,-0.6E0), (0.1E0,-0.5E0),
400 + (-0.77E0,-0.49E0), (-0.5E0,-0.3E0),
401 + (0.32E0,-1.16E0)/
402 DATA CT7/(0.0E0,0.0E0), (-0.06E0,-0.90E0),
403 + (0.65E0,-0.47E0), (-0.34E0,-1.22E0),
404 + (0.0E0,0.0E0), (-0.06E0,-0.90E0),
405 + (-0.59E0,-1.46E0), (-1.04E0,-0.04E0),
406 + (0.0E0,0.0E0), (-0.06E0,-0.90E0),
407 + (-0.83E0,0.59E0), (0.07E0,-0.37E0),
408 + (0.0E0,0.0E0), (-0.06E0,-0.90E0),
409 + (-0.76E0,-1.15E0), (-1.33E0,-1.82E0)/
410 DATA CT6/(0.0E0,0.0E0), (0.90E0,0.06E0),
411 + (0.91E0,-0.77E0), (1.80E0,-0.10E0),
412 + (0.0E0,0.0E0), (0.90E0,0.06E0), (1.45E0,0.74E0),
413 + (0.20E0,0.90E0), (0.0E0,0.0E0), (0.90E0,0.06E0),
414 + (-0.55E0,0.23E0), (0.83E0,-0.39E0),
415 + (0.0E0,0.0E0), (0.90E0,0.06E0), (1.04E0,0.79E0),
416 + (1.95E0,1.22E0)/
417 DATA ((CT10X(I,J,1),I=1,7),J=1,4)/(0.7E0,-0.8E0),
418 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
419 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
420 + (0.6E0,-0.6E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
421 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
422 + (0.0E0,0.0E0), (0.6E0,-0.6E0), (-0.9E0,0.5E0),
423 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
424 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.6E0,-0.6E0),
425 + (-0.9E0,0.5E0), (0.7E0,-0.6E0), (0.1E0,-0.5E0),
426 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0)/
427 DATA ((CT10X(I,J,2),I=1,7),J=1,4)/(0.7E0,-0.8E0),
428 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
429 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
430 + (0.6E0,-0.6E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
431 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
432 + (0.0E0,0.0E0), (0.7E0,-0.6E0), (-0.4E0,-0.7E0),
433 + (0.6E0,-0.6E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
434 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.8E0,-0.7E0),
435 + (-0.4E0,-0.7E0), (-0.1E0,-0.2E0),
436 + (0.2E0,-0.8E0), (0.7E0,-0.6E0), (0.1E0,0.4E0),
437 + (0.6E0,-0.6E0)/
438 DATA ((CT10X(I,J,3),I=1,7),J=1,4)/(0.7E0,-0.8E0),
439 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
440 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
441 + (0.6E0,-0.6E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
442 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
443 + (0.0E0,0.0E0), (-0.9E0,0.5E0), (-0.4E0,-0.7E0),
444 + (0.6E0,-0.6E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
445 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.1E0,-0.5E0),
446 + (-0.4E0,-0.7E0), (0.7E0,-0.6E0), (0.2E0,-0.8E0),
447 + (-0.9E0,0.5E0), (0.1E0,0.4E0), (0.6E0,-0.6E0)/
448 DATA ((CT10X(I,J,4),I=1,7),J=1,4)/(0.7E0,-0.8E0),
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.6E0,-0.6E0), (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.6E0,-0.6E0), (0.7E0,-0.6E0),
454 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
455 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.6E0,-0.6E0),
456 + (0.7E0,-0.6E0), (-0.1E0,-0.2E0), (0.8E0,-0.7E0),
457 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0)/
458 DATA ((CT10Y(I,J,1),I=1,7),J=1,4)/(0.6E0,-0.6E0),
459 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
460 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
461 + (0.7E0,-0.8E0), (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.7E0,-0.8E0), (-0.4E0,-0.7E0),
464 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
465 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.7E0,-0.8E0),
466 + (-0.4E0,-0.7E0), (-0.1E0,-0.9E0),
467 + (0.2E0,-0.8E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
468 + (0.0E0,0.0E0)/
469 DATA ((CT10Y(I,J,2),I=1,7),J=1,4)/(0.6E0,-0.6E0),
470 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
471 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
472 + (0.7E0,-0.8E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
473 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
474 + (0.0E0,0.0E0), (-0.1E0,-0.9E0), (-0.9E0,0.5E0),
475 + (0.7E0,-0.8E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
476 + (0.0E0,0.0E0), (0.0E0,0.0E0), (-0.6E0,0.6E0),
477 + (-0.9E0,0.5E0), (-0.9E0,-0.4E0), (0.1E0,-0.5E0),
478 + (-0.1E0,-0.9E0), (-0.5E0,-0.3E0),
479 + (0.7E0,-0.8E0)/
480 DATA ((CT10Y(I,J,3),I=1,7),J=1,4)/(0.6E0,-0.6E0),
481 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
482 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
483 + (0.7E0,-0.8E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
484 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
485 + (0.0E0,0.0E0), (-0.1E0,-0.9E0), (0.7E0,-0.8E0),
486 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
487 + (0.0E0,0.0E0), (0.0E0,0.0E0), (-0.6E0,0.6E0),
488 + (-0.9E0,-0.4E0), (-0.1E0,-0.9E0),
489 + (0.7E0,-0.8E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
490 + (0.0E0,0.0E0)/
491 DATA ((CT10Y(I,J,4),I=1,7),J=1,4)/(0.6E0,-0.6E0),
492 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
493 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
494 + (0.7E0,-0.8E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
495 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
496 + (0.0E0,0.0E0), (0.7E0,-0.8E0), (-0.9E0,0.5E0),
497 + (-0.4E0,-0.7E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
498 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.7E0,-0.8E0),
499 + (-0.9E0,0.5E0), (-0.4E0,-0.7E0), (0.1E0,-0.5E0),
500 + (-0.1E0,-0.9E0), (-0.5E0,-0.3E0),
501 + (0.2E0,-0.8E0)/
502 DATA CSIZE1/(0.0E0,0.0E0), (0.9E0,0.9E0),
503 + (1.63E0,1.73E0), (2.90E0,2.78E0)/
504 DATA CSIZE3/(0.0E0,0.0E0), (0.0E0,0.0E0),
505 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
506 + (0.0E0,0.0E0), (0.0E0,0.0E0), (1.17E0,1.17E0),
507 + (1.17E0,1.17E0), (1.17E0,1.17E0),
508 + (1.17E0,1.17E0), (1.17E0,1.17E0),
509 + (1.17E0,1.17E0), (1.17E0,1.17E0)/
510 DATA CSIZE2/(0.0E0,0.0E0), (0.0E0,0.0E0),
511 + (0.0E0,0.0E0), (0.0E0,0.0E0), (0.0E0,0.0E0),
512 + (0.0E0,0.0E0), (0.0E0,0.0E0), (1.54E0,1.54E0),
513 + (1.54E0,1.54E0), (1.54E0,1.54E0),
514 + (1.54E0,1.54E0), (1.54E0,1.54E0),
515 + (1.54E0,1.54E0), (1.54E0,1.54E0)/
548 CALL CTEST(LENY,CY,CT10Y(1,KN,KI),CSIZE3,1.0E0)
552 CALL CTEST(LENX,CX,CT10X(1,KN,KI),CSIZE3,1.0E0)
553 CALL CTEST(LENY,CY,CT10Y(1,KN,KI),CSIZE3,1.0E0)
575 PARAMETER (NOUT=6, ZERO=0.0E0)