 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 4 | 1/1 | 返回列表 |
| 查看: 1269 | 回復: 3 | |||
| 本帖產生 1 個 程序強帖 ，點擊這里進行查看 | |||
[交流]
【求助】從文件讀入數組遇到困難
|
|||
|
文件A中第一行有n個數，另一文件B中第一行有m個數。(其中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 現在的問題是讀入的數據個數如果和數組的大小不等的話，就無法讀入。 由于類似文件很多，不要人為的讀入n或m的值，如何辦？ 想過用動態(tài)數組，也沒能搞定。 INTEGER, allocatable::numb(  ; ! 聲明動態(tài)數組，可以是多維的，類似a(:,:,allocate(numb(50)); ! 給動態(tài)數組分配內存 numb(50)=1.0; ! 操作和平常的數組一樣 deallocate(numb); 請高手貼出具體的程序解決，誠盼！�。。。� [ Last edited by onexf766 on 2010-12-25 at 20:43 ] |
回復此樓» 猜你喜歡
考研求調劑
已經有4人回復
-
085601專碩，總分342求調劑，地區(qū)不限
已經有4人回復
-
085601材料工程專碩求調劑
已經有5人回復
-
一志愿天津大學化學工藝專業(yè)（081702）315分求調劑
已經有6人回復
-
能源材料化學課題組招收碩士研究生8-10名
已經有6人回復
-
296求調劑
已經有5人回復
-
0703化學調劑 ，六級已過，有科研經歷
已經有8人回復
-
268求調劑
已經有8人回復
-
材料，紡織，生物（0856、0710），化學招生啦
已經有7人回復
-
301求調劑
已經有5人回復
» 本主題相關價值貼推薦，對您同樣有幫助:
- 增大數組后執(zhí)行窗口只是一閃
已經有14人回復
- 求助：在GUI界面中顯示m文件中的數組圖片
已經有3人回復
- 畢赤酵母基因重組時遇到困難了
已經有9人回復
- 混合基組中,如何讀入前一基組的CHK文件?
已經有4人回復
- 三維數組換行輸入到文件（intel fortran 編譯器）
已經有6人回復
- 關于c語言的一個小問題 坐等回復啊 急啊 是關于建立數組的
已經有9人回復
- 從txt文件讀數據到二維數組
已經有4人回復
- 【求助】關于ansys讀入荷載文件
已經有4人回復
- 【求助】一個求數組絕對值的小問題
已經有7人回復
- .txt格式的文件怎么讀入Jade5��？
已經有4人回復
- 【求助】module里面能夠讓數組從外部接受一些數據嗎？【已完結】
已經有8人回復
- 【求助】ANSYS定義數組時，如何從TXT文件中導入？
已經有7人回復
» 搶金幣啦！回帖就可以得到:
-
【技術服務】研究所橫向技術開發(fā)及服務
+1/99
-
光學工程學碩調劑信息
+2/54
-
何時使用 CODA™ 科里奧利質量流量儀表- 艾里卡特（Alicat）
+2/52
-
Call for paper: [Fermentation – IF 3.3]
+2/44
-
湖北工業(yè)大學 生命科學與健康學院 課題組招收2026級食品/生物方向碩士
+1/36
-
南開大學羅景山教授課題組招收2026年入學博士生（光/電催化方向）
+2/14
-
山東省植物基蛋白技術創(chuàng)新中心課題組聯合培養(yǎng)碩士研究生招募啟事
+1/12
-
211/雙一流石河子大學化學化工學院-電催化，單原子催化，CO2轉化
+1/9
-
211/雙一流石河子大學化學化工學院--電催化，CO2轉化
+1/8
-
教育部長江學者和創(chuàng)新團隊發(fā)展計劃”入選團隊招收 材料，化學與化工博士研究生
+1/7
-
香港大學David Srolovitz教授課題組招聘「香江學者」博士后
+1/7
-
【第三輪招生，31號截止】澳科大誠招2026秋全獎博士研究生（納米醫(yī)學/生物材料方向）
+1/6
-
課題組招收環(huán)境及相關專業(yè)調劑碩士研究生（歡迎優(yōu)秀學生加入）
+1/6
-
發(fā)paper
+1/5
-
上海第二工業(yè)大學-朱大海課題組招生（過線就能調劑）
+1/5
-
上海師范大學化學與材料科學學院任新意副研究員招收調劑學生3-4名（有機化學專業(yè)）
+1/5
-
Top-88悉尼科技大學數據科學/AI 招收2027年入學 校獎 博士生1到2名(國際和本地學生）
+1/3
-
課題組招收環(huán)境及相關專業(yè)調劑碩士研究生（歡迎優(yōu)秀學生加入）
+1/2
-
085400總分296求B區(qū)調劑求求求
+1/1
-
急！招收北京工業(yè)大學與國家納米科學中心聯合培養(yǎng)博士1名，物理、材料、化學背景
+1/1
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強帖: 16
- 應助: 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è)作家)
- 程序強帖: 16
- 應助: 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
|
這里關鍵的是下面兩行 第一行很容易理解，就是從文件中讀入一行，以字符串的形式讀入，由于你的一行中全部是數值，所以，我們可以用 Fortran 的內部文件機制解決數據的讀取問題。這就是第二行的代碼。在第二行中，LINE 不再是一個字符串，而是一個內部文件，這個文件的內容就是前一行讀入的那個字符串。END 表示遇到文件尾部時的處理方式，在這里，遇到尾部就跳到標號為 20 的行。由于你問題中說到數據不超過 100，所以我就設了后面讀入100個數，比如你的數據是 70 個，當讀第 71 個數據時，其實已經是尾部了，因此，就直接跳到標號為 20 的行了…… 大概就是這個樣子的…… |
4樓2011-04-09 11:19:27
相關版塊跳轉
我要訂閱樓主 onexf766 的主題更新
| 4 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 考研求調劑 +3 | 橘頌. 2026-03-17 | 4/200 |
|
|---|---|---|---|---|
|
|
[考研] 0703化學調劑 ，六級已過，有科研經歷 +8 | 曦熙兮 2026-03-15 | 8/400 |
|
|
[考研] 301求調劑 +5 | yy要上岸呀 2026-03-17 | 5/250 |
|
|
|
[考研] 材料專碩306英一數二 +7 | z1z2z3879 2026-03-16 | 9/450 |
|
|
|
[考研] 求調劑，總分315，考的生物醫(yī)藥，一志愿湖南師范大學。調劑到任何專業(yè)都可以 +4 | 小丁想進步 2026-03-11 | 5/250 |
|
|
|
[考研] 工科材料085601 279求調劑 +3 | 困于星晨 2026-03-17 | 3/150 |
|
|
|
[考研] 271求調劑 +12 | 生如夏花… 2026-03-11 | 14/700 |
|
|
|
[考研] 285化工學碩求調劑（081700） +9 | 柴郡貓_ 2026-03-12 | 9/450 |
|
|
|
[考研] 286求調劑 +3 | lemonzzn 2026-03-16 | 5/250 |
|
|
|
[考研] 333求調劑 +3 | 文思客 2026-03-16 | 7/350 |
|
|
|
[考研] 326求調劑 +4 | 諾貝爾化學獎覬?/a> 2026-03-15 | 7/350 |
|
|
|
[考研] 318求調劑 +3 | Yanyali 2026-03-15 | 3/150 |
|
|
|
[考研] 0703化學調劑 +6 | 妮妮ninicgb 2026-03-15 | 9/450 |
|
|
|
[考研] 085600材料與化工 求調劑 +13 | enenenhui 2026-03-13 | 14/700 |
|
|
|
[考研] 289求調劑 +4 | 這么名字咋樣 2026-03-14 | 6/300 |
|
|
|
[考研] 復試調劑 +3 | 呼呼？~+123456 2026-03-14 | 3/150 |
|
|
|
[考研] ［0860］321分求調劑，ab區(qū)皆可 +4 | 寶貴熱 2026-03-13 | 4/200 |
|
|
|
[考研] 0856材料與化工301求調劑 +5 | 奕束光 2026-03-13 | 5/250 |
|
|
|
[考研] 求調劑 +5 | 一定有學上- 2026-03-12 | 5/250 |
|
|
|
[考研] 土木第一志愿276求調劑，科研和技能十分豐富，求新興方向的導師收留 +3 | 土木小天才 2026-03-12 | 3/150 |
|