| 5 | 1/1 | 返回列表 |
| 查看: 3633 | 回復(fù): 4 | ||
| 當(dāng)前只顯示滿足指定條件的回帖,點(diǎn)擊這里查看本話題的所有回帖 | ||
[求助]
Fortran讀取dat文件求助 已有4人參與
|
||
| 各位蟲(chóng)友好,我利用軟件得到了一個(gè)dat文件,想把其中的數(shù)據(jù)讀出,要求得到兩個(gè)變量,比如a、b。a代表第一列,b代表第二列,而且要相互對(duì)應(yīng)。由于變成水平有限,希望廣大蟲(chóng)友多多指點(diǎn)。謝謝!dat文件順帶上傳。 |
至尊木蟲(chóng) (正式寫(xiě)手)
木蟲(chóng) (職業(yè)作家)
中國(guó)特色

版主 (知名作家)

金蟲(chóng) (正式寫(xiě)手)
|
一般地說(shuō),讀取數(shù)據(jù)是為了下一步運(yùn)用 這些數(shù)據(jù),進(jìn)行 計(jì)算什么的。樓主只說(shuō)讀取數(shù)據(jù),所以有人直接建議用 EXCEL就解決問(wèn)題了。 我也不知道你最后派什么用場(chǎng),只好寫(xiě)幾句程序,作為樣例供你參考。 你自己根據(jù)你的需求,再改造程序。 你的問(wèn)題說(shuō)得越清楚,越是能幫到點(diǎn)子上。 樓主再仔細(xì)想想清楚。如果有需要,再聯(lián)系我。 integer a(5000) real*8 b(5000) character* 20 ch open(7,file='NodalTemperaturet.DAT') read(7,*) ch read(7,*) ch read(7,*) ch do i=1,4783 read(7,*) a(i),b(i) enddo close(7) end |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 322求調(diào)劑:一志愿湖南大學(xué) 材料與化工(085600),已過(guò)六級(jí)。 +4 | XX小鄧 2026-03-29 | 4/200 |
|
|---|---|---|---|---|
|
[考研] 調(diào)劑考研 +3 | 王杰一 2026-03-29 | 3/150 |
|
|
[考研] 0703化學(xué) +11 | 妮妮ninicgb 2026-03-27 | 11/550 |
|
|
[考研] 一志愿211 初試270分 求調(diào)劑 +8 | 谷雨上岸 2026-03-23 | 9/450 |
|
|
[碩博家園] 求調(diào)劑 有機(jī)化學(xué)考研356分 +3 | Nadiums 2026-03-25 | 4/200 |
|
|
[考研] 283求調(diào)劑 +3 | A child 2026-03-28 | 3/150 |
|
|
[考研] 085701環(huán)境工程,267求調(diào)劑 +16 | minht 2026-03-26 | 16/800 |
|
|
[考研] 315分求調(diào)劑 +7 | 26考研上岸版26 2026-03-26 | 7/350 |
|
|
[考研] 086000調(diào)劑 +3 | 7901117076 2026-03-26 | 3/150 |
|
|
[考研] 一志愿211院校 344分 東北農(nóng)業(yè)大學(xué)生物學(xué)學(xué)碩,求調(diào)劑 +5 | 丶風(fēng)雪夜歸人丶 2026-03-26 | 8/400 |
|
|
[考研] 化學(xué)調(diào)劑 +4 | 愛(ài)吃番茄的旭 2026-03-24 | 5/250 |
|
|
[考研] 一志愿華東理工大學(xué)081700,初試分?jǐn)?shù)271 +6 | kotoko_ik 2026-03-23 | 7/350 |
|
|
[考研] 315調(diào)劑 +4 | 0860求調(diào)劑 2026-03-26 | 5/250 |
|
|
[考研] 284求調(diào)劑 +11 | junqihahaha 2026-03-26 | 12/600 |
|
|
[考研] 調(diào)劑求收留 +7 | 果然有我 2026-03-26 | 7/350 |
|
|
[考研]
|
WWW西西弗斯 2026-03-24 | 8/400 |
|
|
[考研] 材料與化工328分調(diào)劑 +6 | 。,。,。,。i 2026-03-23 | 6/300 |
|
|
[考研] 282求調(diào)劑 +3 | wcq131415 2026-03-24 | 3/150 |
|
|
[考研] 0854電子信息求調(diào)劑 324 +4 | Promise-jyl 2026-03-23 | 4/200 |
|
|
[考研] 333求調(diào)劑 +3 | ALULU4408 2026-03-23 | 3/150 |
|