[問題] 偵錯
小弟我最近寫了個偵錯程式，不過一直有問題發生
想向鄉民們請教
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)
推
07/21 13:54, , 1F
07/21 13:54, 1F
→
07/21 13:58, , 2F
07/21 13:58, 2F
→
07/21 14:07, , 3F
07/21 14:07, 3F
推
07/21 19:53, , 4F
07/21 19:53, 4F
→
07/21 19:54, , 5F
07/21 19:54, 5F
→
07/22 11:35, , 6F
07/22 11:35, 6F
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章
