 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 754 | 回復(fù): 4 | ||
[求助]
文件無法循環(huán)
|
|
想做一個文件循環(huán)操作，但是文件無法循環(huán)讀取， 只能讀入第一個文件，請大家?guī)兔匆幌?br />
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) ! 月數(shù)為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) !讀取數(shù)據(jù) 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 |
回復(fù)此樓» 猜你喜歡
299求調(diào)劑
已經(jīng)有7人回復(fù)
-
0703化學(xué)調(diào)劑，求導(dǎo)師收
已經(jīng)有4人回復(fù)
-
300求調(diào)劑，材料科學(xué)英一數(shù)二
已經(jīng)有3人回復(fù)
-
材料學(xué)碩，求調(diào)劑
已經(jīng)有6人回復(fù)
-
307求調(diào)劑
已經(jīng)有6人回復(fù)
-
材料專碩331求調(diào)劑
已經(jīng)有3人回復(fù)
-
求調(diào)劑一志愿武漢理工大學(xué)材料工程（085601）
已經(jīng)有7人回復(fù)
-
一志愿C9材料與化工專業(yè)總分300求調(diào)劑
已經(jīng)有4人回復(fù)
-
321求調(diào)劑
已經(jīng)有4人回復(fù)
-
307求調(diào)劑
已經(jīng)有4人回復(fù)
» 本主題相關(guān)價值貼推薦，對您同樣有幫助:
- 求循環(huán)流化床熱力計算相關(guān)資料，或者推薦下網(wǎng)站和書籍
已經(jīng)有9人回復(fù)
- 環(huán)境影響評價工程師簡介及相關(guān)管理文件
已經(jīng)有8人回復(fù)
- 部分有機物轉(zhuǎn)COD表，已搜索，之前帖子文件無法下載，我重新上傳一份
已經(jīng)有68人回復(fù)
- 【求助】無法生成環(huán)糊精的psf文件
已經(jīng)有4人回復(fù)
- 【求助】如何循環(huán)打開文件【已完結(jié)】
已經(jīng)有5人回復(fù)
- 【分享】[08-02]綠色免費精品軟件下載[清清心整理]【已搜索無重復(fù)】
已經(jīng)有3人回復(fù)
- 【其他】endnote不能在word中連續(xù)插入文獻
已經(jīng)有18人回復(fù)
lurencyj
木蟲 (著名寫手)
- 應(yīng)助: 159 (高中生)
- 金幣: 2869.2
- 散金: 520
- 紅花: 8
- 沙發(fā): 10
- 帖子: 1244
- 在線: 148.3小時
- 蟲號: 888093
- 注冊: 2009-10-29
- 性別: GG
- 專業(yè): 凝聚態(tài)物性I:結(jié)構(gòu)、力學(xué)和
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
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 canny 的主題更新
| 5 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 306求0703調(diào)劑一志愿華中師范 +9 | 紙魚ly 2026-03-21 | 10/500 |
|
|---|---|---|---|---|
|
[考博] 26申博自薦 +3 | whh869393 2026-03-24 | 3/150 |
|
|
|
[考研] 求調(diào)劑 +7 | 十三加油 2026-03-21 | 7/350 |
|
|
|
[考研]
 0854 考研調(diào)劑 招生了！AI 方向
+4
|
pk3725069 2026-03-19 | 16/800 |
|
|
|
[考研] 361求調(diào)劑 +3 | Glack 2026-03-22 | 3/150 |
|
|
|
[考研] 一志愿211 初試270分 求調(diào)劑 +4 | 谷雨上岸 2026-03-23 | 5/250 |
|
|
|
[考研] 333求調(diào)劑 +3 | ALULU4408 2026-03-23 | 3/150 |
|
|
|
[考研] 工科0856求調(diào)劑 +5 | 沐析汀汀 2026-03-21 | 5/250 |
|
|
|
[考研] 上海電力大學(xué)材料防護與新材料重點實驗室招收調(diào)劑研究生（材料、化學(xué)、電化學(xué)，環(huán)境） +3 | 我愛學(xué)電池 2026-03-23 | 3/150 |
|
|
|
[考研] 一志愿南京理工大學(xué)085701資源與環(huán)境302分求調(diào)劑 +5 | 葵梓衛(wèi)隊 2026-03-18 | 7/350 |
|
|
|
[考研] 333求調(diào)劑 +6 | 87639 2026-03-21 | 10/500 |
|
|
|
[考研] 319求調(diào)劑 +4 | 小力氣珂珂 2026-03-20 | 4/200 |
|
|
|
[考研] 280求調(diào)劑 +11 | 咕嚕曉曉 2026-03-18 | 12/600 |
|
|
|
[考研] 0703化學(xué)297求調(diào)劑 +3 | Daisy☆ 2026-03-20 | 3/150 |
|
|
|
[考研] 313求調(diào)劑 +4 | 肆叁貳壹22 2026-03-19 | 4/200 |
|
|
|
[基金申請]
學(xué)校已經(jīng)提交到NSFC，還能修改嗎？
 40+4
|
babangida 2026-03-19 | 9/450 |
|
|
|
[考研] 268求調(diào)劑 +9 | 簡單點0 2026-03-17 | 9/450 |
|
|
|
[考研] 085601調(diào)劑 358分 +3 | zzzzggh 2026-03-20 | 4/200 |
|
|
|
[考研] 294求調(diào)劑材料與化工專碩 +15 | 陌の森林 2026-03-18 | 15/750 |
|
|
|
[考研] 求調(diào)劑一志愿南京航空航天大學(xué)289分 +3 | @taotao 2026-03-19 | 3/150 |
|