Question

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

请教A（1,1）A（1,2）A（1,3）这些数组的值赋给的是多少？

Answer 1

这种问题根本不用问。自己用一段简单的代码就测试出来了：

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
请按任意键继续. . .

这就是你的问题答案。

要多学会自己摸索，什么都问别人，很难进步。

Answer 2

这里的*表示的是数据重复，并非乘法，比如3*-1.0表示有3个-1.0，而非计算3*-1.0=-3.0