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

24小时热门版块排行榜    

CyRhmU.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】matlab数据导入Fortran
南方科技大学公共卫生及应急管理学院2025级博士研究生招生报考通知
101/1返回列表
查看: 1554  |  回复: 9
只看楼主@他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

wysqh

木虫 (小有名气)

[交流] 【求助】matlab数据导入Fortran

目前有一个用matlab产生的一个128*128特定矩阵 存为data.dat文件  现在想要将这个矩阵导入到Fortran中存为eta(i,j) 行列要一一对应 该如何实现呢？
回复此楼

» 猜你喜欢

» 抢金币啦！回帖就可以得到:

查看全部散金贴
1楼2011-04-11 10:31:09
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)
★ ★
微尘、梦想(金币+2): 谢谢回贴…… 2011-04-11 11:30:55
你的 data.dat 是个文本文件？

直接读入不就可以了吗？也不是啥难事儿……

行列对应无非就是循环的下标排列的问题。

给个列子说明要如何一一对应……
赞一下(1人) 回复此楼
2楼2011-04-11 10:57:13
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)
如果没有记错，matlab 与 Fortran 的矩阵存贮格式是一致的。
赞一下 回复此楼
3楼2011-04-11 10:57:41
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wysqh

木虫 (小有名气)
引用回帖:
Originally posted by snoopyzhao at 2011-04-11 10:57:13:
你的 data.dat 是个文本文件？

直接读入不就可以了吗？也不是啥难事儿……

行列对应无非就是循环的下标排列的问题。

给个列子说明要如何一一对应……

data.dat文件 是按照一行一行的存的 如附件
就想实现 eta(i,j) 每一行与文件里面的每一行相对应 也是128*128排列
是采用read语句实现吗？具体程序该怎么写啊。。

[ Last edited by wysqh on 2011-4-11 at 11:34 ]
赞一下 回复此楼
4楼2011-04-11 11:33:08
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

dingxb

金虫 (正式写手)
wysqh(金币+3): 多谢交流~ 2011-04-12 08:27:27
do i = 1, 128
do j = 1, 128
  read(file, *) eta(i,j）
end do
end do

基本结构如此，如果需要指定格式的话，替换read语句中的*为格式描述。
赞一下 回复此楼
5楼2011-04-11 14:17:55
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

dingxb

金虫 (正式写手)
为了确保读的正确，一般我都是输出进行比较。
赞一下 回复此楼
6楼2011-04-11 14:18:53
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)
引用回帖:
Originally posted by dingxb at 2011-04-11 14:17:55:
do i = 1, 128
do j = 1, 128
  read(file, *) eta(i,j）
end do
end do

基本结构如此，如果需要指定格式的话，替换read语句中的*为格式描述。

其实一句话就够了，呵呵……
CODE:
read(unit=5, *) ((eta(i,j), j = 1,128),i=1,128)
赞一下 回复此楼
7楼2011-04-11 17:50:29
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wysqh

木虫 (小有名气)
引用回帖:
Originally posted by dingxb at 2011-04-11 14:17:55:
do i = 1, 128
do j = 1, 128
  read(file, *) eta(i,j）
end do
end do

基本结构如此，如果需要指定格式的话，替换read语句中的*为格式描述。

我开始是这样做的 但是运行之后会出现下面的错误
赞一下 回复此楼
8楼2011-04-11 22:10:37
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wysqh

木虫 (小有名气)
引用回帖:
Originally posted by snoopyzhao at 2011-04-11 17:50:29:
其实一句话就够了，呵呵……
CODE:
read(unit=5, *) ((eta(i,j), j = 1,128),i=1,128)


read(unit=5, *) ((eta(i,j), j = 1,128),i=1,128)
是不是少了一个括号？
赞一下 回复此楼
9楼2011-04-11 22:14:10
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)
wysqh(金币+7): 谢谢你的建议~因为不是专门搞这个的 很多东西不懂 2011-04-12 08:27:11
引用回帖:
Originally posted by wysqh at 2011-04-11 22:14:10:
read(unit=5, *) ((eta(i,j), j = 1,128),i=1,128)
是不是少了一个括号？

数括号我还是会的，我不知道你咋看出来少了一个括号，呵呵……

下面是我测试过的代码：
CODE:
program readata
real(kind=kind(1.0d0)), dimension(128,128) :: mat
integer :: i,j

read(unit=5,fmt=*) ((mat(i,j), j = 1,128),i=1,128)

!do i=1,128
!   write(*,*) (mat(i,j), j = 1,128)
!end do

end program readata
赞一下 回复此楼
10楼2011-04-11 23:16:05
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 wysqh 的主题更新
101/1返回列表
普通表情 龙 兔 虎 猫 高级回复(可上传附件)
信息提示
关闭
请填处理意见
关闭