fortran语言 DATA数组赋值问题 DIMENSION A（4,3） DATA A/3*-1.0,3*-2.0,3

这种问题根本不用问。自己用一段简单的代码就测试出来了：
real :: A(4,3)
DATA A/3*-1。0,3*-2。0,3*-3。0,3*-4。0/
write(*,*) A
end
运行结果是
-1。000000 -1。000000 -1。000000 -2。000000 -2。000000
-2。000000 -3。000000 -3。000000 -3。000000 -4。000000
-4。000000 -4。000000
请按任意键继续。 。 。
这就是你的问题答案。
要多学会自己摸索,什么都问别人,很难进步。