 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 756 | 回復(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ù)此樓» 猜你喜歡
材料學(xué)碩333求調(diào)劑
已經(jīng)有3人回復(fù)
-
289求調(diào)劑
已經(jīng)有7人回復(fù)
-
收08調(diào)劑生
已經(jīng)有6人回復(fù)
-
材料專碩找調(diào)劑
已經(jīng)有5人回復(fù)
-
085602 289分求調(diào)劑
已經(jīng)有5人回復(fù)
-
化工專碩求調(diào)劑
已經(jīng)有3人回復(fù)
-
274求調(diào)劑
已經(jīng)有5人回復(fù)
-
調(diào)劑
已經(jīng)有3人回復(fù)
-
08工學(xué)調(diào)劑
已經(jīng)有15人回復(fù)
-
招08考數(shù)學(xué)
已經(jīng)有16人回復(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ā)表 | |
|---|---|---|---|---|
|
[考研] 求調(diào)劑 +5 | 林之夕 2026-03-24 | 5/250 |
|
|---|---|---|---|---|
|
[考研]
 085404電子信息284分求調(diào)劑
+4
|
13659058978 2026-03-24 | 4/200 |
|
|
|
[考研] 一志愿山東大學(xué)藥學(xué)學(xué)碩求調(diào)劑 +3 | 開開心心沒煩惱 2026-03-23 | 4/200 |
|
|
|
[考研] 327求調(diào)劑 +5 | prayer13 2026-03-23 | 5/250 |
|
|
|
[考研] 384求調(diào)劑 +3 | 子系博 2026-03-22 | 6/300 |
|
|
|
[考研] 生物學(xué)一志愿985，分數(shù)349求調(diào)劑 +6 | zxts12 2026-03-21 | 9/450 |
|
|
|
[考研] 一志愿南京理工大學(xué)085701資源與環(huán)境302分求調(diào)劑 +5 | 葵梓衛(wèi)隊 2026-03-18 | 7/350 |
|
|
|
[考研] 316求調(diào)劑 +7 | 梁茜雯 2026-03-19 | 7/350 |
|
|
|
[考研] 求老師收我 +3 | zzh16938784 2026-03-23 | 3/150 |
|
|
|
[考研] 北科281學(xué)碩材料求調(diào)劑 +8 | tcxiaoxx 2026-03-20 | 9/450 |
|
|
|
[考研] 298求調(diào)劑 +8 | 上岸6666@ 2026-03-20 | 8/400 |
|
|
|
[考研]
求調(diào)劑材料學(xué)碩080500，總分289分
 5+3
|
@taotao 2026-03-19 | 21/1050 |
|
|
|
[考研] 一志愿華中農(nóng)業(yè)071010，總分320求調(diào)劑 +5 | 困困困困坤坤 2026-03-20 | 6/300 |
|
|
|
[考研] 求調(diào)劑 +5 | Zhangbod 2026-03-21 | 7/350 |
|
|
|
[考研] 285求調(diào)劑 +6 | ytter 2026-03-22 | 6/300 |
|
|
|
[考研] 一志愿華中科技大學(xué)，080502，354分求調(diào)劑 +5 | 守候夕陽CF 2026-03-18 | 5/250 |
|
|
|
[考研] 一志愿南昌大學(xué)，327分，材料與化工085600 +9 | Ncdx123456 2026-03-19 | 9/450 |
|
|
|
[考研] 288求調(diào)劑 +16 | 于海海海海 2026-03-19 | 16/800 |
|
|
|
[考研] 一志愿 西北大學(xué) ，070300化學(xué)學(xué)碩，總分287，雙非一本，求調(diào)劑。 +4 | 晨昏線與星海 2026-03-19 | 4/200 |
|
|
|
[考研] 求調(diào)劑 +3 | @taotao 2026-03-20 | 3/150 |
|