- 21 名前：デフォルトの名無しさん [2007/12/11(火) 15:01:10 ]
- 与えられたデータ１の１列目と３列目の範囲内にデータ２の１列目の値が、
データ１の２列目と４列目の範囲内にデータ２の２列目の値が当てはまれば、
データ１の５列目と６列目の値をwriteしたいのですが上手く表示されません。
わかるかたいましたら教えていただけますか？
**** main program ****
program ex1
implicit real*8(a-h,o-z)
dimension x1(1000000),x2(1000000),y1(1000000),y2(1000000)
dimension z1(1000000),z2(1000000),a1(1000000),a2(1000000)
open(10,file='jegm.txt')
open(11,file='ans.dat')
open(12,file='iti.dat')
read(10,602)(x1(i),y1(i),x2(i),y2(i),z1(i),z2(i),i=1,85509)
602 format(4f16.4,i8,i1)
read(5,*)a1(k),a2(k)
do 30 i=1,144
if(a1(k).gt.x1(i).and.a1(k).le.x2(i).and.a2(k).gt.y1(i).and.a2(k).
1le.y2(i)) write(11,*) z1(i),z2(i)
30 continue
stop
end
**** データ１ ****
139.9875 38.6917 140.0000 38.7000 5 3
139.9875 38.6833 140.0000 38.6917 5 3
139.9875 38.6750 140.0000 38.6833 5 3
**** データ２ ****
138.4337 38.2584
138.4398 38.0745
138.3226 37.9976
|
 |
