应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » fortran如何获取文件中指定列的数据
北京石油化工学院2026年研究生招生接收调剂公告
91/1返回列表
查看: 1763  |  回复: 8
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

carrolyb

新虫 (初入文坛)

[求助] fortran如何获取文件中指定列的数据 已有2人参与

我想读取给定第二列的数据（文件数据如下）：
  4.902380       24.09600       19.19362   
   5.117340       24.64800       19.53066   
   5.376030       24.58470       19.20867   
   1.905530       7.827580       5.922050   
   1.605610       8.201700       6.596090   
   1.946720       7.271230       5.324510   
   1.742370       10.20920       8.466830   
   1.901910       9.991350       8.089440   
   1.525720       10.93020       9.404480   
   1.705040       12.12240       10.41736   
   1.564290       11.48820       9.923910   
   1.638400       12.97950       11.34110   
   1.404010       20.71810       19.31409   
   1.571210       21.79690       20.22569   
   1.633620       23.00130       21.36768   
   1.478230       11.46750       9.989270   
   1.470280       14.52380       13.05352   
   1.670590       15.37190       13.70131   
编写的程序为：
program main
implicit none
integer i
real ::a(10,3),b(10)
open(1,file='C:\Users\user\Desktop\11\zongie.txt')
do i=1,10
read(1,*) a(i,2)
b(i)=a(i,2)
enddo

close(1)
write(*,*) b
end
但是运行后总是输出的是第一列的数据，不知道程序哪里有问题，请高手帮忙看看，谢谢！
回复此楼

» 猜你喜欢
1楼 2015-10-25 16:05:45
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

浔荆

木虫 (正式写手)

【答案】应助回帖

感谢参与，应助指数 +1
read(1,*) a(i,2)
这个代码会读取编号1文件中某行的所有数据，然后逐个赋值给后面的变量列表。但由于变量列表只有一个变量，所以只会将该行数据中的第一个赋值给变量，也就是你的第一列数据。
改成这样应该就行了，其他不用变：
read(1,*) a(i,

另：文件编号不要用个位数，可能会与系统默认编号冲突
赞一下(1人) 回复此楼
2楼2015-10-26 11:45:14
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

浔荆

木虫 (正式写手)

【答案】应助回帖

read(1,*) a(i,1:3)
上面的冒号被系统吃了。。。
赞一下 回复此楼
3楼2015-10-26 11:46:06
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

www.cctv

银虫 (小有名气)
你这个有规律，可以采用代码。

发自小木虫Android客户端
赞一下 回复此楼
有幸相遇 不负相见
4楼2015-10-26 19:02:56
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

liupw789k

金虫 (小有名气)

【答案】应助回帖

感谢参与，应助指数 +1
Do j=1,3
   Do i=1,10
      Read(1,*)a(i,j)
   Enddo
Enddo
B(=a(:,2)
Fortran是按列读取数据的！
手机打字真麻烦！！

[ 发自小木虫客户端 ]
赞一下 回复此楼
Purescienceissomethingworththinkingabout!
5楼2015-10-27 00:19:20
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

liupw789k

金虫 (小有名气)
引用回帖:
5楼: Originally posted by liupw789k at 2015-10-27 00:19:20
Do j=1,3
   Do i=1,10
      Read(1,*)a(i,j)
   Enddo
Enddo
B(=a(:,2)
Fortran是按列读取数据的！
手机打字真麻烦！！

2楼是对的！我这个输出了好使！读数据我就没试过了！！嘿嘿～

[ 发自小木虫客户端 ]
赞一下 回复此楼
Purescienceissomethingworththinkingabout!
6楼2015-10-27 00:24:15
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

庐山活水

铜虫 (小有名气)
双循环就可搞定

发自小木虫Android客户端
回复此楼
自信人生二百年，会当击水三千里
7楼2015-10-27 00:25:38
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

carrolyb

新虫 (初入文坛)
引用回帖:
3楼: Originally posted by 浔荆 at 2015-10-26 11:46:06
read(1,*) a(i,1:3)
上面的冒号被系统吃了。。。

明白了，谢谢
回复此楼
8楼2015-10-29 18:27:51
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

carrolyb

新虫 (初入文坛)
引用回帖:
3楼: Originally posted by 浔荆 at 2015-10-26 11:46:06
read(1,*) a(i,1:3)
上面的冒号被系统吃了。。。

9楼2015-10-29 18:29:54
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 carrolyb 的主题更新
91/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿9初试366 本双非求调剂 +3 运气来得若有似� 2026-04-02 3/150 2026-04-02 09:19 by 暮云清寒
[考研] 805600专硕材料与化工348分求调剂 +6 上学啦！ 2026-04-01 6/300 2026-04-02 07:49 by 2026材料调剂
[考研] 材料科学与工程339求调剂 +11 hyz0119 2026-03-31 12/600 2026-04-01 18:40 by 伟大河北
[考研] 294分080500材料科学与工程求调剂 +15 柳溪边 2026-03-26 16/800 2026-04-01 17:07 by 七度不信任
[考研] 0710生物学考研调剂 +3 李多米lee. 2026-03-27 4/200 2026-04-01 16:21 by zzchen2000
[考研] 0703一志愿南师大334求调剂 +4 seven7yu 2026-03-30 4/200 2026-04-01 16:10 by oooqiao
[考研] 一志愿同济大学323分（080500）求调剂 +4 yikeniu 2026-04-01 4/200 2026-04-01 14:06 by asdfzly
[考研] 本科211安全工程，初试290分，求调剂 +3 2719846834 2026-03-28 3/150 2026-03-31 13:52 by 热情沙漠
[考研] 266分，求材料相关专业调剂 +10 哇呼哼呼哼 2026-03-30 12/600 2026-03-31 11:00 by 熊一刀
[考研] 262求调剂 +7 ZZ..000 2026-03-30 8/400 2026-03-31 10:05 by cal0306
[考研] 274求调剂 +6 xiao爱同学 2026-03-30 6/300 2026-03-31 10:04 by cal0306
[考研] 一志愿食品科学与工程083200求调剂 +4 XQTJZ 2026-03-30 4/200 2026-03-31 04:10 by fmesaito
[考研] 297 地理学070500 复试求调剂 +3 小圆圈圈ooo 2026-03-30 3/150 2026-03-30 21:05 by 余震yz
[考研] 303求调剂 +7 DLkz1314. 2026-03-30 7/350 2026-03-30 16:05 by shuang5186
[考研] 求调剂 +7 青春裁为三截 2026-03-29 7/350 2026-03-30 13:14 by laoshidan
[考研] 085602 化学工程专硕 340分求调剂 +4 qianbai11 2026-03-29 4/200 2026-03-30 11:34 by 唐沐儿
[考研] 求调剂，一志愿 南京航空航天大学大学 ，080500材料科学与工程学硕 +6 @taotao 2026-03-26 7/350 2026-03-30 10:43 by 我是小康
[考研] 327求调剂 +6 汲亦昊 2026-03-29 6/300 2026-03-29 13:40 by peike
[考研] 394求调剂 +3 好事多磨静候佳� 2026-03-26 5/250 2026-03-28 14:24 by 唐沐儿
[考研] 340求调剂 +5 jhx777 2026-03-27 5/250 2026-03-28 04:18 by fmesaito
信息提示
关闭
请填处理意见
关闭