在Fortran中使用序列初始化数组

Question

我目前正在翻译一些遗留的fortran代码，并且很难理解代码中的特定行。编译器似乎也发现这行很奇怪，并抛出错误。据我了解，它试图通过以1为增量对1到9进行排序来初始化数组，并以列主形式将此序列填充到数组矩阵中。

program arrayProg

  integer :: matrix(3,3), i , j !two dimensional real array

  matrix = reshape((/1:9:1/), (/3,3/))

end program arrayProg

这种语法在fortran中可以接受吗？（这一定是因为它来自旧代码）我误解了该行的含义吗？

Answer 1

语法不正确，并且除非实现某些非标准扩展，否则Fortran编译器无法编译此类代码。

英特尔Fortran接受以下规定：

 A colon-separated triplet (instead of an implied-DO loop) to specify a range of values and a stride; for example, the following two array constructors are equivalent:
1       INTEGER D(3)
2       D = (/1:5:2/)              ! Triplet form - also [1:5:2]
3       D = (/(I, I=1, 5, 2)/)     ! implied-DO loop form

来自https://software.intel.com/zh-cn/node/678554

为了以一种标准的方式生成一个序列，可以使用一个隐式的do循环，例如

 (/ (i, i=1,9) /)

重塑不仅仅是像您猜中的那样将一维数组按列主顺序更改为二维一维数组。