 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 755 | 回復(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ù)此樓» 猜你喜歡
340求調(diào)劑
已經(jīng)有3人回復(fù)
-
材料專碩找調(diào)劑
已經(jīng)有4人回復(fù)
-
0854電子信息求調(diào)劑
已經(jīng)有6人回復(fù)
-
0805 316求調(diào)劑
已經(jīng)有4人回復(fù)
-
0854 考研調(diào)劑 招生了！AI 方向
已經(jīng)有17人回復(fù)
-
【考研調(diào)劑】化學(xué)專業(yè) 281分，一志愿四川大學(xué)，誠心求調(diào)劑
已經(jīng)有15人回復(fù)
-
資源與環(huán)境 調(diào)劑申請(333分)
已經(jīng)有7人回復(fù)
-
306求0703調(diào)劑一志愿華中師范
已經(jīng)有11人回復(fù)
-
0703化學(xué)調(diào)劑，求導(dǎo)師收
已經(jīng)有6人回復(fù)
-
求調(diào)劑
已經(jīng)有5人回復(fù)
» 本主題相關(guān)價值貼推薦，對您同樣有幫助:
- 求循環(huán)流化床熱力計算相關(guān)資料，或者推薦下網(wǎng)站和書籍
已經(jīng)有9人回復(fù)
- 環(huán)境影響評價工程師簡介及相關(guān)管理文件
已經(jīng)有8人回復(fù)
- 部分有機(jī)物轉(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ù)插入文獻(xiàn)
已經(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ā)表 | |
|---|---|---|---|---|
|
[考研] 0805 316求調(diào)劑 +4 | 大雪深藏 2026-03-18 | 4/200 |
|
|---|---|---|---|---|
|
|
[考研] 求調(diào)劑 +6 | 研研，接電話 2026-03-24 | 7/350 |
|
|
|
[考研]
 材料考研調(diào)劑生
+3
|
黃粱一夢千年 2026-03-24 | 3/150 |
|
|
|
[考研] 080500求調(diào)劑 +3 | zzzzfan 2026-03-24 | 3/150 |
|
|
|
[考研] 招08考數(shù)學(xué) +6 | laoshidan 2026-03-20 | 15/750 |
|
|
|
[材料工程] 一志愿C9材料與化工專業(yè)總分300求調(diào)劑 +4 | 曼111 2026-03-24 | 5/250 |
|
|
|
[考研] 一志愿哈工大，085400，320，求調(diào)劑 +3 | gdlf9999 2026-03-24 | 3/150 |
|
|
|
[考研] 材料調(diào)劑 +5 | 匹克i 2026-03-23 | 5/250 |
|
|
|
[考研] 考研化學(xué)308分求調(diào)劑 +7 | 你好明天你好 2026-03-23 | 8/400 |
|
|
|
[考研] 上海電力大學(xué)材料防護(hù)與新材料重點實驗室招收調(diào)劑研究生（材料、化學(xué)、電化學(xué)，環(huán)境） +3 | 我愛學(xué)電池 2026-03-23 | 3/150 |
|
|
[考研] 085600材料與化工306 +4 | z1z2z3879 2026-03-21 | 4/200 |
|
|
|
[考研] 考研調(diào)劑 +3 | 呼呼？~+123456 2026-03-21 | 3/150 |
|
|
|
[考研]
一志愿東華大學(xué)控制學(xué)碩320求調(diào)劑
+3
|
Grand777 2026-03-21 | 3/150 |
|
|
|
[考研] 材料 271求調(diào)劑 +5 | 展信悅_ 2026-03-21 | 5/250 |
|
|
|
[考研] 332求調(diào)劑 +4 | ydfyh 2026-03-17 | 4/200 |
|
|
|
[考研] 304求調(diào)劑 +6 | 曼殊2266 2026-03-18 | 6/300 |
|
|
|
[考研] 一志愿南昌大學(xué)，327分，材料與化工085600 +9 | Ncdx123456 2026-03-19 | 9/450 |
|
|
|
[考研] A區(qū)線材料學(xué)調(diào)劑 +5 | 周周無極 2026-03-20 | 5/250 |
|
|
|
[考研] 295材料求調(diào)劑，一志愿武漢理工085601專碩 +5 | Charlieyq 2026-03-19 | 5/250 |
|
|
|
[考研] 一志愿南理工085701環(huán)境302求調(diào)劑院校 +3 | 葵梓衛(wèi)隊 2026-03-20 | 3/150 |
|