 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 4 | 1/1 | 返回列表 |
| 查看: 1270 | 回復(fù): 3 | |||
| 本帖產(chǎn)生 1 個 程序強(qiáng)帖 ，點(diǎn)擊這里進(jìn)行查看 | |||
[交流]
【求助】從文件讀入數(shù)組遇到困難
|
|||
|
文件A中第一行有n個數(shù)，另一文件B中第一行有m個數(shù)。(其中n,m<100) 我要分別將上面的文件讀入另一個文件C，我用下面的遇到困難： INTEGER num1(100),num2(100) OPEN (20,FILE="A.txt" ) OPEN (21,FILE="B.txt" ) OPEN (22,FILE="C.txt" ) READ(20,*)(numb1(i),i=1,n) READ(21,*)(numb2(i),i=1,m) WRITE(22,*)(numb(i),i=1,n) WRITE(22,*)(numb(i),i=1,m) END 現(xiàn)在的問題是讀入的數(shù)據(jù)個數(shù)如果和數(shù)組的大小不等的話，就無法讀入。 由于類似文件很多，不要人為的讀入n或m的值，如何辦？ 想過用動態(tài)數(shù)組，也沒能搞定。 INTEGER, allocatable::numb(  ; ! 聲明動態(tài)數(shù)組，可以是多維的，類似a(:,:,allocate(numb(50)); ! 給動態(tài)數(shù)組分配內(nèi)存 numb(50)=1.0; ! 操作和平常的數(shù)組一樣 deallocate(numb); 請高手貼出具體的程序解決，誠盼�。。。�！ [ Last edited by onexf766 on 2010-12-25 at 20:43 ] |
回復(fù)此樓» 猜你喜歡
311求調(diào)劑
已經(jīng)有9人回復(fù)
-
302求調(diào)劑
已經(jīng)有4人回復(fù)
-
被我言中：新模板不強(qiáng)調(diào)格式了，假專家開始管格式了
已經(jīng)有4人回復(fù)
-
303求調(diào)劑
已經(jīng)有5人回復(fù)
-
考研求調(diào)劑
已經(jīng)有4人回復(fù)
-
085601專碩，總分342求調(diào)劑，地區(qū)不限
已經(jīng)有4人回復(fù)
-
085601材料工程專碩求調(diào)劑
已經(jīng)有5人回復(fù)
-
一志愿天津大學(xué)化學(xué)工藝專業(yè)（081702）315分求調(diào)劑
已經(jīng)有6人回復(fù)
-
能源材料化學(xué)課題組招收碩士研究生8-10名
已經(jīng)有6人回復(fù)
-
296求調(diào)劑
已經(jīng)有5人回復(fù)
» 本主題相關(guān)價值貼推薦，對您同樣有幫助:
- 增大數(shù)組后執(zhí)行窗口只是一閃
已經(jīng)有14人回復(fù)
- 求助：在GUI界面中顯示m文件中的數(shù)組圖片
已經(jīng)有3人回復(fù)
- 畢赤酵母基因重組時遇到困難了
已經(jīng)有9人回復(fù)
- 混合基組中,如何讀入前一基組的CHK文件?
已經(jīng)有4人回復(fù)
- 三維數(shù)組換行輸入到文件（intel fortran 編譯器）
已經(jīng)有6人回復(fù)
- 關(guān)于c語言的一個小問題 坐等回復(fù)啊 急啊 是關(guān)于建立數(shù)組的
已經(jīng)有9人回復(fù)
- 從txt文件讀數(shù)據(jù)到二維數(shù)組
已經(jīng)有4人回復(fù)
- 【求助】關(guān)于ansys讀入荷載文件
已經(jīng)有4人回復(fù)
- 【求助】一個求數(shù)組絕對值的小問題
已經(jīng)有7人回復(fù)
- .txt格式的文件怎么讀入Jade5��？
已經(jīng)有4人回復(fù)
- 【求助】module里面能夠讓數(shù)組從外部接受一些數(shù)據(jù)嗎？【已完結(jié)】
已經(jīng)有8人回復(fù)
- 【求助】ANSYS定義數(shù)組時，如何從TXT文件中導(dǎo)入？
已經(jīng)有7人回復(fù)
» 搶金幣啦！回帖就可以得到:
-
紹興大學(xué)博士教師招聘1位（化學(xué)化工相關(guān)）
+5/385
-
西湖大學(xué)工學(xué)院智能微型機(jī)器人實驗室博士后招聘啟事
+4/228
-
深圳技術(shù)大學(xué)集成電路與光電芯片學(xué)院郝俊杰課題組誠聘博士后、研究助理、訪問學(xué)生
+2/128
-
電力全國重點(diǎn)實驗室雙一流A類長江學(xué)者團(tuán)隊招2026年全日制博士1名（4月3日截止）
+2/114
-
物理學(xué) 調(diào)劑
+1/84
-
福建師范大學(xué)招收2026年化學(xué)、材料碩士3-4名
+1/81
-
太原理工大學(xué)博士招生 電池負(fù)極材料 固態(tài)電解質(zhì)方向 有工作經(jīng)驗者優(yōu)先
+1/79
-
博士后出站經(jīng)驗請教
+1/78
-
愿遇見你，遇見不止擦肩而過的緣分
+1/77
-
華南師范大學(xué)（211）博士招生- 電子、自動化、機(jī)械、生物學(xué)、物理相關(guān)專業(yè)
+2/38
-
中山大學(xué)院士團(tuán)隊微納器件、腦機(jī)接口方向博士招生、博后招聘
+1/21
-
北京航空航天大學(xué)招生微流控與智能打印技術(shù)方向博士研究生
+1/18
-
2026年西南科技大學(xué)功能涂層課題組簡介
+1/12
-
重慶大學(xué)誠招2026年生物材料方向博士生
+1/8
-
211/雙一流石河子大學(xué)化學(xué)化工學(xué)院-電催化，單原子催化，CO2轉(zhuǎn)化
+1/8
-
東北林業(yè)大學(xué)（211，雙一流）宋老師課題組招收高分子、化學(xué)、復(fù)合材料等方向研究生
+1/4
-
分離分析杰青課題組誠招科研人員
+1/3
-
連發(fā)兩篇 Nature！大樣本單細(xì)胞測序解析認(rèn)知、衰老與靈長類進(jìn)化
+1/2
-
西安交通大學(xué)生命學(xué)院智能化診療裝備研究中心2026年博士生招生
+1/1
-
急！招收北京工業(yè)大學(xué)與國家納米科學(xué)中心聯(lián)合培養(yǎng)博士1名，物理、材料、化學(xué)背景
+1/1
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強(qiáng)帖: 16
- 應(yīng)助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 帖子: 3803
- 在線: 1422.4小時
- 蟲號: 183750
2樓2010-12-25 22:24:32
3樓2010-12-29 09:31:52
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強(qiáng)帖: 16
- 應(yīng)助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 帖子: 3803
- 在線: 1422.4小時
- 蟲號: 183750
onexf766(金幣+6): 非常謝謝！呵呵 2011-04-09 18:01:49
余澤成(程序強(qiáng)帖+1): 2011-04-20 22:43:28
余澤成(程序強(qiáng)帖+1): 2011-04-20 22:43:28
|
這里關(guān)鍵的是下面兩行 第一行很容易理解，就是從文件中讀入一行，以字符串的形式讀入，由于你的一行中全部是數(shù)值，所以，我們可以用 Fortran 的內(nèi)部文件機(jī)制解決數(shù)據(jù)的讀取問題。這就是第二行的代碼。在第二行中，LINE 不再是一個字符串，而是一個內(nèi)部文件，這個文件的內(nèi)容就是前一行讀入的那個字符串。END 表示遇到文件尾部時的處理方式，在這里，遇到尾部就跳到標(biāo)號為 20 的行。由于你問題中說到數(shù)據(jù)不超過 100，所以我就設(shè)了后面讀入100個數(shù)，比如你的數(shù)據(jù)是 70 個，當(dāng)讀第 71 個數(shù)據(jù)時，其實已經(jīng)是尾部了，因此，就直接跳到標(biāo)號為 20 的行了…… 大概就是這個樣子的…… |
4樓2011-04-09 11:19:27
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 onexf766 的主題更新
| 4 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 302求調(diào)劑 +4 | 呼呼呼。。。。 2026-03-17 | 4/200 |
|
|---|---|---|---|---|
|
[考研] 考研求調(diào)劑 +3 | 橘頌. 2026-03-17 | 4/200 |
|
|
|
[考研] 能源材料化學(xué)課題組招收碩士研究生8-10名 +3 | 脫穎而出 2026-03-16 | 6/300 |
|
|
|
[考研] 材料專碩326求調(diào)劑 +6 | 墨煜姒莘 2026-03-15 | 7/350 |
|
|
|
[考研] 26考研求調(diào)劑 +6 | 丶宏Sir 2026-03-13 | 6/300 |
|
|
|
[考研] 085600材料與化工 +4 | 安全上岸！ 2026-03-16 | 4/200 |
|
|
|
[考研] 285化工學(xué)碩求調(diào)劑（081700） +9 | 柴郡貓_ 2026-03-12 | 9/450 |
|
|
|
[考研] 一志愿，福州大學(xué)材料專碩339分求調(diào)劑 +3 | 木子momo青爭 2026-03-15 | 3/150 |
|
|
|
[考研] 283求調(diào)劑 +10 | 小樓。 2026-03-12 | 14/700 |
|
|
|
[考研] 中科院材料273求調(diào)劑 +4 | yzydy 2026-03-15 | 4/200 |
|
|
|
[考研] 255求調(diào)劑 +3 | 李嘉慧， 2026-03-12 | 4/200 |
|
|
|
[考研] 328求調(diào)劑 +3 | 5201314Lsy！ 2026-03-13 | 6/300 |
|
|
|
[考研] 學(xué)碩285求調(diào)劑 +13 | Wisjxn 2026-03-12 | 46/2300 |
|
|
|
[考研] 工科，求調(diào)劑 +3 | 我887 2026-03-11 | 3/150 |
|
|
|
[考研] 329求調(diào)劑 +3 | miaodesi 2026-03-12 | 4/200 |
|
|
|
[考研] 【考研調(diào)劑求收留】 +3 | Ceciilia 2026-03-11 | 3/150 |
|
|
|
[考研] 材料工程調(diào)劑 +4 | 咪咪空空 2026-03-11 | 4/200 |
|
|
|
[考研] 0703化學(xué)求調(diào)劑 +7 | 綠豆芹菜湯 2026-03-12 | 7/350 |
|
|
|
[考研] 328化工專碩求調(diào)劑 +4 | 。，。，。，。i 2026-03-12 | 4/200 |
|
|
|
[考研] 085600材料與化工 309分請求調(diào)劑 +7 | dtdxzxx 2026-03-12 | 8/400 |
|