版塊導航: 正在加載中...

調(diào)劑小程序

登錄注冊

應《網(wǎng)絡安全法》要求，自2017年10月1日起，未進行實名認證將不得使用互聯(lián)網(wǎng)跟帖服務。為保障您的帳號能夠正常使用，請盡快對帳號進行手機號驗證，感謝您的理解與支持！

24小時熱門版塊排行榜

>論壇更新日志 (6443)
>考研 (1698)
>導師招生 (1354)
>文獻求助 (495)
>蟲友互識 (290)
>考博 (279)
>碩博家園 (155)
>博后之家 (116)
>基金申請 (109)
>招聘信息布告欄 (92)
>論文投稿 (90)
>休閑灌水 (86)
>第一性原理 (65)
>教師之家 (64)
>公派出國 (43)
>外文書籍求助 (32)

返回列表

tiantian2921

新蟲 (小有名氣)

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

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

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

回復此樓

» 猜你喜歡

食品專碩一志愿雙一流 328 已經(jīng)有4人回復
材料調(diào)劑已經(jīng)有6人回復
300分，材料，求調(diào)劑，英一數(shù)二已經(jīng)有5人回復
求調(diào)劑，一志愿:南京航空航天大學大學，080500材料科學與工程學碩，總分289分已經(jīng)有5人回復
085600材料與化工調(diào)劑已經(jīng)有13人回復
材料與化工考研調(diào)劑已經(jīng)有7人回復
0856材料專碩353求調(diào)劑已經(jīng)有6人回復
07化學280分求調(diào)劑已經(jīng)有6人回復
086003食品工程求調(diào)劑已經(jīng)有5人回復
08工學調(diào)劑已經(jīng)有16人回復

» 本主題相關價值貼推薦，對您同樣有幫助:

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

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

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

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

tiantian2921

新蟲 (小有名氣)

頂

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

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

pippi6

鐵桿木蟲 (著名寫手)

工程和科學數(shù)值計算咨詢

應助: 413 (碩士)
貴賓: 0.002
金幣: 7116.5
散金: 15
紅花: 63
帖子: 1639
在線: 798.9小時
蟲號: 2469437
注冊: 2013-05-14
專業(yè): 計算數(shù)學與科學工程計算

【答案】應助回帖

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

我做了一個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

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

贊一下

回復此樓

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

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

tiantian2921

新蟲 (小有名氣)

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

引用回帖:

3樓: Originally posted by pippi6 at 2014-11-01 00:07:56
我做了一個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 ...

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

贊一下

回復此樓

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

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

tiantian2921

新蟲 (小有名氣)

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

引用回帖:

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

贊一下

回復此樓

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

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

pippi6

鐵桿木蟲 (著名寫手)

工程和科學數(shù)值計算咨詢

應助: 413 (碩士)
貴賓: 0.002
金幣: 7116.5
散金: 15
紅花: 63
帖子: 1639
在線: 798.9小時
蟲號: 2469437
注冊: 2013-05-14
專業(yè): 計算數(shù)學與科學工程計算

引用回帖:

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

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

贊一下

回復此樓

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

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

tiantian2921

新蟲 (小有名氣)

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

引用回帖:

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

我是在linux下運行的，兼容fortran6和9.0

贊一下

回復此樓

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

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

pippi6

鐵桿木蟲 (著名寫手)

工程和科學數(shù)值計算咨詢

應助: 413 (碩士)
貴賓: 0.002
金幣: 7116.5
散金: 15
紅花: 63
帖子: 1639
在線: 798.9小時
蟲號: 2469437
注冊: 2013-05-14
專業(yè): 計算數(shù)學與科學工程計算

【答案】應助回帖

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

引用回帖:

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

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

贊一下

回復此樓

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

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

相關版塊跳轉(zhuǎn) 我要訂閱樓主 tiantian2921 的主題更新

返回列表

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

[考研] 08工學調(diào)劑 +11	用戶573181 2026-03-20	16/800	2026-03-24 20:36 by ：@sbs123
[考研] 化工專碩求調(diào)劑 +3	question挽風 2026-03-24	3/150	2026-03-24 18:48 by jhhcooi
[考研] 求調(diào)劑 +5	林之夕 2026-03-24	5/250	2026-03-24 17:16 by dick_runner
[考研] 一志愿南航材料專317分求調(diào)劑 +5	炸呀炸呀炸薯條 2026-03-23	5/250	2026-03-24 16:52 by 星空星月
[考研] 材料專碩331求調(diào)劑 +4	鮮當牛 2026-03-24	4/200	2026-03-24 15:58 by JourneyLucky
[考研] 299求調(diào)劑 +7	某某某某位 2026-03-21	7/350	2026-03-24 15:24 by cuifj
[考研] 284求調(diào)劑 +10	Zhao anqi 2026-03-22	10/500	2026-03-24 00:08 by Equinoxhua
[考研] 291求調(diào)劑 +8	hhhhxn.. 2026-03-23	8/400	2026-03-23 23:15 by peike
[考研] 生物學一志愿985，分數(shù)349求調(diào)劑 +6	zxts12 2026-03-21	9/450	2026-03-23 18:37 by macy2011
[考研] 350求調(diào)劑 +6	weudhdk 2026-03-19	6/300	2026-03-23 15:47 by tangyuan0840221
[考研] 北科281學碩材料求調(diào)劑 +8	tcxiaoxx 2026-03-20	9/450	2026-03-23 12:16 by tcxiaoxx
[考研] 石河子大學（211、雙一流）碩博研究生長期招生公告 +3	李子目 2026-03-22	3/150	2026-03-22 21:01 by 怎么釋懷
[考研] 318求調(diào)劑 +4	plum李子 2026-03-21	7/350	2026-03-22 14:17 by ColorlessPI
[考研] 求調(diào)劑 +5	Zhangbod 2026-03-21	7/350	2026-03-22 13:13 by Zhangbod
[考研] 一志愿東華大學控制學碩320求調(diào)劑 +3	Grand777 2026-03-21	3/150	2026-03-21 19:23 by 簡之-
[考研] 華東師范大學-071000生物學-293分-求調(diào)劑 +3	研究生何瑤明 2026-03-18	3/150	2026-03-21 01:30 by JourneyLucky
[考研] 304求調(diào)劑 +7	司空. 2026-03-18	7/350	2026-03-20 23:08 by JourneyLucky
[考研] 一志愿蘇州大學材料求調(diào)劑，總分315（英一） +5	sbdksD 2026-03-19	5/250	2026-03-20 22:10 by luoyongfeng
[考研] A區(qū)線材料學調(diào)劑 +5	周周無極 2026-03-20	5/250	2026-03-20 21:33 by laoshidan
[考研] 288求調(diào)劑，一志愿華南理工大學071005 +5	ioodiiij 2026-03-17	5/250	2026-03-19 18:22 by zcl123

24小時熱門版塊排行榜

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

» 猜你喜歡

» 本主題相關價值貼推薦，對您同樣有幫助:

【答案】應助回帖

【答案】應助回帖

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

» 本主題相關價值貼推薦，對您同樣有幫助: