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

Originally posted by snoopyzhao at 2011-04-11 10:57:13:
你的 data.dat 是个文本文件？

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

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

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

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语句中的*为格式描述。

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

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语句中的*为格式描述。

Originally posted by snoopyzhao at 2011-04-11 17:50:29:
其实一句话就够了，呵呵……

CODE:

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

Originally posted by wysqh at 2011-04-11 22:14:10:
read(unit=5, *) ((eta(i,j), j = 1,128),i=1,128)
是不是少了一个括号？

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