tiantian2921

新蟲(chóng) (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 640.5
紅花: 2
帖子: 209
在線: 90.8小時(shí)
蟲(chóng)號(hào): 642835
注冊(cè): 2008-11-01
性別: MM
專(zhuān)業(yè): 凝聚態(tài)物性I:結(jié)構(gòu)、力學(xué)和

[求助] 文件行數(shù)固定（100），列數(shù)不固定，怎么用fortran讀取文件？已有1人參與

想要用二維數(shù)組vn（i，j）i表示數(shù)據(jù)所在行數(shù)，j表示所在列數(shù)。這些信息需要。
應(yīng)該怎么編程實(shí)現(xiàn)？

回復(fù)此樓

» 猜你喜歡

資源與環(huán)境調(diào)劑申請(qǐng)(333分) 已經(jīng)有7人回復(fù)
306求0703調(diào)劑一志愿華中師范已經(jīng)有11人回復(fù)
【考研調(diào)劑】化學(xué)專(zhuān)業(yè) 281分，一志愿四川大學(xué)，誠(chéng)心求調(diào)劑已經(jīng)有14人回復(fù)
0703化學(xué)調(diào)劑，求導(dǎo)師收已經(jīng)有6人回復(fù)
求調(diào)劑已經(jīng)有5人回復(fù)
070300化學(xué)求調(diào)劑已經(jīng)有9人回復(fù)
300分，材料，求調(diào)劑，英一數(shù)二已經(jīng)有3人回復(fù)
材料學(xué)碩，求調(diào)劑已經(jīng)有7人回復(fù)
289求調(diào)劑已經(jīng)有5人回復(fù)
求調(diào)劑已經(jīng)有7人回復(fù)

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:

關(guān)于FORTRAN使用DAT文件已經(jīng)有5人回復(fù)
Fortran讀取dat文件求助已經(jīng)有4人回復(fù)
Fortran怎么從一個(gè)dat文件中讀取不同類(lèi)型數(shù)據(jù)賦值給不同的變量？已經(jīng)有8人回復(fù)
Fortran有擴(kuò)展名為n的文件嗎？已經(jīng)有5人回復(fù)
Fortran如何讀取不確定行數(shù)的數(shù)據(jù) 已經(jīng)有3人回復(fù)
fortran里面如何表達(dá)連續(xù)的整數(shù)數(shù)列？已經(jīng)有6人回復(fù)
用fortran怎么讀.CSV文件已經(jīng)有11人回復(fù)
fortran數(shù)組輸出，行與列請(qǐng)教已經(jīng)有7人回復(fù)
fortran文件操作，接著寫(xiě)不覆蓋已經(jīng)有3人回復(fù)
200多個(gè)txt文件matlab讀取問(wèn)題已經(jīng)有18人回復(fù)
又來(lái)求助啦，fortran里使用多文件，其中的子程序文件怎么觀察參數(shù)值�。� 已經(jīng)有3人回復(fù)
Fortran 90格式的源文件里面可以粘貼Fortran 77格式的子例程嗎？已經(jīng)有4人回復(fù)
Fortran有EOF文件結(jié)尾么？已經(jīng)有7人回復(fù)
fortran兩個(gè)問(wèn)題，文件中的空格，屏幕同一行覆蓋輸出已經(jīng)有23人回復(fù)
【求助】FORTRAN寫(xiě)文件時(shí)每行開(kāi)頭都多了一個(gè)空格？已經(jīng)有6人回復(fù)
【求助】FORTRAN讀取文本文件已經(jīng)有9人回復(fù)
【求助】用fortran怎么描述下面這樣的情況，我是新手，請(qǐng)大家?guī)兔?/a> 已經(jīng)有8人回復(fù)

【求助】下面這個(gè)公式怎么用FORTRAN實(shí)現(xiàn) 已經(jīng)有7人回復(fù)
【求助】matlab讀取fortran輸出的txt文件【已解決】已經(jīng)有3人回復(fù)
【求助】如何實(shí)現(xiàn)編寫(xiě)的fortran程序讓別人使用，但不讓別人知道源代碼已經(jīng)有6人回復(fù)

1樓 2014-10-31 16:45:38

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

tiantian2921

新蟲(chóng) (小有名氣)

頂

2樓2014-10-31 17:38:29

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

pippi6

鐵桿木蟲(chóng) (著名寫(xiě)手)

工程和科學(xué)數(shù)值計(jì)算咨詢

應(yīng)助: 413 (碩士)
貴賓: 0.002
金幣: 7116.5
散金: 15
紅花: 63
帖子: 1639
在線: 798.9小時(shí)
蟲(chóng)號(hào): 2469437
注冊(cè): 2013-05-14
專(zhuān)業(yè): 計(jì)算數(shù)學(xué)與科學(xué)工程計(jì)算

