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