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