【答案】應(yīng)助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感謝參與，應(yīng)助指數(shù) +1
tiantian2921: 金幣+20, ★★★很有幫助, 謝謝！有事晚回復(fù)了。測(cè)試后可行的話，再做回貼說(shuō)明。 2014-11-05 10:32:02

我做了一個(gè)sample文件（10行），你可以很容易改成任意行而不失一般性，姑且叫做 test.dat
1.0
1.0 2.0
1.0 2.0 3.0
1.0 2.0 3.0 4.0
1.0 2.0 3.0 4.0 5.0
1.0 2.0 3.0 4.0 5.0 6.0
1.0 2.0 3.0 4.0 5.0 6.0 7.0
1.0 2.0 3.0 4.0 5.0 6.0 7.0 8.0
1.0 2.0 3.0 4.0 5.0 6.0 7.0 8.0 9.0
1.0 2.0 3.0 4.0 5.0 6.0 7.0 8.0 9.0 10.0

Fortran code如下
subroutine TestRead
  implicit none
  integer,parameter :: n=20,m=10
  integer :: i,j
  real*8, dimension(m,n) :: vn
  open(22,file='test.dat')
  do i=1,m
   print*,' i=',i
   read(22,4,advance='yes',eor=2) (vn(i,j),j=1,n)
2 continue
  end do
  close(22)

  do i=1,m
   print"(<n> f10.5)", (vn(i,j),j=1,n)
  end do
4 format( <n> f4.2)
end subroutine TestRead

你可以適當(dāng)修改參數(shù)，以適應(yīng)你的需求。不知道這是否是你要的

贊一下

回復(fù)此樓

3樓2014-11-01 00:07:56

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

tiantian2921

