作者t2129980 (洋洋)
看板Fortran
標題[問題] 偵錯
時間Thu Jul 21 13:28:10 2011
小弟我最近寫了個偵錯程式，不過一直有問題發生
想向鄉民們請教
c-----------------------------------------------------
open(2,file=path,form="formatted",status="old")
read(2,*,iostat=iostate)yy,mm,dd,hh,mi,stn,radi
if(iostate.eq.0)then
go to 15
endif
if(iostate.ne.0)then
close(2)
open(2,file=path,form="formatted",status="old")
do j=1,33
write(2,*)er(j,1),er(j,2),er(j,3),er(j,4),
$er(j,5),est(j),era(j)<-裡面都是-999
enddo
go to 15
endif
15 continue
c--------------------------------------------
close(2)
open(2,file=path,form="formatted",status="old")
do i=1,33
read(2,*) yy,mm,dd,hh,mi,stn,radi
print*,yy,mm,dd,hh,mi,stn,radi
enddo
執行完，一值顯示
list in: end of file
apparent state: unit 2 named
/home/ces/aec_cali_data/aec_tran_201107100005.txt<--path就是他
last format: list io
lately reading sequential formatted external IO
Aborted
請求鄉民幫小弟除蟲，
或是有更好的辦法，小弟願聽其詳
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.115.145.118
※ 編輯: t2129980 來自: 140.115.145.118 (07/21 13:30)
1F：推 YCTzeng:主程式沒有end? 07/21 13:54
2F：→ t2129980:有的 不過沒打出來 宣告也是 07/21 13:58
3F：→ t2129980:程式是沒跑完 跑到一半就停了 07/21 14:07
4F：推 hiyiyi:在每個迴圈都print 迴圈的index，看錯誤敘述應該是沒有33行 07/21 19:53
5F：→ hiyiyi:的數據可以被完整讀取完畢 07/21 19:54
6F：→ t2129980:已修正 感謝鄉民 07/22 11:35