 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
小木蟲論壇-學術科研互動平臺 » 計算模擬區(qū) » 程序語言 » Fortran » 文件無法循環(huán)
| 5 | 1/1 | 返回列表 |
| 查看: 761 | 回復: 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 |
回復此樓» 猜你喜歡
307求調劑
已經(jīng)有20人回復
-
285求調劑
已經(jīng)有8人回復
-
材料與化工（0856）304求B區(qū)調劑
已經(jīng)有8人回復
-
370求調劑
已經(jīng)有3人回復
-
070300化學279求調劑
已經(jīng)有5人回復
-
福建理工大學材料學院先進合金團隊招收考研調劑學生
已經(jīng)有4人回復
-
英一數(shù)一408，總分284，二戰(zhàn)真誠求調劑
已經(jīng)有5人回復
-
083000環(huán)境科學與工程調劑，總分281
已經(jīng)有4人回復
-
求調劑
已經(jīng)有3人回復
-
食品工程專碩一志愿中海洋309求調劑
已經(jīng)有10人回復
» 本主題相關價值貼推薦，對您同樣有幫助:
- 求循環(huán)流化床熱力計算相關資料，或者推薦下網(wǎng)站和書籍
已經(jīng)有9人回復
- 環(huán)境影響評價工程師簡介及相關管理文件
已經(jīng)有8人回復
- 部分有機物轉COD表，已搜索，之前帖子文件無法下載，我重新上傳一份
已經(jīng)有68人回復
- 【求助】無法生成環(huán)糊精的psf文件
已經(jīng)有4人回復
- 【求助】如何循環(huán)打開文件【已完結】
已經(jīng)有5人回復
- 【分享】[08-02]綠色免費精品軟件下載[清清心整理]【已搜索無重復】
已經(jīng)有3人回復
- 【其他】endnote不能在word中連續(xù)插入文獻
已經(jīng)有18人回復
4樓2012-04-01 10:26:56
lurencyj
木蟲 (著名寫手)
- 應助: 159 (高中生)
- 金幣: 2869.2
- 散金: 520
- 紅花: 8
- 沙發(fā): 10
- 帖子: 1244
- 在線: 148.3小時
- 蟲號: 888093
- 注冊: 2009-10-29
- 性別: GG
- 專業(yè): 凝聚態(tài)物性I:結構、力學和
2樓2012-03-31 22:32:24
3樓2012-04-01 10:00:50
5樓2012-04-01 10:38:43
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 食品工程專碩一志愿中海洋309求調劑 +5 | 小張zxy張 2026-03-26 | 10/500 |
|
|---|---|---|---|---|
|
|
[考研] 理學07化學 303求調劑 +4 | 睿08 2026-03-27 | 4/200 |
|
|
[考研] 288資源與環(huán)境專碩求調劑，不限專業(yè)，有學上就行 +11 | lllllos 2026-03-30 | 11/550 |
|
|
|
[考研] 生物學 296 求調劑 +5 | 朵朵- 2026-03-26 | 7/350 |
|
|
|
[考研] 286求調劑 +5 | Faune 2026-03-30 | 5/250 |
|
|
|
[考研] 303求調劑 +7 | DLkz1314. 2026-03-30 | 7/350 |
|
|
|
[考研] 298求調劑 +4 | 種圣賜 2026-03-28 | 4/200 |
|
|
|
[考研] 數(shù)一英一271專碩（085401）求調劑，可跨 +7 | 前行必有光 2026-03-28 | 8/400 |
|
|
|
[考研] 求調劑 +6 | 蘆lty 2026-03-25 | 7/350 |
|
|
|
[考研] 275求調劑 +10 | jjjjjjjjjjl 2026-03-27 | 10/500 |
|
|
|
[考研] 266求調劑 +11 | 陽陽哇塞 2026-03-27 | 12/600 |
|
|
|
[考研] 化學調劑 +4 | 愛吃番茄的旭 2026-03-24 | 5/250 |
|
|
|
[考研]
 一志愿 西北大學 總分282 英語一62 求調劑
+7
|
18419759900 2026-03-25 | 8/400 |
|
|
|
[考研] 308求調劑 +7 | 墨墨漠 2026-03-25 | 7/350 |
|
|
|
[考研] 調劑 +4 | 柚柚yoyo 2026-03-26 | 4/200 |
|
|
|
[考研] 347求調劑 +4 | L when 2026-03-25 | 4/200 |
|
|
|
[考研] 0854人工智能方向招收調劑 +4 | 章小魚567 2026-03-24 | 4/200 |
|
|
|
[考研] 一志愿吉林大學材料與化工303分求調劑 +4 | 為學666 2026-03-24 | 4/200 |
|
|
|
[考研] 調劑 +4 | 13853210211 2026-03-24 | 4/200 |
|
|
|
[考研]
 材料考研調劑生
+3
|
黃粱一夢千年 2026-03-24 | 3/150 |
|