dvbbs
收藏本页
联系我们
论坛帮助
dvbbs

>> Fortran语言使用经验交流
搜一搜更多此类问题 
Fortran中文网Fortran中文网—Fortran语言经验交流Fortran语言使用经验交流 → fortran如何从文件中读数组

您是本帖的第 4312 个阅读者
树形 打印
标题:
fortran如何从文件中读数组
hlybg
帅哥哟,离线,有人找我吗?
等级:新手上路
文章:1
积分:233
门派:无门无派
注册:2009年6月30日
楼主
 用支付宝给hlybg付款或购买其商品,支付宝交易免手续费、安全、快捷! 点击这里发送电子邮件给hlybg

发贴心情
fortran如何从文件中读数组
有一矩阵存在0000.txt中,但不知道其确切的维数。怎么在fortran中读入该文件中的数据,并把其赋给二维数组a(:,:)呢?最后同时输出矩阵的维数m×n。
0000.txt
  12.3  3.4  4.54  7  4.7/  23.4   23.5  3.12  2.01  4/  12  13  15  4.1  7/  4  5  6  8.2  4/  
当遇到‘/’时换行,m=m+1
最后输出
  12.30     3.40    4.54     7.00      4.70
  23.40   23.50    3.12     2.01      4.00
  12.00   13.00   15.00    4.10      7.00
    4.00     5.00     6.00    8.20      4.00
  m=4
  n=5
ip地址已设置保密
2009/7/2 15:55:51
szr1215
帅哥哟,离线,有人找我吗?
等级:新手上路
文章:1
积分:221
门派:无门无派
注册:2009年7月2日
2
 用支付宝给szr1215付款或购买其商品,支付宝交易免手续费、安全、快捷! 点击这里发送电子邮件给szr1215

发贴心情
建议你把数据文件做成需要的形式,用时只要直接读取就可以了,免的麻烦~~~~~~
ip地址已设置保密
2009/7/3 11:44:48
yanyunwei
帅哥哟,离线,有人找我吗?
等级:新手上路
文章:5
积分:215
门派:无门无派
注册:2008年11月5日
3
 用支付宝给yanyunwei付款或购买其商品,支付宝交易免手续费、安全、快捷! 点击这里发送电子邮件给yanyunwei

发贴心情

program heh
implicit none

character(len=80) :: a
open(1,file='a.txt')
read(1,'(a)') a

print*,a

end program heh

接着一个个的比较字符就可以了,遇到空格付给一个数,遇到/换行

ip地址已设置保密
2009/7/23 15:45:39

 3   3   1/1页      1    
网上贸易 创造奇迹! 阿里巴巴 Alibaba
Powered By Dvbbs Version 7.1.0 Sp1
Copyright ©2005 - 2008 www.fortran.cn
页面执行时间 0.05078 秒, 3 次数据查询
京ICP备05056801号