| 查看: 891 | 回复: 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 |
回复此楼» 猜你喜欢
有多少人是今天查系统知道结果的？
已经有17人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有4人回复
-
基金不中，共勉
已经有5人回复
-
看板上这么多中的，有点像50人群里49个人都是骗子的那种感觉……
已经有3人回复
-
国自然面上复盘~欢迎讨论
已经有5人回复
-
我不理解！
已经有23人回复
-
2026年的国家社科基金项目通讯评审的新规则与新动向、新挑战
已经有10人回复
-
系统查不到
已经有10人回复
-
怎么查啊
已经有5人回复
-
范进中举一文的中心思想
已经有10人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 求循环流化床热力计算相关资料，或者推荐下网站和书籍
已经有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
投票:
