| 查看: 683 | 回复: 4 | ||
[求助]
文件无法循环
|
|
想做一个文件循环操作，但是文件无法循环读取， 只能读入第一个文件，请大家帮忙看一下 program main implicit none real::a(2000) real::b(2000) real::c(2000) real::d(2000) integer i integer j integer k integer p real sum1,sum2,sum3,sum4 real ave1,ave2,ave3,ave4 character*30 filename(7) ! 月数为31天的月份 character*30 output(7) data filename /'D:/zhao/51467/1.txt','D:/zhao/51467/3.txt','D:\zhao\51467\5.txt','D:\zhao\51467\7.txt','D:\zhao\51467\8.txt','D:\zhao\51467\10.txt','D:\zhao\51467\12.txt'/ data output /'D:\zhao\51467\1out.txt','D:\zhao\51467\3out.txt','D:\zhao\51467\5out.txt','D:\zhao\51467\7out.txt','D:\zhao\51467\8out.txt','D:\zhao\51467\10out.txt','D:\zhao\51467\12out.txt'/ do k=1,7 p=0 open(10,file=filename,status='old',iostat=p) print *, "already open" !打开文件 i=1 do while(.true.) read(10,*) a(i),b(i),c(i),d(i) !读取数据 if(p/=0) exit !判断文件是否读取正常 if(mod(i,31)==0)then !读满一个月 sum1=0.0 sum2=0.0 sum3=0.0 sum4=0.0 do j=i-30,i !求月平均 sum1=sum1+(a(j)*0.1) sum2=sum2+(b(j)*0.1) sum3=sum3+(c(j)*0.1) sum4=sum4+d(j) end do ave1=sum1/31 ave2=sum2/31 ave3=sum3/31 ave4=sum4/31 open(11,file=output,status='replace') ！写入文件 print *, "writing file" write(11,"(4(1XF6.2))"  ave1,ave2,ave3,ave4 end if i=i+1 end do rewind(10) close(10) rewind(11) close(11) end do stop end 运行之后显示的错误是 forrt1:severe<24>:end-of-file during read,unit10,file D:\zhao\51467\1.txt |
回复此楼» 猜你喜欢
导师想让我从独立一作变成了共一第一
已经有9人回复
-
博士读完未来一定会好吗
已经有23人回复
-
到新单位后，换了新的研究方向，没有团队，持续积累2区以上论文，能申请到面上吗
已经有11人回复
-
读博
已经有4人回复
-
JMPT 期刊投稿流程
已经有4人回复
-
心脉受损
已经有5人回复
-
Springer期刊投稿求助
已经有4人回复
-
小论文投稿
已经有3人回复
-
申请2026年博士
已经有6人回复
» 本主题相关价值贴推荐，对您同样有帮助:
求循环流化床热力计算相关资料，或者推荐下网站和书籍
已经有9人回复- 环境影响评价工程师简介及相关管理文件
已经有8人回复
- 部分有机物转COD表，已搜索，之前帖子文件无法下载，我重新上传一份
已经有68人回复
- 【求助】无法生成环糊精的psf文件
已经有4人回复
- 【求助】如何循环打开文件【已完结】
已经有5人回复
- 【分享】[08-02]绿色免费精品软件下载[清清心整理]【已搜索无重复】
已经有3人回复
- 【其他】endnote不能在word中连续插入文献
已经有18人回复
lurencyj
木虫 (著名写手)
- 应助: 159 (高中生)
- 金币: 2869.2
- 散金: 520
- 红花: 8
- 沙发: 10
- 帖子: 1244
- 在线: 148.3小时
- 虫号: 888093
- 注册: 2009-10-29
- 性别: GG
- 专业: 凝聚态物性I:结构、力学和
2楼2012-03-31 22:32:24
3楼2012-04-01 10:00:50
4楼2012-04-01 10:26:56
5楼2012-04-01 10:38:43