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