新蟲(chóng) (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 640.5
紅花: 2
帖子: 209
在線: 90.8小時(shí)
蟲(chóng)號(hào): 642835
注冊(cè): 2008-11-01
性別: MM
專(zhuān)業(yè): 凝聚態(tài)物性I:結(jié)構(gòu)、力學(xué)和

引用回帖:

3樓: Originally posted by pippi6 at 2014-11-01 00:07:56
我做了一個(gè)sample文件（10行），你可以很容易改成任意行而不失一般性，姑且叫做 test.dat
1.0
1.0 2.0
1.0 2.0 3.0
1.0 2.0 3.0 4.0
1.0 2.0 3.0 4.0 5.0
1.0 2.0 3.0 4.0 5.0 6.0
1.0 2.0 3.0 4.0 5.0 6.0 ...

編譯提示出出錯(cuò)，有兩類(lèi)：
1. read(22,4,advance='yes',eor=2) (vn(i,j),j=1,n)
advance提示讓改成“no”
2. print"(<n> f10.5)" 不認(rèn)識(shí)<>

贊一下

回復(fù)此樓

4樓2014-11-05 11:36:30

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

tiantian2921

新蟲(chóng) (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 640.5
紅花: 2
帖子: 209
在線: 90.8小時(shí)
蟲(chóng)號(hào): 642835
注冊(cè): 2008-11-01
性別: MM
專(zhuān)業(yè): 凝聚態(tài)物性I:結(jié)構(gòu)、力學(xué)和

引用回帖:

按照提示改了
1. 把a(bǔ)dvance改成no
2.print"(<n> f10.5)" 改成 print"(20f10.5)"
format( <n> f4.2) 改成 format(20f4.2)
編譯過(guò)了，但是無(wú)法執(zhí)行a.out

贊一下

回復(fù)此樓

5樓2014-11-05 11:41:25

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

pippi6

鐵桿木蟲(chóng) (著名寫(xiě)手)

工程和科學(xué)數(shù)值計(jì)算咨詢

應(yīng)助: 413 (碩士)
貴賓: 0.002
金幣: 7116.5
散金: 15
紅花: 63
帖子: 1639
在線: 798.9小時(shí)
蟲(chóng)號(hào): 2469437
注冊(cè): 2013-05-14
專(zhuān)業(yè): 計(jì)算數(shù)學(xué)與科學(xué)工程計(jì)算

引用回帖:

5樓: Originally posted by tiantian2921 at 2014-11-05 11:41:25
按照提示改了
1. 把a(bǔ)dvance改成no
2.print"(<n> f10.5)" 改成 print"(20f10.5)"
format( <n> f4.2) 改成 format(20f4.2)
編譯過(guò)了，但是無(wú)法執(zhí)行a.out...

你用的什么fortran，什么系統(tǒng)？我這是在CVF6.6 XP 下作的

贊一下

回復(fù)此樓

6樓2014-11-05 14:23:24

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

tiantian2921

新蟲(chóng) (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 640.5
紅花: 2
帖子: 209
在線: 90.8小時(shí)
蟲(chóng)號(hào): 642835
注冊(cè): 2008-11-01
性別: MM
專(zhuān)業(yè): 凝聚態(tài)物性I:結(jié)構(gòu)、力學(xué)和

引用回帖:

6樓: Originally posted by pippi6 at 2014-11-05 14:23:24
你用的什么fortran，什么系統(tǒng)？我這是在CVF6.6 XP 下作的...

我是在linux下運(yùn)行的，兼容fortran6和9.0

贊一下

回復(fù)此樓

7樓2014-11-05 15:29:55

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

pippi6

鐵桿木蟲(chóng) (著名寫(xiě)手)

工程和科學(xué)數(shù)值計(jì)算咨詢

應(yīng)助: 413 (碩士)
貴賓: 0.002
金幣: 7116.5
散金: 15
紅花: 63
帖子: 1639
在線: 798.9小時(shí)
蟲(chóng)號(hào): 2469437
注冊(cè): 2013-05-14
專(zhuān)業(yè): 計(jì)算數(shù)學(xué)與科學(xué)工程計(jì)算

【答案】應(yīng)助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★
tiantian2921: 金幣+10, ★有幫助 2015-01-04 18:13:10

引用回帖:

7樓: Originally posted by tiantian2921 at 2014-11-05 15:29:55
我是在linux下運(yùn)行的，兼容fortran6和9.0...

我試了，advance='no' 也可以
執(zhí)行文件a.out不工作你需要自己搞定

贊一下

回復(fù)此樓

8樓2014-11-05 23:03:02

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

最具人氣熱帖推薦 [查看全部]	作者	回/看	最后發(fā)表

[考研] 收08調(diào)劑生 +4	komorebi69 2026-03-18	4/200	2026-03-24 16:53 by 不知名小學(xué)生
[考研] 材料292調(diào)劑 +8	橘頌思美人 2026-03-23	8/400	2026-03-24 16:33 by laoshidan
[考研] 一志愿211 初試270分求調(diào)劑 +5	谷雨上岸 2026-03-23	6/300	2026-03-24 16:32 by laoshidan
[考研] 274求調(diào)劑 +4	顧九笙要謙虛 2026-03-24	4/200	2026-03-24 16:28 by barlinike
[考研] 081700 調(diào)劑 267分 +9	迷人的哈哈 2026-03-23	9/450	2026-03-24 11:58 by 544594351
[考研] 0856材料專(zhuān)碩353求調(diào)劑 +5	NIFFFfff 2026-03-20	5/250	2026-03-24 11:46 by 544594351
[考研] 298-一志愿中國(guó)農(nóng)業(yè)大學(xué)-求調(diào)劑 +11	手機(jī)用戶 2026-03-17	12/600	2026-03-23 23:51 by 熱情沙漠
[考研] 265求調(diào)劑 +10	梁梁校校 2026-03-17	10/500	2026-03-23 21:17 by 一切OK
[考研] 一志愿重慶大學(xué)085700資源與環(huán)境，總分308求調(diào)劑 +7	墨墨漠 2026-03-23	8/400	2026-03-23 20:36 by Creta
[考研] 生物學(xué)一志愿985，分?jǐn)?shù)349求調(diào)劑 +6	zxts12 2026-03-21	9/450	2026-03-23 18:37 by macy2011
[考研] 291求調(diào)劑 +5	孅華 2026-03-22	5/250	2026-03-23 09:20 by haoshis
[考研] 308求調(diào)劑 +3	墨墨漠 2026-03-21	3/150	2026-03-22 16:54 by i_cooler
[考研] 廣西大學(xué)材料導(dǎo)師推薦 +3	夏夏夏小正 2026-03-17	5/250	2026-03-21 22:20 by 金昊ML
[考研] 材料與化工（0856）304求B區(qū)調(diào)劑 +3	邱gl 2026-03-20	7/350	2026-03-21 19:05 by 15709483992
[考研] 297求調(diào)劑 +11	戲精丹丹丹 2026-03-17	12/600	2026-03-21 17:47 by ColorlessPI
[考研] 22408 344分求調(diào)劑一志愿華電計(jì)算機(jī)技術(shù) +4	solanXXX 2026-03-20	4/200	2026-03-20 23:49 by alg094825
[考研] 288求調(diào)劑 +16	于海海海海 2026-03-19	16/800	2026-03-20 22:28 by JourneyLucky
[考研] A區(qū)線材料學(xué)調(diào)劑 +5	周周無(wú)極 2026-03-20	5/250	2026-03-20 21:33 by laoshidan
[考研] 招收調(diào)劑碩士 +4	lidianxing 2026-03-19	12/600	2026-03-20 12:25 by lidianxing
[考研] 本科鄭州大學(xué)物理學(xué)院，一志愿華科070200學(xué)碩，346求調(diào)劑 +4	我不是一根蔥 2026-03-18	4/200	2026-03-19 09:11 by 浮云166