作者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