Lines Matching refs:E0
102 DATA DA1/0.3E0, 0.4E0, -0.3E0, -0.4E0, -0.3E0, 0.0E0,
103 + 0.0E0, 1.0E0/
104 DATA DB1/0.4E0, 0.3E0, 0.4E0, 0.3E0, -0.4E0, 0.0E0,
105 + 1.0E0, 0.0E0/
106 DATA DC1/0.6E0, 0.8E0, -0.6E0, 0.8E0, 0.6E0, 1.0E0,
107 + 0.0E0, 1.0E0/
108 DATA DS1/0.8E0, 0.6E0, 0.8E0, -0.6E0, 0.8E0, 0.0E0,
109 + 1.0E0, 0.0E0/
110 DATA DATRUE/0.5E0, 0.5E0, 0.5E0, -0.5E0, -0.5E0,
111 + 0.0E0, 1.0E0, 1.0E0/
112 DATA DBTRUE/0.0E0, 0.6E0, 0.0E0, -0.6E0, 0.0E0,
113 + 0.0E0, 1.0E0, 0.0E0/
114 DATA D12/4096.0E0/
120 DBTRUE(1) = 1.0E0/0.6E0
121 DBTRUE(3) = -1.0E0/0.6E0
122 DBTRUE(5) = 1.0E0/0.6E0
170 DATA SA/0.3E0, -1.0E0, 0.0E0, 1.0E0, 0.3E0, 0.3E0,
171 + 0.3E0, 0.3E0, 0.3E0, 0.3E0/
172 DATA DV/0.1E0, 2.0E0, 2.0E0, 2.0E0, 2.0E0, 2.0E0,
173 + 2.0E0, 2.0E0, 0.3E0, 3.0E0, 3.0E0, 3.0E0, 3.0E0,
174 + 3.0E0, 3.0E0, 3.0E0, 0.3E0, -0.4E0, 4.0E0,
175 + 4.0E0, 4.0E0, 4.0E0, 4.0E0, 4.0E0, 0.2E0,
176 + -0.6E0, 0.3E0, 5.0E0, 5.0E0, 5.0E0, 5.0E0,
177 + 5.0E0, 0.1E0, -0.3E0, 0.5E0, -0.1E0, 6.0E0,
178 + 6.0E0, 6.0E0, 6.0E0, 0.1E0, 8.0E0, 8.0E0, 8.0E0,
179 + 8.0E0, 8.0E0, 8.0E0, 8.0E0, 0.3E0, 9.0E0, 9.0E0,
180 + 9.0E0, 9.0E0, 9.0E0, 9.0E0, 9.0E0, 0.3E0, 2.0E0,
181 + -0.4E0, 2.0E0, 2.0E0, 2.0E0, 2.0E0, 2.0E0,
182 + 0.2E0, 3.0E0, -0.6E0, 5.0E0, 0.3E0, 2.0E0,
183 + 2.0E0, 2.0E0, 0.1E0, 4.0E0, -0.3E0, 6.0E0,
184 + -0.5E0, 7.0E0, -0.1E0, 3.0E0/
185 DATA DTRUE1/0.0E0, 0.3E0, 0.5E0, 0.7E0, 0.6E0/
186 DATA DTRUE3/0.0E0, 0.3E0, 0.7E0, 1.1E0, 1.0E0/
187 DATA DTRUE5/0.10E0, 2.0E0, 2.0E0, 2.0E0, 2.0E0,
188 + 2.0E0, 2.0E0, 2.0E0, -0.3E0, 3.0E0, 3.0E0,
189 + 3.0E0, 3.0E0, 3.0E0, 3.0E0, 3.0E0, 0.0E0, 0.0E0,
190 + 4.0E0, 4.0E0, 4.0E0, 4.0E0, 4.0E0, 4.0E0,
191 + 0.20E0, -0.60E0, 0.30E0, 5.0E0, 5.0E0, 5.0E0,
192 + 5.0E0, 5.0E0, 0.03E0, -0.09E0, 0.15E0, -0.03E0,
193 + 6.0E0, 6.0E0, 6.0E0, 6.0E0, 0.10E0, 8.0E0,
194 + 8.0E0, 8.0E0, 8.0E0, 8.0E0, 8.0E0, 8.0E0,
195 + 0.09E0, 9.0E0, 9.0E0, 9.0E0, 9.0E0, 9.0E0,
196 + 9.0E0, 9.0E0, 0.09E0, 2.0E0, -0.12E0, 2.0E0,
197 + 2.0E0, 2.0E0, 2.0E0, 2.0E0, 0.06E0, 3.0E0,
198 + -0.18E0, 5.0E0, 0.09E0, 2.0E0, 2.0E0, 2.0E0,
199 + 0.03E0, 4.0E0, -0.09E0, 6.0E0, -0.15E0, 7.0E0,
200 + -0.03E0, 3.0E0/
266 DATA SA/0.3E0/
271 DATA DX1/0.6E0, 0.1E0, -0.5E0, 0.8E0, 0.9E0, -0.3E0,
272 + -0.4E0/
273 DATA DY1/0.5E0, -0.9E0, 0.3E0, 0.7E0, -0.6E0, 0.2E0,
274 + 0.8E0/
275 DATA SC, SS/0.8E0, 0.6E0/
276 DATA DT7/0.0E0, 0.30E0, 0.21E0, 0.62E0, 0.0E0,
277 + 0.30E0, -0.07E0, 0.85E0, 0.0E0, 0.30E0, -0.79E0,
278 + -0.74E0, 0.0E0, 0.30E0, 0.33E0, 1.27E0/
279 DATA DT8/0.5E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
280 + 0.0E0, 0.68E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
281 + 0.0E0, 0.0E0, 0.68E0, -0.87E0, 0.0E0, 0.0E0,
282 + 0.0E0, 0.0E0, 0.0E0, 0.68E0, -0.87E0, 0.15E0,
283 + 0.94E0, 0.0E0, 0.0E0, 0.0E0, 0.5E0, 0.0E0,
284 + 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.68E0,
285 + 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
286 + 0.35E0, -0.9E0, 0.48E0, 0.0E0, 0.0E0, 0.0E0,
287 + 0.0E0, 0.38E0, -0.9E0, 0.57E0, 0.7E0, -0.75E0,
288 + 0.2E0, 0.98E0, 0.5E0, 0.0E0, 0.0E0, 0.0E0,
289 + 0.0E0, 0.0E0, 0.0E0, 0.68E0, 0.0E0, 0.0E0,
290 + 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.35E0, -0.72E0,
291 + 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.38E0,
292 + -0.63E0, 0.15E0, 0.88E0, 0.0E0, 0.0E0, 0.0E0,
293 + 0.5E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
294 + 0.68E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
295 + 0.0E0, 0.68E0, -0.9E0, 0.33E0, 0.0E0, 0.0E0,
296 + 0.0E0, 0.0E0, 0.68E0, -0.9E0, 0.33E0, 0.7E0,
297 + -0.75E0, 0.2E0, 1.04E0/
298 DATA DT9X/0.6E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
299 + 0.0E0, 0.78E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
300 + 0.0E0, 0.0E0, 0.78E0, -0.46E0, 0.0E0, 0.0E0,
301 + 0.0E0, 0.0E0, 0.0E0, 0.78E0, -0.46E0, -0.22E0,
302 + 1.06E0, 0.0E0, 0.0E0, 0.0E0, 0.6E0, 0.0E0,
303 + 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.78E0,
304 + 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
305 + 0.66E0, 0.1E0, -0.1E0, 0.0E0, 0.0E0, 0.0E0,
306 + 0.0E0, 0.96E0, 0.1E0, -0.76E0, 0.8E0, 0.90E0,
307 + -0.3E0, -0.02E0, 0.6E0, 0.0E0, 0.0E0, 0.0E0,
308 + 0.0E0, 0.0E0, 0.0E0, 0.78E0, 0.0E0, 0.0E0,
309 + 0.0E0, 0.0E0, 0.0E0, 0.0E0, -0.06E0, 0.1E0,
310 + -0.1E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.90E0,
311 + 0.1E0, -0.22E0, 0.8E0, 0.18E0, -0.3E0, -0.02E0,
312 + 0.6E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
313 + 0.78E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
314 + 0.0E0, 0.78E0, 0.26E0, 0.0E0, 0.0E0, 0.0E0,
315 + 0.0E0, 0.0E0, 0.78E0, 0.26E0, -0.76E0, 1.12E0,
316 + 0.0E0, 0.0E0, 0.0E0/
317 DATA DT9Y/0.5E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
318 + 0.0E0, 0.04E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
319 + 0.0E0, 0.0E0, 0.04E0, -0.78E0, 0.0E0, 0.0E0,
320 + 0.0E0, 0.0E0, 0.0E0, 0.04E0, -0.78E0, 0.54E0,
321 + 0.08E0, 0.0E0, 0.0E0, 0.0E0, 0.5E0, 0.0E0,
322 + 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.04E0,
323 + 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.7E0,
324 + -0.9E0, -0.12E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
325 + 0.64E0, -0.9E0, -0.30E0, 0.7E0, -0.18E0, 0.2E0,
326 + 0.28E0, 0.5E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
327 + 0.0E0, 0.0E0, 0.04E0, 0.0E0, 0.0E0, 0.0E0,
328 + 0.0E0, 0.0E0, 0.0E0, 0.7E0, -1.08E0, 0.0E0,
329 + 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.64E0, -1.26E0,
330 + 0.54E0, 0.20E0, 0.0E0, 0.0E0, 0.0E0, 0.5E0,
331 + 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
332 + 0.04E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
333 + 0.0E0, 0.04E0, -0.9E0, 0.18E0, 0.0E0, 0.0E0,
334 + 0.0E0, 0.0E0, 0.04E0, -0.9E0, 0.18E0, 0.7E0,
335 + -0.18E0, 0.2E0, 0.16E0/
336 DATA DT10X/0.6E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
337 + 0.0E0, 0.5E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
338 + 0.0E0, 0.5E0, -0.9E0, 0.0E0, 0.0E0, 0.0E0,
339 + 0.0E0, 0.0E0, 0.5E0, -0.9E0, 0.3E0, 0.7E0,
340 + 0.0E0, 0.0E0, 0.0E0, 0.6E0, 0.0E0, 0.0E0, 0.0E0,
341 + 0.0E0, 0.0E0, 0.0E0, 0.5E0, 0.0E0, 0.0E0, 0.0E0,
342 + 0.0E0, 0.0E0, 0.0E0, 0.3E0, 0.1E0, 0.5E0, 0.0E0,
343 + 0.0E0, 0.0E0, 0.0E0, 0.8E0, 0.1E0, -0.6E0,
344 + 0.8E0, 0.3E0, -0.3E0, 0.5E0, 0.6E0, 0.0E0,
345 + 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.5E0, 0.0E0,
346 + 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, -0.9E0,
347 + 0.1E0, 0.5E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.7E0,
348 + 0.1E0, 0.3E0, 0.8E0, -0.9E0, -0.3E0, 0.5E0,
349 + 0.6E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
350 + 0.5E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
351 + 0.5E0, 0.3E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
352 + 0.5E0, 0.3E0, -0.6E0, 0.8E0, 0.0E0, 0.0E0,
353 + 0.0E0/
354 DATA DT10Y/0.5E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
355 + 0.0E0, 0.6E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
356 + 0.0E0, 0.6E0, 0.1E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
357 + 0.0E0, 0.6E0, 0.1E0, -0.5E0, 0.8E0, 0.0E0,
358 + 0.0E0, 0.0E0, 0.5E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
359 + 0.0E0, 0.0E0, 0.6E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
360 + 0.0E0, 0.0E0, -0.5E0, -0.9E0, 0.6E0, 0.0E0,
361 + 0.0E0, 0.0E0, 0.0E0, -0.4E0, -0.9E0, 0.9E0,
362 + 0.7E0, -0.5E0, 0.2E0, 0.6E0, 0.5E0, 0.0E0,
363 + 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.6E0, 0.0E0,
364 + 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, -0.5E0,
365 + 0.6E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
366 + -0.4E0, 0.9E0, -0.5E0, 0.6E0, 0.0E0, 0.0E0,
367 + 0.0E0, 0.5E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
368 + 0.0E0, 0.6E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
369 + 0.0E0, 0.6E0, -0.9E0, 0.1E0, 0.0E0, 0.0E0,
370 + 0.0E0, 0.0E0, 0.6E0, -0.9E0, 0.1E0, 0.7E0,
371 + -0.5E0, 0.2E0, 0.8E0/
372 DATA SSIZE1/0.0E0, 0.3E0, 1.6E0, 3.2E0/
373 DATA SSIZE2/0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
374 + 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
375 + 0.0E0, 1.17E0, 1.17E0, 1.17E0, 1.17E0, 1.17E0,
376 + 1.17E0, 1.17E0, 1.17E0, 1.17E0, 1.17E0, 1.17E0,
377 + 1.17E0, 1.17E0, 1.17E0/
414 CALL STEST(LENY,SY,STY,SSIZE2(1,1),1.0E0)
422 CALL STEST(LENX,SX,STX,SSIZE2(1,1),1.0E0)
423 CALL STEST(LENY,SY,STY,SSIZE2(1,1),1.0E0)
459 DATA SA/0.3E0/
464 DATA DX1/0.6E0, 0.1E0, -0.5E0, 0.8E0, 0.9E0, -0.3E0,
465 + -0.4E0/
466 DATA DY1/0.5E0, -0.9E0, 0.3E0, 0.7E0, -0.6E0, 0.2E0,
467 + 0.8E0/
468 DATA SC, SS/0.8E0, 0.6E0/
469 DATA DT9X/0.6E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
470 + 0.0E0, 0.78E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
471 + 0.0E0, 0.0E0, 0.78E0, -0.46E0, 0.0E0, 0.0E0,
472 + 0.0E0, 0.0E0, 0.0E0, 0.78E0, -0.46E0, -0.22E0,
473 + 1.06E0, 0.0E0, 0.0E0, 0.0E0, 0.6E0, 0.0E0,
474 + 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.78E0,
475 + 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
476 + 0.66E0, 0.1E0, -0.1E0, 0.0E0, 0.0E0, 0.0E0,
477 + 0.0E0, 0.96E0, 0.1E0, -0.76E0, 0.8E0, 0.90E0,
478 + -0.3E0, -0.02E0, 0.6E0, 0.0E0, 0.0E0, 0.0E0,
479 + 0.0E0, 0.0E0, 0.0E0, 0.78E0, 0.0E0, 0.0E0,
480 + 0.0E0, 0.0E0, 0.0E0, 0.0E0, -0.06E0, 0.1E0,
481 + -0.1E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.90E0,
482 + 0.1E0, -0.22E0, 0.8E0, 0.18E0, -0.3E0, -0.02E0,
483 + 0.6E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
484 + 0.78E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
485 + 0.0E0, 0.78E0, 0.26E0, 0.0E0, 0.0E0, 0.0E0,
486 + 0.0E0, 0.0E0, 0.78E0, 0.26E0, -0.76E0, 1.12E0,
487 + 0.0E0, 0.0E0, 0.0E0/
488 DATA DT9Y/0.5E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
489 + 0.0E0, 0.04E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
490 + 0.0E0, 0.0E0, 0.04E0, -0.78E0, 0.0E0, 0.0E0,
491 + 0.0E0, 0.0E0, 0.0E0, 0.04E0, -0.78E0, 0.54E0,
492 + 0.08E0, 0.0E0, 0.0E0, 0.0E0, 0.5E0, 0.0E0,
493 + 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.04E0,
494 + 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.7E0,
495 + -0.9E0, -0.12E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
496 + 0.64E0, -0.9E0, -0.30E0, 0.7E0, -0.18E0, 0.2E0,
497 + 0.28E0, 0.5E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
498 + 0.0E0, 0.0E0, 0.04E0, 0.0E0, 0.0E0, 0.0E0,
499 + 0.0E0, 0.0E0, 0.0E0, 0.7E0, -1.08E0, 0.0E0,
500 + 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.64E0, -1.26E0,
501 + 0.54E0, 0.20E0, 0.0E0, 0.0E0, 0.0E0, 0.5E0,
502 + 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
503 + 0.04E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
504 + 0.0E0, 0.04E0, -0.9E0, 0.18E0, 0.0E0, 0.0E0,
505 + 0.0E0, 0.0E0, 0.04E0, -0.9E0, 0.18E0, 0.7E0,
506 + -0.18E0, 0.2E0, 0.16E0/
507 DATA SSIZE2/0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
508 + 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0, 0.0E0,
509 + 0.0E0, 1.17E0, 1.17E0, 1.17E0, 1.17E0, 1.17E0,
510 + 1.17E0, 1.17E0, 1.17E0, 1.17E0, 1.17E0, 1.17E0,
511 + 1.17E0, 1.17E0, 1.17E0/
673 IF (SDIFF(ABS(SSIZE(I))+ABS(SFAC*SD),ABS(SSIZE(I))).EQ.0.0E0)