[½»Á÷] ¡¾ÇóÖú¡¿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)
ÊDz»ÊÇÉÙÁËÒ»¸öÀ¨ºÅ£¿

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