这种问题根本不用问。自己用一段简单的代码就测试出来了:
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
请按任意键继续. . .
这就是你的问题答案。
要多学会自己摸索,什么都问别人,很难进步。
这里的*表示的是数据重复,并非乘法,比如3*-1.0表示有3个-1.0,而非计算3*-1.0=-3.0