Lines Matching full:d0
102 DATA DA1/0.3D0, 0.4D0, -0.3D0, -0.4D0, -0.3D0, 0.0D0,
103 + 0.0D0, 1.0D0/
104 DATA DB1/0.4D0, 0.3D0, 0.4D0, 0.3D0, -0.4D0, 0.0D0,
105 + 1.0D0, 0.0D0/
106 DATA DC1/0.6D0, 0.8D0, -0.6D0, 0.8D0, 0.6D0, 1.0D0,
107 + 0.0D0, 1.0D0/
108 DATA DS1/0.8D0, 0.6D0, 0.8D0, -0.6D0, 0.8D0, 0.0D0,
109 + 1.0D0, 0.0D0/
110 DATA DATRUE/0.5D0, 0.5D0, 0.5D0, -0.5D0, -0.5D0,
111 + 0.0D0, 1.0D0, 1.0D0/
112 DATA DBTRUE/0.0D0, 0.6D0, 0.0D0, -0.6D0, 0.0D0,
113 + 0.0D0, 1.0D0, 0.0D0/
119 DBTRUE(1) = 1.0D0/0.6D0
120 DBTRUE(3) = -1.0D0/0.6D0
121 DBTRUE(5) = 1.0D0/0.6D0
169 DATA SA/0.3D0, -1.0D0, 0.0D0, 1.0D0, 0.3D0, 0.3D0,
170 + 0.3D0, 0.3D0, 0.3D0, 0.3D0/
171 DATA DV/0.1D0, 2.0D0, 2.0D0, 2.0D0, 2.0D0, 2.0D0,
172 + 2.0D0, 2.0D0, 0.3D0, 3.0D0, 3.0D0, 3.0D0, 3.0D0,
173 + 3.0D0, 3.0D0, 3.0D0, 0.3D0, -0.4D0, 4.0D0,
174 + 4.0D0, 4.0D0, 4.0D0, 4.0D0, 4.0D0, 0.2D0,
175 + -0.6D0, 0.3D0, 5.0D0, 5.0D0, 5.0D0, 5.0D0,
176 + 5.0D0, 0.1D0, -0.3D0, 0.5D0, -0.1D0, 6.0D0,
177 + 6.0D0, 6.0D0, 6.0D0, 0.1D0, 8.0D0, 8.0D0, 8.0D0,
178 + 8.0D0, 8.0D0, 8.0D0, 8.0D0, 0.3D0, 9.0D0, 9.0D0,
179 + 9.0D0, 9.0D0, 9.0D0, 9.0D0, 9.0D0, 0.3D0, 2.0D0,
180 + -0.4D0, 2.0D0, 2.0D0, 2.0D0, 2.0D0, 2.0D0,
181 + 0.2D0, 3.0D0, -0.6D0, 5.0D0, 0.3D0, 2.0D0,
182 + 2.0D0, 2.0D0, 0.1D0, 4.0D0, -0.3D0, 6.0D0,
183 + -0.5D0, 7.0D0, -0.1D0, 3.0D0/
184 DATA DTRUE1/0.0D0, 0.3D0, 0.5D0, 0.7D0, 0.6D0/
185 DATA DTRUE3/0.0D0, 0.3D0, 0.7D0, 1.1D0, 1.0D0/
186 DATA DTRUE5/0.10D0, 2.0D0, 2.0D0, 2.0D0, 2.0D0,
187 + 2.0D0, 2.0D0, 2.0D0, -0.3D0, 3.0D0, 3.0D0,
188 + 3.0D0, 3.0D0, 3.0D0, 3.0D0, 3.0D0, 0.0D0, 0.0D0,
189 + 4.0D0, 4.0D0, 4.0D0, 4.0D0, 4.0D0, 4.0D0,
190 + 0.20D0, -0.60D0, 0.30D0, 5.0D0, 5.0D0, 5.0D0,
191 + 5.0D0, 5.0D0, 0.03D0, -0.09D0, 0.15D0, -0.03D0,
192 + 6.0D0, 6.0D0, 6.0D0, 6.0D0, 0.10D0, 8.0D0,
193 + 8.0D0, 8.0D0, 8.0D0, 8.0D0, 8.0D0, 8.0D0,
194 + 0.09D0, 9.0D0, 9.0D0, 9.0D0, 9.0D0, 9.0D0,
195 + 9.0D0, 9.0D0, 0.09D0, 2.0D0, -0.12D0, 2.0D0,
196 + 2.0D0, 2.0D0, 2.0D0, 2.0D0, 0.06D0, 3.0D0,
197 + -0.18D0, 5.0D0, 0.09D0, 2.0D0, 2.0D0, 2.0D0,
198 + 0.03D0, 4.0D0, -0.09D0, 6.0D0, -0.15D0, 7.0D0,
199 + -0.03D0, 3.0D0/
265 DATA SA/0.3D0/
270 DATA DX1/0.6D0, 0.1D0, -0.5D0, 0.8D0, 0.9D0, -0.3D0,
271 + -0.4D0/
272 DATA DY1/0.5D0, -0.9D0, 0.3D0, 0.7D0, -0.6D0, 0.2D0,
273 + 0.8D0/
274 DATA DT7/0.0D0, 0.30D0, 0.21D0, 0.62D0, 0.0D0,
275 + 0.30D0, -0.07D0, 0.85D0, 0.0D0, 0.30D0, -0.79D0,
276 + -0.74D0, 0.0D0, 0.30D0, 0.33D0, 1.27D0/
277 DATA DT8/0.5D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
278 + 0.0D0, 0.68D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
279 + 0.0D0, 0.0D0, 0.68D0, -0.87D0, 0.0D0, 0.0D0,
280 + 0.0D0, 0.0D0, 0.0D0, 0.68D0, -0.87D0, 0.15D0,
281 + 0.94D0, 0.0D0, 0.0D0, 0.0D0, 0.5D0, 0.0D0,
282 + 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.68D0,
283 + 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
284 + 0.35D0, -0.9D0, 0.48D0, 0.0D0, 0.0D0, 0.0D0,
285 + 0.0D0, 0.38D0, -0.9D0, 0.57D0, 0.7D0, -0.75D0,
286 + 0.2D0, 0.98D0, 0.5D0, 0.0D0, 0.0D0, 0.0D0,
287 + 0.0D0, 0.0D0, 0.0D0, 0.68D0, 0.0D0, 0.0D0,
288 + 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.35D0, -0.72D0,
289 + 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.38D0,
290 + -0.63D0, 0.15D0, 0.88D0, 0.0D0, 0.0D0, 0.0D0,
291 + 0.5D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
292 + 0.68D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
293 + 0.0D0, 0.68D0, -0.9D0, 0.33D0, 0.0D0, 0.0D0,
294 + 0.0D0, 0.0D0, 0.68D0, -0.9D0, 0.33D0, 0.7D0,
295 + -0.75D0, 0.2D0, 1.04D0/
296 DATA DT10X/0.6D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
297 + 0.0D0, 0.5D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
298 + 0.0D0, 0.5D0, -0.9D0, 0.0D0, 0.0D0, 0.0D0,
299 + 0.0D0, 0.0D0, 0.5D0, -0.9D0, 0.3D0, 0.7D0,
300 + 0.0D0, 0.0D0, 0.0D0, 0.6D0, 0.0D0, 0.0D0, 0.0D0,
301 + 0.0D0, 0.0D0, 0.0D0, 0.5D0, 0.0D0, 0.0D0, 0.0D0,
302 + 0.0D0, 0.0D0, 0.0D0, 0.3D0, 0.1D0, 0.5D0, 0.0D0,
303 + 0.0D0, 0.0D0, 0.0D0, 0.8D0, 0.1D0, -0.6D0,
304 + 0.8D0, 0.3D0, -0.3D0, 0.5D0, 0.6D0, 0.0D0,
305 + 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.5D0, 0.0D0,
306 + 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, -0.9D0,
307 + 0.1D0, 0.5D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.7D0,
308 + 0.1D0, 0.3D0, 0.8D0, -0.9D0, -0.3D0, 0.5D0,
309 + 0.6D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
310 + 0.5D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
311 + 0.5D0, 0.3D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
312 + 0.5D0, 0.3D0, -0.6D0, 0.8D0, 0.0D0, 0.0D0,
313 + 0.0D0/
314 DATA DT10Y/0.5D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
315 + 0.0D0, 0.6D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
316 + 0.0D0, 0.6D0, 0.1D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
317 + 0.0D0, 0.6D0, 0.1D0, -0.5D0, 0.8D0, 0.0D0,
318 + 0.0D0, 0.0D0, 0.5D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
319 + 0.0D0, 0.0D0, 0.6D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
320 + 0.0D0, 0.0D0, -0.5D0, -0.9D0, 0.6D0, 0.0D0,
321 + 0.0D0, 0.0D0, 0.0D0, -0.4D0, -0.9D0, 0.9D0,
322 + 0.7D0, -0.5D0, 0.2D0, 0.6D0, 0.5D0, 0.0D0,
323 + 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.6D0, 0.0D0,
324 + 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, -0.5D0,
325 + 0.6D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
326 + -0.4D0, 0.9D0, -0.5D0, 0.6D0, 0.0D0, 0.0D0,
327 + 0.0D0, 0.5D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
328 + 0.0D0, 0.6D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
329 + 0.0D0, 0.6D0, -0.9D0, 0.1D0, 0.0D0, 0.0D0,
330 + 0.0D0, 0.0D0, 0.6D0, -0.9D0, 0.1D0, 0.7D0,
331 + -0.5D0, 0.2D0, 0.8D0/
332 DATA SSIZE1/0.0D0, 0.3D0, 1.6D0, 3.2D0/
333 DATA SSIZE2/0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
334 + 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
335 + 0.0D0, 1.17D0, 1.17D0, 1.17D0, 1.17D0, 1.17D0,
336 + 1.17D0, 1.17D0, 1.17D0, 1.17D0, 1.17D0, 1.17D0,
337 + 1.17D0, 1.17D0, 1.17D0/
374 CALL STEST(LENY,SY,STY,SSIZE2(1,1),1.0D0)
382 CALL STEST(LENX,SX,STX,SSIZE2(1,1),1.0D0)
383 CALL STEST(LENY,SY,STY,SSIZE2(1,1),1.0D0)
423 DATA DX1/0.6D0, 0.1D0, -0.5D0, 0.8D0, 0.9D0, -0.3D0,
424 + -0.4D0/
425 DATA DY1/0.5D0, -0.9D0, 0.3D0, 0.7D0, -0.6D0, 0.2D0,
426 + 0.8D0/
427 DATA SC, SS/0.8D0, 0.6D0/
428 DATA DT9X/0.6D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
429 + 0.0D0, 0.78D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
430 + 0.0D0, 0.0D0, 0.78D0, -0.46D0, 0.0D0, 0.0D0,
431 + 0.0D0, 0.0D0, 0.0D0, 0.78D0, -0.46D0, -0.22D0,
432 + 1.06D0, 0.0D0, 0.0D0, 0.0D0, 0.6D0, 0.0D0,
433 + 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.78D0,
434 + 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
435 + 0.66D0, 0.1D0, -0.1D0, 0.0D0, 0.0D0, 0.0D0,
436 + 0.0D0, 0.96D0, 0.1D0, -0.76D0, 0.8D0, 0.90D0,
437 + -0.3D0, -0.02D0, 0.6D0, 0.0D0, 0.0D0, 0.0D0,
438 + 0.0D0, 0.0D0, 0.0D0, 0.78D0, 0.0D0, 0.0D0,
439 + 0.0D0, 0.0D0, 0.0D0, 0.0D0, -0.06D0, 0.1D0,
440 + -0.1D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.90D0,
441 + 0.1D0, -0.22D0, 0.8D0, 0.18D0, -0.3D0, -0.02D0,
442 + 0.6D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
443 + 0.78D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
444 + 0.0D0, 0.78D0, 0.26D0, 0.0D0, 0.0D0, 0.0D0,
445 + 0.0D0, 0.0D0, 0.78D0, 0.26D0, -0.76D0, 1.12D0,
446 + 0.0D0, 0.0D0, 0.0D0/
447 DATA DT9Y/0.5D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
448 + 0.0D0, 0.04D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
449 + 0.0D0, 0.0D0, 0.04D0, -0.78D0, 0.0D0, 0.0D0,
450 + 0.0D0, 0.0D0, 0.0D0, 0.04D0, -0.78D0, 0.54D0,
451 + 0.08D0, 0.0D0, 0.0D0, 0.0D0, 0.5D0, 0.0D0,
452 + 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.04D0,
453 + 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.7D0,
454 + -0.9D0, -0.12D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
455 + 0.64D0, -0.9D0, -0.30D0, 0.7D0, -0.18D0, 0.2D0,
456 + 0.28D0, 0.5D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
457 + 0.0D0, 0.0D0, 0.04D0, 0.0D0, 0.0D0, 0.0D0,
458 + 0.0D0, 0.0D0, 0.0D0, 0.7D0, -1.08D0, 0.0D0,
459 + 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.64D0, -1.26D0,
460 + 0.54D0, 0.20D0, 0.0D0, 0.0D0, 0.0D0, 0.5D0,
461 + 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
462 + 0.04D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
463 + 0.0D0, 0.04D0, -0.9D0, 0.18D0, 0.0D0, 0.0D0,
464 + 0.0D0, 0.0D0, 0.04D0, -0.9D0, 0.18D0, 0.7D0,
465 + -0.18D0, 0.2D0, 0.16D0/
466 DATA SSIZE2/0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
467 + 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0,
468 + 0.0D0, 1.17D0, 1.17D0, 1.17D0, 1.17D0, 1.17D0,
469 + 1.17D0, 1.17D0, 1.17D0, 1.17D0, 1.17D0, 1.17D0,
470 + 1.17D0, 1.17D0, 1.17D0/
632 IF (SDIFF(ABS(SSIZE(I))+ABS(SFAC*SD),ABS(SSIZE(I))).EQ.0.0D0)