 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 1271 | 回復(fù): 3 | |||
| 本帖產(chǎn)生 1 個 程序強帖 ，點擊這里進行查看 | |||
| 當(dāng)前只顯示滿足指定條件的回帖，點擊這里查看本話題的所有回帖 | |||
[交流]
【求助】從文件讀入數(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ù)此樓» 猜你喜歡
281求調(diào)劑（0805）
已經(jīng)有8人回復(fù)
-
環(huán)境領(lǐng)域全國重點實驗室招收博士1-2名
已經(jīng)有3人回復(fù)
-
材料專碩306英一數(shù)二
已經(jīng)有10人回復(fù)
-
301求調(diào)劑
已經(jīng)有6人回復(fù)
-
一志愿天津大學(xué)化學(xué)工藝專業(yè)（081702）315分求調(diào)劑
已經(jīng)有7人回復(fù)
-
302求調(diào)劑
已經(jīng)有6人回復(fù)
-
26博士申請
已經(jīng)有3人回復(fù)
-
268求調(diào)劑
已經(jīng)有3人回復(fù)
-
311求調(diào)劑
已經(jīng)有10人回復(fù)
-
被我言中：新模板不強調(diào)格式了，假專家開始管格式了
已經(jīng)有4人回復(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ù)
» 搶金幣啦！回帖就可以得到:
-
博士后出站經(jīng)驗請教
+1/78
-
愿遇見你，遇見不止擦肩而過的緣分
+1/76
-
天津工業(yè)大學(xué)航空航天博士招生
+1/35
-
南開大學(xué)羅景山教授課題組招聘博士后（光/電催化、鈣鈦礦光伏方向）
+2/34
-
上海交通大學(xué)電催化方向博后招聘-有鋰電、高分子、燃料電池背景者優(yōu)先
+1/32
-
歡迎交流咨詢
+1/28
-
重慶文理學(xué)院化學(xué)與環(huán)境工程學(xué)院 2026 屆碩士研究生調(diào)劑通知
+1/17
-
【全獎?wù)猩勘睅煾劢驟SLAS實驗室招收密碼工程/網(wǎng)絡(luò)安全/計算機視覺博士/博士后
+1/10
-
【博士招生】武漢科技大學(xué)招收材料、化工、環(huán)境、冶金類2026年“申請-考核”制博士生
+1/8
-
211/雙一流石河子大學(xué)化學(xué)化工學(xué)院-電催化，單原子催化，CO2轉(zhuǎn)化
+1/8
-
國家級人才團隊誠聘生物信息相關(guān)專業(yè)的科研助理
+1/8
-
上�？萍即髮W(xué)物質(zhì)學(xué)院招收有機化學(xué)方向2026級工程博士
+1/7
-
26年申博自薦-計算機視覺
+1/7
-
2026年上海大學(xué)王亮課題組招收電催化或光催化研究背景的博士生
+2/4
-
東北林業(yè)大學(xué)（211，雙一流）宋老師課題組招收高分子、化學(xué)、復(fù)合材料等方向研究生
+1/4
-
靜電紡絲：工藝原理、形貌調(diào)控與典型應(yīng)用
+1/4
-
論文投出，祈福，求好運
+1/3
-
加拿大阿爾伯塔大學(xué)招收電磁、無線通信、機器學(xué)習(xí)方向全獎碩士/博士/博士后/訪問學(xué)者
+2/2
-
福建師范大學(xué)環(huán)境微生物技術(shù)課題組接受2026級碩士調(diào)劑
+1/2
-
澳大利亞科學(xué)院院士Prof.Gordon Wallace, University of Wollongong 全獎博士機會
+1/1
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強帖: 16
- 應(yīng)助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 帖子: 3803
- 在線: 1422.4小時
- 蟲號: 183750
onexf766(金幣+6): 非常謝謝！呵呵 2011-04-09 18:01:49
余澤成(程序強帖+1): 2011-04-20 22:43:28
余澤成(程序強帖+1): 2011-04-20 22:43:28
|
這里關(guān)鍵的是下面兩行 第一行很容易理解，就是從文件中讀入一行，以字符串的形式讀入，由于你的一行中全部是數(shù)值，所以，我們可以用 Fortran 的內(nèi)部文件機制解決數(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
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強帖: 16
- 應(yīng)助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 帖子: 3803
- 在線: 1422.4小時
- 蟲號: 183750
2樓2010-12-25 22:24:32
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 085601材料工程專碩求調(diào)劑 +5 | 慕寒mio 2026-03-16 | 5/250 |
|
|---|---|---|---|---|
|
|
[考研] 能源材料化學(xué)課題組招收碩士研究生8-10名 +3 | 脫穎而出 2026-03-16 | 6/300 |
|
|
[考研] 302求調(diào)劑 +9 | 負心者當(dāng)誅 2026-03-11 | 9/450 |
|
|
|
[考研] 290求調(diào)劑 +6 | 孔志浩 2026-03-12 | 11/550 |
|
|
|
[考研] 271求調(diào)劑 +12 | 生如夏花… 2026-03-11 | 14/700 |
|
|
|
[考研] 化學(xué)調(diào)劑0703 +8 | 啊我我的 2026-03-11 | 8/400 |
|
|
|
[考研] 環(huán)境工程調(diào)劑 +6 | 大可digkids 2026-03-16 | 6/300 |
|
|
|
[考研] 318求調(diào)劑 +3 | Yanyali 2026-03-15 | 3/150 |
|
|
|
[考研] 0703一志愿211 285分求調(diào)劑 +5 | ly3471z 2026-03-13 | 5/250 |
|
|
|
[考研] 070300化學(xué)學(xué)碩求調(diào)劑 +6 | 太想進步了0608 2026-03-16 | 6/300 |
|
|
|
[考研] 085600調(diào)劑 +5 | 漾漾123sun 2026-03-12 | 6/300 |
|
|
|
[考研] 材料與化工一志愿南昌大學(xué)327求調(diào)劑推薦 +7 | Ncdx123456 2026-03-13 | 8/400 |
|
|
|
[考研] 材料與化工 323 英一+數(shù)二+物化，一志愿：哈工大 本人本科雙一流 +4 | 自由的_飛翔 2026-03-13 | 5/250 |
|
|
|
[考研] 材料080500調(diào)劑求收留 +3 | 一顆meteor 2026-03-13 | 3/150 |
|
|
|
[考研] 330求調(diào)劑 +3 | ?醬給調(diào)劑跪了 2026-03-13 | 3/150 |
|
|
|
[考研] 一志愿中科院，化學(xué)方向，295求調(diào)劑 +4 | 一氧二氮 2026-03-11 | 4/200 |
|
|
|
[考研] 308求調(diào)劑 +5 | 是Lupa啊 2026-03-11 | 5/250 |
|
|
|
[考研] 求b區(qū)學(xué)校調(diào)劑 +3 | 周56 2026-03-11 | 3/150 |
|
|
|
[考研] 土木第一志愿276求調(diào)劑，科研和技能十分豐富，求新興方向的導(dǎo)師收留 +3 | 土木小天才 2026-03-12 | 3/150 |
|
|
|
[考研] 321求調(diào)劑（食品/專碩） +3 | xc321 2026-03-12 | 6/300 |
|