FORTRANについての質問です。

質問

FORTRANについての質問です。
現在、二つのファイル(a.csv,b.csv)を読んで,a.csvのファイル内の地点番号とb.csvのファイル内の地点番号が一緒なら抜き出すというプログラムを書きたいのですが、途中で抜け出せなくなってしまいました。下に使用しているファイルの中身を、ごくわずかですが載せておきます。
b.csvのほうは、年別で33個のファイルに分けられています。
----------------------a.csv------------------------------------------
30 23226 1977 大野
31 13311 1978 増毛
31 14101 1978 新篠津
31 15251 1978 芦別
31 16281 1978 真狩
31 17076 1978 興部
-----------------------------------------------------------------------
----------------------b.csv-------------------------------------------2006,1,1,11016,141.678,45.4147,3,稚内,0,33,16,-64,-51,-75,55,1,9
2006,1,1,11151,141.138,45.1767,14,沓形,1,20,1,-52,-36,-68,4,1,6
2006,1,1,11176,141.778,45.1017,12,豊富,0,9,4,-80,-51,-116,59,0,3
2006,1,1,11206,142.362,45.1117,13,浜頓別,1,12,13,-92,-47,-140,66,1,3
2006,1,1,11276,142.28,44.965,25,中頓別,0,5,11,-137,-44,-209,46,0,2
2006,1,1,11291,142.585,44.9397,7,北見枝幸,0,25,13,-70,-47,-94,70,0,6
2006,1,1,11316,142.48,44.84,14,歌登,0,2,1,-115,-49,-170,56,0,1
------------------------------------------------------------------------

implicit none

REAL :: number,code,year,name
REAL :: yea,mon,day,id,chiki,nam
INTEGER :: lon,lat,pre,wind,winddirection,temp
INTEGER :: hightemp,lowtemp,sunlight,maxrain,maxwind

open(10,file='a.csv',status='old',iostat=ie)

do iwork=1976, 2008
write(yyyy,"(i4.4)") iwork

open(50, file='b'//yyyy//'.csv', status='old', &
& iostat=io)
if (io < 0) cycle

do i = 1, 99

read(10,*) number,code,year,name
if(ie < 0) exit

do ii = 1, 30000

read(50,*) yea,mon,day,id,lon,lat,chiki,nam,pre,wind,winddirection,temp,&
& hightemp,lowtemp,sunlight,maxrain,maxwind
if(io < 0) exit

write(6,*) yea

stop
close(10)
close(50)
end

エラーメッセージがenddo文が予期されている。プログラムのファイルのendが予期されていない。とでます。enddo文を足したりしても治りませんでした。おそらくどこか書き方が違うのでしょう。どうかアドバイスください。

回答No.6

f272 · ベストアンサー

> read(50,*) yea,mon,day,id,lon,lat,chiki,nam,pre,wind,winddirection,temp,&
> & hightemp,lowtemp,sunlight,maxrain,maxwind
> if(io < 0) exit

これではファイルの最後まで読んだらエラーになるに決まってるよね。ioってなんだ？

回答No.5

f272

だいたいa.csvというファイルの中身はとてもcvsファイルだとは思えません。
とりあえず
program test
implicit none
REAL :: number,code,year,name
open(10,file='test4.csv',status='old')
read(10,*) number,code,year,name
write(*,*) number,code,year,name
end
これをどういう風に変更したらまともに動くようになるのか考えてください。

お礼

ありがとうございます。
test4.csvはa.csvのことで、実は、初めの質問で表示した中身と少し違いました。すみません。
区切りにカンマが入っています。これが、いつもの書き方と違ってくるのでしょうか？
初心者の僕には、まだ見当がつきません。

補足

すいません。気づきました。宣言文ですね。
文字列はcharacterなどに変えました。
-------------------------------------------------------------------------------
program test
implicit none
INTEGER :: number,code,year
CHARACTER(2) :: name
open(10,file='test4.csv',status='old')

read(10,*) number,code,year,name
write(6,*) number,code,year,name

end
----------------------------------------------------------------------------------
長いほうのprogramも気をつけて直したのですが、多少動きましたが、出力されたのは1976がずらっと出ただけでして、FORTRAN runtaime error: End of file
というエラーになります。
どうかアドバイスください。

INTEGER :: number,code,year
INTEGER :: yea,mon,day,id,chiki
REAL :: lon,lat
INTEGER :: pre,wind,winddirection,temp
INTEGER :: hightemp,lowtemp,sunlight,maxrain,maxwind
CHARACTER(4) :: yyyy
CHARACTER(2) :: name,nam

open(10,file='test4.csv',status='old',iostat=ie)

do iwork=1976, 2008
write(yyyy,"(i4.4)") iwork

open(50, file='hokkaido_daily_lonlat'//yyyy//'.csv', status='old', &
& iostat=io)
if (io < 0) cycle

do i = 1, 99

read(10,*) number,code,year,name
if(ie < 0) exit

do ii = 1, 30000

read(50,*) yea,mon,day,id,lon,lat,chiki,nam,pre,wind,winddirection,temp,&
& hightemp,lowtemp,sunlight,maxrain,maxwind
if(io < 0) exit

write(6,*) yea

enddo
enddo
close(50)
enddo

close(10)

end

回答No.4

Tacosan

そこにエラーメッセージが書いてあるので, それを読んで理解すればいい.
test4.csv なるファイルがどんなものかわからんので, 何がどうおかしいのかは自分で判断してくれ.

回答No.3

Tacosan

....
do の数をきちんと数えてください.

お礼

お返事が遅くなってすいません。

ん～、３つでもできませんでした。

補足

なんとかenddo３つでコンパイルできたのですが、実行できません。

At line 22 of file chiten.f90 (Unit 10 "test4.csv")
Traceback: not available, compile with -ftrace=frame or -ftrace=full
Fortran runtime error: Bad real number in item 4 of list input

というエラーが出ます。書き順などが悪いのでしょうか？

回答No.2

Tacosan

なぜ enddo を「2個」書いたのですか?

お礼

doを２回使っているので。
ただ１個でも２個でも結果は同じでした。

回答No.1

Tacosan

do に対応する endodo はどこ?
あと, なぜ stop のあとで close?

お礼

enddoを2回つけてcloseしても、enddoなしでも、同じエラーメッセージなのです。

implicit none

REAL :: number,code,year,name
REAL :: yea,mon,day,id,chiki,nam
INTEGER :: lon,lat,pre,wind,winddirection,temp
INTEGER :: hightemp,lowtemp,sunlight,maxrain,maxwind

open(10,file='test4.csv',status='old',iostat=ie)

do iwork=1976, 2008
write(yyyy,"(i4.4)") iwork

open(50, file='hokkaido_daily_lonlat'//yyyy//'.csv', status='old', &
& iostat=io)
if (io < 0) cycle

do i = 1, 99

read(10,*) number,code,year,name
if(ie < 0) exit

do ii = 1, 30000

read(50,*) yea,mon,day,id,lon,lat,chiki,nam,pre,wind,winddirection,temp,&
& hightemp,lowtemp,sunlight,maxrain,maxwind
if(io < 0) exit

write(6,*) yea

enddo
enddo
close(10)
close(50)

end