Lines Matching refs:D0
146 DATA DA1/0.3D0, 0.4D0, -0.3D0, -0.4D0, -0.3D0, 0.0D0,
147 + 0.0D0, 1.0D0/
148 DATA DB1/0.4D0, 0.3D0, 0.4D0, 0.3D0, -0.4D0, 0.0D0,
149 + 1.0D0, 0.0D0/
150 DATA DC1/0.6D0, 0.8D0, -0.6D0, 0.8D0, 0.6D0, 1.0D0,
151 + 0.0D0, 1.0D0/
152 DATA DS1/0.8D0, 0.6D0, 0.8D0, -0.6D0, 0.8D0, 0.0D0,
153 + 1.0D0, 0.0D0/
154 DATA DATRUE/0.5D0, 0.5D0, 0.5D0, -0.5D0, -0.5D0,
155 + 0.0D0, 1.0D0, 1.0D0/
156 DATA DBTRUE/0.0D0, 0.6D0, 0.0D0, -0.6D0, 0.0D0,
157 + 0.0D0, 1.0D0, 0.0D0/
159 DATA DAB/ .1D0,.3D0,1.2D0,.2D0,
160 A .7D0, .2D0, .6D0, 4.2D0,
161 B 0.D0,0.D0,0.D0,0.D0,
162 C 4.D0, -1.D0, 2.D0, 4.D0,
163 D 6.D-10, 2.D-2, 1.D5, 10.D0,
164 E 4.D10, 2.D-2, 1.D-5, 10.D0,
165 F 2.D-10, 4.D-2, 1.D5, 10.D0,
166 G 2.D10, 4.D-2, 1.D-5, 10.D0,
167 H 4.D0, -2.D0, 8.D0, 4.D0 /
169 DATA DTRUE/0.D0,0.D0, 1.3D0, .2D0, 0.D0,0.D0,0.D0, .5D0, 0.D0,
170 A 0.D0,0.D0, 4.5D0, 4.2D0, 1.D0, .5D0, 0.D0,0.D0,0.D0,
171 B 0.D0,0.D0,0.D0,0.D0, -2.D0, 0.D0,0.D0,0.D0,0.D0,
172 C 0.D0,0.D0,0.D0, 4.D0, -1.D0, 0.D0,0.D0,0.D0,0.D0,
173 D 0.D0, 15.D-3, 0.D0, 10.D0, -1.D0, 0.D0, -1.D-4,
174 E 0.D0, 1.D0,
175 F 0.D0,0.D0, 6144.D-5, 10.D0, -1.D0, 4096.D0, -1.D6,
176 G 0.D0, 1.D0,
177 H 0.D0,0.D0,15.D0,10.D0,-1.D0, 5.D-5, 0.D0,1.D0,0.D0,
178 I 0.D0,0.D0, 15.D0, 10.D0, -1. D0, 5.D5, -4096.D0,
179 J 1.D0, 4096.D-6,
180 K 0.D0,0.D0, 7.D0, 4.D0, 0.D0,0.D0, -.5D0, -.25D0, 0.D0/
182 DATA D12 /4096.D0/
183 DTRUE(1,1) = 12.D0 / 130.D0
184 DTRUE(2,1) = 36.D0 / 130.D0
185 DTRUE(7,1) = -1.D0 / 6.D0
186 DTRUE(1,2) = 14.D0 / 75.D0
187 DTRUE(2,2) = 49.D0 / 75.D0
188 DTRUE(9,2) = 1.D0 / 7.D0
190 DTRUE(3,5) = 4.D5 / (3.D0 * D12)
191 DTRUE(6,5) = 1.D0 / D12
192 DTRUE(8,5) = 1.D4 / (3.D0 * D12)
193 DTRUE(1,6) = 4.D10 / (1.5D0 * D12 * D12)
194 DTRUE(2,6) = 2.D-2 / 1.5D0
196 DTRUE(1,7) = 4.D0 / 150.D0
197 DTRUE(2,7) = (2.D-10 / 1.5D0) * (D12 * D12)
201 DTRUE(2,8) = 2.D10 / (1.5D0 * D12 * D12)
202 DTRUE(1,9) = 32.D0 / 7.D0
203 DTRUE(2,9) = -16.D0 / 7.D0
209 DBTRUE(1) = 1.0D0/0.6D0
210 DBTRUE(3) = -1.0D0/0.6D0
211 DBTRUE(5) = 1.0D0/0.6D0
268 DATA SA/0.3D0, -1.0D0, 0.0D0, 1.0D0, 0.3D0, 0.3D0,
269 + 0.3D0, 0.3D0, 0.3D0, 0.3D0/
270 DATA DV/0.1D0, 2.0D0, 2.0D0, 2.0D0, 2.0D0, 2.0D0,
271 + 2.0D0, 2.0D0, 0.3D0, 3.0D0, 3.0D0, 3.0D0, 3.0D0,
272 + 3.0D0, 3.0D0, 3.0D0, 0.3D0, -0.4D0, 4.0D0,
273 + 4.0D0, 4.0D0, 4.0D0, 4.0D0, 4.0D0, 0.2D0,
274 + -0.6D0, 0.3D0, 5.0D0, 5.0D0, 5.0D0, 5.0D0,
275 + 5.0D0, 0.1D0, -0.3D0, 0.5D0, -0.1D0, 6.0D0,
276 + 6.0D0, 6.0D0, 6.0D0, 0.1D0, 8.0D0, 8.0D0, 8.0D0,
277 + 8.0D0, 8.0D0, 8.0D0, 8.0D0, 0.3D0, 9.0D0, 9.0D0,
278 + 9.0D0, 9.0D0, 9.0D0, 9.0D0, 9.0D0, 0.3D0, 2.0D0,
279 + -0.4D0, 2.0D0, 2.0D0, 2.0D0, 2.0D0, 2.0D0,
280 + 0.2D0, 3.0D0, -0.6D0, 5.0D0, 0.3D0, 2.0D0,
281 + 2.0D0, 2.0D0, 0.1D0, 4.0D0, -0.3D0, 6.0D0,
282 + -0.5D0, 7.0D0, -0.1D0, 3.0D0/
283 DATA DTRUE1/0.0D0, 0.3D0, 0.5D0, 0.7D0, 0.6D0/
284 DATA DTRUE3/0.0D0, 0.3D0, 0.7D0, 1.1D0, 1.0D0/
285 DATA DTRUE5/0.10D0, 2.0D0, 2.0D0, 2.0D0, 2.0D0,
286 + 2.0D0, 2.0D0, 2.0D0, -0.3D0, 3.0D0, 3.0D0,
287 + 3.0D0, 3.0D0, 3.0D0, 3.0D0, 3.0D0, 0.0D0, 0.0D0,
288 + 4.0D0, 4.0D0, 4.0D0, 4.0D0, 4.0D0, 4.0D0,
289 + 0.20D0, -0.60D0, 0.30D0, 5.0D0, 5.0D0, 5.0D0,
290 + 5.0D0, 5.0D0, 0.03D0, -0.09D0, 0.15D0, -0.03D0,
291 + 6.0D0, 6.0D0, 6.0D0, 6.0D0, 0.10D0, 8.0D0,
292 + 8.0D0, 8.0D0, 8.0D0, 8.0D0, 8.0D0, 8.0D0,
293 + 0.09D0, 9.0D0, 9.0D0, 9.0D0, 9.0D0, 9.0D0,
294 + 9.0D0, 9.0D0, 0.09D0, 2.0D0, -0.12D0, 2.0D0,
295 + 2.0D0, 2.0D0, 2.0D0, 2.0D0, 0.06D0, 3.0D0,
296 + -0.18D0, 5.0D0, 0.09D0, 2.0D0, 2.0D0, 2.0D0,
297 + 0.03D0, 4.0D0, -0.09D0, 6.0D0, -0.15D0, 7.0D0,
298 + -0.03D0, 3.0D0/
376 DATA SA/0.3D0/
381 DATA DX1/0.6D0, 0.1D0, -0.5D0, 0.8D0, 0.9D0, -0.3D0,
382 + -0.4D0/
383 DATA DY1/0.5D0, -0.9D0, 0.3D0, 0.7D0, -0.6D0, 0.2D0,
384 + 0.8D0/
385 DATA DT7/0.0D0, 0.30D0, 0.21D0, 0.62D0, 0.0D0,
386 + 0.30D0, -0.07D0, 0.85D0, 0.0D0, 0.30D0, -0.79D0,
387 + -0.74D0, 0.0D0, 0.30D0, 0.33D0, 1.27D0/
388 DATA DT8/0.5D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
389 + 0.0D0, 0.68D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
390 + 0.0D0, 0.0D0, 0.68D0, -0.87D0, 0.0D0, 0.0D0,
391 + 0.0D0, 0.0D0, 0.0D0, 0.68D0, -0.87D0, 0.15D0,
392 + 0.94D0, 0.0D0, 0.0D0, 0.0D0, 0.5D0, 0.0D0,
393 + 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.68D0,
394 + 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
395 + 0.35D0, -0.9D0, 0.48D0, 0.0D0, 0.0D0, 0.0D0,
396 + 0.0D0, 0.38D0, -0.9D0, 0.57D0, 0.7D0, -0.75D0,
397 + 0.2D0, 0.98D0, 0.5D0, 0.0D0, 0.0D0, 0.0D0,
398 + 0.0D0, 0.0D0, 0.0D0, 0.68D0, 0.0D0, 0.0D0,
399 + 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.35D0, -0.72D0,
400 + 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.38D0,
401 + -0.63D0, 0.15D0, 0.88D0, 0.0D0, 0.0D0, 0.0D0,
402 + 0.5D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
403 + 0.68D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
404 + 0.0D0, 0.68D0, -0.9D0, 0.33D0, 0.0D0, 0.0D0,
405 + 0.0D0, 0.0D0, 0.68D0, -0.9D0, 0.33D0, 0.7D0,
406 + -0.75D0, 0.2D0, 1.04D0/
407 DATA DT10X/0.6D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
408 + 0.0D0, 0.5D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
409 + 0.0D0, 0.5D0, -0.9D0, 0.0D0, 0.0D0, 0.0D0,
410 + 0.0D0, 0.0D0, 0.5D0, -0.9D0, 0.3D0, 0.7D0,
411 + 0.0D0, 0.0D0, 0.0D0, 0.6D0, 0.0D0, 0.0D0, 0.0D0,
412 + 0.0D0, 0.0D0, 0.0D0, 0.5D0, 0.0D0, 0.0D0, 0.0D0,
413 + 0.0D0, 0.0D0, 0.0D0, 0.3D0, 0.1D0, 0.5D0, 0.0D0,
414 + 0.0D0, 0.0D0, 0.0D0, 0.8D0, 0.1D0, -0.6D0,
415 + 0.8D0, 0.3D0, -0.3D0, 0.5D0, 0.6D0, 0.0D0,
416 + 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.5D0, 0.0D0,
417 + 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, -0.9D0,
418 + 0.1D0, 0.5D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.7D0,
419 + 0.1D0, 0.3D0, 0.8D0, -0.9D0, -0.3D0, 0.5D0,
420 + 0.6D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
421 + 0.5D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
422 + 0.5D0, 0.3D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
423 + 0.5D0, 0.3D0, -0.6D0, 0.8D0, 0.0D0, 0.0D0,
424 + 0.0D0/
425 DATA DT10Y/0.5D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
426 + 0.0D0, 0.6D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
427 + 0.0D0, 0.6D0, 0.1D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
428 + 0.0D0, 0.6D0, 0.1D0, -0.5D0, 0.8D0, 0.0D0,
429 + 0.0D0, 0.0D0, 0.5D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
430 + 0.0D0, 0.0D0, 0.6D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
431 + 0.0D0, 0.0D0, -0.5D0, -0.9D0, 0.6D0, 0.0D0,
432 + 0.0D0, 0.0D0, 0.0D0, -0.4D0, -0.9D0, 0.9D0,
433 + 0.7D0, -0.5D0, 0.2D0, 0.6D0, 0.5D0, 0.0D0,
434 + 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.6D0, 0.0D0,
435 + 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, -0.5D0,
436 + 0.6D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
437 + -0.4D0, 0.9D0, -0.5D0, 0.6D0, 0.0D0, 0.0D0,
438 + 0.0D0, 0.5D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
439 + 0.0D0, 0.6D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
440 + 0.0D0, 0.6D0, -0.9D0, 0.1D0, 0.0D0, 0.0D0,
441 + 0.0D0, 0.0D0, 0.6D0, -0.9D0, 0.1D0, 0.7D0,
442 + -0.5D0, 0.2D0, 0.8D0/
443 DATA SSIZE1/0.0D0, 0.3D0, 1.6D0, 3.2D0/
444 DATA SSIZE2/0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
445 + 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
446 + 0.0D0, 1.17D0, 1.17D0, 1.17D0, 1.17D0, 1.17D0,
447 + 1.17D0, 1.17D0, 1.17D0, 1.17D0, 1.17D0, 1.17D0,
448 + 1.17D0, 1.17D0, 1.17D0/
452 DATA DPAR/-2.D0, 0.D0,0.D0,0.D0,0.D0,
453 A -1.D0, 2.D0, -3.D0, -4.D0, 5.D0,
454 B 0.D0, 0.D0, 2.D0, -3.D0, 0.D0,
455 C 1.D0, 5.D0, 2.D0, 0.D0, -4.D0/
457 DATA DT19XA/.6D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
458 A .6D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
459 B .6D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
460 C .6D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
461 D .6D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
462 E -.8D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
463 F -.9D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
464 G 3.5D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
465 H .6D0, .1D0, 0.D0,0.D0,0.D0,0.D0,0.D0,
466 I -.8D0, 3.8D0, 0.D0,0.D0,0.D0,0.D0,0.D0,
467 J -.9D0, 2.8D0, 0.D0,0.D0,0.D0,0.D0,0.D0,
468 K 3.5D0, -.4D0, 0.D0,0.D0,0.D0,0.D0,0.D0,
469 L .6D0, .1D0, -.5D0, .8D0, 0.D0,0.D0,0.D0,
470 M -.8D0, 3.8D0, -2.2D0, -1.2D0, 0.D0,0.D0,0.D0,
471 N -.9D0, 2.8D0, -1.4D0, -1.3D0, 0.D0,0.D0,0.D0,
472 O 3.5D0, -.4D0, -2.2D0, 4.7D0, 0.D0,0.D0,0.D0/
474 DATA DT19XB/.6D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
475 A .6D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
476 B .6D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
477 C .6D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
478 D .6D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
479 E -.8D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
480 F -.9D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
481 G 3.5D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
482 H .6D0, .1D0, -.5D0, 0.D0,0.D0,0.D0,0.D0,
483 I 0.D0, .1D0, -3.0D0, 0.D0,0.D0,0.D0,0.D0,
484 J -.3D0, .1D0, -2.0D0, 0.D0,0.D0,0.D0,0.D0,
485 K 3.3D0, .1D0, -2.0D0, 0.D0,0.D0,0.D0,0.D0,
486 L .6D0, .1D0, -.5D0, .8D0, .9D0, -.3D0, -.4D0,
487 M -2.0D0, .1D0, 1.4D0, .8D0, .6D0, -.3D0, -2.8D0,
488 N -1.8D0, .1D0, 1.3D0, .8D0, 0.D0, -.3D0, -1.9D0,
489 O 3.8D0, .1D0, -3.1D0, .8D0, 4.8D0, -.3D0, -1.5D0 /
491 DATA DT19XC/.6D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
492 A .6D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
493 B .6D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
494 C .6D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
495 D .6D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
496 E -.8D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
497 F -.9D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
498 G 3.5D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
499 H .6D0, .1D0, -.5D0, 0.D0,0.D0,0.D0,0.D0,
500 I 4.8D0, .1D0, -3.0D0, 0.D0,0.D0,0.D0,0.D0,
501 J 3.3D0, .1D0, -2.0D0, 0.D0,0.D0,0.D0,0.D0,
502 K 2.1D0, .1D0, -2.0D0, 0.D0,0.D0,0.D0,0.D0,
503 L .6D0, .1D0, -.5D0, .8D0, .9D0, -.3D0, -.4D0,
504 M -1.6D0, .1D0, -2.2D0, .8D0, 5.4D0, -.3D0, -2.8D0,
505 N -1.5D0, .1D0, -1.4D0, .8D0, 3.6D0, -.3D0, -1.9D0,
506 O 3.7D0, .1D0, -2.2D0, .8D0, 3.6D0, -.3D0, -1.5D0 /
508 DATA DT19XD/.6D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
509 A .6D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
510 B .6D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
511 C .6D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
512 D .6D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
513 E -.8D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
514 F -.9D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
515 G 3.5D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
516 H .6D0, .1D0, 0.D0,0.D0,0.D0,0.D0,0.D0,
517 I -.8D0, -1.0D0, 0.D0,0.D0,0.D0,0.D0,0.D0,
518 J -.9D0, -.8D0, 0.D0,0.D0,0.D0,0.D0,0.D0,
519 K 3.5D0, .8D0, 0.D0,0.D0,0.D0,0.D0,0.D0,
520 L .6D0, .1D0, -.5D0, .8D0, 0.D0,0.D0,0.D0,
521 M -.8D0, -1.0D0, 1.4D0, -1.6D0, 0.D0,0.D0,0.D0,
522 N -.9D0, -.8D0, 1.3D0, -1.6D0, 0.D0,0.D0,0.D0,
523 O 3.5D0, .8D0, -3.1D0, 4.8D0, 0.D0,0.D0,0.D0/
525 DATA DT19YA/.5D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
526 A .5D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
527 B .5D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
528 C .5D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
529 D .5D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
530 E .7D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
531 F 1.7D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
532 G -2.6D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
533 H .5D0, -.9D0, 0.D0,0.D0,0.D0,0.D0,0.D0,
534 I .7D0, -4.8D0, 0.D0,0.D0,0.D0,0.D0,0.D0,
535 J 1.7D0, -.7D0, 0.D0,0.D0,0.D0,0.D0,0.D0,
536 K -2.6D0, 3.5D0, 0.D0,0.D0,0.D0,0.D0,0.D0,
537 L .5D0, -.9D0, .3D0, .7D0, 0.D0,0.D0,0.D0,
538 M .7D0, -4.8D0, 3.0D0, 1.1D0, 0.D0,0.D0,0.D0,
539 N 1.7D0, -.7D0, -.7D0, 2.3D0, 0.D0,0.D0,0.D0,
540 O -2.6D0, 3.5D0, -.7D0, -3.6D0, 0.D0,0.D0,0.D0/
542 DATA DT19YB/.5D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
543 A .5D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
544 B .5D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
545 C .5D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
546 D .5D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
547 E .7D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
548 F 1.7D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
549 G -2.6D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
550 H .5D0, -.9D0, .3D0, 0.D0,0.D0,0.D0,0.D0,
551 I 4.0D0, -.9D0, -.3D0, 0.D0,0.D0,0.D0,0.D0,
552 J -.5D0, -.9D0, 1.5D0, 0.D0,0.D0,0.D0,0.D0,
553 K -1.5D0, -.9D0, -1.8D0, 0.D0,0.D0,0.D0,0.D0,
554 L .5D0, -.9D0, .3D0, .7D0, -.6D0, .2D0, .8D0,
555 M 3.7D0, -.9D0, -1.2D0, .7D0, -1.5D0, .2D0, 2.2D0,
556 N -.3D0, -.9D0, 2.1D0, .7D0, -1.6D0, .2D0, 2.0D0,
557 O -1.6D0, -.9D0, -2.1D0, .7D0, 2.9D0, .2D0, -3.8D0 /
559 DATA DT19YC/.5D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
560 A .5D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
561 B .5D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
562 C .5D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
563 D .5D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
564 E .7D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
565 F 1.7D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
566 G -2.6D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
567 H .5D0, -.9D0, 0.D0,0.D0,0.D0,0.D0,0.D0,
568 I 4.0D0, -6.3D0, 0.D0,0.D0,0.D0,0.D0,0.D0,
569 J -.5D0, .3D0, 0.D0,0.D0,0.D0,0.D0,0.D0,
570 K -1.5D0, 3.0D0, 0.D0,0.D0,0.D0,0.D0,0.D0,
571 L .5D0, -.9D0, .3D0, .7D0, 0.D0,0.D0,0.D0,
572 M 3.7D0, -7.2D0, 3.0D0, 1.7D0, 0.D0,0.D0,0.D0,
573 N -.3D0, .9D0, -.7D0, 1.9D0, 0.D0,0.D0,0.D0,
574 O -1.6D0, 2.7D0, -.7D0, -3.4D0, 0.D0,0.D0,0.D0/
576 DATA DT19YD/.5D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
577 A .5D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
578 B .5D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
579 C .5D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
580 D .5D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
581 E .7D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
582 F 1.7D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
583 G -2.6D0, 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
584 H .5D0, -.9D0, .3D0, 0.D0,0.D0,0.D0,0.D0,
585 I .7D0, -.9D0, 1.2D0, 0.D0,0.D0,0.D0,0.D0,
586 J 1.7D0, -.9D0, .5D0, 0.D0,0.D0,0.D0,0.D0,
587 K -2.6D0, -.9D0, -1.3D0, 0.D0,0.D0,0.D0,0.D0,
588 L .5D0, -.9D0, .3D0, .7D0, -.6D0, .2D0, .8D0,
589 M .7D0, -.9D0, 1.2D0, .7D0, -1.5D0, .2D0, 1.6D0,
590 N 1.7D0, -.9D0, .5D0, .7D0, -1.6D0, .2D0, 2.4D0,
591 O -2.6D0, -.9D0, -1.3D0, .7D0, 2.9D0, .2D0, -4.0D0 /
629 CALL STEST(LENY,SY,STY,SSIZE2(1,1),1.0D0)
637 CALL STEST(LENX,SX,STX,SSIZE2(1,1),1.0D0)
638 CALL STEST(LENY,SY,STY,SSIZE2(1,1),1.0D0)
660 $ SSIZE(1) = 2.4D0
662 $ SSIZE(5) = 1.8D0
711 DATA DX1/0.6D0, 0.1D0, -0.5D0, 0.8D0, 0.9D0, -0.3D0,
712 + -0.4D0/
713 DATA DY1/0.5D0, -0.9D0, 0.3D0, 0.7D0, -0.6D0, 0.2D0,
714 + 0.8D0/
715 DATA SC, SS/0.8D0, 0.6D0/
716 DATA DT9X/0.6D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
717 + 0.0D0, 0.78D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
718 + 0.0D0, 0.0D0, 0.78D0, -0.46D0, 0.0D0, 0.0D0,
719 + 0.0D0, 0.0D0, 0.0D0, 0.78D0, -0.46D0, -0.22D0,
720 + 1.06D0, 0.0D0, 0.0D0, 0.0D0, 0.6D0, 0.0D0,
721 + 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.78D0,
722 + 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
723 + 0.66D0, 0.1D0, -0.1D0, 0.0D0, 0.0D0, 0.0D0,
724 + 0.0D0, 0.96D0, 0.1D0, -0.76D0, 0.8D0, 0.90D0,
725 + -0.3D0, -0.02D0, 0.6D0, 0.0D0, 0.0D0, 0.0D0,
726 + 0.0D0, 0.0D0, 0.0D0, 0.78D0, 0.0D0, 0.0D0,
727 + 0.0D0, 0.0D0, 0.0D0, 0.0D0, -0.06D0, 0.1D0,
728 + -0.1D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.90D0,
729 + 0.1D0, -0.22D0, 0.8D0, 0.18D0, -0.3D0, -0.02D0,
730 + 0.6D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
731 + 0.78D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
732 + 0.0D0, 0.78D0, 0.26D0, 0.0D0, 0.0D0, 0.0D0,
733 + 0.0D0, 0.0D0, 0.78D0, 0.26D0, -0.76D0, 1.12D0,
734 + 0.0D0, 0.0D0, 0.0D0/
735 DATA DT9Y/0.5D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
736 + 0.0D0, 0.04D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
737 + 0.0D0, 0.0D0, 0.04D0, -0.78D0, 0.0D0, 0.0D0,
738 + 0.0D0, 0.0D0, 0.0D0, 0.04D0, -0.78D0, 0.54D0,
739 + 0.08D0, 0.0D0, 0.0D0, 0.0D0, 0.5D0, 0.0D0,
740 + 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.04D0,
741 + 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.7D0,
742 + -0.9D0, -0.12D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
743 + 0.64D0, -0.9D0, -0.30D0, 0.7D0, -0.18D0, 0.2D0,
744 + 0.28D0, 0.5D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
745 + 0.0D0, 0.0D0, 0.04D0, 0.0D0, 0.0D0, 0.0D0,
746 + 0.0D0, 0.0D0, 0.0D0, 0.7D0, -1.08D0, 0.0D0,
747 + 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.64D0, -1.26D0,
748 + 0.54D0, 0.20D0, 0.0D0, 0.0D0, 0.0D0, 0.5D0,
749 + 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
750 + 0.04D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
751 + 0.0D0, 0.04D0, -0.9D0, 0.18D0, 0.0D0, 0.0D0,
752 + 0.0D0, 0.0D0, 0.04D0, -0.9D0, 0.18D0, 0.7D0,
753 + -0.18D0, 0.2D0, 0.16D0/
754 DATA SSIZE2/0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
755 + 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
756 + 0.0D0, 1.17D0, 1.17D0, 1.17D0, 1.17D0, 1.17D0,
757 + 1.17D0, 1.17D0, 1.17D0, 1.17D0, 1.17D0, 1.17D0,
758 + 1.17D0, 1.17D0, 1.17D0/
898 PARAMETER (NOUT=6, ZERO=0.0D0)