Error: DATA statement at (1) has more values than variables

li913

data((m(r, c),r=1,3),c=1,2)/10,20,30,40,50,60/

li913

既然是刚学，就要学新的，你这个代码风格有点老了。推荐彭国伦的书。另外，使用二维数组，可以看看这个http://fcode.cn/guide-45-1.html

[Fortran] 纯文本查看 复制代码

program ex0707
implicit none
integer, parameter :: row = 3, col = 2
integer :: m(row, col)
integer r, c
m = reshape([10,20,30,40,50,60],[row,col])
write(*, "(2i3)") ((m(r, c), c=1,2),r=1,3)
read(*,*)
end